Skip to content

Commit

Permalink
works with two Morphs
Browse files Browse the repository at this point in the history
  • Loading branch information
saragrau committed Jun 27, 2022
1 parent 2b1d30b commit 6a9144f
Show file tree
Hide file tree
Showing 2 changed files with 8 additions and 7 deletions.
Original file line number Diff line number Diff line change
@@ -1,13 +1,14 @@
as yet unclassified
selectProperty
|targetMorph property|
targetMorph := self animationsEditor propertyList second.
"targetMorph hasSubproperties
ifTrue: [property := targetMorph subproperties keyAtValue: self track property].
^property asString."
|targetMorph property parentProperty propertyList|
"targetMorph := self animationsEditor propertyList second."
parentProperty := self track property parentProperty title.
propertyList := self animationsEditor propertyList.
targetMorph := propertyList detect: [:each | parentProperty match: each title].


targetMorph hasSubproperties
ifTrue: [property := targetMorph subproperties detect: [:each| self track property asString match: each asString]].
^property
"^ self animationsEditor propertyList second subproperties at: self track property ."


Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@
"handlesMouseDown:" : "SG 6/17/2022 14:57",
"initialize" : "mjs 7/31/2021 15:45",
"mouseDown:" : "SG 6/25/2022 16:11",
"selectProperty" : "SG 6/25/2022 14:40",
"selectProperty" : "SG 6/27/2022 19:17",
"setCenteredPosition:" : "FH 8/1/2021 19:04",
"setValueAndFrame" : "SG 6/25/2022 16:10",
"track" : "mjs 7/31/2021 15:46",
Expand Down

0 comments on commit 6a9144f

Please sign in to comment.