Bläddra i källkod

Added CheckedChanged() to CheckGroup.

Mark Sibly 9 år sedan
förälder
incheckning
7671f803b9
1 ändrade filer med 6 tillägg och 2 borttagningar
  1. 6 2
      modules/mojox/checkbutton.monkey2

+ 6 - 2
modules/mojox/checkbutton.monkey2

@@ -5,6 +5,8 @@ Namespace mojox
 #end
 #end
 Class CheckGroup
 Class CheckGroup
 
 
+	Field CheckedChanged:Void()
+
 	Property Checked:CheckButton()
 	Property Checked:CheckButton()
 	
 	
 		Return _checked
 		Return _checked
@@ -50,12 +52,14 @@ Class CheckButton Extends Label
 			Checked=Not Checked
 			Checked=Not Checked
 			
 			
 			Clicked()
 			Clicked()
+			
+			If _group _group.CheckedChanged()
 		End
 		End
 		
 		
-		Super.Clicked+=clicked
-		
 		_checkBox.Clicked+=clicked
 		_checkBox.Clicked+=clicked
 		
 		
+		Super.Clicked+=clicked
+		
 		AddView( _checkBox )
 		AddView( _checkBox )
 
 
 		If group Group=group
 		If group Group=group