Packages December 2010

packages@lists.squeakfoundation.org

2 participants
359 discussions

The Trunk: MorphicTests-ar.18.mcz
by commits＠source.squeak.org 30 Dec '10

30 Dec '10

Andreas Raab uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-ar.18.mcz ==================== Summary ==================== Name: MorphicTests-ar.18 Author: ar Time: 30 December 2010, 5:55:31.198 pm UUID: 06939120-a4b4-f440-b0c3-bfe61fdc899e Ancestors: MorphicTests-ar.17 Add a test for the default clipRect in a FormCanvas. =============== Diff against MorphicTests-ar.17 =============== Item was added: + ----- Method: FormCanvasTest>>testDefaultClipRect (in category 'tests') ----- + testDefaultClipRect + + self assert: (FormCanvas extent: 222@111) clipRect = (0@0 corner: 222@111). + self assert: (FormCanvas extent: 2222@11) clipRect = (0@0 corner: 2222@11). + self assert: (FormCanvas extent: 22222@1) clipRect = (0@0 corner: 22222@1). + !

1 0

The Trunk: MorphicTests-ar.18.mcz
by commits＠source.squeak.org 30 Dec '10

30 Dec '10

1 0

The Trunk: MorphicTests-ar.18.mcz
by commits＠source.squeak.org 30 Dec '10

30 Dec '10

1 0

The Trunk: ST80-nice.122.mcz
by commits＠source.squeak.org 29 Dec '10

29 Dec '10

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(a)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(a)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"!

1 0

The Trunk: ST80-nice.122.mcz
by commits＠source.squeak.org 29 Dec '10

29 Dec '10

1 0

The Trunk: ST80-nice.122.mcz
by commits＠source.squeak.org 29 Dec '10

29 Dec '10

1 0

The Trunk: Graphics-nice.171.mcz
by commits＠source.squeak.org 29 Dec '10

29 Dec '10

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.171.mcz ==================== Summary ==================== Name: Graphics-nice.171 Author: nice Time: 29 December 2010, 5:07:15.234 pm UUID: bf99e3d9-04f5-42bd-9090-142304bdd0fc Ancestors: Graphics-nice.170 Add a few spaces in order to avoid Transcript warnings about @- ambiguity when recompiling. =============== Diff against Graphics-nice.170 =============== Item was changed: ----- Method: Cursor class>>initBottomLeft (in category 'class initialization') ----- initBottomLeft BottomLeftCursor := + (Cursor extent: 16 @ 16 - (Cursor extent: 16@16 fromArray: #( 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1111111111111111 2r1111111111111111) + offset: 0 @ -16). - offset: 0@-16). ! Item was changed: ----- Method: Cursor class>>initBottomRight (in category 'class initialization') ----- initBottomRight BottomRightCursor := + (Cursor extent: 16 @ 16 - (Cursor extent: 16@16 fromArray: #( 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r1111111111111111 2r1111111111111111) + offset: -16 @ -16). - offset: -16@-16). ! Item was changed: ----- Method: Cursor class>>initCorner (in category 'class initialization') ----- initCorner CornerCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r1111111111111111 2r1111111111111111) + offset: -16 @ -16). - offset: -16@-16). ! Item was changed: ----- Method: Cursor class>>initCrossHair (in category 'class initialization') ----- initCrossHair CrossHairCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r0000000000000000 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0111111111111100 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0000000000000000 2r0) + offset: -7 @ -7). - offset: -7@-7). ! Item was changed: ----- Method: Cursor class>>initDown (in category 'class initialization') ----- initDown DownCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r11000000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r1111110000000000 2r111100000000000 2r11000000000000 2r0 2r0 2r0 2r0 2r0 2r0) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initMarker (in category 'class initialization') ----- initMarker MarkerCursor := Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r0111000000000000 2r1111100000000000 2r1111100000000000 2r0111000000000000 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0) + offset: 0 @ 0. - offset: 0@0. ! Item was changed: ----- Method: Cursor class>>initMenu (in category 'class initialization') ----- initMenu MenuCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r1111111111100000 2r1000000000100000 2r1010011000100000 2r1000000000100000 2r1101001101100000 2r1111111111100000 2r1000000000100000 2r1011001010100000 2r1000000000100000 2r1010110010100000 2r1000000000100000 2r1010010100100000 2r1000000000100000 2r1111111111100000 0) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initMove (in category 'class initialization') ----- initMove MoveCursor := Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r1111111111111100 2r1111111111111100 2r1100001100001100 2r1100001100001100 2r1100001100001100 2r1100001100001100 2r1111111111111100 2r1111111111111100 2r1100001100001100 2r1100001100001100 2r1100001100001100 2r1100001100001100 2r1111111111111100 2r1111111111111100 0) + offset: 0 @ 0. - offset: 0@0. ! Item was changed: ----- Method: Cursor class>>initNormal (in category 'class initialization') ----- initNormal NormalCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r1000000000000000 2r1100000000000000 2r1110000000000000 2r1111000000000000 2r1111100000000000 2r1111110000000000 2r1111111000000000 2r1111100000000000 2r1111100000000000 2r1001100000000000 2r0000110000000000 2r0000110000000000 2r0000011000000000 2r0000011000000000 2r0000001100000000 2r0000001100000000) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initNormalWithMask (in category 'class initialization') ----- initNormalWithMask "Cursor initNormalWithMask. Cursor normal show" "Next two lines work simply for any cursor..." self initNormal. NormalCursor := CursorWithMask derivedFrom: NormalCursor. "But for a good looking cursor, you have to tweak things..." + NormalCursor := (CursorWithMask extent: 16 @ 16 depth: 1 - NormalCursor := (CursorWithMask extent: 16@16 depth: 1 fromArray: #( 0 1073741824 1610612736 1879048192 2013265920 2080374784 2113929216 2130706432 2080374784 2080374784 1275068416 100663296 100663296 50331648 50331648 0) + offset: -1 @ -1) + setMaskForm: (Form extent: 16 @ 16 depth: 1 - offset: -1@-1) - setMaskForm: (Form extent: 16@16 depth: 1 fromArray: #( 3221225472 3758096384 4026531840 4160749568 4227858432 4261412864 4278190080 4286578688 4278190080 4261412864 4261412864 3472883712 251658240 125829120 125829120 50331648) + offset: 0 @ 0).! - offset: 0@0).! Item was changed: ----- Method: Cursor class>>initOrigin (in category 'class initialization') ----- initOrigin OriginCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r1111111111111111 2r1111111111111111 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initRead (in category 'class initialization') ----- initRead ReadCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r0000000000000000 2r0000000000000000 2r0001000000001000 2r0010100000010100 2r0100000000100000 2r1111101111100000 2r1000010000100000 2r1000010000100000 2r1011010110100000 2r0111101111000000 2r0 2r0 2r0 2r0 2r0 2r0) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initResizeLeft (in category 'class initialization') ----- initResizeLeft ResizeLeftCursor := + (Cursor extent: 16 @ 16 fromArray: #( - (Cursor extent: 16@16 fromArray: #( 2r0000000000000000 2r0000000000000000 2r0000000000000000 2r0000000000000000 2r0000100000010000 2r0001100000011000 2r0011100000011100 2r0111111111111110 2r0011100000011100 2r0001100000011000 2r0000100000010000 2r0000000000000000 2r0000000000000000 2r0000000000000000 2r0000000000000000 2r0000000000000000 ) + offset: -7 @ -7 ) withMask! - offset: -7@-7 ) withMask! Item was changed: ----- Method: Cursor class>>initResizeTop (in category 'class initialization') ----- initResizeTop "Cursor initResizeTop" ResizeTopCursor := + (Cursor extent: 16 @ 16 fromArray: #( - (Cursor extent: 16@16 fromArray: #( 2r000000100000000 2r000001110000000 2r000011111000000 2r000111111100000 2r000000100000000 2r000000100000000 2r000000100000000 2r000000100000000 2r000000100000000 2r000000100000000 2r000111111100000 2r000011111000000 2r000001110000000 2r000000100000000 2r000000000000000) + offset: -7 @ -7) withMask! - offset: -7@-7) withMask! Item was changed: ----- Method: Cursor class>>initResizeTopLeft (in category 'class initialization') ----- initResizeTopLeft ResizeTopLeftCursor := + (Cursor extent: 16 @ 16 fromArray: #( - (Cursor extent: 16@16 fromArray: #( 2r0000000000000000 2r0111110000000000 2r0111100000000000 2r0111000000000000 2r0110100000000000 2r0100010000000000 2r0000001000000000 2r0000000100000000 2r0000000010000000 2r0000000001000100 2r0000000000101100 2r0000000000011100 2r0000000000111100 2r0000000001111100 2r0000000000000000 2r0000000000000000) + offset: -7 @ -7) withMask! - offset: -7@-7) withMask! Item was changed: ----- Method: Cursor class>>initResizeTopRight (in category 'class initialization') ----- initResizeTopRight ResizeTopRightCursor := + (Cursor extent: 16 @ 16 fromArray: #( - (Cursor extent: 16@16 fromArray: #( 2r0000000000000000 2r0000000001111100 2r0000000000111100 2r0000000000011100 2r0000000000101100 2r0000000001000100 2r0000000010000000 2r0000000100000000 2r0000001000000000 2r0100010000000000 2r0110100000000000 2r0111000000000000 2r0111100000000000 2r0111110000000000 2r0000000000000000 2r0000000000000000) + offset: -7 @ -7) withMask! - offset: -7@-7) withMask! Item was changed: ----- Method: Cursor class>>initRightArrow (in category 'class initialization') ----- initRightArrow RightArrowCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r100000000000 2r111000000000 2r1111111110000000 2r111000000000 2r100000000000 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0 2r0) + offset: 0 @ 0). - offset: 0@0). "Cursor initRightArrow"! Item was changed: ----- Method: Cursor class>>initSquare (in category 'class initialization') ----- initSquare SquareCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r0 2r0 2r0 2r0 2r0 2r0000001111000000 2r0000001111000000 2r0000001111000000 2r0000001111000000 2r0 2r0 2r0 2r0 2r0 2r0 2r0) + offset: -8 @ -8). - offset: -8@-8). ! Item was changed: ----- Method: Cursor class>>initTopLeft (in category 'class initialization') ----- initTopLeft TopLeftCursor := + (Cursor extent: 16 @ 16 - (Cursor extent: 16@16 fromArray: #( 2r1111111111111111 2r1111111111111111 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000 2r1100000000000000) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initTopRight (in category 'class initialization') ----- initTopRight TopRightCursor := + (Cursor extent: 16 @ 16 - (Cursor extent: 16@16 fromArray: #( 2r1111111111111111 2r1111111111111111 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011 2r0000000000000011) + offset: -16 @ 0). - offset: -16@0). ! Item was changed: ----- Method: Cursor class>>initUp (in category 'class initialization') ----- initUp UpCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r11000000000000 2r111100000000000 2r1111110000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r11000000000000 2r0 2r0 2r0 2r0 2r0 2r0) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initWait (in category 'class initialization') ----- initWait WaitCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r1111111111111100 2r1000000000000100 2r0100000000001000 2r0010000000010000 2r0001110011100000 2r0000111111000000 2r0000011110000000 2r0000011110000000 2r0000100101000000 2r0001000100100000 2r0010000110010000 2r0100001111001000 2r1000111111110100 2r1111111111111100 0) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initWrite (in category 'class initialization') ----- initWrite WriteCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r0000000000011000 2r0000000000111100 2r0000000001001000 2r0000000010010000 2r0000000100100000 2r0000001001000100 2r0000010010000100 2r0000100100001100 2r0001001000010000 2r0010010000010000 2r0111100000001000 2r0101000011111000 2r1110000110000000 2r0111111100000000 2r0 2r0) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Cursor class>>initXeq (in category 'class initialization') ----- initXeq XeqCursor := (Cursor + extent: 16 @ 16 - extent: 16@16 fromArray: #( 2r1000000000010000 2r1100000000010000 2r1110000000111000 2r1111000111111111 2r1111100011000110 2r1111110001000100 2r1111111001111100 2r1111000001101100 2r1101100011000110 2r1001100010000010 2r0000110000000000 2r0000110000000000 2r0000011000000000 2r0000011000000000 2r0000001100000000 2r0000001100000000) + offset: 0 @ 0). - offset: 0@0). ! Item was changed: ----- Method: Form class>>toothpaste: (in category 'examples') ----- toothpaste: diam "Display restoreAfter: [Form toothpaste: 30]" "Draws wormlike lines by laying down images of spheres. See Ken Knowlton, Computer Graphics, vol. 15 no. 4 p352. Draw with mouse button down; terminate by option-click." | facade ball filter point queue port color q colors colr colr2 | colors := Display depth = 1 ifTrue: [Array with: Color black] ifFalse: [Color red wheel: 12]. + facade := Form extent: diam@diam offset: (diam // -2) asPoint. - facade := Form extent: diam@diam offset: (diam//-2) asPoint. (Form dotOfSize: diam) displayOn: facade + at: (diam // 2) asPoint clippingBox: facade boundingBox - at: (diam//2) asPoint clippingBox: facade boundingBox rule: Form under fillColor: Color white. #(1 2 3) do: [:x | "simulate facade by circles of gray" + (Form dotOfSize: x * diam // 5) displayOn: facade + at: (diam * 2 // 5) asPoint clippingBox: facade boundingBox - (Form dotOfSize: x*diam//5) displayOn: facade - at: (diam*2//5) asPoint clippingBox: facade boundingBox rule: Form under fillColor: (Color perform: (#(black gray lightGray) at: x)). "facade displayAt: 50*x@50"]. ball := Form dotOfSize: diam. color := 8. [ true ] whileTrue: [port := BitBlt current toForm: Display. "Expand 1-bit forms to any pixel depth" port colorMap: (Bitmap with: 0 with: 16rFFFFFFFF). queue := OrderedCollection new: 32. + 16 timesRepeat: [queue addLast: -20 @ -20]. - 16 timesRepeat: [queue addLast: -20@-20]. Sensor waitButton. Sensor yellowButtonPressed ifTrue: [^ self]. filter := Sensor cursorPoint. colr := colors atWrap: (color := color + 5). "choose increment relatively prime to colors size" colr2 := colr alphaMixed: 0.3 with: Color white. [Sensor redButtonPressed or: [queue size > 0]] whileTrue: + [filter := filter * 4 + Sensor cursorPoint // 5. - [filter := filter * 4 + Sensor cursorPoint // 5. point := Sensor redButtonPressed + ifTrue: [filter] ifFalse: [-20 @ -20]. - ifTrue: [filter] ifFalse: [-20@-20]. port copyForm: ball to: point rule: Form paint fillColor: colr. (q := queue removeFirst) == nil ifTrue: [^ self]. "exit" Display depth = 1 ifTrue: [port copyForm: facade to: q rule: Form erase] ifFalse: [port copyForm: facade to: q rule: Form paint fillColor: colr2]. Sensor redButtonPressed ifTrue: [queue addLast: point]]]. ! Item was changed: ----- Method: Form class>>xorHack: (in category 'examples') ----- xorHack: size "Display restoreAfter: [Form xorHack: 256]" "Draw a smiley face or stick figure, and end with option-click. Thereafter image gets 'processed' as long as you have button down. If you stop at just the right time, you'll see you figure upside down, and at the end of a full cycle, you'll see it perfectly restored. Dude -- this works in color too!!" | rect form i bb | + rect := 5 @ 5 extent: size @ size. - rect := 5@5 extent: size@size. Display fillWhite: rect; border: (rect expandBy: 2) width: 2. + Display border: (rect topRight - (0 @ 2) extent: rect extent * 2 + 4) width: 2. - Display border: (rect topRight - (0@2) extent: rect extent*2 + 4) width: 2. Form exampleSketch. form := Form fromDisplay: rect. bb := form boundingBox. i := 0. [Sensor yellowButtonPressed] whileFalse: [[Sensor redButtonPressed] whileTrue: [i := i + 1. + (Array with: 0 @ 1 with: 0 @ -1 with: 1 @ 0 with: -1 @ 0) do: - (Array with: 0@1 with: 0@-1 with: 1@0 with: -1@0) do: [:d | form copyBits: bb from: form at: d clippingBox: bb rule: Form reverse fillColor: nil]. form displayAt: rect topLeft. i+2\\size < 4 ifTrue: [(Delay forMilliseconds: 300) wait]]. + (form magnify: form boundingBox by: 2 @ 2) displayAt: rect topRight + (2 @ 0). - (form magnify: form boundingBox by: 2@2) displayAt: rect topRight + (2@0). Sensor waitButton].!

1 0

The Trunk: Graphics-nice.171.mcz
by commits＠source.squeak.org 29 Dec '10

29 Dec '10

1 0

The Trunk: Graphics-nice.171.mcz
by commits＠source.squeak.org 29 Dec '10

29 Dec '10

1 0

The Trunk: EToys-nice.79.mcz
by commits＠source.squeak.org 29 Dec '10

29 Dec '10

Nicolas Cellier uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-nice.79.mcz ==================== Summary ==================== Name: EToys-nice.79 Author: nice Time: 29 December 2010, 5:05:46.331 pm UUID: 17fbf753-04dc-4f40-a007-7e3cbf61242b Ancestors: EToys-nice.78 Add a few spaces in order to avoid Transcript warnings about @- ambiguity when recompiling. =============== Diff against EToys-nice.78 =============== Item was changed: ----- Method: SyntaxMorph classSide>>standardInset (in category 'as yet unclassified') ----- standardInset + ^ self alansTest1 ifTrue: [1] ifFalse: [-1 @ -1]! - ^ self alansTest1 ifTrue: [1] ifFalse: [-1@-1]! Item was changed: ----- Method: SyntaxMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas super drawOn: aCanvas. self isBlockNode ifFalse: [^self]. self alansTest1 ifTrue: [^self]. self immediatelyBelowTheMethodNode ifTrue: [ + aCanvas fillRectangle: (self topLeft + (0 @ -1) extent: self width @ 1) color: Color gray - aCanvas fillRectangle: (self topLeft + (0@-1) extent: self width@1) color: Color gray ] ifFalse: [ + aCanvas fillRectangle: (self topLeft + (1 @ 1) extent: 2 @ (self height-2)) color: Color gray. + aCanvas fillRectangle: (self topLeft + (1 @ 1) extent: 4 @ 1) color: Color gray. + aCanvas fillRectangle: (self bottomLeft + (1 @ -1) extent: 4 @ 1) color: Color gray - aCanvas fillRectangle: (self topLeft + (1@1) extent: 2@(self height-2)) color: Color gray. - aCanvas fillRectangle: (self topLeft + (1@1) extent: 4@1) color: Color gray. - aCanvas fillRectangle: (self bottomLeft + (1@-1) extent: 4@1) color: Color gray ]. ! Item was changed: ----- Method: SyntaxMorph>>selectorMenuAsk: (in category 'pop ups') ----- selectorMenuAsk: listOfLists "I represent a SelectorNode to be replaced by one of the selectors in one of the category lists. Each list has pre-built StringMorphs in it." | menu | listOfLists isEmpty ifTrue: [^ nil]. listOfLists first addFirst: (self aSimpleStringMorphWith: '( Cancel )'). listOfLists first first color: Color red. menu := RectangleMorph new. + menu listDirection: #leftToRight; layoutInset: 3; cellInset: 1 @ 0. - menu listDirection: #leftToRight; layoutInset: 3; cellInset: 1@0. menu layoutPolicy: TableLayout new; hResizing: #shrinkWrap; vResizing: #shrinkWrap; color: (Color r: 0.767 g: 1.0 b: 0.767); useRoundedCorners; cellPositioning: #topLeft. listOfLists do: [:ll | | col | col := Morph new. + col listDirection: #topToBottom; layoutInset: 0; cellInset: 0 @ 0. - col listDirection: #topToBottom; layoutInset: 0; cellInset: 0@0. col layoutPolicy: TableLayout new; hResizing: #shrinkWrap. col color: Color transparent; vResizing: #shrinkWrap. menu addMorphBack: col. ll do: [:ss | col addMorphBack: ss. ss on: #mouseUp send: #replaceKeyWord:menuItem: to: self] ]. self world addMorph: menu. + menu setConstrainedPosition: (owner localPointToGlobal: self topRight) + (10 @ -30) - menu setConstrainedPosition: (owner localPointToGlobal: self topRight) + (10@-30) hangOut: false. ! Item was changed: ----- Method: SyntaxMorph>>standardInset (in category 'alans styles') ----- standardInset + parseNode class == BlockNode ifTrue: [^ 5 @ 1]. - parseNode class == BlockNode ifTrue: [^ 5@1]. "allow pointing beside a line so can replace it" ^ self alansTest1 ifTrue: [1] ifFalse: [-1]!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2010