[Gambas-user] Possible error with ComboBoxes

[M. Cs.]

Public codepage As ComboBox
Public felulet As Form
...
Public Sub encoder_Click()
Dim closer As Button
Dim ext As Label
felulet = New Form
felulet.Width = 240
felulet.Height = 150
felulet.Border = False
ext = New Label(felulet)
ext.X = 20
ext.Y = 20
ext.Width = 220
ext.Height = 40
ext.Text = ("Select source encoding:")

codepage = New ComboBox(felulet) As "Cody"
codepage.List = ["iso8859-1", "iso8859-2", "iso8859-3", "iso8859-4",
"iso8859-5", "iso8859-6", "iso8859-8", "iso8859-9", "iso8859-15"]
codepage.Width = 200
codepage.Height = 35
codepage.ReadOnly = True
codepage.X = 20
codepage.y = 60


closer = New Button(felulet) As "Shutter"
closer.Width = 100
closer.X = 120
closer.Y = 120
closer.Text = ("Close")
felulet.ShowModal
End

Public Sub Cody_Change()
Dim faj As File
Message("itt")
  faj = Open User.Home & "/.nevezz/encoding" For Write Create
  Print #faj, codepage.Text
  Close (faj)
End

Public Sub Shutter_Click()
felulet.Delete
End


The dinamically created button "closer" is reacting with the
Shutter_Click() event, while on "codepage"-s change the event Cody_Change()
isn't raised.

Csaba