Events system

Import skn3.callbacks

Global CALLBACK_DO_SOMETHING:= RegisterCallbackId("Do Something")

Function Main:Int()
	Local myClass1:= New MyClass("myClass1")
	Local myClass2:= New MyClass("myClass2")
	Local myClass3:= New MyClass("myClass3")
	
	FireCallback(CALLBACK_DO_SOMETHING, Null, Null)
End

Class MyClass Implements CallbackReciever
	Field name:String
	
	Method New(name:string)
		Self.name = name
		
		'add callbacks to this class
		AddCallbackReciever(Self, CALLBACK_DO_SOMETHING)
	End
	
	Method OnCallback:Bool(id:Int, source:Object, data:Object)
		Select id
			Case CALLBACK_DO_SOMETHING
				Print "CALLBACK_DO_SOMETHING called for " + name
		End

		'return to not block further callbacks
		Return False
	End
End

Class MyForm Extends Form
	Field butClose:Button
	Field butChangeColor:Button
	Field textField:TextField
	Method OnInit()
		butClose = New Button
		butClose.Parent = Self
		butClose.Text = "Click me to close this form"
		
		'Add a method to the EventHanler:
		'The "ButClose_Clicked" method of "Self" will be automatically invoked when the butClose is clicked. No more code involved.
		butClose.Event_Click.Add(Self, "ButClose_Clicked") 
		
		butChangeColor = New Button
		butChangeColor.Parent = Self
		butChangeColor.Text = "Click here to change form color"
		butChangeColor.Position.Y = 40
		butChangeColor.Event_Click.Add(Self, "ButChangeColor_Clicked")
		
		textField = New TextField
		textField.Parent = Self
		textField.Position.Y = 80
		textField.AutoAdjustSize = False
		textField.Size.SetValues(200, 20)
		
		textField.Event_TextModified.Add(Self, "TextField_TextModified")
		
		Self.Event_Resized.Add(Self, "FormResized")
	End
	
	Method FormResized(sender:Object, e:EventArgs)
		Self.Text = "New size: " + Self.Size.X + ", " + Self.Size.Y
	End
	
	Method ButClose_Clicked(sender:Object, e:MouseEventArgs)
		Self.Dispose()
	End
	
	Method ButChangeColor_Clicked(sender:Object, e:MouseEventArgs)
		Self.TipText = "Back color has been changed."
		Self.BackgroundColor = New GuiColor(1, Rnd(0, 255), Rnd(0, 255), Rnd(0, 255))
	End
	
	Method TextField_TextModified(sender:Object, e:EventArgs)
		Print "Text has been modified on the text field!"
	End
End