Thankyou for your time brendy boy, I have had no success with accessing the menu get selected item id() command.
here is the entire code for my modified example
if check display mode(1024,768,32)=1
set display mode 1024,768,32
else
set display mode 640,480,32
endif
sync on : sync rate 0
global x
start bbb gui `"Media\Ruby.msstyles"
windows set font 7,"Arial",0,0,0,0
windows set icon "Media\dbpro_icon.ico"
windows set visibility 1
dbpro_w=get dbpro window() : set main window dbpro_w
w=make window(640,480,"Example window with menu",dbpro_w)
`This command makes empty menu bar
menu=make menu()
`File - 1
sub1=make submenu() : menu append submenu menu,sub1,"File"
submenu insert item sub1,"New",1
submenu insert separator sub1
submenu insert item sub1,"Open",2
submenu insert item sub1,"Save",3
submenu insert item sub1,"Save As...",4
submenu insert separator sub1
submenu insert item sub1,"Import",5
submenu insert item sub1,"Export",6
submenu insert separator sub1
submenu insert item sub1,"Exit",17
`Edit - 2
sub2=make submenu() : menu append submenu menu,sub2,"Edit"
submenu insert item sub2,"Undo",13
submenu insert item sub2,"Redo",14
menu enable item sub2,13,0
sub3=make submenu()
submenu insert item sub3,"SubItem1",8
submenu insert item sub3,"SubItem2",9
link submenu sub1,4,sub3
sub4=make submenu()
submenu insert item sub4,"SubSubItem1",10 : menu check item sub4,10,1
submenu insert item sub4,"SubSubItem2",11
submenu insert item sub4,"SubSubItem3",12
link submenu sub3,9,sub4
`This command shows rhe menu in our window
`NOTE: It is important that this command is called after all
` submenus are added
apply menu w,menu
`Now we will create a popup menu (or context menu) - this is the menu
`that pops up when you right click on the screen
sub=make submenu()
submenu insert item sub,"Item1",1
submenu insert item sub,"Item2",2
submenu insert item sub,"Item3",3
submenu insert item sub,"Item4",4
submenu insert separator sub
submenu insert item sub,"Item5",5
submenu insert item sub,"Item6",6
sub5=make submenu()
submenu insert item sub5,"SubItem1",7
submenu insert item sub5,"SubItem2",8
submenu insert item sub5,"SubItem3",9
submenu insert item sub5,"SubItem4",10
link submenu sub, 4, sub5
sub6=make submenu()
submenu insert item sub6,"SubSubItem1",11
submenu insert item sub6,"SubSubItem2",12
submenu insert item sub6,"SubSubItem3",13
link submenu sub5, 7, sub6
`This commands tells bbb gui plugin that we want this submenu to popup when
`right mouse button is clicked
show submenu sub, dbpro_w
`If you don't want this menu to be shown on right click then put zero as
`window handle like this:
`show menu sub, 0
set window on
make object box 1,2,2,2
do
`Get the id of selected menu item
s=MENU GET SELECTED ITEM ID()
if s>0 then string1$=MENU GET SELECTED ITEM STRING()
if s=10 then menu check item menu,10,8-menu get item state(menu,10)
if s>10 and s<13
menu check radio item menu,11,12,s
endif
text 20,20,"Last selected menu item string: "+string1$
s=POPUP MENU GET SELECTED ITEM ID()
if s>0 then string2$=POPUP MENU GET SELECTED ITEM STRING()
text 20,40,"Last selected popup menu item string: "+string2$
text 20,60,str$(MENU GET ITEM STATE(Menu, 11))
text 20,80,str$(MENU GET ITEM STATE(sub4, 10))
text 20,100,str$(menu get item state(menu,10))
//=my_added_code=======================================================================================
x = menu get selected item id()
select x
case 1:
button$ = "it works 1"
endcase
case 2:
button$ = "it works 2"
endcase
case default
button$ = "no input data"
endcase
endselect
text 0,0,button$
//======================================================================================================
repeat
get event
h=event get handle()
m=event get message()
if h=get main window()
if m=WM_CLOSE
a=make message box("quit?","BBB Gui plugin",MB_YESNO)
if a=IDYES then end bbb gui : end
endif
endif
until m=0
yrotate object 1,object angle y(1)+1
sync
loop
This should print a text statement to the top left corner of the screen, but all i get is the default which means x doesn't correspond to the selected menu id.
does this work for everyone else?
I get no change in the x variable.
what am I doing wrong?
Sometimes I like to use words out of contents
