[etoys-dev] Etoys: Morphic-kfr.66.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Jul 26 13:29:16 EDT 2011

Karl Ramberg uploaded a new version of Morphic to project Etoys:

==================== 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


=============== Diff against Morphic-kfr.65 ===============

Item was changed:
  ----- Method: PolygonMorph>>specifyDashedLine (in category 'menu') -----
  	| executableSpec newSpec |
  	executableSpec _ FillInTheBlank
  '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].

More information about the etoys-dev mailing list