The Trunk: ST80-nice.122.mcz

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@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@-20.  line endPoint: 0@-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@20.  line endPoint: 0@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@-40.  line endPoint: 0@40. line form: f.
  gate add: line.
 
+ arc := Arc new. arc center: 0 @ 0 radius: 40 quadrant: 1.
- arc := Arc new. arc center: 0@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@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@0.5.
- trans1:= trans1 translateBy: 100@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@2.0.
- trans2:= trans2 translateBy: 200@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"!