43 lines
761 B
Plaintext
43 lines
761 B
Plaintext
if testtest != undefined do (try(destroydialog testtest)catch())
|
|
|
|
|
|
rcMenu myrcMenu
|
|
(
|
|
|
|
menuItem item1 "item1"
|
|
menuItem item2 "item2" checked:true
|
|
|
|
separator line1
|
|
|
|
submenu "submenu"
|
|
(
|
|
menuItem subitem1 "subitem1"
|
|
menuItem subitem2 "subitem2"
|
|
menuItem subitem3 "subitem3"
|
|
)
|
|
|
|
menuItem item3 "item3"
|
|
menuItem item4 "item4"
|
|
|
|
menuItem item5 "item5"
|
|
|
|
on item1 picked do item1.checked=true
|
|
on item2 picked do item2.checked=true
|
|
on item3 picked do item3.checked=true
|
|
|
|
|
|
on subitem1 picked do subitem1.checked=true
|
|
|
|
on myrcMenu open do print "open myremenu"
|
|
)
|
|
|
|
|
|
rollout testtest "test" width:400 height:300
|
|
(
|
|
button btn1 "rcmenu" width:80 height:80
|
|
|
|
on btn1 rightclick do popUpMenu myrcMenu align:#align_topleft
|
|
|
|
)
|
|
CreateDialog testtest
|