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.*
}

Commenting Options