' 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 |