浏览代码

Added CheckedChanged() to CheckGroup.

Mark Sibly 9 年之前
父节点
当前提交
7671f803b9
共有 1 个文件被更改,包括 6 次插入2 次删除
  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