Browse Source

Added CheckedChanged() to CheckGroup.

Mark Sibly 9 years ago
parent
commit
7671f803b9
1 changed files with 6 additions and 2 deletions
  1. 6 2
      modules/mojox/checkbutton.monkey2

+ 6 - 2
modules/mojox/checkbutton.monkey2

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