Gambas class file
lb AS Label
btn AS Button
PUBLIC SUB _new()
btn = NEW Button(ME) AS "Btn1"
btn.X = 20
btn.Y = 30
btn.Width = 80
btn.Height = 30
btn.Caption = "Hello 1"
btn.enabled = TRUE
btn = NEW Button(ME) AS "myButton"
btn.X = 110
btn.Y = 30
btn.Width = 80
btn.Height = 30
btn.Text = "Hello 2"
btn.enabled = TRUE
btn = NEW Button(ME) AS "myButton"
btn.X = 200
btn.Y = 30
btn.Width = 80
btn.Height = 30
btn.Caption = "Hello 3" 'or btn.Text = "Hello 3"
btn.enabled = TRUE
lb = NEW Label(ME)
lb.X = 20
lb.Y = 80
lb.Width = 200
lb.Height = 50
lb.Text = "What will happen?"
END
PUBLIC SUB myButton_Click()
lb.Text = "myButton_Click ("& LAST.Text &")"
END
PUBLIC SUB Btn1_Click()
lb.Text = "Btn1_Click"
END
-- JochenGeorges - 29 Dec 2004