I have a simple 'number adder' example here although I've written it in an OOP style so it may well look a bit strange:
' Textboxes - adding 2 values
Framework BRL.Win32MaxGUI
Local win:TGadget = CreateWindow("Adder",176,193,284,123,Desktop(),1)
Local val1:TGadget = CreateTextField(20,20,100,20,win,0)
Local val2:TGadget = CreateTextField(150,20,100,20,win,0)
Local results:TGadget = CreateTextField(80,56,160,20,win,0)
CreateLabel("+",133,21,9,15,win,0)
CreateLabel("=",60,57,10,16,win,0)
ActivateGadget val1
Repeat
Local total:Double
Local ev%=WaitEvent()
DebugLog CurrentEvent.ToString()
Select ev
Case EVENT_WINDOWCLOSE
Exit
Case EVENT_GADGETACTION
total = Double(val1.GetText()) + Double(val2.GetText())
results.SetText String(total)
End Select
Forever
End
|