From 625d6479720c05930b9ade329a989d4e319f9c95 Mon Sep 17 00:00:00 2001 From: Stephan Lutz Date: Wed, 17 Jan 2018 19:31:35 +0100 Subject: [PATCH] Add AnnotationMorph example. --- .squot | 2 +- .../instance/activeExpression.st | 4 ++++ .../AExpAnnotationMorph.class/instance/follow..st | 4 ++++ .../AExpAnnotationMorph.class/instance/followTo..st | 4 ++++ .../instance/setActiveExpression..st | 4 ++++ .../AExpAnnotationMorph.class/instance/startFollowing..st | 5 +++++ .../AExpAnnotationMorph.class/instance/step.st | 4 ++++ .../AExpAnnotationMorph.class/instance/stopFollowing.st | 4 ++++ .../AExpAnnotationMorph.class/methodProperties.json | 8 +++++++- .../AExpAnnotationMorph.class/properties.json | 2 +- .../monticello.meta/categories.st | 1 + .../monticello.meta/initializers.st | 0 12 files changed, 39 insertions(+), 3 deletions(-) create mode 100644 src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/activeExpression.st create mode 100644 src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/follow..st create mode 100644 src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/followTo..st create mode 100644 src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/setActiveExpression..st create mode 100644 src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/startFollowing..st create mode 100644 src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/step.st create mode 100644 src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/stopFollowing.st create mode 100644 src/ActiveExpressions-Examples.package/monticello.meta/categories.st create mode 100644 src/ActiveExpressions-Examples.package/monticello.meta/initializers.st diff --git a/.squot b/.squot index 75c5baf..9123fce 100644 --- a/.squot +++ b/.squot @@ -4,4 +4,4 @@ OrderedDictionary { 'src\/ActiveExpressions-Examples.package' : #SquotCypressCodeSerializer, 'src\/ActiveExpressions-Tests.package' : #SquotCypressCodeSerializer, 'src\/BaselineOfActiveExpressions.package' : #SquotCypressCodeSerializer -} +} \ No newline at end of file diff --git a/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/activeExpression.st b/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/activeExpression.st new file mode 100644 index 0000000..dd818cf --- /dev/null +++ b/src/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 new file mode 100644 index 0000000..8c47e3d --- /dev/null +++ b/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/follow..st @@ -0,0 +1,4 @@ +following +follow: aMorph + + self startFollowing: aMorph \ No newline at end of file diff --git a/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/followTo..st b/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/followTo..st new file mode 100644 index 0000000..62a925c --- /dev/null +++ b/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/followTo..st @@ -0,0 +1,4 @@ +following +followTo: newBounds + + self left: newBounds left \ No newline at end of file diff --git a/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/setActiveExpression..st b/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/setActiveExpression..st new file mode 100644 index 0000000..c047001 --- /dev/null +++ b/src/ActiveExpressions-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 new file mode 100644 index 0000000..fbc3463 --- /dev/null +++ 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]) \ No newline at end of file diff --git a/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/step.st b/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/step.st new file mode 100644 index 0000000..290335d --- /dev/null +++ b/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/step.st @@ -0,0 +1,4 @@ +stepping and presenter +step + + \ No newline at end of file diff --git a/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/stopFollowing.st b/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/stopFollowing.st new file mode 100644 index 0000000..6cbf243 --- /dev/null +++ b/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/instance/stopFollowing.st @@ -0,0 +1,4 @@ +following +stopFollowing + + self activeExpression ifNotNil: [:aexp | aexp disable] \ No newline at end of file diff --git a/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/methodProperties.json b/src/ActiveExpressions-Examples.package/AExpAnnotationMorph.class/methodProperties.json index 0e4a662..ac1e41f 100644 --- 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 index 5c487ba..47ca552 100644 --- 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 new file mode 100644 index 0000000..0a17476 --- /dev/null +++ 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 new file mode 100644 index 0000000..e69de29