local val = false
function Main()
frmMain = Obj.Create("TForm")
frmMain.Left = 0
frmMain.Top = 0
frmMain.Width = 100
frmMain.Height = 100
frmMain.Font.Name = "Arial"
frmMain.Font.Size = 8
frmMain.Caption = "Some testing text"
frmMain.OnClose = function(pSender) Obj.Exit() end
frmMain.FormStyle = 3
btnStartStop = Obj.Create("TButton")
btnStartStop.Caption = "Start/stop"
btnStartStop.OnClick = function(pSender) btnOnClick(not val, pSender) end
btnStartStop.Parent = frmMain
btnStartStop.Top = 10
btnStartStop.Left = 20
btnStartStop.Width = 100
frmMain.Show()
Obj.Loop()
end
function btnOnClick(value)
while value == true do
print("...")
wait(500)
end
end
function Clean()
Obj.Free(btnStartStop)
Obj.Free(frmMain)
end
Main()
Clean()