[Gambas-user] control groups

[Joao Pinto]

Hello,
are control groups working ?
I have tried the following example from the help but the click event 
code is not being executed.

...
' Gambas class file
STATIC PUBLIC SUB Main()
  DIM FMain AS Form
  DIM hButton[3] AS Button
  FMain = NEW Form1
 

hButton[0] = NEW Button(Fmain) AS "MyButtons"
hButton[0].Text = "Red"

hButton[1] = NEW Button(Fmain) AS "MyButtons"
hButton[1].Text = "Green"
hButton[1].Y = 50

hButton[2] = NEW Button(Fmain) AS "MyButtons"
hButton[2].Text = "Blue"
hButton[2].Y = 100
  FMain.show
END
PUBLIC SUB MyButtons_Click()

  lblTxt.text = LAST.Text
END
...

-- 
João Luís Marques Pinto
PTlink Technical Administrator
Lamego at ...99...
http://www.ptlink.net