Event Questions

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

CS_TBL

Dunno, I learnt myself B+ without this forum, just with the manual.. was all pretty easy.

Anyhoo.. this should work.

Open in online IDE

window=CreateWindow("window",0,0,640,480)

filemenu=CreateMenu("&File",0,WindowMenu(window))
  filemenuopen=CreateMenu("&Open",10,filemenu)
  	empty=CreateMenu("",999999,filemenu)
  filemenusave=CreateMenu("&Save",20,filemenu)
  filemenusaveas=CreateMenu("Save &As",30,filemenu)
  	empty=CreateMenu("",999999,filemenu)
  filemenuquit=CreateMenu("&Quit",40,filemenu)
editmenu=CreateMenu("&Edit",1,WindowMenu(window))
toolsmenu=CreateMenu("&Tools",2,WindowMenu(window))
helpmenu=CreateMenu("&Help",3,WindowMenu(window))

UpdateWindowMenu window
Repeat
	WaitEvent()
	If EventID()=$803 End
	
	If EventID()=$1001
		Select EventData()
			Case 10 RequestFile("test")
			Case 40 End
		End Select
		DebugLog EventData()
	EndIf
Forever