Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.66.mcz
==================== Summary ====================
Name: Morphic-kfr.66 Author: kfr Time: 26 July 2011, 7:28:11 pm UUID: 53deb299-91d2-9846-893d-ef07b87fb326 Ancestors: Morphic-kfr.65
http://tracker.squeakland.org/browse/SQ-968
=============== Diff against Morphic-kfr.65 ===============
Item was changed: ----- Method: PolygonMorph>>specifyDashedLine (in category 'menu') ----- specifyDashedLine
| executableSpec newSpec | executableSpec _ FillInTheBlank request: 'Enter a dash specification as { major dash length. minor dash length. minor dash color } The major dash will have the normal border color. A blank response will remove the dash specification. [Note: You may give 5 items as, eg, {10. 5. Color white. 0. 3} + where the 4th item is zero, and the 5th is the number of pixels - where the 4th ityem is zero, and the 5th is the number of pixels by which the dashes will move in each step of animation]' translated initialAnswer: '{ 10. 5. Color red }'. executableSpec isEmpty ifTrue: [^ self stopStepping; dashedBorder: nil]. newSpec _ [Compiler evaluate: executableSpec] ifError: [^ self stopStepping; dashedBorder: nil]. newSpec first isNumber & newSpec second isNumber & newSpec third isColor ifFalse: [^ self stopStepping; dashedBorder: nil]. newSpec size = 3 ifTrue: [^ self stopStepping; dashedBorder: newSpec]. (newSpec size = 5 and: [newSpec fourth isNumber & newSpec fifth isNumber]) ifTrue: [^ self dashedBorder: newSpec; startStepping]. !