First, thanks for an awesome vid. Very informative.
|myMorphs|
myMorphs := Array new: 360.
0 to: 359 by:15 do:[:i | myMorphs at: i+1
put:((NCCurveMorph new) extent: 20@20;
openInWorld;
center: (450@330) + (300 *((i degreesToRadians cos)@(i
degreesToRadians sin))); yourself)].
1 to:(myMorphs size - 1) do:[:i |
i+1 to: myMorphs size do:[:j |
((myMorphs at:i ) ~= nil and:(myMorphs at:j ) ~= nil)
ifTrue:[NCAAConnectorMorph fromMorph: (myMorphs at:i)
toMorph:(myMorphs at:j)]]]
"tty Debug Lock"
NCAAConnectorMorph allInstances do:[:each | each
lock:True]. "This locks it"
NCAAConnectorMorph allInstances inspect.
"about 285 instances"
Transcript clear.
NCAAConnectorMorph allInstances do:[:each | Transcript
show: (each bounds);cr. ]. "works"
NCAAConnectorMorph allInstances do:[:each | Transcript
show: (each bounds);cr. each lock:true ]. "works"
NCAAConnectorMorph allInstances do:[:each | each
lock:true]. "works"
True inspect.
true inspect.
NCAAConnectorMorph allInstances do:[:each | each
lock:(True initializedInstance)]. "works"
I was able to recreate the lockup you described.
Changing the lock:True to lock:true (all lowercase) does
not cause the lock up.
You can work through the reasoingin with the "tty Debug
Lock" section in the above code.
If you do the two inspect statements at the bottom, you
will see you where passing the "True class" instead of the
instance "True".
cordially,
tty