Change UI of SSBooleanModel: Use button

CheckBoxes don't step properly.
hpi-swa-teaching · Jul 26, 2019 · 010ed21 · 010ed21
1 parent 5bb420d
commit 010ed21
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 4 deletions.
diff --git a/packages/SpreadSheetTool-Examples.package/SSBooleanModel.class/instance/buildWith..st b/packages/SpreadSheetTool-Examples.package/SSBooleanModel.class/instance/buildWith..st
@@ -1,7 +1,7 @@
 toolbuilder
 buildWith: aBuilder
 
-	^ aBuilder pluggableCheckBoxSpec new
+	^ aBuilder pluggableButtonSpec new
 		model: self;
 		label: #label;
 		action: #toggle;

diff --git a/packages/SpreadSheetTool-Examples.package/SSBooleanModel.class/instance/changed..st b/packages/SpreadSheetTool-Examples.package/SSBooleanModel.class/instance/changed..st
@@ -0,0 +1,5 @@
+toolbuilder
+changed: what
+
+	super changed: what.
+	what = #state ifTrue: [self changed: #label].
diff --git a/packages/SpreadSheetTool-Examples.package/SSBooleanModel.class/instance/label.st b/packages/SpreadSheetTool-Examples.package/SSBooleanModel.class/instance/label.st
@@ -1,4 +1,4 @@
 toolbuilder
 label
 
-	^ ''
+	^ self state asString
diff --git a/packages/SpreadSheetTool-Examples.package/SSBooleanModel.class/methodProperties.json b/packages/SpreadSheetTool-Examples.package/SSBooleanModel.class/methodProperties.json
@@ -2,9 +2,10 @@
 	"class" : {
 		 },
 	"instance" : {
-		"buildWith:" : "CT 7/12/2019 15:52",
+		"buildWith:" : "CT 7/26/2019 16:01",
+		"changed:" : "CT 7/26/2019 16:01",
 		"initialize" : "CT 7/12/2019 15:52",
-		"label" : "CT 7/12/2019 15:52",
+		"label" : "CT 7/26/2019 16:01",
 		"state" : "CT 7/12/2019 15:53",
 		"state:" : "CT 7/12/2019 15:53",
 		"toggle" : "CT 7/12/2019 15:53" } }