dialog toolbar {
title "Toolbar"
size -1 -1 512 1
option dbu
list 1, -1 0 514 14, size
}
on *:dialog:toolbar:init:*:{
dll system/dlls/mdx/mdx.dll SetMircVersion $version
dll system/dlls/mdx/mdx.dll MarkDialog $dname
dll system/dlls/mdx/mdx.dll SetDialog $dname style tool dlgframe
dll system/dlls/mdx/mdx.dll SetBorderStyle $dname 1
dll system/dlls/mdx/mdx.dll SetControlMDX $dname 1 ToolBar Bars flat list wrap nodivider > system/dlls/mdx/bars.mdx
did -i $dname 1 1 bmpsize 16 16
did -i $dname 1 1 setimage icon small 0,system/images/icons/XP.icl
did -a $dname 1 +a 1 Start $chr(9) Click here to begin
dll system/dlls/hOS/hOS.dll Dock $dname top 0
}
on *:dialog:toolbar:sclick:1:{
var %click $did($dname,1).sel
if (%click == 2) {
startmenu
}
}
alias startmenu {
dll system/dlls/popups.dll New startmenu 16 16
dll system/dlls/popups.dll LoadImg startmenu icon small 6,system/images/icons/XP.icl
dll system/dlls/popups.dll AddItem startmenu end 1 &Run... $cr run cmd
dll system/dlls/popups.dll Popup startmenu $calc($window(-2).x + 5) $calc($window(-2).y + 45)
}
im attempting to create a toolbar, right now im focusing on a menu resembling the windows start menu on the toolbar, it works, on start it docks the toolbar to the top of the script and the menu works fine, buuut, when i click on a item on the toolbar menu nothining happens, see this line here:
well i thought after $cr u put the command you want to run, but no matter what i put after $cr it doesn't work, can someone tell me how to get it working please?dll system/dlls/popups.dll AddItem startmenu end 1 &Run... $cr run cmd
p.s. sorry if ive posted in the wrong area.