Beginner Questions

[bbjimmy]

#!yab

doc Place a description of your
doc program here.
doc
doc Author, date, license

// set DEBUG = 1 to print out all messages on the console
DEBUG = 1

OpenWindow()

// Main Message Loop
dim msg$(1)
while(not leavingLoop)
nCommands = token(message$, msg$(), "|")

for everyCommand = 1 to nCommands
if(DEBUG and msg$(everyCommand)<>"") print msg$(everyCommand)

switch(msg$(everyCommand))
case "_QuitRequested"
case "MainWindow:_QuitRequested"
leavingLoop = true
break
default

end switch
if (left$(msg$(everyCommand),5)="Test:" )DRAW FLUSH "printtext"RAW TEXT 20,20, "Enter pressed and the text was changed on textcontrol", "printtext"
if (left$(msg$(everyCommand),5)="Radio" )DRAW FLUSH "printtext"RAW TEXT 20,20, msg$(everyCommand)+" button was changed.", "printtext"


next everyCommand

wend

CloseWindow()

end


// Setup the main window here
sub OpenWindow()
window open 100,100 to 600,500, "MainWindow", "Main Window"
Textcontrol 20,20 to 100,50, "Test","Test","","MainWindow"
radiobutton 20,80, "Radio1", "Classic", true, "MainWindow"
radiobutton 20,100, "Radio2", "Jazz", false, "MainWindow"
radiobutton 20,120, "Radio3", "Pop", false, "MainWindow"
view 10,150 to 490,180,"printtext","MainWindow"


return
end sub

// Close down the main window
sub CloseWindow()
window close "MainWindow"
return
end sub