Just a simple tool to aid development. makes it easy to flip through an iconfile, and get it's index number.

Press the + and - buttons to, respectively, go to the next or previous icon.

The field below the icon will show the icon's index number. If you fill in any numerical value here, you can use the jump button to jump to that index.

the button all the way at the bottom is self-explanatory.

comments? questions? like it? find it useful? leave a comment ;_)

dialog icobrowse {
  title "IconBrowser"
  size -1 -1 55 64
  option dbu
  icon 1, 3 8 32 32
  button "+", 2, 37 8 16 15
  button "-", 3, 37 25 16 15
  box "Browse", 4, 0 0 55 53
  edit "", 5, 2 42 17 10
  button "Jump", 6, 20 42 33 9
  button "Select icon file...", 7, 0 54 55 10
}

alias iconbrowse {
    dialog -dm icobrowse icobrowse
}

on *:DIALOG:icobrowse:sclick:7: {
    set %icobrowse.file $sfile($mircdir, Select an icon...)
    did -g $dname 1 0 $qt(%icobrowse.file)
    did -ra $dname 5 0
}

on *:DIALOG:icobrowse:sclick:2: {
    var %new $calc($did($dname, 5) + 1)
    did -ra $dname 5 %new
    did -g $dname 1 %new $qt(%icobrowse.file)
}

on *:DIALOG:icobrowse:sclick:3: {
    var %new $calc($did($dname, 5) - 1)
    did -ra $dname 5 %new
    did -g $dname 1 %new $qt(%icobrowse.file)
}

on *:DIALOG:icobrowse:sclick:6: {
    did -g $dname $did($dname, 5) %new $qt(%icobrowse.file)
}

on *:DIALOG:icobrowse:close:0: {
    unset %icobrowse.*
}