Etoys: Morphic-kfr.66.mcz

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].
  !

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev