[Pkg] The Trunk: ST80-nice.122.mcz

[commits at source.squeak.org]

Nicolas Cellier uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-nice.122.mcz

==================== Summary ====================

Name: ST80-nice.122
Author: nice
Time: 29 December 2010, 5:11:40.202 pm
UUID: d9c9081c-75ce-459a-9295-6b82c02d72b6
Ancestors: ST80-nice.121

Add a few spaces in order to avoid Transcript warnings about @- ambiguity when recompiling.

=============== Diff against ST80-nice.121 ===============

Item was changed:
  ----- Method: GraphicSymbolInstance class>>example (in category 'examples') -----
  example
  	"Simply evaluate the method and two GraphicSymbolInstances, each
  	displaying a transformation of the same graphic symbol, will be
  	presented on the screen. Clears the screen to white."
  
  	| gate instance1 instance2 trans1 trans2 line arc f|
  	Display fillWhite.			"clear the Screen."
+ 	f := Form extent: 2 @ 2.
- 	f := Form extent: 2 at 2.
  	f fillBlack.
  	gate:= GraphicSymbol new.		"make a logic gate out of lines and arcs."
+ 	line:=Line new.  line beginPoint: -20 @ -20.  line endPoint: 0 @ -20. line form: f.
- 	line:=Line new.  line beginPoint: -20 at -20.  line endPoint: 0 at -20. line form: f.
  	gate add: line.
  
+ 	line:=Line new.  line beginPoint: -20 @ 20.  line endPoint: 0 @ 20. line form: f.
- 	line:=Line new.  line beginPoint: -20 at 20.  line endPoint: 0 at 20. line form: f.
  	gate add: line.
  
+ 	line:=Line new.  line beginPoint: 0 @ -40.  line endPoint: 0 @ 40. line form: f.
- 	line:=Line new.  line beginPoint: 0 at -40.  line endPoint: 0 at 40. line form: f.
  	gate add: line.
  
+ 	arc := Arc new. arc center: 0 @ 0 radius: 40 quadrant: 1.
- 	arc := Arc new. arc center: 0 at 0 radius: 40 quadrant: 1.
  	arc form: f.
  	gate add: arc.
  
+ 	arc := Arc new. arc center: 0 @ 0 radius: 40 quadrant: 4.
- 	arc := Arc new. arc center: 0 at 0 radius: 40 quadrant: 4.
  	arc form: f.
  	gate add: arc.
  
  			"one instance at 1/2 scale."
  	trans1:=WindowingTransformation identity.	
+ 	trans1:= trans1 scaleBy: 0.5 @ 0.5.
+ 	trans1:= trans1 translateBy: 100 @ 100.
- 	trans1:= trans1 scaleBy: 0.5 at 0.5.
- 	trans1:= trans1 translateBy: 100 at 100.
  
  			"the other instance at 2 times scale"
  	trans2:=WindowingTransformation identity.	
+ 	trans2:= trans2 scaleBy: 2.0 @ 2.0.
+ 	trans2:= trans2 translateBy: 200 @ 200.
- 	trans2:= trans2 scaleBy: 2.0 at 2.0.
- 	trans2:= trans2 translateBy: 200 at 200.
  
  	instance1 := GraphicSymbolInstance new.
  	instance1 transformation: trans1.
  	instance1 graphicSymbol: gate.
  
  	instance2 := GraphicSymbolInstance new.
  	instance2 transformation: trans2.
  	instance2 graphicSymbol: gate.
  
  			"display both instances of the logic gate"
  	instance1 displayOn: Display
  					transformation: WindowingTransformation identity
  					clippingBox: Display boundingBox
  					rule: Form under
  					fillColor: nil.
  	instance2 displayOn: Display
  					transformation: WindowingTransformation identity
  					clippingBox: Display boundingBox
  					rule: Form under
  					fillColor: nil
  
  	"GraphicSymbolInstance example"!