' Gambas class file
PUBLIC SUB Ford_Click()
TextLabel1.Text = "Ford"
END
PUBLIC SUB Audi_Click()
TextLabel1.Text = "Audi"
END
PUBLIC SUB Flowers_Click()
TextLabel1.Text = "Flowers"
END
PUBLIC SUB enableTrees_Click()
JoTrees.enabled = TRUE
TextLabel1.Text = "Now you can use Trees!"
END
PUBLIC SUB Trees_Click()
TextLabel1.Text = "Trees"
END
-- JochenGeorges - 28 Dec 2004
Attachment: | Action: | Size: | Date: | Who: | Comment: |
---|---|---|---|---|---|
![]() |
action | 1586 | 28 Dec 2004 - 08:11 | JochenGeorges |