Add AnnotationMorph example.

active-expressions · Jan 17, 2018 · 625d647 · 625d647
1 parent ffbed60
commit 625d647
Show file tree

Hide file tree

Showing 12 changed files with 39 additions and 3 deletions.
diff --git a/.squot b/.squot
@@ -4,4 +4,4 @@ OrderedDictionary {
 	'src\/ActiveExpressions-Examples.package' : #SquotCypressCodeSerializer,
 	'src\/ActiveExpressions-Tests.package' : #SquotCypressCodeSerializer,
 	'src\/BaselineOfActiveExpressions.package' : #SquotCypressCodeSerializer
-}
+}
diff --git a/...ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/activeExpression.st b/...ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/activeExpression.st
@@ -0,0 +1,4 @@
+accessing
+activeExpression
+
+	^ activeExpression
diff --git a/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/follow..st b/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/follow..st
@@ -0,0 +1,4 @@
+following
+follow: aMorph
+
+	self startFollowing: aMorph
diff --git a/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/followTo..st b/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/followTo..st
@@ -0,0 +1,4 @@
+following
+followTo: newBounds
+
+	self left: newBounds left
diff --git a/...veExpressions-Examples.package/AExpAnnotationMorph.class/instance/setActiveExpression..st b/...veExpressions-Examples.package/AExpAnnotationMorph.class/instance/setActiveExpression..st
@@ -0,0 +1,4 @@
+private
+setActiveExpression: anObject
+
+	activeExpression := anObject.
diff --git a/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/startFollowing..st b/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/startFollowing..st
@@ -0,0 +1,5 @@
+following
+startFollowing: aMorph
+
+	self stopFollowing.
+	self setActiveExpression: ([aMorph bounds] onChangeDo: [:bounds | self followTo: bounds])
diff --git a/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/step.st b/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/step.st
@@ -0,0 +1,4 @@
+stepping and presenter
+step
+
+
diff --git a/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/stopFollowing.st b/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/stopFollowing.st
@@ -0,0 +1,4 @@
+following
+stopFollowing
+
+	self activeExpression ifNotNil: [:aexp | aexp disable]
diff --git a/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/methodProperties.json b/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/methodProperties.json
@@ -2,4 +2,10 @@
 	"class" : {
 		 },
 	"instance" : {
-		 } }
+		"activeExpression" : "sl 1/17/2018 19:11",
+		"follow:" : "sl 1/17/2018 19:24",
+		"followTo:" : "sl 1/17/2018 19:27",
+		"setActiveExpression:" : "sl 1/17/2018 19:12",
+		"startFollowing:" : "sl 1/17/2018 19:27",
+		"step" : "sl 1/17/2018 19:13",
+		"stopFollowing" : "sl 1/17/2018 19:18" } }
diff --git a/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/properties.json b/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/properties.json
@@ -6,7 +6,7 @@
 		 ],
 	"commentStamp" : "",
 	"instvars" : [
-		 ],
+		"activeExpression" ],
 	"name" : "AExpAnnotationMorph",
 	"pools" : [
 		 ],

diff --git a/src/ActiveExpressions-Examples.package/monticello.meta/categories.st b/src/ActiveExpressions-Examples.package/monticello.meta/categories.st
@@ -0,0 +1 @@
+SystemOrganization addCategory: #'ActiveExpressions-Examples'!
diff --git a/src/ActiveExpressions-Examples.package/monticello.meta/initializers.st b/src/ActiveExpressions-Examples.package/monticello.meta/initializers.st
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		SystemOrganization addCategory: #'ActiveExpressions-Examples'!