'From Squeak3.4gamma of ''7 January 2003'' [latest update: #5169] on 16 February 2003 at 12:49:29 pm'! "Change Set: MCP-0001-initialize-dgd Date: 14 February 2003 Author: Diego Gomez Deck First refactoring. PLEASE TEST. - refactor of #initialize methods - added methods -- Morph>>defaultBounds -- BorderedMorph>>defaultBorderColor -- BorderedMorph>>defaultBorderWidth - implementation of #defaultColor where corresponds - some small methods categorization - remove of most direct asignation for color, bounds, borderColor, borderWidth "! !Morph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:00'! basicInitialize "Do basic generic initialization of the instance variables: Set up the receiver, created by a #basicNew and now ready to be initialized, by placing initial values in the instance variables as appropriate" owner _ nil. submorphs _ EmptyArray. bounds _ self defaultBounds. color _ self defaultColor! ! !Morph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 17:19'! defaultBounds ^0 @ 0 corner: 50 @ 40! ! !Morph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 17:30'! initialize "initialize the state of the receiver" owner _ nil. submorphs _ EmptyArray. bounds _ self defaultBounds. color _ self defaultColor! ! !Morph methodsFor: 'visual properties' stamp: 'dgd 2/14/2003 22:28'! defaultColor "answer the default color/fill style for the receiver" ^ Color blue! ! !B3DMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:39'! initialize "initialize the state of the receiver" super initialize. "" geometry _ B3DBox from: -0.7 @ -0.7 @ -0.7 to: 0.7 @ 0.7 @ 0.7. camera _ B3DCamera new. (self confirm: 'Put me into a clipping frame?') ifTrue: [camera position: 0 @ 0 @ 1.5] ifFalse: [camera position: 0 @ 0 @ 2. color _ nil]. camera nearDistance: 0.1. camera farDistance: 5.0. self extent: 100 @ 100. texture _ (Form extent: 100 @ 100) asTexture. angle _ 0! ! !B3DSceneMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 17:30'! initialize "initialize the state of the receiver" super initialize. self createDefaultScene; beTransparent! ! !AdvancedB3DSceneMorph methodsFor: 'initialize' stamp: 'dgd 2/14/2003 17:31'! initialize "initialize the state of the receiver" super initialize. self stepTime: 0; rotationAngle: 1; beRotating; switchHeadLightOn ! ! !BackgroundMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:43'! initialize "initialize the state of the receiver" super initialize. "" offset _ 0 @ 0. delta _ 1 @ 0. running _ true! ! !BorderedMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:00'! basicInitialize "Do basic generic initialization of the instance variables" super basicInitialize. "" self borderInitialize! ! !BorderedMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 17:40'! borderInitialize "initialize the receiver state related to border" borderColor _ self defaultBorderColor. borderWidth _ self defaultBorderWidth ! ! !BorderedMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:33'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color black! ! !BorderedMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:36'! defaultBorderWidth "answer the default border width for the receiver" ^ 2! ! !BorderedMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:07'! initialize "initialize the state of the receiver" super initialize. "" self borderInitialize! ! !B3DSceneExplorerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:33'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ #raised! ! !B3DSceneExplorerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:41'! initialize "initialize the state of the receiver" | ctrl | super initialize. "" self extent: 300 @ 300. frameWidth _ 25. b3DSceneMorph _ AdvancedB3DSceneMorph new. b3DSceneMorph color: Color black. self addMorphFront: b3DSceneMorph. wheels _ Dictionary new. ctrl _ WheelMorph new. ctrl target: b3DSceneMorph. ctrl actionSelector: #addFovAngle:. ctrl factor: -0.07. ctrl setBalloonText: 'FOV'. self addMorphFront: ctrl. wheels at: #fov put: ctrl. ctrl _ WheelMorph new. ctrl target: b3DSceneMorph. ctrl actionSelector: #addDolly:. ctrl factor: 0.005. ctrl beVertical. ctrl setBalloonText: 'Dolly'. self addMorphFront: ctrl. wheels at: #dolly put: ctrl. ctrl _ WheelMorph new. ctrl target: b3DSceneMorph. ctrl actionSelector: #rotateZ:. ctrl beVertical. ctrl setBalloonText: 'z Axis'. self addMorphFront: ctrl. wheels at: #rotZ put: ctrl. ctrl _ WheelMorph new. ctrl target: b3DSceneMorph. ctrl actionSelector: #rotateY:. ctrl setBalloonText: 'y Axis'. self addMorphFront: ctrl. wheels at: #rotY put: ctrl. ctrl _ WheelMorph new. ctrl target: b3DSceneMorph. ctrl actionSelector: #rotateX:. ctrl beVertical. ctrl setBalloonText: 'x Axis'. self addMorphFront: ctrl. wheels at: #rotX put: ctrl. ctrl _ self acceleratorButton. self addMorphFront: ctrl. wheels at: #accel put: ctrl! ! !B3DSceneExplorerMorph methodsFor: 'visual properties' stamp: 'dgd 2/14/2003 22:24'! defaultColor "answer the default color/fill style for the receiver" ^ Color gray: 0.8! ! !CachingMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:24'! defaultColor "answer the default color/fill style for the receiver" ^ Color veryLightGray! ! !CachingMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:48'! initialize "initialize the state of the receiver" super initialize. "" damageRecorder _ DamageRecorder new! ! !DoCommandOnceMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color blue! ! !DoCommandOnceMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:36'! defaultBorderWidth "answer the default border width for the receiver" ^ 8! ! !DoCommandOnceMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:08'! initialize "initialize the state of the receiver" super initialize. "" self useRoundedCorners! ! !EllipseMorph methodsFor: 'visual properties' stamp: 'dgd 2/14/2003 22:26'! defaultColor "answer the default color/fill style for the receiver" ^ Color yellow! ! !EllipseMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color black! ! !EllipseMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:37'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !FaceMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:27'! defaultColor "answer the default color/fill style for the receiver" ^ Color transparent! ! !FaceMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:49'! initialize "initialize the state of the receiver" super initialize. "" self addMorph: (leftEye _ EyeMorph new); addMorph: (rightEye _ EyeMorph new); addMorph: (lips _ LipsMorph new). leftEye position: self position. rightEye position: leftEye extent x @ 0 + leftEye position. lips position: 0 @ 20 + (leftEye bottomRight + rightEye bottomLeft - lips extent // 2). self bounds: self fullBounds! ! !LedCharacterMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:27'! defaultColor "answer the default color/fill style for the receiver" ^ Color green! ! !LedCharacterMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:55'! initialize "initialize the state of the receiver" super initialize. "" highlighted _ false. char _ 0! ! !LedDigitMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:28'! defaultColor "answer the default color/fill style for the receiver" ^ Color green! ! !LedDigitMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:34'! initialize "initialize the state of the receiver" super initialize. "" highlighted _ false. digit _ 0 ! ! !LedMorph methodsFor: 'accessing' stamp: 'dgd 2/14/2003 22:46'! color: aColor "set the receiver's color and the submorphs color" super color: aColor. self submorphsDo: [:m | m color: aColor]! ! !MagnifierMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:38'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !MagnifierMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:28'! defaultColor "answer the default color/fill style for the receiver" ^ Color black! ! !MagnifierMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:40'! initialize "initialize the state of the receiver" super initialize. "" trackPointer _ true. magnification _ 2. lastPos _ self sourcePoint. self extent: 128 @ 128! ! !FishEyeMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:39'! initialize "initialize the state of the receiver" super initialize. "" "magnification should be always 1" magnification _ 1. d _ 1.3. self extent: 130 @ 130! ! !MatrixTransformMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:38'! initialize "initialize the state of the receiver" super initialize. "" transform _ MatrixTransform2x3 identity! ! !FlashSpriteMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:38'! initialize "initialize the state of the receiver" super initialize. "" playing _ false. loadedFrames _ 0. maxFrames _ 1. frameNumber _ 1. sounds _ Dictionary new. actions _ Dictionary new. labels _ Dictionary new. stepTime _ 1. useTimeSync _ true! ! !FlashPlayerMorph methodsFor: 'initialize' stamp: 'dgd 2/14/2003 22:27'! defaultColor "answer the default color/fill style for the receiver" ^ Color white! ! !FlashPlayerMorph methodsFor: 'initialize' stamp: 'dgd 2/14/2003 20:38'! initialize "initialize the state of the receiver" super initialize. "" self loopFrames: true. localBounds _ bounds. activationKeys _ #(). activeMorphs _ SortedCollection new: 50. activeMorphs sortBlock: [:m1 :m2 | m1 depth > m2 depth]. progressValue _ ValueHolder new. progressValue contents: 0.0. self defaultAALevel: 2. self deferred: true! ! !MorphicModel methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color yellow! ! !MorphicModel methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:38'! defaultBorderWidth "answer the default border width for the receiver" ^ 2! ! !MorphicModel methodsFor: 'initialization' stamp: 'dgd 2/14/2003 17:54'! defaultBounds ^ 0 @ 0 corner: 200 @ 100. ! ! !MorphicModel methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:28'! defaultColor "answer the default color/fill style for the receiver" ^ Color transparent! ! !MorphicModel methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:47'! initialize "initialize the state of the receiver" super initialize. "" open _ false! ! !MovieMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:28'! defaultColor "answer the default color/fill style for the receiver" ^ Color r: 1 g: 0 b: 1! ! !MovieMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:47'! initialize "initialize the state of the receiver" super initialize. "" playMode _ #stop. "#stop, #playOnce, or #loop" msecsPerFrame _ 200. rotationDegrees _ 0. scalePoint _ 1.0 @ 1.0. frameList _ EmptyArray. currentFrameIndex _ 1. dwellCount _ 0! ! !PasteUpMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color r: 0.861 g: 1.0 b: 0.722! ! !PasteUpMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:38'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !PasteUpMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:29'! defaultColor "answer the default color/fill style for the receiver" ^ Color r: 0.8 g: 1.0 b: 0.6! ! !PasteUpMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:31'! initialize "initialize the state of the receiver" super initialize. "" cursor _ 1. padding _ 3. self enableDragNDrop. self isWorldMorph ifTrue: [self setProperty: #automaticPhraseExpansion toValue: true]. self clipSubmorphs: true! ! !IndexTabs methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:38'! defaultBorderWidth "answer the default border width for the receiver" ^ 0! ! !IndexTabs methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:27'! defaultColor "answer the default color/fill style for the receiver" ^ Color r: 0.0 g: 0.6 b: 0.6! ! !IndexTabs methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:43'! initialize "Initialize the receiver. Make sure it is not open to drag and drop" super initialize. "" padding _ 10. verticalPadding _ 4. basicHeight _ 14. basicWidth _ 200. self enableDragNDrop: false! ! !PolygonMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color r: 0.0 g: 0.419 b: 0.935! ! !PolygonMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:39'! defaultBorderWidth "answer the default border width for the receiver" ^ 2! ! !PolygonMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:10'! initialize "initialize the state of the receiver" super initialize. "" vertices _ Array with: 5 @ 0 with: 20 @ 10 with: 0 @ 20. closed _ true. smoothCurve _ false. arrows _ #none. self computeBounds! ! !PolygonMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:09'! vertices: verts color: aColor borderWidth: borderWidthInteger borderColor: anotherColor super initialize. "" vertices _ verts. color _ aColor. borderWidth _ borderWidthInteger. borderColor _ anotherColor. closed _ vertices size > 2. arrows _ #none. self computeBounds! ! !PolygonMorph methodsFor: 'visual properties' stamp: 'dgd 2/14/2003 22:30'! defaultColor "answer the default color/fill style for the receiver" ^ Color orange! ! !BalloonMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:33'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color black! ! !BalloonMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:36'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !BalloonMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:24'! defaultColor "answer the default color/fill style for the receiver" ^ self class balloonColor! ! !BalloonMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:20'! initialize "initialize the state of the receiver" super initialize. "" self beSmoothCurve. offsetFromTarget _ 0 @ 0! ! !BlobMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:24'! defaultColor "answer the default color/fill style for the receiver" ^ random next < 0.25 ifTrue: [Color random] ifFalse: [Color random alpha: random next * 0.4 + 0.4]! ! !BlobMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:42'! initialize "initialize the state of the receiver" random _ Random new. sneaky _ random next < 0.75. super initialize. "" self beSmoothCurve; initializeBlobShape; setVelocity! ! !EnvelopeLineMorph methodsFor: 'as yet unclassified' stamp: 'dgd 2/14/2003 20:17'! vertices: verts borderWidth: bw borderColor: bc super initialize. vertices _ verts. borderWidth _ bw. borderColor _ bc. closed _ false. arrows _ #none. self computeBounds! ! !EnvelopeLineMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:27'! defaultColor "answer the default color/fill style for the receiver" ^ Color transparent! ! !LipsMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color black! ! !LipsMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:38'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !LipsMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:28'! defaultColor "answer the default color/fill style for the receiver" ^ Color black! ! !LipsMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:18'! initialize "initialize the state of the receiver" super initialize. "" self beSmoothCurve. vertices _ {11 @ 3. 35 @ 1. 60 @ 5. 67 @ 17. 34 @ 24. 3 @ 17}. closed _ true. self neutral; updateShape! ! !RectangleMorph methodsFor: 'visual properties' stamp: 'dgd 2/14/2003 22:30'! defaultColor "answer the default color/fill style for the receiver" ^ Color r: 0.613 g: 0.903 b: 1.0! ! !AbstractMediaEventMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:33'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color black! ! !AbstractMediaEventMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:36'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !AbstractMediaEventMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:24'! defaultColor "answer the default color/fill style for the receiver" ^ Color paleYellow! ! !AbstractMediaEventMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:38'! initialize "initialize the state of the receiver" super initialize. "" self layoutPolicy: TableLayout new; listDirection: #leftToRight; wrapCentering: #topLeft; hResizing: #shrinkWrap; vResizing: #shrinkWrap; layoutInset: 2; rubberBandCells: true! ! !AlignmentMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:02'! basicInitialize "Do basic generic initialization of the instance variables" super basicInitialize. "" self layoutPolicy: TableLayout new; listDirection: #leftToRight; wrapCentering: #topLeft; hResizing: #spaceFill; vResizing: #spaceFill; layoutInset: 2; rubberBandCells: true! ! !AlignmentMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:36'! defaultBorderWidth "answer the default border width for the receiver" ^ 0! ! !AlignmentMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:24'! defaultColor "answer the default color/fill style for the receiver" ^ Color r: 0.8 g: 1.0 b: 0.8! ! !AlignmentMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:19'! initialize "initialize the state of the receiver" super initialize. "" self layoutPolicy: TableLayout new; listDirection: #leftToRight; wrapCentering: #topLeft; hResizing: #spaceFill; vResizing: #spaceFill; layoutInset: 2; rubberBandCells: true! ! !AlignmentMorphBob1 methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:36'! defaultBorderWidth "answer the default border width for the receiver" ^ 0! ! !AlignmentMorphBob1 methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:30'! initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom; layoutInset: 0; hResizing: #rigid; vResizing: #rigid ! ! !BalloonRectangleMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:33'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ GradientFillStyle ramp: {0.0 -> Color black. 1.0 -> Color white}! ! !BalloonRectangleMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:36'! defaultBorderWidth "answer the default border width for the receiver" ^ 10! ! !BalloonRectangleMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:24'! defaultColor "answer the default color/fill style for the receiver" | result | result _ GradientFillStyle ramp: {0.0 -> Color green. 0.5 -> Color yellow. 1.0 -> Color red}. result radial: true. ^ result! ! !BalloonRectangleMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:41'! initialize "initialize the state of the receiver" super initialize. "" self extent: 100 @ 100! ! !BasicButton methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:33'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color yellow darker! ! !BasicButton methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:36'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !BasicButton methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:24'! defaultColor "answer the default color/fill style for the receiver" ^ Color yellow! ! !BasicButton methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:52'! initialize "initialize the state of the receiver" super initialize. "" self label: 'Button'; useRoundedCorners! ! !BookMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:24'! defaultColor "answer the default color/fill style for the receiver" ^ Color white! ! !BookMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:09'! initialize "initialize the state of the receiver" super initialize. "" self setInitialState. pages _ OrderedCollection new. self showPageControls. self class turnOffSoundWhile: [self insertPage]! ! !BookMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:07'! setInitialState self listDirection: #topToBottom; wrapCentering: #topLeft; hResizing: #shrinkWrap; vResizing: #shrinkWrap; layoutInset: 5. pageSize _ 160 @ 300. self enableDragNDrop! ! !BookPageSorterMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:05'! initialize "initialize the state of the receiver" super initialize. "" self extent: Display extent - 100; listDirection: #topToBottom; wrapCentering: #topLeft; hResizing: #shrinkWrap; vResizing: #shrinkWrap; layoutInset: 3; color: Color lightGray; borderWidth: 2. pageHolder _ PasteUpMorph new behaveLikeHolder extent: self extent - borderWidth. pageHolder hResizing: #shrinkWrap. "pageHolder cursor: 0." "causes a walkback as of 5/25/2000" self addControls. self addMorphBack: pageHolder! ! !EToyCommunicatorMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:32'! initialize "initialize the state of the receiver" super initialize. "" self vResizing: #shrinkWrap; hResizing: #shrinkWrap. resultQueue _ SharedQueue new. fields _ Dictionary new. self useRoundedCorners! ! !AudioChatGUI methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:33'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color black! ! !AudioChatGUI methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:36'! defaultBorderWidth "answer the default border width for the receiver" ^ 4! ! !AudioChatGUI methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:24'! defaultColor "answer the default color/fill style for the receiver" ^ Color yellow! ! !AudioChatGUI methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:48'! initialize "initialize the state of the receiver" super initialize. "" transmitWhileRecording _ false. handsFreeTalking _ false. mycodec _ GSMCodec new. myrecorder _ ChatNotes new. mytargetip _ ''. self start2. self changeTalkButtonLabel! ! !EToyChatMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ self standardBorderColor! ! !EToyChatMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:36'! defaultBorderWidth "answer the default border width for the receiver" ^ 8! ! !EToyChatMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:36'! defaultBounds ^ 400 @ 100 extent: 200 @ 150. ! ! !EToyChatMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:25'! defaultColor "answer the default color/fill style for the receiver" ^ Color paleYellow! ! !EToyChatMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:36'! initialize "initialize the state of the receiver" super initialize. "" acceptOnCR _ true. self listDirection: #topToBottom; layoutInset: 0; hResizing: #shrinkWrap; vResizing: #shrinkWrap; rubberBandCells: false; minWidth: 200; minHeight: 200; rebuild ! ! !EToyFridgeMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ #raised! ! !EToyFridgeMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:37'! defaultBorderWidth "answer the default border width for the receiver" ^ 4! ! !EToyFridgeMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:25'! defaultColor "answer the default color/fill style for the receiver" ^ Color paleRed! ! !EToyFridgeMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:40'! initialize "initialize the state of the receiver" super initialize. "" groupMode _ true. self listDirection: #topToBottom; layoutInset: 10; hResizing: #shrinkWrap; vResizing: #shrinkWrap; setProperty: #normalBorderColor toValue: borderColor; setProperty: #flashingColors toValue: {Color red. Color yellow}; rebuild ! ! !EToyGateKeeperMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ #raised! ! !EToyGateKeeperMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:37'! defaultBorderWidth "answer the default border width for the receiver" ^ 4! ! !EToyGateKeeperMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:25'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightGray! ! !EToyGateKeeperMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:42'! initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom; layoutInset: 4; hResizing: #spaceFill; vResizing: #spaceFill; useRoundedCorners; rebuild ! ! !EToyGenericDialogMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:54'! initialize "initialize the state of the receiver" super initialize. "" namedFields _ Dictionary new. self rebuild! ! !EToyListenerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color blue! ! !EToyListenerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:37'! defaultBorderWidth "answer the default border width for the receiver" ^ 4! ! !EToyListenerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:25'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightBlue! ! !EToyListenerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:44'! initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom; layoutInset: 4; rebuild ! ! !EToyMorphsWelcomeMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:25'! defaultColor "answer the default color/fill style for the receiver" ^ Color yellow! ! !EToyMorphsWelcomeMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:27'! initialize "initialize the state of the receiver" | earMorph | super initialize. "" self layoutInset: 8 @ 8. "earMorph _ (EToyListenerMorph makeListeningToggle: true) asMorph." earMorph _ TextMorph new contents: 'Morphs welcome here'; fontName: #ComicBold size: 18; centered; lock. self addARow: {earMorph}. self setBalloonText: 'My presence in this world means received morphs may appear automatically'! ! !EToyProjectHistoryMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ #raised! ! !EToyProjectHistoryMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:37'! defaultBorderWidth "answer the default border width for the receiver" ^ 4! ! !EToyProjectHistoryMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:25'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightBrown! ! !EToyProjectHistoryMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:46'! initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom; layoutInset: 4; hResizing: #shrinkWrap; vResizing: #shrinkWrap; useRoundedCorners; rebuild ! ! !EToyProjectRenamerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ color darker! ! !EToyProjectRenamerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:37'! defaultBorderWidth "answer the default border width for the receiver" ^ 8! ! !EToyProjectRenamerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:26'! defaultColor "answer the default color/fill style for the receiver" ^ Color paleYellow! ! !EToyProjectRenamerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:54'! initialize "initialize the state of the receiver" super initialize. "" self vResizing: #shrinkWrap; hResizing: #shrinkWrap; layoutInset: 4; useRoundedCorners; rebuild! ! !EToyProjectQueryMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ self color darker! ! !EToyProjectQueryMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:37'! defaultBorderWidth "answer the default border width for the receiver" ^ 8! ! !EToyProjectQueryMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:26'! defaultColor "answer the default color/fill style for the receiver" ^ Color r: 0.545 g: 0.47 b: 0.621! ! !EToySenderMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color magenta! ! !EToySenderMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:37'! defaultBorderWidth "answer the default border width for the receiver" ^ 4! ! !EToySenderMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:26'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightMagenta! ! !EToySenderMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:33'! initialize "initialize the state of the receiver" Socket initializeNetwork. "we may want our IP address" Preferences defaultAuthorName. "seems like a good place to insure we have a name" super initialize. "" self listDirection: #topToBottom; layoutInset: 4; setProperty: #normalBorderColor toValue: borderColor; setProperty: #flashingColors toValue: {Color red. Color yellow} ! ! !EtoyLoginMorph methodsFor: 'initialize' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ self color darker! ! !EtoyLoginMorph methodsFor: 'initialize' stamp: 'dgd 2/14/2003 22:37'! defaultBorderWidth "answer the default border width for the receiver" ^ 8! ! !EtoyLoginMorph methodsFor: 'initialize' stamp: 'dgd 2/14/2003 22:27'! defaultColor "answer the default color/fill style for the receiver" ^ Color paleYellow! ! !EtoyLoginMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:03'! initialize "initialize the state of the receiver" | fs | super initialize. "" self vResizing: #shrinkWrap; hResizing: #shrinkWrap; layoutInset: 4; beSticky; useRoundedCorners; rebuild. fs _ GradientFillStyle ramp: {0.0 -> (Color r: 0.5 g: 0.5 b: 1.0). 1.0 -> (Color r: 0.8 g: 0.8 b: 1.0)}. fs origin: bounds origin. fs direction: 0 @ self fullBounds height. self fillStyle: fs! ! !EventRecorderMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ #raised! ! !EventRecorderMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:37'! defaultBorderWidth "answer the default border width for the receiver" ^ 2! ! !EventRecorderMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:27'! defaultColor "answer the default color/fill style for the receiver" ^ Color red! ! !EventRecorderMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:21'! initialize "initialize the state of the receiver" super initialize. "" saved _ true. self listDirection: #topToBottom; wrapCentering: #center; cellPositioning: #topCenter; hResizing: #shrinkWrap; vResizing: #shrinkWrap; layoutInset: 2; minCellSize: 4; addButtons! ! !FillInTheBlankMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:37'! defaultBorderWidth "answer the default border width for the receiver" ^ 2! ! !FillInTheBlankMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:27'! defaultColor "answer the default color/fill style for the receiver" ^ Color white! ! !FillInTheBlankMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:58'! initialize "initialize the state of the receiver" super initialize. "" Preferences roundedWindowCorners ifTrue: [self useRoundedCorners]. self extent: 200 @ 70. responseUponCancel _ ''! ! !FillInTheBlankMorphWithDictMenu methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:58'! initialize "initialize the state of the receiver" super initialize. "" self setBalloonText: 'Use the context menu to insert dictionaries'! ! !FloatingBookControlsMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color black! ! !FloatingBookControlsMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:38'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !FloatingBookControlsMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:16'! initialize "initialize the state of the receiver" super initialize. "" self layoutInset: 0; hResizing: #shrinkWrap; vResizing: #shrinkWrap ! ! !FreeCellBoard methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:38'! defaultBorderWidth "answer the default border width for the receiver" ^ 0! ! !FreeCellBoard methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:27'! defaultColor "answer the default color/fill style for the receiver" ^ Color green! ! !FreeCellBoard methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:31'! initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom; hResizing: #shrinkWrap; vResizing: #rigid; height: 500; layout! ! !GeeBookMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:27'! defaultColor "answer the default color/fill style for the receiver" ^ Color r: 0.909 g: 0.819 b: 0.09! ! !GeeBookMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:10'! initialize "initialize the state of the receiver" super initialize. "" newPagePrototype _ GeeBookPageMorph new extent: Display extent // 3 ! ! !GeePrinterDialogMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ self color darker! ! !GeePrinterDialogMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:38'! defaultBorderWidth "answer the default border width for the receiver" ^ 8! ! !GeePrinterDialogMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:27'! defaultColor "answer the default color/fill style for the receiver" ^ Color paleYellow! ! !GeePrinterDialogMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:52'! initialize "initialize the state of the receiver" super initialize. "" self vResizing: #shrinkWrap; hResizing: #shrinkWrap; layoutInset: 4; useRoundedCorners. printSpecs ifNil: [printSpecs _ PrintSpecifications defaultSpecs]. self rebuild ! ! !GraphicalMenu methodsFor: 'as yet unclassified' stamp: 'dgd 2/14/2003 19:08'! initializeFor: aTarget withForms: formList coexist: aBoolean "World primaryHand attachMorph: (GraphicalMenu new initializeFor: nil withForms: Form allInstances coexist: true)" | buttons bb anIndex buttonCage imageWrapper | target _ aTarget. coexistWithOriginal _ aBoolean. formChoices _ formList. currentIndex _ 1. self hResizing: #shrinkWrap; vResizing: #shrinkWrap. buttons _ AlignmentMorph newRow. buttons borderWidth: 0; layoutInset: 0. buttons hResizing: #shrinkWrap; vResizing: #shrinkWrap; extent: 5 @ 5. buttons wrapCentering: #topLeft. buttonCage _ AlignmentMorph newColumn. buttonCage hResizing: #shrinkWrap; vResizing: #spaceFill. buttonCage addTransparentSpacerOfSize: 0 @ 10. bb _ SimpleButtonMorph new target: self; borderColor: Color black. buttons addMorphBack: (bb label: 'Prev'; actionSelector: #downArrowHit; actWhen: #whilePressed). buttons addTransparentSpacerOfSize: 9 @ 0. bb _ SimpleButtonMorph new target: self; borderColor: Color black. buttons addMorphBack: (bb label: 'Next'; actionSelector: #upArrowHit; actWhen: #whilePressed). buttons addTransparentSpacerOfSize: 5 @ 0. buttons submorphs last color: Color white. buttonCage addMorphBack: buttons. buttonCage addTransparentSpacerOfSize: 0 @ 12. buttons _ AlignmentMorph newRow. bb _ SimpleButtonMorph new target: self; borderColor: Color black. buttons addMorphBack: (bb label: 'OK'; actionSelector: #okay). buttons addTransparentSpacerOfSize: 5 @ 0. bb _ SimpleButtonMorph new target: self; borderColor: Color black. buttons addMorphBack: (bb label: 'Cancel'; actionSelector: #cancel). buttonCage addMorphBack: buttons. buttonCage addTransparentSpacerOfSize: 0 @ 10. self addMorphFront: buttonCage. imageWrapper _ Morph new color: Color transparent; extent: 102 @ 82. imageWrapper addMorphBack: (formDisplayMorph _ ImageMorph new extent: 100 @ 100). self addMorphBack: imageWrapper. target ifNotNil: [(anIndex _ formList indexOf: target form ifAbsent: []) ifNotNil: [currentIndex _ anIndex]]. self updateThumbnail! ! !GraphicalMenu methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color blue darker! ! !GraphicalMenu methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:38'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !GraphicalMenu methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:27'! defaultColor "answer the default color/fill style for the receiver" ^ Color white! ! !GraphicalDictionaryMenu methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color blue darker! ! !GraphicalDictionaryMenu methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:38'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !GraphicalDictionaryMenu methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:27'! defaultColor "answer the default color/fill style for the receiver" ^ Color white! ! !GraphicalDictionaryMenu methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:10'! initializeFor: aTarget fromDictionary: aDictionary "Initialize me for a target and a dictionary." | imageWrapper anIndex aButton controlsWrapper asm | self listDirection: #topToBottom. self addMorphBack: (controlsWrapper _ AlignmentMorph newRow). self baseDictionary: aDictionary. target _ aTarget. coexistWithOriginal _ true. self hResizing: #shrinkWrap; vResizing: #shrinkWrap. controlsWrapper borderWidth: 0; layoutInset: 0; hResizing: #shrinkWrap; vResizing: #shrinkWrap; extent: 5 @ 5. controlsWrapper wrapCentering: #topLeft; color: Color white; vResizing: #spaceFill. controlsWrapper addTransparentSpacerOfSize: 18 @ 0. controlsWrapper addMorphBack: (IconicButton new borderWidth: 0; labelGraphic: (ScriptingSystem formAtKey: 'TinyMenu'); color: Color transparent; actWhen: #buttonDown; actionSelector: #showMenu; target: self; setBalloonText: 'menu'). controlsWrapper addTransparentSpacerOfSize: 14 @ 0. aButton _ SimpleButtonMorph new target: self; borderColor: Color black. controlsWrapper addMorphBack: (aButton label: 'Prev'; actionSelector: #downArrowHit; actWhen: #whilePressed; setBalloonText: 'show previous picture'; yourself). controlsWrapper addTransparentSpacerOfSize: 15 @ 0. aButton _ SimpleButtonMorph new target: self; borderColor: Color black. controlsWrapper addMorphBack: (aButton label: 'Next'; actionSelector: #upArrowHit; actWhen: #whilePressed; setBalloonText: 'show next pictutre'). self addMorphBack: controlsWrapper. self addTransparentSpacerOfSize: 0 @ 12. self addMorphBack: (asm _ UpdatingStringMorph new contents: ' '; target: self; putSelector: #renameGraphicTo:; getSelector: #truncatedNameOfGraphic; useStringFormat). asm setBalloonText: 'The name of the current graphic'. self addTransparentSpacerOfSize: 0 @ 12. self addMorphBack: (AlignmentMorph newRow height: 4; borderWidth: 0; color: Color black). imageWrapper _ Morph new color: Color transparent; extent: 190 @ 82. imageWrapper addMorphBack: (formDisplayMorph _ ImageMorph new extent: 100 @ 100). self addMorphBack: imageWrapper. target ifNotNil: [(anIndex _ formChoices indexOf: target form ifAbsent: []) ifNotNil: [currentIndex _ anIndex]]. self updateThumbnail! ! !InterimSoundMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:38'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !InterimSoundMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:27'! defaultColor "answer the default color/fill style for the receiver" ^ Color r: 0 g: 0.8 b: 0.6! ! !InterimSoundMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:57'! initialize "initialize the state of the receiver" super initialize. "" self extent: 30 @ 30. self addGraphic. sound _ PluckedSound pitch: 880.0 dur: 2.0 loudness: 0.5! ! !MidiInputMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:38'! defaultBorderWidth "answer the default border width for the receiver" ^ 2! ! !MidiInputMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:28'! defaultColor "answer the default color/fill style for the receiver" ^ Color veryLightGray! ! !MidiInputMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:24'! initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom; wrapCentering: #center; cellPositioning: #topCenter; hResizing: #spaceFill; vResizing: #spaceFill; layoutInset: 3. midiPortNumber _ nil. midiSynth _ MIDISynth new. instrumentSelector _ Array new: 16. self removeAllMorphs. self addMorphBack: self makeControls. self addMorphBack: (AlignmentMorph newColumn color: color; layoutInset: 0). self addChannelControlsFor: 1. self extent: 20 @ 20! ! !Mines methodsFor: 'initialize' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ #raised! ! !Mines methodsFor: 'initialize' stamp: 'dgd 2/14/2003 22:38'! defaultBorderWidth "answer the default border width for the receiver" ^ 2! ! !Mines methodsFor: 'initialize' stamp: 'dgd 2/14/2003 22:28'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightGray! ! !Mines methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:34'! initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom; wrapCentering: #center; cellPositioning: #topCenter; vResizing: #shrinkWrap; hResizing: #shrinkWrap; layoutInset: 3; addMorph: self makeControls; addMorph: self board. helpText _ nil. self newGame! ! !MinesBoard methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:34'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ #inset! ! !MinesBoard methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:38'! defaultBorderWidth "answer the default border width for the receiver" ^ 2! ! !MinesBoard methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:28'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightGray! ! !MinesBoard methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:06'! initialize "initialize the state of the receiver" super initialize. "" target _ nil. actionSelector _ #selection. arguments _ #(). "" self layoutPolicy: nil; hResizing: #rigid; vResizing: #rigid. "" rows _ self preferredRows. columns _ self preferredColumns. flashCount _ 0. "" self extent: self protoTile extent * (columns @ rows). self adjustTiles. self resetBoard! ! !MinesTile methodsFor: 'accessing' stamp: 'dgd 2/14/2003 21:59'! color: aColor super color: aColor. onColor _ aColor. offColor _ aColor. self changed! ! !MoviePlayerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:38'! defaultBorderWidth "answer the default border width for the receiver" ^ 2! ! !MoviePlayerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:29'! defaultColor "answer the default color/fill style for the receiver" ^ Color veryLightGray! ! !MoviePlayerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:07'! setInitialState super setInitialState. "" self layoutInset: 3. pageSize _ frameSize _ 200 @ 200. frameDepth _ 8. self disableDragNDrop! ! !NebraskaServerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:29'! defaultColor "answer the default color/fill style for the receiver" ^ Color white! ! !NebraskaServerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:29'! initialize "initialize the state of the receiver" super initialize. "" fullDisplay _ false. lastFullUpdateTime _ 0. self listDirection: #topToBottom; hResizing: #shrinkWrap; vResizing: #shrinkWrap! ! !PianoKeyboardMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:29'! defaultColor "answer the default color/fill style for the receiver" ^ Color veryLightGray! ! !PianoKeyboardMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:56'! initialize "initialize the state of the receiver" super initialize. "" whiteKeyColor _ Color gray: 0.95. blackKeyColor _ Color black. playingKeyColor _ Color red. nOctaves _ 6. self buildKeyboard. soundPrototype _ FMSound brass1 duration: 9.9! ! !KeyboardMorphForInput methodsFor: 'simple keyboard' stamp: 'dgd 2/14/2003 20:55'! initialize "initialize the state of the receiver" super initialize. "" buildingChord _ false. self addRecordingControls. self duration: 4 onOff: true. self durMod: #normal onOff: true. self articulation: #normal onOff: true. insertMode _ false! ! !MIDIPianoKeyboardMorph methodsFor: 'simple keyboard' stamp: 'dgd 2/14/2003 20:55'! initialize "initialize the state of the receiver" super initialize. "" SimpleMIDIPort midiIsSupported ifTrue: [midiPort _ SimpleMIDIPort openDefault]. channel _ 1. velocity _ 100! ! !PianoRollScoreMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:38'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !PianoRollScoreMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:29'! defaultColor "answer the default color/fill style for the receiver" ^ Color white! ! !PianoRollScoreMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:01'! initialize "initialize the state of the receiver" super initialize. "" self extent: 400 @ 300. showMeasureLines _ true. showBeatLines _ false. self timeSignature: 4 over: 4. self clipSubmorphs: true! ! !PluggableButtonMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:39'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !PluggableButtonMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:29'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightGreen! ! !PluggableButtonMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:35'! initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom. self hResizing: #shrinkWrap. "<--so naked buttons work right" self vResizing: #shrinkWrap. self wrapCentering: #center; cellPositioning: #topCenter. model _ nil. label _ nil. getStateSelector _ nil. actionSelector _ nil. getLabelSelector _ nil. getMenuSelector _ nil. shortcutCharacter _ nil. askBeforeChanging _ false. triggerOnMouseDown _ false. onColor _ self color darker. offColor _ self color. feedbackColor _ Color red. showSelectionFeedback _ false. allButtons _ nil. argumentsProvider _ nil. argumentsSelector _ nil. self extent: 20 @ 15! ! !ProjectNavigationMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:30'! defaultColor "answer the default color/fill style for the receiver" ^ Color orange! ! !ProjectNavigationMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:30'! initialize "initialize the state of the receiver" super initialize. "" self layoutInset: 6; hResizing: #shrinkWrap; vResizing: #shrinkWrap; useRoundedCorners. mouseInside _ false. self addButtons! ! !KidNavigationMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:30'! initialize | fill | "initialize the state of the receiver" super initialize. "" self layoutInset: 12. fill _ GradientFillStyle ramp: {0.0 -> (Color r: 0.032 g: 0.0 b: 0.484). 1.0 -> (Color r: 0.194 g: 0.032 b: 1.0)}. fill origin: self bounds topLeft. fill direction: 0 @ 200. fill radial: false. self fillStyle: fill. self removeAllMorphs. self addButtons! ! !ProjectSorterMorph methodsFor: 'as yet unclassified' stamp: 'dgd 2/14/2003 21:06'! addControls | b r partsBinButton newButton | newButton _ ImageMorph new image: (World project makeThumbnail scaledToSize: 24 @ 18). newButton on: #mouseDown send: #insertNewProject: to: self. newButton setBalloonText: 'Make a new Project'. (partsBinButton _ UpdatingThreePhaseButtonMorph checkBox) target: self; actionSelector: #togglePartsBinStatus; arguments: #(); getSelector: #getPartsBinStatus. (r _ AlignmentMorph newRow) color: Color transparent; borderWidth: 0; layoutInset: 0; wrapCentering: #center; cellPositioning: #topCenter; hResizing: #shrinkWrap; vResizing: #shrinkWrap; extent: 5 @ 5. b _ SimpleButtonMorph new target: self; color: self defaultColor darker; borderColor: Color black. r addMorphBack: (self wrapperFor: (b label: 'Okay'; actionSelector: #acceptSort)). b _ SimpleButtonMorph new target: self; color: self defaultColor darker; borderColor: Color black. r addMorphBack: (self wrapperFor: (b label: 'Cancel'; actionSelector: #delete)); addMorphBack: (self wrapperFor: newButton); addTransparentSpacerOfSize: 8 @ 0; addMorphBack: (self wrapperFor: partsBinButton); addMorphBack: (self wrapperFor: (StringMorph contents: 'Parts bin') lock). self addMorphFront: r! ! !ProjectSorterMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:30'! defaultColor "answer the default color/fill style for the receiver" ^ Color r: 0.365 g: 0.634 b: 0.729! ! !ProjectSorterMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:06'! initialize "initialize the state of the receiver" super initialize. "" self useRoundedCorners. borderWidth _ 0. pageHolder useRoundedCorners; borderWidth: 0; color: (self gridFormOrigin: 0 @ 0 grid: 16 @ 16 background: Color white line: Color blue muchLighter)! ! !SameGame methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:30'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightGray! ! !SameGame methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:02'! initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom; wrapCentering: #center; cellPositioning: #topCenter; vResizing: #shrinkWrap; hResizing: #shrinkWrap; layoutInset: 3; addMorph: self makeControls; addMorph: self board. helpText _ nil. self newGame! ! !SameGameBoard methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color black! ! !SameGameBoard methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:39'! defaultBorderWidth "answer the default border width for the receiver" ^ 2! ! !SameGameBoard methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:30'! defaultColor "answer the default color/fill style for the receiver" ^ Color gray! ! !SameGameBoard methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:12'! initialize "initialize the state of the receiver" super initialize. target _ nil. actionSelector _ #selection. arguments _ #(). self layoutPolicy: nil. self hResizing: #rigid. self vResizing: #rigid. rows _ self preferredRows. columns _ self preferredColumns. palette _ (Color wheel: self preferredTileTypes + 1) asOrderedCollection. flashColor _ palette removeLast. flash _ false. self extent: self protoTile extent * (columns @ rows). self resetBoard! ! !SameGameTile methodsFor: 'accessing' stamp: 'dgd 2/14/2003 21:59'! color: aColor super color: aColor. onColor _ aColor. offColor _ aColor. self changed! ! !ScaleMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:39'! defaultBorderWidth "answer the default border width for the receiver" ^ 0! ! !ScaleMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:30'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightGreen! ! !ScaleMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:00'! initialize "initialize the state of the receiver" super initialize. "" start _ 0. stop _ 100. minorTick _ 1. majorTick _ 10. minorTickLength _ 3. majorTickLength _ 10. caption _ nil. tickPrintBlock _ [:v | v printString]. labelsAbove _ true. captionAbove _ true! ! !ScorePlayerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:39'! defaultBorderWidth "answer the default border width for the receiver" ^ 2! ! !ScorePlayerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:30'! defaultColor "answer the default color/fill style for the receiver" ^ Color veryLightGray! ! !ScorePlayerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:25'! initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom; wrapCentering: #center; cellPositioning: #topCenter; hResizing: #shrinkWrap; vResizing: #shrinkWrap; layoutInset: 3; onScorePlayer: ScorePlayer new initialize title: ' '; extent: 20 @ 20 ! ! !ScriptEditorMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color black! ! !ScriptEditorMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:39'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !ScriptEditorMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:30'! defaultColor "answer the default color/fill style for the receiver" ^ ScriptingSystem colorBehindTiles! ! !ScriptEditorMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 19:24'! initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom; hResizing: #shrinkWrap; vResizing: #shrinkWrap; cellPositioning: #topLeft; setProperty: #autoFitContents toValue: true; layoutInset: 2; useRoundedCorners. firstTileRow _ 1. "index of first tile-carrying submorph" self addNewRow. showingMethodPane _ false! ! !ScrollPane methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color black! ! !ScrollPane methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:39'! defaultBorderWidth "answer the default border width for the receiver" ^ 2! ! !ScrollPane methodsFor: 'initialization' stamp: 'dgd 2/14/2003 18:10'! initialize "initialize the state of the receiver" super initialize. "" self initializePreferences. hasFocus _ false. self initializeScrollBar. "" self extent: 150 @ 120! ! !ScrollPane methodsFor: 'initialization' stamp: 'dgd 2/14/2003 18:10'! initializePreferences retractableScrollBar := (Preferences valueOfFlag: #inboardScrollbars) not. scrollBarOnLeft := (Preferences valueOfFlag: #scrollBarsOnRight) not! ! !ScrollPane methodsFor: 'initialization' stamp: 'dgd 2/14/2003 18:09'! initializeScrollBar scrollBar _ ScrollBar new model: self slotName: 'scrollBar'. scrollBar borderWidth: 1; borderColor: Color black. "" scroller _ TransformMorph new color: Color transparent. scroller offset: -3 @ 0. self addMorph: scroller. "" scrollBar initializeEmbedded: retractableScrollBar not. retractableScrollBar ifFalse: [self addMorph: scrollBar]! ! !AlansTextPlusMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:24'! defaultColor "answer the default color/fill style for the receiver" ^ Color white! ! !AlansTextPlusMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 18:23'! initialize "initialize the state of the receiver" super initialize. "" self initializeThePasteUp. "" self useRoundedCorners. "" self bounds: (100 @ 100 extent: Display extent // 3) ! ! !AlansTextPlusMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 18:13'! initializeThePasteUp thePasteUp := (TextPlusPasteUpMorph new) borderWidth: 0; color: color. scroller addMorph: thePasteUp! ! !PluggableTextMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 18:25'! initialize "initialize the state of the receiver" super initialize. "" hasUnacceptedEdits _ false. hasEditingConflicts _ false. askBeforeDiscardingEdits _ true. "Use the dictionary #Text for gestures" self gestureDictionaryOrName: #Text! ! !MethodMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 18:25'! initialize "initialize the state of the receiver" super initialize. self useRoundedCorners! ! !PluggableTextMorphWithModel methodsFor: 'initialization' stamp: 'dgd 2/14/2003 18:25'! initialize "initialize the state of the receiver" super initialize. self on: self text: #getMyText accept: #setMyText: readSelection: nil menu: nil! ! !SelectionMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color blue! ! !SelectionMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:39'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !SelectionMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:30'! defaultColor "answer the default color/fill style for the receiver" ^ Color transparent! ! !SelectionMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:23'! initialize "initialize the state of the receiver" super initialize. "" selectedItems _ OrderedCollection new. itemsAlreadySelected _ OrderedCollection new. slippage _ 0 @ 0! ! !SimpleHierarchicalListMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 18:26'! initialize "initialize the state of the receiver" super initialize. self on: #mouseMove send: #mouseStillDown:onItem: to: self! ! !EToyHierarchicalTextMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:25'! defaultColor "answer the default color/fill style for the receiver" ^ Color white! ! !EToyHierarchicalTextMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 18:27'! initialize "initialize the state of the receiver" super initialize. self useRoundedCorners! ! !SketchEditorMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:30'! defaultColor "answer the default color/fill style for the receiver" ^ Color white alpha: 0.5! ! !SketchMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:51'! initialize "initialize the state of the receiver" ^ self initializeWith: (ScriptingSystem formAtKey: 'Painting') deepCopy! ! !BookPageThumbnailMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:24'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightGray! ! !BookPageThumbnailMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:53'! initialize "initialize the state of the receiver" | f | super initialize. "" flipOnClick _ false. f _ Form extent: 60 @ 80 depth: Display depth. f fill: f boundingBox fillColor: color. self form: f! ! !FatBitsPaint methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:27'! defaultColor "answer the default color/fill style for the receiver" ^ Color veryVeryLightGray! ! !FatBitsPaint methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:54'! initialize "initialize the state of the receiver" super initialize. "" self setCurrentToolTo: self toolsForPaintBrush. formToEdit _ Form extent: 50 @ 40 depth: 8. formToEdit fill: formToEdit boundingBox fillColor: Color veryVeryLightGray. brushSize _ magnification _ 4. brushColor _ Color red. backgroundColor _ Color white. self revert! ! !MorphThumbnail methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:28'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightGray! ! !MorphThumbnail methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:51'! initialize "initialize the state of the receiver" | f | super initialize. "" f _ Form extent: 60 @ 80 depth: Display depth. f fill: f boundingBox fillColor: color. self form: f! ! !MultiuserTinyPaint methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:29'! defaultColor "answer the default color/fill style for the receiver" ^ Color veryVeryLightGray! ! !MultiuserTinyPaint methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:52'! initialize "initialize the state of the receiver" super initialize. "" drawState _ IdentityDictionary new. self clear! ! !Slider methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ #inset! ! !Slider methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:39'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !Slider methodsFor: 'initialization' stamp: 'dgd 2/14/2003 18:29'! defaultBounds ^ 0 @ 0 corner: 16 @ 100! ! !Slider methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:30'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightGray! ! !Slider methodsFor: 'initialization' stamp: 'dgd 2/14/2003 18:30'! initialize "initialize the state of the receiver" super initialize. "" value _ 0.0. descending _ false. self initializeSlider! ! !SorterTokenMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color blue! ! !SorterTokenMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:40'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !SorterTokenMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Color transparent! ! !SoundDemoMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:40'! defaultBorderWidth "answer the default border width for the receiver" ^ 2! ! !SoundDemoMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightGray! ! !SoundDemoMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:04'! initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom; wrapCentering: #center; cellPositioning: #topCenter; hResizing: #spaceFill; vResizing: #spaceFill; layoutInset: 3; addMorph: self makeControls; initializeSoundColumn. self extent: 118 @ 150! ! !SoundDemoMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:04'! initializeSoundColumn soundColumn := AlignmentMorph newColumn. soundColumn enableDragNDrop. self addMorphBack: soundColumn! ! !SoundEventMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightGreen! ! !SoundEventMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:39'! initialize "initialize the state of the receiver" super initialize. "" self height: 10! ! !SoundLoopMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:40'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !SoundLoopMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:50'! defaultBounds ^ 0 @ 0 corner: 128 @ 128 + (borderWidth * 2). ! ! !SoundLoopMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightBlue! ! !SoundLoopMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:50'! initialize "initialize the state of the receiver" super initialize. "" controlIndex _ 0. self addCursorMorph! ! !StarMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color black! ! !StarMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:40'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !StarMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:12'! initialize "initialize the state of the receiver" | pt ext oldR points | super initialize. "" pt _ 10 @ 10. ext _ pt r. oldR _ ext. points _ 5. vertices _ (0 to: 359 by: 360 // points // 2) collect: [:angle | (Point r: (oldR _ oldR = ext ifTrue: [ext * 5 // 12] ifFalse: [ext]) degrees: angle + pt degrees) + (45 @ 45)]. self computeBounds! ! !StarMorph methodsFor: 'visual properties' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightBlue! ! !StringMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Color black! ! !StringMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:57'! initWithContents: aString font: aFont emphasis: emphasisCode super initialize. font _ aFont. emphasis _ emphasisCode. hasFocus _ false. self contents: aString! ! !StringMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:42'! initialize "initialize the state of the receiver" super initialize. "" font _ nil. emphasis _ 0. hasFocus _ false! ! !StringMorph methodsFor: 'parts bin' stamp: 'dgd 2/14/2003 21:58'! initializeToStandAlone super initializeToStandAlone. font _ nil. emphasis _ 0. hasFocus _ false. self contents: 'String: Shift-click on me to edit'! ! !BorderedStringMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:42'! initialize "initialize the state of the receiver" super initialize. "" self borderStyle: (SimpleBorder width: 1 color: Color white)! ! !ClockMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:42'! initialize "initialize the state of the receiver" super initialize. "" showSeconds _ true. self step! ! !FrameRateMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:42'! initialize "initialize the state of the receiver" super initialize. "" lastDisplayTime _ 0. framesSinceLastDisplay _ 0! ! !IndentingListItemMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:42'! initialize "initialize the state of the receiver" super initialize. "" indentLevel _ 0. isExpanded _ false! ! !InfoStringMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:42'! initialize "initialize the state of the receiver" super initialize. "" stepTime _ 1000. block _ [Time now]! ! !MenuItemMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:43'! defaultBounds ^ 0 @ 0 extent: 10 @ 10. ! ! !MenuItemMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:28'! defaultColor "answer the default color/fill style for the receiver" ^ Color black! ! !MenuItemMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:43'! initialize "initialize the state of the receiver" super initialize. "" contents _ ''. hasFocus _ false. isEnabled _ true. subMenu _ nil. isSelected _ false. target _ nil. selector _ nil. arguments _ nil. font _ Preferences standardMenuFont. self hResizing: #spaceFill; vResizing: #shrinkWrap! ! !PopUpChoiceMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:44'! initialize "initialize the state of the receiver" super initialize. "" self contents: 'PopUpChoice of Colors'. target _ Color. actionSelector _ nil. arguments _ EmptyArray. getItemsSelector _ #colorNames. getItemsArgs _ EmptyArray! ! !StringButtonMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Color black! ! !StringButtonMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:44'! initialize "initialize the state of the receiver" super initialize. "" target _ nil. actionSelector _ #flash. arguments _ EmptyArray. actWhen _ #buttonUp. self contents: 'Flash' ! ! !SystemWindow methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Preferences alternativeWindowLook ifTrue: [#raised] ifFalse: [Color black]! ! !SystemWindow methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:40'! defaultBorderWidth "answer the default border width for the receiver" ^ Preferences alternativeWindowLook ifTrue: [2] ifFalse: [1]! ! !SystemWindow methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Preferences alternativeWindowLook ifTrue: [Color white] ifFalse: [Color black]! ! !SystemWindow methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:47'! initialize "Initialize a system window. Add label, stripes, etc., if desired" super initialize. "" allowReframeHandles _ true. labelString ifNil: [labelString _ 'Untitled Window']. isCollapsed _ false. activeOnlyOnTop _ true. paneMorphs _ Array new. self layoutPolicy: ProportionalLayout new. self wantsLabel ifTrue: [label _ StringMorph new contents: labelString; font: Preferences windowTitleFont emphasis: 1. "Add collapse box so #labelHeight will work" collapseBox _ IconicButton new target: self; actionSelector: #collapseOrExpand; labelGraphic: self class collapseBoxImage; color: Color transparent; extent: 14 @ 14; setBalloonText: 'collapse this window'; borderWidth: 0. stripes _ Array with: (RectangleMorph newBounds: bounds) with: (RectangleMorph newBounds: bounds). "see extent:" self addLabelArea. labelArea addMorph: (stripes first borderWidth: 1). labelArea addMorph: (stripes second borderWidth: 2). self setLabelWidgetAllowance. self addCloseBox. self addMenuControl. labelArea addMorph: label. self wantsExpandBox ifTrue: [self addExpandBox]. labelArea addMorph: collapseBox. self setFramesForLabelArea. Preferences clickOnLabelToEdit ifTrue: [label on: #mouseDown send: #relabel to: self]. Preferences noviceMode ifTrue: [closeBox ifNotNil: [closeBox setBalloonText: 'close window']. menuBox ifNotNil: [menuBox setBalloonText: 'window menu']. collapseBox ifNotNil: [collapseBox setBalloonText: 'collapse/expand window']]]. self on: #mouseEnter send: #spawnReframeHandle: to: self. self on: #mouseLeave send: #spawnReframeHandle: to: self. self extent: 300 @ 200. mustNotClose _ false. updatablePanes _ Array new! ! !PDAMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:29'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightGray! ! !PDAMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:48'! initialize "initialize the state of the receiver" super initialize. "" self extent: 406 @ 408. PDA new initialize openAsMorphIn: self! ! !PartsWindow methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:29'! defaultColor "answer the default color/fill style for the receiver" ^ Color white! ! !PartsWindow methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:46'! initialize "initialize the state of the receiver" | aFont aForm | super initialize. "" openForEditing _ false. aFont _ Preferences standardButtonFont. self addMorph: (prevButton _ SimpleButtonMorph new borderWidth: 0; label: '<' font: aFont; color: Color transparent; setBalloonText: 'previous page'; actionSelector: #previousPage; target: self; extent: 16 @ 16). self addMorph: (nextButton _ SimpleButtonMorph new borderWidth: 0; label: '>' font: aFont; color: Color transparent; setBalloonText: 'next page'; actionSelector: #nextPage; target: self; extent: 16 @ 16). menuButton _ ThreePhaseButtonMorph new onImage: (aForm _ ScriptingSystem formAtKey: 'OfferToUnlock'); offImage: (ScriptingSystem formAtKey: 'OfferToLock'); pressedImage: (ScriptingSystem formAtKey: 'OfferToLock'); extent: aForm extent; state: #on. menuButton target: self; actionSelector: #toggleStatus; actWhen: #buttonUp. menuButton setBalloonText: 'open for editing'. self addMorph: menuButton. " self addMorph: (menuButton _ SimpleButtonMorph new borderWidth: 0; label: '¥' font: aFont; color: Color transparent; actWhen: #buttonDown; actionSelector: #invokePartsWindowMenu; target: self; extent: 16@16)." self adjustBookControls! ! !TTSampleFontMorph methodsFor: 'initialize' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color black! ! !TTSampleFontMorph methodsFor: 'initialize' stamp: 'dgd 2/14/2003 22:40'! defaultBorderWidth "answer the default border width for the receiver" ^ 1! ! !TTSampleFontMorph methodsFor: 'initialize' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Color black! ! !TTSampleFontMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 18:43'! initialize "initialize the state of the receiver" super initialize. smoothing _ 4. self extent: 300 @ 300! ! !TTSampleStringMorph methodsFor: 'initialize' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color black! ! !TTSampleStringMorph methodsFor: 'initialize' stamp: 'dgd 2/14/2003 22:40'! defaultBorderWidth "answer the default border width for the receiver" ^ 0! ! !TTSampleStringMorph methodsFor: 'initialize' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ {Color magenta. Color yellow. Color orange. Color lightGray} atRandom! ! !TabbedPalette methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:40'! defaultBorderWidth "answer the default border width for the receiver" ^ 0! ! !TabbedPalette methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Color transparent! ! !TabbedPalette methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:08'! initialize "Initialize the receiver, which was just created via a call to the class's #basicNew" super initialize. "" pageSize _ self defaultPageSize. self removeEverything. tabsMorph _ IndexTabs new. self addMorph: tabsMorph! ! !TabbedPalette methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:07'! setInitialState super setInitialState. "" self layoutInset: 0. pageSize _ 156 @ 232! ! !Tetris methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightGray! ! !Tetris methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:26'! initialize "initialize the state of the receiver" super initialize. "" board _ TetrisBoard new game: self. self listDirection: #topToBottom; wrapCentering: #center; vResizing: #shrinkWrap; hResizing: #shrinkWrap; layoutInset: 3; addMorphBack: self makeGameControls; addMorphBack: self makeMovementControls; addMorphBack: self showScoreDisplay; addMorphBack: board. board newGame! ! !TetrisBlock methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:50'! defaultBounds ^ (2 @ 2) negated extent: 1 @ 1. ! ! !TetrisBlock methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Tetris colors atRandom! ! !TetrisBlock methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:50'! initialize "initialize the state of the receiver" super initialize. "" "keep this puppy out of sight" shapeInfo _ self class shapeChoices atRandom. baseCellNumber _ 4 atRandom + 2 @ 1. angle _ 4 atRandom! ! !TetrisBoard methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:42'! defaultBounds ^ 0 @ 0 extent: self numColumns @ self numRows * self cellSize + (1 @ 1) ! ! !TetrisBoard methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Color r: 0.8 g: 1.0 b: 1.0! ! !TextComponent methodsFor: 'initialization' stamp: 'dgd 2/14/2003 18:25'! initialize "initialize the state of the receiver" super initialize. self extent: 144 @ 42! ! !TextMorph methodsFor: 'visual properties' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Color black! ! !ClipboardMorph methodsFor: 'parts bin' stamp: 'dgd 2/14/2003 22:09'! initializeToStandAlone super initializeToStandAlone. "" self initialize. "" self extent: 200 @ 100. self backgroundColor: (Color r: 0.484 g: 1.0 b: 0.484). self setBalloonText: 'This shows the current contents of the text clipboard'. self newContents: Clipboard clipboardText! ! !ClipboardMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:33'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color r: 1.0 g: 0.355 b: 0.452! ! !ClipboardMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:36'! defaultBorderWidth "answer the default border width for the receiver" ^ 6! ! !ClipboardMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:24'! defaultColor "answer the default color/fill style for the receiver" ^ Color blue! ! !ThreadNavigationMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Color red lighter! ! !ThreadNavigationMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:28'! initialize "initialize the state of the receiver" super initialize. "" self layoutInset: 6; hResizing: #shrinkWrap; vResizing: #shrinkWrap; useRoundedCorners; ensureSuitableDefaults; addButtons! ! !TinyPaint methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Color veryVeryLightGray! ! !TinyPaint methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:53'! initialize "initialize the state of the receiver" super initialize. "" brushColor _ Color red. brushSize _ 3. self clear! ! !TransformMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightGreen! ! !TransformMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:39'! initialize "initialize the state of the receiver" super initialize. "" smoothing _ 1. transform _ MorphicTransform identity! ! !FlashSorterMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:27'! defaultColor "answer the default color/fill style for the receiver" ^ Color transparent! ! !TwoWayScrollPane methodsFor: 'initialization' stamp: 'dgd 2/14/2003 18:00'! createScrollBarNamed: aString | result | result _ ScrollBar new model: self slotName: aString. result borderWidth: 2; borderColor: #inset. ^ result! ! !TwoWayScrollPane methodsFor: 'initialization' stamp: 'dgd 2/14/2003 18:00'! createScroller | result | result _ TransformMorph new color: Color transparent. result offset: 0 @ 0. ^ result! ! !TwoWayScrollPane methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ #inset! ! !TwoWayScrollPane methodsFor: 'initialization' stamp: 'dgd 2/14/2003 18:03'! initialize "initialize the state of the receiver" super initialize. "" self addMorph: (yScrollBar _ self createScrollBarNamed: 'yScrollBar'); addMorph: (xScrollBar _ self createScrollBarNamed: 'xScrollBar'); addMorph: (scroller _ self createScroller). "" self extent: 150 @ 120! ! !URLMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:31'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightGray! ! !URLMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:53'! initialize "initialize the state of the receiver" super initialize. "" isBookmark _ false! ! !UpdatingRectangleMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color lightGray lighter! ! !UpdatingStringMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:44'! initialize "Initialie the receiver to have default values in its instance variables " super initialize. "" format _ #default. "formats: #string, #default" target _ getSelector _ putSelector _ nil. floatPrecision _ 1. growable _ true. stepTime _ 50. autoAcceptOnFocusLoss _ true. minimumWidth _ 8. maximumWidth _ 300! ! !ViewerEntry methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:32'! defaultColor "answer the default color/fill style for the receiver" ^ Color r: 1.0 g: 0.985 b: 0.985! ! !ViewerEntry methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:07'! initialize "initialize the state of the receiver" super initialize. "" self layoutInset: 0! ! !ViewerLine methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:32'! defaultColor "answer the default color/fill style for the receiver" ^ Color r: 1.0 g: 0.985 b: 0.985! ! !ViewerLine methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:32'! initialize "Initialize the receiver" super initialize. "" self layoutInset: 0! ! !ZASMScriptMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color blue! ! !ZASMScriptMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:40'! defaultBorderWidth "answer the default border width for the receiver" ^ 2! ! !ZASMScriptMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:32'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightBlue! ! !ZASMScriptMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:46'! initialize "initialize the state of the receiver" super initialize. "" somethingChanged _ true. self dragEnabled: true; layoutPolicy: TableLayout new; listDirection: #topToBottom; wrapCentering: #topLeft; hResizing: #shrinkWrap; vResizing: #shrinkWrap; layoutInset: 6; rubberBandCells: true! ! !ZASMStepsMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:32'! defaultColor "answer the default color/fill style for the receiver" ^ Color black! ! !ZoomAndScrollControllerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color transparent! ! !ZoomAndScrollControllerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:40'! defaultBorderWidth "answer the default border width for the receiver" ^ 0! ! !ZoomAndScrollControllerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:32'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightBlue! ! !ZoomAndScrollControllerMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 21:36'! initialize "initialize the state of the receiver" | displayer dataMorph | super initialize. "" hasFocus _ true. currentKeyDown _ Set new. upDownCodes _ Dictionary new. upDownCodes at: 126 put: #up; at: 125 put: #down; at: 123 put: #out; at: 124 put: #in. "arrow keys on the mac" self extent: 40 @ 40; vResizing: #rigid; hResizing: #spaceFill; setBalloonText: 'Drag in here to zoom, tilt and pan the page above'. dataMorph _ AlignmentMorph newColumn. dataMorph color: Color yellow; hResizing: #shrinkWrap; vResizing: #shrinkWrap. dataMorph on: #mouseDown send: #grabCameraPositionEvent:morph: to: self. displayer _ UpdatingStringMorph new getSelector: #cameraPointRounded; target: self; growable: true; putSelector: nil. dataMorph addMorph: displayer lock. displayer _ UpdatingStringMorph new getSelector: #cameraScale; target: self; growable: true; floatPrecision: 0.001; putSelector: nil. dataMorph addMorph: displayer lock. self addMorph: dataMorph! ! !ZoomAndScrollMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:35'! defaultBorderColor "answer the default border color/fill style for the receiver" ^ Color red! ! !ZoomAndScrollMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:32'! defaultColor "answer the default color/fill style for the receiver" ^ Color lightGray! ! !ZoomAndScrollMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 20:32'! initialize "initialize the state of the receiver" super initialize. "" usingBalloon _ true. self createInteriorTransform ! ! !ZoomMorph methodsFor: 'initialization' stamp: 'dgd 2/14/2003 22:32'! defaultColor "answer the default color/fill style for the receiver" ^ Color transparent! ! ZoomMorph removeSelector: #initialize! !ZoomMorph reorganize! ('as yet unclassified' zoomFromMorph:toMorph:andThen: zoomTo:) ('testing' stepTime) ('stepping and presenter' step) ('initialization' defaultColor) ! !ZoomAndScrollMorph reorganize! ('as yet unclassified' changeOffsetBy: changeOffsetTo: changeScaleTo: changeTiltFactor: changeZoomFactor: getTiltFactor getZoomFactor panImageBy: scaleImageBy: tiltImageBy:) ('initialization' createInteriorTransform defaultBorderColor defaultColor initialize) ('scripting' cameraPoint cameraPoint: myTransformMorph offsetX offsetX: offsetY offsetY: scale scale:) ('drag and drop') ('misc' step stepTime) ('dropping/grabbing' acceptDroppingMorph:event: wantsDroppedMorph:event:) ('world state' extent:) ! !ZoomAndScrollControllerMorph reorganize! ('as yet unclassified' cameraPoint cameraPoint: cameraPointRounded cameraScale cameraScale: changeKeys currentCameraVersion deadZoneWidth doProgrammedMoves editAScript fractionLeftInMove: grabCameraPositionEvent:morph: patchOldVersion1 pauseProgrammedMoves resumeProgrammedMoves runAScript saveScript:as: setProgrammedMoves: target: targetScriptDictionary turnToPage:position:scale:transition:) ('event handling' handlesKeyboard: handlesMouseDown: handlesMouseOver: hasFocus keyDown: keyStroke: keyUp: mouseDown: mouseEnter: mouseLeave: mouseMove: mouseUp:) ('testing' stepTime) ('initialization' defaultBorderColor defaultBorderWidth defaultColor initialize) ('drawing' drawOn:) ('menus' addCustomMenuItems:hand:) ('stepping and presenter' step) ! ZASMStepsMorph removeSelector: #initialize! !ZASMScriptMorph reorganize! ('as yet unclassified' compileScript decompileScript:named:for: fixup saveScript) ('dropping/grabbing' acceptDroppingMorph:event: wantsDroppedMorph:event:) ('layout' layoutChanged) ('stepping and presenter' wantsSteps) ('initialization' defaultBorderColor defaultBorderWidth defaultColor initialize) ('misc' step stepTime) ('menu & halo' addCustomMenuItems:hand:) ! ZASMCameraMarkMorph removeSelector: #initialize! !ViewerLine reorganize! ('access' elementSymbol elementSymbol: entryType) ('slot' slotName) ('initialization' defaultColor initialize) ! UpdatingRectangleMorph removeSelector: #initialize! !UpdatingRectangleMorph reorganize! ('accessing' contents contents: getSelector: putSelector putSelector: target target: userEditsAllowed) ('stepping') ('target access' readFromTarget) ('setting' setTargetColor: valueProvider) ('copying' veryDeepFixupWith: veryDeepInner:) ('testing' stepTime) ('stepping and presenter' step) ('event handling' handlesMouseDown: mouseUp:) ('initialization' defaultBorderColor) ! !URLMorph reorganize! ('accessing' book book: isBookmark isBookmark: page url) ('drawing' drawOn:) ('event handling' handlesMouseDown: handlesMouseUp: mouseDown: mouseUp:) ('initialization' defaultColor initialize) ('updating' pageHasChanged:) ('private' enclosingBook enclosingPage label:font: setURL:page: thumbnailOrNil) ! !TwoWayScrollPane reorganize! ('initialization' createScrollBarNamed: createScroller defaultBorderColor initialize) ('access' scroller wantsSlot) ('geometry' extent: fitContents leftoverScrollRange resizeScrollBar resizeScroller scrollBarFills: scrollBy: scrollIntoView:extra: setScrollDeltas totalScrollRange) ('retractable scroll bar' hideOrShowScrollBar hideOrShowScrollBar:forRange: xScrollerHeight) ('pane events') ('scroll bar events' scrollBarMenuButtonPressed: shiftedYellowButtonActivity unshiftedYellowButtonActivity xScrollBarMenuButtonPressed: xScrollBarValue: yScrollBarMenuButtonPressed: yScrollBarValue: yellowButtonActivity:) ('menu' addCustomMenuItems:hand: getMenu: leftOrRight menuTitleSelector: retractableOrNot scrollBarOnLeft:) ('layout' doLayoutIn:) ('event handling' handlesMouseDown: handlesMouseOver: keyStroke: mouseDown: mouseEnter: mouseLeave: mouseMove: mouseUp:) ('geometry testing' containsPoint:) ('accessing' colorForInsets) ('events-processing' rejectsEvent:) ! FlashSorterMorph removeSelector: #initialize! !TransformMorph reorganize! ('initialization' defaultColor initialize) ('accessing' angle angle: colorForInsets offset offset: scale scale: setOffset:angle:scale: smoothing: smoothingOff smoothingOn transform transform:) ('drawing' drawSubmorphsOn:) ('geometry' localSubmorphBounds localVisibleSubmorphBounds) ('change reporting' invalidRect:from:) ('events') ('menu') ('layout' fullBounds submorphBounds) ('halos and balloon help' wantsHaloFromClick) ('dropping/grabbing' grabTransform) ('event handling' transformFrom:) ('geometry testing' containsPoint:) ('private' privateFullMoveBy:) ('menus' addCustomMenuItems:hand:) ! InternalThreadNavigationMorph removeSelector: #initialize! ThreadNavigationMorph removeSelector: #initialColor! !ThreadNavigationMorph reorganize! ('as yet unclassified' addButtons colorForButtons currentIndex deleteCurrentPage ensureSuitableDefaults exitTheSequence firstPage fontForButtons lastPage listOfPages: loadPage loadPageWithProgress makeButton:balloonText:for: nextPage previousPage showMenuFor:event:) ('buttons' buttonExit buttonFirst buttonForward buttonLast buttonPrevious) ('stepping and presenter' step) ('initialization' defaultColor initialize) ('testing' stepTime wantsSteps) ('WiW support' morphicLayerNumber) ! !TextMorph reorganize! ('initialization' beAllFont: initialize setTextStyle: string:fontName:size: string:fontName:size:wrap:) ('accessing' asText autoFit: backgroundColor backgroundColor: borderWidth: contents contents: contents:wrappedTo: contentsAsIs: contentsWrapped: crAction crAction: editor fontName:size: getCharacters getFirstCharacter hasTranslucentColor isAutoFit isWrapped margins margins: newContents: setCharacters: setFirstCharacter: text textColor textColor: textStyle userString wrapFlag:) ('alignment' centered justified leftFlush rightFlush) ('drawing' areasRemainingToFill: debugDrawLineRectsOn: drawNullTextOn: drawOn:) ('editing' acceptContents acceptOnCR cancelEdits chooseAlignment chooseEmphasis chooseEmphasisOrAlignment chooseFont chooseStyle enterClickableRegion: handleEdit: handleInteraction:fromEvent: hasUnacceptedEdits: passKeyboardFocusTo: xeqLinkText:withParameter:) ('printing' fullPrintOn:) ('geometry' bounds container defaultLineHeight extent: minimumExtent textBounds) ('menu' autoFitOnOff autoFitString changeMargins: changeTextColor followCurve reverseCurveDirection setCurveBaseline: shiftedYellowButtonActivity wrapOnOff wrapString yellowButtonActivity) ('linked frames' addPredecessor: addSuccessor: firstCharacterIndex firstInChain isLinkedTo: lastCharacterIndex predecessor recomposeChain startingIndex successor withSuccessorsDo:) ('private' adjustLineIndicesBy: clippingRectangle composeToBounds compositionRectangle fit installEditor installEditorToReplace: paragraph paragraphClass predecessor:successor: predecessorChanged privateMoveBy: privateOwner: privateRemoveMorph: releaseEditor releaseParagraph releaseParagraphReally selectionChanged setDefaultContentsIfNil setPredecessor: setSuccessor: text:textStyle: text:textStyle:wrap:color:predecessor:successor: updateFromParagraph) ('object fileIn') ('containment' fillingOnOff occlusionsOnOff recognizerArena setContainer:) ('anchors' adjustTextAnchor: anchorMorph:at:type:) ('copying' copy updateReferencesUsing: veryDeepFixupWith: veryDeepInner:) ('scripting access' getAllButFirstCharacter setAllButFirstCharacter:) ('card & stack' newContents:fromCard: setNewContentsFrom:) ('genie-processing' defaultGestureDictionaryOrName gestureHandler) ('genie-dispatching' handleGesture: lastGesture lastGesture: setAlignment:) ('classification' isTextMorph) ('events-processing' handleKeystroke: handleMouseMove:) ('testing' basicType) ('caching' loadCachedState releaseCachedState) ('visual properties' defaultColor fillStyle fillStyle:) ('geometry testing' containsPoint:) ('change reporting' ownerChanged) ('event handling' handlesKeyboard: handlesMouseDown: hasFocus keyStroke: keyboardFocusChange: mouseDown: mouseMove: mouseUp: wouldAcceptKeyboardFocusUponTab) ('layout' acceptDroppingMorph:event: layoutChanged) ('submorphs-add/remove' addMorphFront:fromWorldPosition: delete goBehind) ('player' currentDataValue variableDocks) ('e-toy support' configureForKids getNumericValue setNumericValue:) ('menus' addCustomMenuItems:hand:) ('objects from disk' convertToCurrentVersion:refStream:) ('card in a stack' couldHoldSeparateDataForEachInstance) ! TetrisBoard removeSelector: #initialize! !TetrisBoard reorganize! ('initialization' defaultBounds defaultColor) ('stepping') ('button actions' dropAllTheWay moveLeft moveRight newGame pause rotateAntiClockWise rotateClockWise running) ('other' checkForFullRows storePieceOnBoard) ('data' emptyAt: numColumns numRows) ('accessing' game: score:) ('as yet unclassified' cellSize originForCell:) ('misc' step stepTime) ! !Tetris reorganize! ('initialization' buildButtonTarget:label:selector:help: defaultColor initialize makeGameControls makeMovementControls rowForButtons showScoreDisplay wrapPanel:label:) ('events' score:) ('event handling' handlesKeyboard: handlesMouseOver: keyStroke: mouseEnter:) ! !TabbedPalette reorganize! ('initialization' addTabFor:font: addTabForBook: addTabForBook:withBalloonText: defaultBorderWidth defaultColor defaultPageSize initialize newTabs: setInitialState) ('scraps tab' hasScrapsTab scrapsBook showScrapsTab) ('viewer tab' viewMorph:) ('palette menu' addMenuTab) ('misc menu items' becomeStandardPalette recolorTabs showNoPalette showNoPaletteAndHighlightTab: sortTabs:) ('user-interface' selectTab: selectTabNamed: selectTabOfBook: tabMorphs tabNamed:) ('miscellaneous' currentPalette tabsMorph) ('dropping/grabbing' wantsDroppedMorph:event:) ('menu' addBookMenuItemsTo:hand:) ('other' defersHaloOnClickTo: succeededInRevealing:) ('submorphs-add/remove' replaceSubmorph:by:) ('navigation' transitionSpecFor:) ! TTSampleStringMorph removeSelector: #initialize! !TTSampleStringMorph reorganize! ('initialize' defaultBorderColor defaultBorderWidth defaultColor initializeString) ('accessing' addOptionalHandlesTo:box: font: string string:) ('drawing' drawOn:) ('private' computeTransform) ('geometry') ('menus' edit howTo loadFromURL loadFromURL:) ('menu' addCustomMenuItems:hand:) ('geometry testing' containsPoint:) ('parts bin' initializeToStandAlone) ! !TTSampleFontMorph reorganize! ('initialize' defaultBorderColor defaultBorderWidth defaultColor open) ('accessing' doesBevels font font: smoothing smoothing: transform) ('geometry' extent: position:) ('drawing' areasRemainingToFill: drawCharactersOn: drawOn:) ('menu' createSample getSmoothingLevel nextSmoothingLevel) ('private' computeTransform privateMoveBy:) ('copying' veryDeepFixupWith: veryDeepInner:) ('initialization' initialize openInWorld) ('rotate scale and flex' newTransformationMorph) ('updating' changed) ('halos and balloon help' addOptionalHandlesTo:box: balloonHelpTextForHandle:) ('testing' canDrawBorder:) ('menus' addCustomMenuItems:hand:) ! !PartsWindow reorganize! ('as yet unclassified' adjustBookControls book: closeEditing invokePartsWindowMenu openEditing saveAsCustomPartsBin sortPages toggleStatus) ('initialization' defaultColor initialize) ('label' setLabelWidgetAllowance) ('menu' addCustomMenuItems:hand:) ('resize/collapse' wantsExpandBox) ('geometry' extent:) ! !PDAMorph reorganize! ('parts bin' initializeToStandAlone) ('testing' stepTime wantsSteps) ('stepping and presenter' step) ('initialization' defaultColor initialize) ('stepping' wantsStepsWhenCollapsed) ! !PDAChoiceMorph reorganize! ('drawing' drawOn:) ('accessing' color color:) ! !PopUpChoiceMorph reorganize! ('copying' veryDeepFixupWith: veryDeepInner:) ('as yet unclassified' actionSelector actionSelector: arguments arguments: getItemsArgs getItemsArgs: getItemsSelector getItemsSelector: target target:) ('event handling' handlesMouseDown: mouseDown:) ('initialization' initialize) ! !MenuItemMorph reorganize! ('initialization' defaultBounds defaultColor deleteIfPopUp: initialize) ('accessing' allWordingsNotInSubMenus: arguments arguments: contentString contentString: contents: contents:withMarkers: contents:withMarkers:inverse: hasSubMenu hasSubMenu: isEnabled isEnabled: isStayUpItem itemWithWording: selector selector: subMenu subMenu: target target:) ('drawing' drawOn:) ('events' activateOwnerMenu: activateSubmenu: deselectTimeOut: invokeWithEvent:) ('layout' minHeight minWidth) ('private' deselectItem notObsolete offImage onImage) ('copying' veryDeepFixupWith: veryDeepInner:) ('selecting' deselect: isSelected: select:) ('grabbing') ('meta actions') ('layout-properties' hResizing vResizing) ('halos and balloon help' wantsHaloFromClick) ('events-processing' handleMouseUp:) ('event handling' handlesMouseDown: handlesMouseOver: handlesMouseOverDragging: mouseDown: mouseEnter: mouseEnterDragging: mouseLeave: mouseLeaveDragging: mouseMove: mouseUp:) ('button' doButtonAction) ('e-toy support' adaptToWorld:) ('meta-actions' duplicateMorph:) ('dropping/grabbing' aboutToBeGrabbedBy:) ! !BorderedStringMorph reorganize! ('initialization' initWithContents:font:emphasis: initialize) ('drawing' drawOn:) ('accessing' measureContents) ! !StringMorph reorganize! ('initialization' defaultColor initWithContents:font:emphasis: initialize) ('accessing' contents contents: contentsClipped: fitContents font font: font:emphasis: fontName:size: fontToUse handsWithMeForKeyboardFocus interimContents: measureContents minimumWidth setWidth: userString valueFromContents) ('drawing' drawOn: lookTranslucent) ('editing' acceptContents acceptValue: cancelEdits doneWithEdits launchMiniEditor: lostFocusWithoutAccepting wantsKeyboardFocusOnShiftClick) ('printing' balloonTextForClassAndMethodString balloonTextForLexiconString balloonTextForMethodString fullPrintOn: printOn:) ('layout' fullBounds minHeight) ('font' emphasis:) ('parts bin' initializeToStandAlone) ('menu' changeEmphasis changeFont) ('event handling' handlesMouseDown: hasFocus mouseDown: wouldAcceptKeyboardFocus) ('halos and balloon help' addOptionalHandlesTo:box: boundsForBalloon) ('menus' addCustomMenuItems:hand:) ! !SoundLoopMorph reorganize! ('playing' controlRate doControl mixSampleCount:into:startingAt:leftVol:rightVol: playSampleCount:into:startingAt: positionCursor reset samplesRemaining samplingRate) ('as yet unclassified' addCursorMorph allowSubmorphExtraction buildSound play) ('testing' stepTime) ('stepping and presenter' step stop) ('initialization' defaultBorderWidth defaultBounds defaultColor initialize) ('dropping/grabbing' wantsDroppedMorph:event:) ('geometry' extent:) ! !SoundEventMorph reorganize! ('as yet unclassified' sound:) ('piano rolls' addMorphsTo:pianoRoll:eventTime:betweenTime:and: encounteredAtTime:inScorePlayer:atIndex:inEventTrack:secsPerTick: justDroppedIntoPianoRoll:event:) ('initialization' defaultColor initialize) ('caching' releaseCachedState) ! SorterTokenMorph removeSelector: #initialize! !Slider reorganize! ('initialize' initializeSlider) ('access' descending descending: pagingArea sliderColor sliderColor: sliderShadowColor thumbColor wantsSlot) ('geometry' computeSlider extent: roomToMove sliderExtent sliderThickness totalSliderArea) ('scrolling' scrollAbsolute:) ('model access' setValue: value:) ('other events' mouseDownInSlider: mouseUpInSlider:) ('evaluating' value) ('initialization' defaultBorderColor defaultBorderWidth defaultBounds defaultColor initialize) ! !MultiuserTinyPaint reorganize! ('initialization' defaultColor initialize) ('events') ('menu' addCustomMenuItems:hand: brushColor:hand: clear fill: penSize:hand: setPenColor: setPenSize:) ('private' createDrawStateFor:) ('event handling' handlesMouseDown: mouseDown: mouseMove:) ! !MorphThumbnail reorganize! ('copying' veryDeepFixupWith: veryDeepInner:) ('as yet unclassified' computeThumbnail grabOriginal morphRepresented: revealOriginal smaller) ('parts bin' isPartsDonor isPartsDonor: partRepresented) ('menus' addCustomMenuItems:hand:) ('naming' innocuousName) ('thumbnail' morphRepresented representativeNoTallerThan:norWiderThan:thumbnailHeight:) ('initialization' defaultColor initialize) ! !BookPageThumbnailMorph reorganize! ('fileIn/Out' objectsInMemory) ('copying' veryDeepFixupWith: veryDeepInner:) ('as yet unclassified' bookMorph computeThumbnail doPageFlip inBook: makeFlexMorphFor: page page: pageMorph:inBook: pageNumber:inBook: setPageSound: setPageVisual: smaller toggleBookmark) ('initialization' defaultColor initialize) ('event handling' handlesMouseDown: mouseDown:) ('piano rolls' addMorphsTo:pianoRoll:eventTime:betweenTime:and: encounteredAtTime:inScorePlayer:atIndex:inEventTrack:secsPerTick: justDroppedIntoPianoRoll:event: pauseFrom: resetFrom: resumeFrom:) ('objects from disk' objectForDataStream:) ('menu' addCustomMenuItems:hand:) ! SketchEditorMorph removeSelector: #initialize! !SketchEditorMorph reorganize! ('initialization' defaultColor initializeFor:inBounds:pasteUpMorph: initializeFor:inBounds:pasteUpMorph:paintBoxPosition:) ('morphic') ('access' enclosingPasteUpMorph hostView painting palette registrationPoint registrationPoint: ticksToDwell ticksToDwell:) ('start & finish' addRotationScaleHandles afterNewPicDo:ifNoBits: cancel: cancelOutOfPainting deleteSelfAndSubordinates deliverPainting:evt: prepareToPaint: save: setRotations: undo: verifyState:) ('actions & preps' clear ellipse: erase: erasePrep: fill: flipHoriz: flipVert: forward:direction: line: notes paint: pickup: pickupMouseUp: polyEdit: polyEditing polyEditing: polyFreeze polyNew: polygon: rect: render: replaceOnly: restoreRect: rotateBy: rotateDone: rotateScalePrep: scaleBy: shiftConstrainPoint: showDirType stamp: star: toggleDirType:in:) ('copying' veryDeepFixupWith: veryDeepInner:) ('palette handling' cancelPainting:evt: clearPainting: dimTheWindow paintBoxChanged: paletteAttached: paletteDetached: savePainting:evt: undoPainting:evt:) ('Nebraska support' get:for: getActionFor: getBrushFor: getColorFor: getCursorFor: getNibFor: set:for:to: valuesForHand: valuesForHandIfPresent:) ('event handling' handlesMouseDown: handlesMouseOver: handlesMouseOverDragging: mouseDown: mouseEnter: mouseEnterDragging: mouseLeave: mouseLeaveDragging: mouseMove: mouseUp:) ('accessing' forwardDirection) ('e-toy support' rotationStyle) ('drawing' drawOn:) ('WiW support' morphicLayerNumber) ! !EToyHierarchicalTextMorph reorganize! ('as yet unclassified' adjustSubmorphPositions indentingItemClass) ('pane events' keyStroke:) ('selection' selectedMorph:) ('initialization' defaultColor initialize) ('geometry' extent:) ! !SelectionMorph reorganize! ('initialization' defaultBorderColor defaultBorderWidth defaultColor extendByHand: extendByHandPlus: initialize) ('geometry' bounds: extent:) ('drawing' drawOn:) ('drag and drop') ('halo commands' addOrRemoveItems: alignBottomEdges alignCentersHorizontally alignCentersVertically alignLeftEdges alignRightEdges alignTopEdges doDup:fromHalo:handle: organizeIntoColumn organizeIntoRow) ('private' doneExtending privateFullMoveBy: selectSubmorphsOf: selectedItems setOtherSelection: setSelectedItems:) ('undo' borderColorForItems: borderWidthForItems: fillStyleForItems: refineUndoTarget:selector:arguments:in: undoMove:redo:owner:bounds:predecessor:) ('halos and balloon help' addHandlesTo:box: addOptionalHandlesTo:box: balloonHelpTextForHandle: hasHalo:) ('accessing' borderColor: borderWidth:) ('submorphs-add/remove' dismissViaHalo) ('menus' addCustomMenuItems:hand: maybeAddCollapseItemTo:) ('dropping/grabbing' aboutToBeGrabbedBy: justDroppedInto:event: slideToTrash:) ('visual properties' fillStyle:) ! !MethodMorph reorganize! ('as yet unclassified' installRollBackButtons:) ('scrolling' showScrollBar) ('testing' stepTime) ('stepping and presenter' step) ('initialization' initialize) ! !AlansTextPlusMorph reorganize! ('as yet unclassified' addGeeMailMenuItemsTo: adjustPasteUpSize allTextPlusMorphs convertToBook keepScrollBarAlways keepScrollbarString makeBookStyle: makeGalleyStyle mouseUp:inMorph: pageRectanglesForPrinting scrollSelectionIntoView:alignTop:inTextMorph: scrollToPage: scrollToYAbsolute: showPageBreaksString toggleKeepScrollbar togglePageBreaks) ('menu' addCustomMenuItems:hand: getMenu:) ('layout' doLayoutIn:) ('geometry' extraScrollRange) ('initialization' defaultColor initialize initializeThePasteUp) ('scrolling' hideScrollBar) ('event handling' handlesMouseDown:) ('dropping/grabbing' wantsDroppedMorph:event:) ('scroll bar events' scrollBarValue:) ('menus' printPSToFile) ('access' wantsSlot) ! ScriptEditorMorph removeSelector: #setDefaultBorderCharacteristics! !ScriptEditorMorph reorganize! ('initialization' defaultBorderColor defaultBorderWidth defaultColor initialize phrase: playerScripted: setMorph: setMorph:scriptName: updateHeader updateToPlayer:) ('access' morph myMorph scriptInstantiation) ('dropping/grabbing' assureParameterTilesValid buttonRowForEditor prepareToUndoDropOf: removeSpaces repelsMorph:event: setParameterType: trackDropZones wantsDroppedMorph:event: willingToBeDiscarded) ('buttons' actuallyDestroyScript addDestroyButtonTo: addDismissButtonTo: addYesNoToHand chooseFrequency chooseTrigger destroyScript dismiss editMethodDescription hasParameter install installWithNewLiteral makeIsolatedCodePane playerScripted replaceRow1 scriptName scriptTitle scriptee showSourceInScriptor tryMe updateStatus updateStatusMorph:) ('save & revert' revertToTileVersion saveScriptVersion savedTileVersionsCount) ('other' addParameter becomeTextuallyCoded ceaseHavingAParameter codeString explainStatusAlternatives handUserButtonDownTile handUserButtonUpTile handUserParameterTile handUserRandomTile handUserTileForSelf hasScriptInvoking:ofPlayer: hasScriptReferencing:ofPlayer: hibernate insertUniversalTiles insertUniversalTilesForClass:selector: isEmpty isTextuallyCoded methodNodeMorph methodString modernize offerScriptorMenu recompileScript recreateScript reinsertSavedTiles: renameScript renameScriptTo: revertScriptVersion setScriptNameTo: setTimeStamp storeCodeOn:indent: tearOfButtonToFireScript tileRows timeStamp toggleWhetherShowingTiles unhibernate userScriptObject) ('private' addNewRow insertTileRow:after: removeEmptyRows rowInsertionIndexFor: scriptEdited) ('textually-coded scripts' showingMethodPane showingMethodPane:) ('copying' veryDeepFixupWith: veryDeepInner:) ('frequency' setFrequencyTo: typeInFrequency) ('tiles from method' fromExistingMethod:forPlayer:) ('drawing' drawOn:) ('testing' stepTime typeForParameter) ('menu' autoFitOnOff autoFitString) ('e-toy support' adaptToWorld: isCandidateForAutomaticViewing isTileEditor objectViewed) ('event handling' handlesMouseOver: handlesMouseOverDragging: mouseEnter: mouseEnterDragging: mouseLeave: mouseLeaveDragging:) ('scripting' bringUpToDate isTileScriptingElement) ('menus' addCustomMenuItems:hand:) ('submorphs-add/remove' dismissViaHalo) ('caching' releaseCachedState) ('geometry' extent:) ('submorphs-accessing' indexOfMorphAbove:) ('layout' acceptDroppingMorph:event:) ! !ScorePlayerMorph reorganize! ('initialization' closeMIDIPort defaultBorderWidth defaultColor initialize onScorePlayer:title: openMIDIFile openMIDIPort) ('accessing' scorePlayer) ('layout' makeControls makeMIDIController: makePianoRoll makeRow panAndVolControlsFor: rateControl scrollControl showResumeButtonInTheWorld standaloneResumeButton trackControlsFor: trackNumAndMuteButtonFor: volumeControl) ('controls' atTrack:from:selectInstrument: rewind setLogRate:) ('menu' instrumentChoicesForTrack: invokeMenu makeAPauseEvent: saveAsAIFF saveAsSunAudio saveAsWAV updateInstrumentsFromLibraryExcept:) ('stepping') ('rounding' wantsRoundedCorners) ('stepping and presenter' step) ! !ScaleMorph reorganize! ('initialization' defaultBorderWidth defaultColor initialize start:stop:minorTick:minorTickLength:majorTick:majorTickLength: start:stop:minorTick:minorTickLength:majorTick:majorTickLength:caption:tickPrintBlock: start:stop:minorTick:minorTickLength:majorTick:majorTickLength:caption:tickPrintBlock:labelsAbove:captionAbove:) ('drawing' buildLabels drawMajorTicksOn: drawMinorTicksOn: drawOn: drawTicksOn:) ('accessing' caption caption: captionAbove: labelsAbove: majorTickLength: minorTickLength: start: stop: tickPrintBlock:) ('geometry' checkExtent: extent:) ('object fileIn') ('stepping and presenter' start stop) ('objects from disk' convertToCurrentVersion:refStream:) ! !SameGameBoard reorganize! ('initialization' defaultBorderColor defaultBorderWidth defaultColor initialize resetBoard) ('preferences' preferredColumns preferredRows preferredTileTypes) ('accessing' actionSelector actionSelector: columns columns: columns:rows: protoTile protoTile: rows rows: selectionCount target target: tileAt:) ('geometry' extent:) ('dropping/grabbing') ('stepping') ('actions' collapseColumn:fromRow: collapseColumns: deselectSelection findSelection hint removeColumn: removeSelection selectTilesAdjacentTo: tileClickedAt:newSelection:) ('private' adjustTiles tilesRemaining) ('undo' capturedState undoFromCapturedState:) ('layout' acceptDroppingMorph:event:) ('stepping and presenter' step) ('testing' stepTime) ! !SameGame reorganize! ('access' board board: helpString helpText scoreDisplay) ('actions' help: newGame selection) ('initialization' buildButton:target:label:selector: defaultColor initialize makeControls wrapPanel:label:) ! ProjectSorterMorph removeSelector: #myColor! !KidNavigationMorph reorganize! ('as yet unclassified' addButtons amountToShowWhenSmall colorForButtons fontForButtons) ('event handling' handlesMouseDown: mouseEnter: mouseLeave: mouseUp:) ('accessing' balloonText) ('initialization' initialize) ('stepping and presenter' step) ('the actions' quitSqueak) ! !ProjectNavigationMorph reorganize! ('as yet unclassified' addButtons amountToShowWhenSmall checkForRebuild colorForButtons currentNavigatorVersion fontForButtons inFlapsSuppressedMode inFullScreenMode makeButton:balloonText:for: makeTheButtons orientationString orientedVertically positionVertically retractIfAppropriate showMenuFor:event: toggleOrientation) ('the buttons' buttonFind buttonFlaps buttonFullScreen buttonGoTo buttonNewProject buttonNewer buttonNext buttonPaint buttonPrev buttonPublish buttonQuit buttonShare buttonSound buttonTell buttonUndo findSomethingOnSuperSwiki speakerIcon) ('the actions' doFindButtonMenuEvent: doNewPainting doPublishButtonMenuEvent: editProjectInfo findAProject findAProjectSimple findAnything fullScreenOff fullScreenOn getNewerVersionIfAvailable getSoundVolume gotoAnother newProject nextProject previousProject publishDifferent publishProject publishProjectAs publishStyle:forgetURL:withRename: quitSqueak setSoundVolume: shareThisWorld soundDownEvt:morph: soundStillDownEvt:morph: soundUpEvt:morph: tellAFriend toggleFlapsSuppressed undoLastCommand) ('menus' addCustomMenuItems:hand:) ('testing' stepTime wantsSteps) ('event handling' handlesMouseOver: mouseEnter: mouseLeave:) ('dropping/grabbing' justDroppedInto:event:) ('accessing' color:) ('initialization' defaultColor initialize openInWorld:) ('stepping and presenter' step) ('WiW support' morphicLayerNumber) ! !PluggableButtonMorph reorganize! ('initialize-release' on:getState:action:label:menu:) ('arguments' arguments: argumentsProvider:argumentsSelector:) ('accessing' action: actionSelector askBeforeChanging askBeforeChanging: feedbackColor: label label: label:font: model: offColor offColor: onColor:offColor: performAction shortcutCharacter shortcutCharacter: triggerOnMouseDown triggerOnMouseDown:) ('drawing' drawOn:) ('events' updateFeedbackForEvt:) ('updating' update:) ('private' getMenu: getModelState invokeMenu:) ('copying' veryDeepFixupWith: veryDeepInner:) ('event handling' handlesMouseDown: mouseDown: mouseMove: mouseUp:) ('initialization' defaultBorderWidth defaultColor initialize) ! !PianoRollScoreMorph reorganize! ('initialization' defaultBorderWidth defaultColor initialize on: updateLowestNote) ('accessing' beatsPerMeasure: movieClipPlayer movieClipPlayer: notePerBeat: score scorePlayer selection selection: timeScale timeSignature:over:) ('drawing' addNotes drawMeasureLinesOn: drawOn: drawStaffOn: isBlackKey: rebuildFromScore) ('geometry' contractTime expandTime extent: midiKeyForY: tickTimeAtCursor timeForX: xForTime: yForMidiKey:) ('submorphs-add/remove') ('event handling' handlesMouseDown: mouseDown: mouseMove: mouseUp:) ('dropping/grabbing') ('menu' addKeyboard addMovieClipPlayer beatLinesOnOff invokeScoreMenu: measureLinesOnOff) ('editing' appendEvent:fullDuration: copySelection cutSelection deleteSelection insertSelection insertTransposed) ('scrolling' autoScrollForX: goToTime: moveCursorToTime: notesInRect:) ('stepping') ('layout' acceptDroppingMorph:event: fullBounds layoutChanged) ('private' privateRemoveMorph:) ('stepping and presenter' step) ('menus' addCustomMenuItems:hand:) ('testing' stepTime) ! !MIDIPianoKeyboardMorph reorganize! ('as yet unclassified' closeMIDIPort makeMIDIController: openMIDIPort turnOffNote turnOnNote:) ('simple keyboard' initialize mouseDownPitch:event:noteMorph: mouseUpPitch:event:noteMorph:) ('menus' addCustomMenuItems:hand:) ! !NebraskaServerMorph reorganize! ('initialization' defaultColor initialize rebuild setColorsAndBorder toggleFull) ('stepping and presenter' step) ('structure') ('drawing' updateCurrentStatusString) ('accessing' currentBacklogString currentStatusString server) ('updating' update:) ('submorphs-add/remove' delete) ('testing' stepTime) ! !MinesBoard reorganize! ('initialization' defaultBorderColor defaultBorderWidth defaultColor initialize resetBoard setMines:) ('actions' blowUp clearMines: countFlags: findMines: selectTilesAdjacentTo: stepOnTile: tileClickedAt:newSelection:modifier:) ('preferences' preferredColumns preferredMines preferredRows) ('accessing' actionSelector actionSelector: adjustTiles protoTile protoTile: target target: tileAt:) ('geometry' extent:) ('testing' stepTime) ('stepping and presenter' step) ! !GraphicalMenu reorganize! ('as yet unclassified' argument argument: cancel downArrowHit initializeFor:withForms:coexist: okay selector selector: upArrowHit updateThumbnail) ('initialization' defaultBorderColor defaultBorderWidth defaultColor initialize) ! !FreeCellBoard reorganize! ('initialization' defaultBorderWidth defaultColor initialize pickGame: resetBoard resetFreeCells resetHomeCells resetStacks) ('layout' cardCell cellsRow cellsRowSpacer freeCell freeCells homeCell homeCells layout stacks stacksRow) ('private' autoMoveCardsHome isPlayableCardInHomeCells: maxDraggableStackSize: performActionSelector: visiblyMove:to:) ('actions' acceptCard:onStack: acceptSingleCard:on: cardMoved cardMovedHome doubleClickInStack:OnCard: dragCard:fromHome: dragCard:fromStack: inAutoMove) ('accessing' actionSelector: cardDeck hardness hardness: target:) ('undo' captureStateBeforeGrab capturedState rememberUndoableAction:named: undoFromCapturedState:) ('hardness' addHardness makeHarder:rand:toDo:) ('drawing' drawOn:) ('card in a stack' stack) ! !FloatingBookControlsMorph reorganize! ('WiW support' morphicLayerNumber) ('testing' stepTime wantsSteps) ('stepping and presenter' step) ('initialization' defaultBorderColor defaultBorderWidth initialize) ! !FillInTheBlankMorph reorganize! ('initialization' defaultBorderWidth defaultColor initialize responseUponCancel: setPasswordQuery:initialAnswer:answerHeight:acceptOnCR: setQuery:initialAnswer:answerExtent:acceptOnCR: setQuery:initialAnswer:answerHeight:acceptOnCR:) ('accessing' response response: selectionInterval) ('menu' accept cancel codePaneMenu:shifted:) ('invoking' getUserResponse) ('object fileIn') ('event handling' handlesMouseDown: mouseDown:) ('grabbing/dropping') ('submorphs-add/remove' delete) ('objects from disk' convertToCurrentVersion:refStream:) ('message handling' perform:orSendTo:) ('dropping/grabbing' undoGrabCommand) ('WiW support' morphicLayerNumber) ! !EventRecorderMorph reorganize! ('initialization' addButtons addJournalFile addVoiceControls buttonFor: caption:voiceRecorder:tape: defaultBorderColor defaultBorderWidth defaultColor initialize makeARowForButtons makeASpacer makeStatusLight) ('accessing' button: recTime) ('commands' button condense play record setStatusLight: shrink) ('pause/resume' pauseIn: resumeIn: resumePlayIn: resumeRecordIn:) ('event handling' nextEventToPlay synchronize) ('fileIn/Out' checkTape convertV0Tape: readFrom: readFromV0: readFromV1: readTape readTape: writeCheck writeFileNamed: writeTape writeTape:) ('piano rolls' addMorphsTo:pianoRoll:eventTime:betweenTime:and: encounteredAtTime:inScorePlayer:atIndex:inEventTrack:secsPerTick: justDroppedIntoPianoRoll:event: myDurationInMS) ('stepping and presenter' step stop) ('testing' stepTime wantsSteps) ('events-processing' handleListenEvent:) ('menus' addCustomMenuItems:hand:) ! !EtoyLoginMorph reorganize! ('initialize' defaultBorderColor defaultBorderWidth defaultColor name:actionBlock:cancelBlock: rebuild) ('actions' doCancel doOK) ('building' buttonColor buttonNamed:action:color:help: cancelButton myFont okButton) ('initialization' initialize openInWorld:) ! !EToySenderMorph reorganize! ('as yet unclassified' checkOnAFriend currentBadgeVersion establishDropZone: fixOldVersion ipAddress ipAddress: killExistingChat mouseEnteredDZ mouseLeftDZ sendStatusCheck sendStatusReply startAudioChat startAudioChat: startChat startChat: startNebraskaClient startTelemorphic tellAFriend transmitStreamedObject: transmittedObjectCategory userName userName:userPicture:userEmail:userIPAddress: userPicture) ('dropping/grabbing' aboutToBeGrabbedBy: wantsDroppedMorph:event:) ('parts bin' initializeToStandAlone) ('stepping and presenter' step) ('layout' acceptDroppingMorph:event:) ('debug and other' installModelIn:) ('initialization' defaultBorderColor defaultBorderWidth defaultColor initialize) ! EToyProjectQueryMorph removeSelector: #setColorsAndBorder! EToyProjectRenamerMorph removeSelector: #setColorsAndBorder! !EToyProjectHistoryMorph reorganize! ('as yet unclassified' closeMyFlapIfAny jumpToProject mouseDown:in: mouseLeave:in: mouseMove:in: mouseUp:in: rebuild) ('initialization' defaultBorderColor defaultBorderWidth defaultColor initialize) ('stepping and presenter' step) ! !EToyListenerMorph reorganize! ('as yet unclassified' addNewObject:thumbForm:sentBy:ipAddress: mouseDownEvent:for: mouseUpEvent:for: rebuild startListening stopListening) ('initialization' defaultBorderColor defaultBorderWidth defaultColor initialize) ('submorphs-add/remove' delete) ('stepping and presenter' step) ! !EToyGateKeeperMorph reorganize! ('as yet unclassified' open rebuild) ('stepping and presenter' step) ('initialization' defaultBorderColor defaultBorderWidth defaultColor initialize) ! !EToyFridgeMorph reorganize! ('as yet unclassified' getChoice: groupToggleButton mouseEnterEither: mouseLeaveEither: noteRemovalOf: rebuild toggleChoice: transmittedObjectCategory trulyFlashIndicator:) ('event handling' handlesMouseDown: handlesMouseOver: handlesMouseOverDragging: mouseDown: mouseEnter: mouseEnterDragging: mouseLeave: mouseLeaveDragging: mouseUp:) ('dropping/grabbing' wantsDroppedMorph:event:) ('drawing' drawOn:) ('initialization' defaultBorderColor defaultBorderWidth defaultColor initialize) ('stepping and presenter' step) ('layout' acceptDroppingMorph:event:) ! !EToyCommunicatorMorph reorganize! ('as yet unclassified' addGateKeeperMorphs buttonNamed:action:color:help: commResult: editEvent:for: field:is: flashIndicator: handleResult: indicatorFieldNamed:color:help: open reportError: resetIndicator: stopFlashing textEntryFieldNamed:with:help: toggleButtonFor:attribute: transmitStreamedObject:as:to: transmitStreamedObject:to: trulyFlashIndicator:) ('stepping and presenter' step) ('submorphs-add/remove' delete) ('testing' stepTime wantsSteps) ('initialization' initialize) ! !BookPageSorterMorph reorganize! ('copying' veryDeepFixupWith: veryDeepInner:) ('as yet unclassified' acceptSort addControls book:morphsToSort: changeExtent: closeButtonOnly columnWith: getPartsBinStatus pageHolder rowWith: togglePartsBinStatus wrapperFor:) ('initialization' initialize) ('dropping/grabbing' wantsToBeDroppedInto:) ! !BookMorph reorganize! ('initialization' defaultColor fromRemoteStream: fromURL: initialize newPages: newPages:currentIndex: removeEverything setInitialState) ('sorting' acceptSortedContentsFrom: morphsForPageSorter sortPages:) ('accessing' cardsOrPages currentPage pageNamed: pageNumberOf: pages pages: setAllPagesColor: userString) ('dropping/grabbing' allowSubmorphExtraction wantsDroppedMorph:event:) ('insert and delete' defaultNameStemForNewPages deletePage deletePageBasic insertPage:pageSize: insertPage:pageSize:atIndex: insertPageColored: insertPageLabel:morphs: insertPageSilentlyAtEnd) ('navigation' buildFloatingPageControls goToPage: goToPage:transitionSpec: goToPage:transitionSpec:runTransitionScripts: goToPageMorph: goToPageMorph:fromBookmark: goToPageMorph:runTransitionScripts: goToPageMorph:transitionSpec: goToPageMorph:transitionSpec:runTransitionScripts: goToPageUrl: goto: insertPageMorphInCorrectSpot: lastPage nextPage pageNumber previousPage setWrapPages: showMoreControls transitionSpecFor:) ('menu' bookmarkForThisPage buildThreadOfProjects copyUrl findText: findText:inStrings:startAt:container:pageNum: forgetURLs getAllText getStemUrl goToPage highlightText:at:in: invokeBookMenu keepTogether loadImagesIntoBook makeUniformPageSize menuPageSoundFor:event: menuPageSoundForAll: menuPageSoundForThisPage: menuPageVisualFor:event: menuPageVisualForAll: menuPageVisualForThisPage: pageControlsVisible pasteBookPage reload reserveUrls reserveUrlsIfNeeded saveAsNumberedURLs saveIndexOfOnly: saveIndexOnURL saveOnUrlPage: saveOneOnURL savePagesOnURL setNewPagePrototype setPageColor textSearch textSearch: thumbnailForThisPage toggleFullScreen toggleShowingOfPageControls uncachePageSorter) ('copying' updateReferencesUsing:) ('other' adjustCurrentPageForFullScreen exitFullScreen goFullScreen isInFullScreenMode makeMinimalControlsWithColor:title: resizePagesTo:) ('drawing') ('printing' asPostscript pagesHandledAutomatically) ('scripting' chooseAndRevertToVersion installRollBackButtons methodHolderVersions methodHolders revertToCheckpoint:) ('e-toy support' configureForKids succeededInRevealing:) ('misc' addBookMenuItemsTo:hand:) ('filter streaming' fullDrawPostscriptOn:) ('caching' releaseCachedState) ('menu commands' sortPages) ('submorphs-add/remove' abandon) ('layout' acceptDroppingMorph:event:) ('menus' printPSToFile) ('submorphs-accessing' allNonSubmorphMorphs) ('halos and balloon help' defersHaloOnClickTo:) ('parts bin' initializeToStandAlone) ! !BasicButton reorganize! ('as yet unclassified' label label: label:font: setLabel) ('menus' addCustomMenuItems:hand:) ('initialization' defaultBorderColor defaultBorderWidth defaultColor initialize) ! !BalloonRectangleMorph reorganize! ('initialize') ('accessing' doesBevels) ('flexing') ('drawing' drawOn:) ('rotate scale and flex' newTransformationMorph) ('testing' canDrawBorder:) ('initialization' defaultBorderColor defaultBorderWidth defaultColor initialize) ! !AlignmentMorphBob1 reorganize! ('as yet unclassified' addAColumn: addARow: addARowCentered: fancyText:ofSize:color: inAColumn: inARow: simpleToggleButtonFor:attribute:help:) ('dropping/grabbing' wantsDroppedMorph:event:) ('drawing' fullDrawOn:) ('initialization' defaultBorderWidth initialize) ('layout' acceptDroppingMorph:event:) ! !AlignmentMorph reorganize! ('initialization' addUpDownArrowsFor: basicInitialize defaultBorderWidth defaultColor initialize openInWindowLabeled:inWorld:) ('classification' isAlignmentMorph) ('accessing') ('private') ('object fileIn' convertOldAlignmentsNov2000:using:) ('visual properties' canHaveFillStyles) ('event handling' wantsKeyboardFocusFor:) ('e-toy support' configureForKids) ('objects from disk' convertToCurrentVersion:refStream:) ! !LipsMorph reorganize! ('accessing' verticesString) ('actions' articulate: grin hideTongue horror neutral newVerticesCentered: newVerticesCentered:scaled: openness: sad showTongue smile surprise updateShape) ('initialization' defaultBorderColor defaultBorderWidth defaultColor initialize) ! !EnvelopeLineMorph reorganize! ('as yet unclassified' vertices:borderWidth:borderColor:) ('editing' dragVertex:event:fromHandle: dropVertex:event:fromHandle: newVertex:event:fromHandle:) ('initialization' defaultColor) ! BlobMorph removeSelector: #initializeColor! !BalloonMorph reorganize! ('initialization' defaultBorderColor defaultBorderWidth defaultColor initialize popUpFor:hand: popUpForHand:) ('stepping') ('private' setTarget:) ('accessing' balloonOwner) ('testing') ('dashes' step stepTime) ('WiW support' morphicLayerNumber) ('menus' adjustedCenter) ('classification' isBalloonHelp) ! !PolygonMorph reorganize! ('initialization' beSmoothCurve beStraightSegments defaultBorderColor defaultBorderWidth initialize vertices:color:borderWidth:borderColor:) ('access' isClosed isCurve isOpen makeOpenOrClosed openOrClosePhrase vertices) ('geometry' closestPointTo: extent: merge: mergeDropThird:in:from: transformedBy:) ('drawing' areasRemainingToFill: drawArrowOn:at:from: drawArrowsOn: drawBorderOn: drawBorderOn:usingEnds: drawClippedBorderOn:usingEnds: drawDashedBorderOn: drawDashedBorderOn:usingEnds: drawOn: drawOnFormCanvas: drawPostscriptOn:) ('editing' addHandles dragVertex:event:fromHandle: dragVertex:fromHandle:vertIndex: dropVertex:event:fromHandle: dropVertex:fromHandle:vertIndex: newVertex:event:fromHandle: newVertex:fromHandle:afterVert: updateHandles verticesAt:put:) ('menu' arrowLength: arrowSpec: customizeArrows: handlesShowingPhrase makeBackArrow makeBothArrows makeClosed makeForwardArrow makeNoArrows makeOpen quickFill: removeHandles showOrHideHandles showingHandles specifyDashedLine standardArrows toggleHandles toggleSmoothing unrotatedLength unrotatedLength: unrotatedWidth unrotatedWidth:) ('private' arrowBoundsAt:from: arrowForms borderForm computeArrowFormAt:from: computeBounds curveBounds filledForm getVertices includesHandle: lineSegments privateMoveBy: setVertices:) ('object fileIn') ('visual properties' canHaveFillStyles defaultColor fillStyle fillStyle:) ('smoothing' coefficients computeNextToEndPoints derivs:first:second:third: lineSegmentsDo: nextToFirstPoint nextToLastPoint) ('dashes' borderDashOffset dashedBorder:) ('halo control' rotationDegrees:) ('debug and other' installModelIn:) ('rotate scale and flex' addFlexShellIfNecessary rotationDegrees) ('event handling' handlesMouseDown: mouseDown:) ('objects from disk' convertToCurrentVersion:refStream:) ('accessing' borderColor: borderWidth: couldHaveRoundedCorners) ('stepping and presenter' step) ('menus' addCustomMenuItems:hand: setRotationCenterFrom:) ('geometry eToy' heading: referencePosition rotationCenter rotationCenter:) ('parts bin' initializeToStandAlone) ('dropping/grabbing' justDroppedInto:event:) ('caching' loadCachedState releaseCachedState) ('geometry testing' containsPoint:) ('testing' stepTime wantsSteps) ! !IndexTabs reorganize! ('initialization' defaultBorderWidth defaultColor initialize) ('tabs' addTab: addTabFor:font: addTabForBook: tabMorphs) ('layout' basicHeight basicWidth fixedWidth: laySubpartsOutInOneRow requiredWidth rowsNoWiderThan: widthImposedByOwner) ('selection' selectTab:) ('highlighting' highlightColor:regularColor: highlightTab: highlightTabFor: highlightedTab) ('change reporting' ownerChanged) ('accessing' highlightColor highlightColor: regularColor regularColor:) ('dropping/grabbing' repelsMorph:event:) ! !PasteUpMorph reorganize! ('initialization' becomeActiveDuring: defaultBorderColor defaultBorderWidth defaultColor initialize newResourceLoaded) ('classification' isPlayfieldLike isWorldMorph) ('cursor' cursorWrapped: numberAtCursor rectifyCursor selectedRect valueAtCursor valueAtCursor:) ('display' gradientFillColor: setGradientColor:) ('dropping/grabbing' automaticPhraseExpansion dropEnabled justDroppedInto:event: morphToDropFrom: originAtCenter positionNear:forExtent:adjustmentSuggestion: repelsMorph:event: wantsDroppedMorph:event:) ('layout' acceptDroppingMorph:event: addCenteredAtBottom:offset: convertAlignment laySubpartsOutInOneRow layoutChanged) ('menu & halo' addPenMenuItems:hand: addPenTrailsMenuItemsTo: addPlayfieldMenuItems:hand: addScalingMenuItems:hand: addStackMenuItems:hand: addWorldHaloMenuItemsTo:hand: addWorldToggleItemsToHaloMenu: autoExpansionString autoLineLayoutString autoViewingString batchPenTrailsString defineApplicationView defineFactoryView deleteBalloonTarget: fenceEnabledString indicateCursorString isOpenForDragNDropString isPartsBinString mouseOverHalosString originAtCenterString playfieldOptionsMenu presentCardAndStackMenu presentPlayfieldMenu presentViewMenu reformulateUpdatingMenus showApplicationView showExpandedView showFactoryView showFullView showReducedView showThumbnailString transformToShow:) ('model' createCustomModel model setModel:) ('naming' innocuousName) ('options' autoLineLayout autoLineLayout: automaticViewing: batchPenTrails batchPenTrails: becomeLikeAHolder behaveLikeAHolderString behaveLikeHolder behaveLikeHolder: behavingLikeAHolder fenceEnabled: indicateCursor indicateCursor: isPartsBin: replaceTallSubmorphsByThumbnails resizeToFit resizeToFitString setPartsBinStatusTo: setThumbnailHeight toggleAlwaysShowThumbnail toggleAutoLineLayout toggleAutomaticPhraseExpansion toggleAutomaticViewing toggleBatchPenTrails toggleBehaveLikeAHolder toggleFenceEnabled toggleIndicateCursor toggleIsPartsBin toggleMouseOverHalos toggleOriginAtCenter toggleResizeToFit updateSubmorphThumbnails wantsMouseOverHalos wantsMouseOverHalos:) ('painting' backgroundForm backgroundForm: backgroundSketch backgroundSketch: deleteBackgroundPainting makeNewDrawingWithin paintBackground paintingBoundsAround: prepareToPaint prepareToPaint: reasonablePaintingExtent) ('pen' addImageToPenTrailsFor: arrowheadsOnAllPens clearTurtleTrails createOrResizeTrailsForm drawPenTrailFor:from:to: liftAllPens lowerAllPens noArrowheadsOnAllPens noteNewLocation:forPlayer: notePenDown:forPlayer:at: trailMorph updateTrailsForm) ('scripting' abandonOldReferenceScheme adaptedToWorld: allTileScriptingElements currentVocabularyFor: hideAllPlayers modernizeBJProject recreateScripts relaunchAllViewers scriptorForTextualScript:ofPlayer: showAllPlayers) ('misc' abandonCostumeHistory allScriptEditors allScriptors alwaysShowThumbnail cachedOrNewThumbnailFrom: cartesianOrigin closedViewerFlapTabs heightForThumbnails hideFlapsOtherThan:ifClingingTo: hideViewerFlaps hideViewerFlapsOtherThanFor: impartPrivatePresenter makeDetachable maxHeightToAvoidThumbnailing maximumThumbnailWidth mouseX mouseY nameForCopyIfAlreadyNamed: padding: roundUpStrays smallThumbnailForPageSorter startRunningAll stepAll stopRunningAll thumbnailForPageSorter unhideHiddenObjects updateStatusForAllScriptEditors viewerFlapTabFor:) ('object fileIn') ('flaps' accommodateFlap: addGlobalFlaps assureFlapTabsFitOnScreen bringFlapTabsToFront correspondingFlapTab deleteAllFlapArtifacts deleteGlobalFlapArtifacts enableGlobalFlaps flapTabs localFlapTabs offsetForAccommodating:onEdge: paintingFlapTab releaseViewers removeAccommodationForFlap:) ('project state' canvas firstHand hands handsDo: isStepping: isStepping:selector: listOfSteppingMorphs stepListSize stepListSummary steppingMorphsNotInWorld viewBox viewBox:) ('update cycle' startBackgroundProcess) ('stepping' cleanseStepList runLocalStepMethods runStepMethods startStepping: startStepping:at:selector:arguments:stepTime: stopStepping: stopStepping:selector:) ('world state' abandonAllHalos abandonVocabularyPreference activeHand: addHand: addMorph:centeredNear: addMorphsAndModel: allNonFlapRelatedSubmorphs assureNotPaintingElse: assureNotPaintingEvent: assuredCanvas beWorldForProject: checkCurrentHandForObjectToPaste checkCurrentHandForObjectToPaste2 chooseClickTarget colorAt:belowMorph: currentNaturalLanguage deEmphasizeViewMVC: deleteAllHalos displayWorld displayWorldAsTwoTone displayWorldNonIncrementally displayWorldSafely doOneCycle doOneCycleInBackground doOneSubCycle dragThroughOnDesktop: embeddedProjectDisplayMode endDrawing: exit flashRects:color: fullRepaintNeeded goBack haloMorphOrNil haloMorphs handleFatalDrawingError: initForProject: install installAsActiveSubprojectIn:at:titled: installAsActiveSubprojectIn:titled: installFlaps installVectorVocabulary jumpToProject nextPage open openWithTitle:cautionOnClose: optimumExtentFromAuthor paintArea paintAreaFor: paintBox paintBoxOrNil patchAt:without:andNothingAbove: pauseEventRecorder previousPage privateOuterDisplayWorld removeHand: repairEmbeddedWorlds repositionFlapsAfterScreenSizeChange restoreDisplay restoreFlapsDisplay restoreMorphicDisplay saveAsWorld sketchEditorOrNil sleep someHalo specialNameInModelFor: standardPlayerHit standardSystemController startSteppingSubmorphsOf: triggerClosingScripts triggerOpeningScripts) ('accessing' assureFlapWidth: flapTab modelOrNil presenter useRoundedCorners) ('project' project releaseSqueakPages storeProjectsAsSegments) ('interaction loop' doOneCycleNow) ('WiW support' addMorphInLayer: morphicLayerNumber restartWorldCycleWithEvent: shouldGetStepsFrom: validateMouseEvent:) ('private' privateFullMoveBy: privateMoveBy:) ('Nebraska' addRemoteClient: convertRemoteClientToBuffered: hasRemoteServer releaseRemoteServer remoteServer remoteServer: removeRemoteClient: transferRemoteServerFrom:) ('gridding' gridModulus gridModulus: gridOrigin gridOrigin: gridSpec gridSpecPut: gridVisible gridVisibleOnOff gridVisibleString griddingOn griddingOnOff griddingString setGridSpec) ('undo' clearCommandHistory commandHistory) ('alarms-scheduler' addAlarm:withArguments:for:at: removeAlarm:for:) ('submorphs-add/remove' addAllMorphs: addMorphFront:) ('viewing' imposeListViewSortingBy:retrieving: restoreBoundsOfSubmorphs saveBoundsOfSubmorphs scriptSelectorToTriggerFor: showingListView sortSubmorphsBy: viewByIcon viewByName viewBySize viewNonOverlapping viewingByIconString viewingByNameString viewingBySizeString viewingNonOverlappingString viewingNormally) ('event handling' dropFiles: handlesKeyboard: handlesMouseDown: keyStroke: morphToGrab: mouseDown: mouseUp: wantsDropFiles: wantsKeyboardFocusFor:) ('world menu' activateObjectsTool addUndoItemsTo: bringWindowsFullOnscreen buildWorldMenu: closeUnchangedWindows collapseAll collapseNonWindows connectRemoteUser connectRemoteUserWithName:picture:andIPAddress: deleteNonWindows detachableScriptingSpace disconnectAllRemoteUsers disconnectRemoteUser drawingClass expandAll extractScreenRegion:andPutSketchInHand: findAChangeSorter: findAFileList: findAMessageNamesWindow: findAPreferencesPanel: findATranscript: findAWindowSatisfying:orMakeOneUsing: findDirtyBrowsers: findDirtyWindows: findWindow: getWorldMenu: grabDrawingFromScreen: grabFloodFromScreen: grabLassoFromScreen: grabRubberBandFromScreen: invokeWorldMenu: keystrokeInWorld: makeNewDrawing: makeNewDrawing:at: newDrawingFromMenu: openRecentSubmissionsBrowser: openScrapsBook: printScriptSummary putUpDesktopMenu: putUpWorldMenu: putUpWorldMenuFromEscapeKey removeAllViewers reportLocalAddress showStatusOfAllScripts yellowButtonClickOnDesktopWithEvent:) ('submorphs-accessing' allMorphsDo: morphsInFrontOf:overlapping:do:) ('genie-processing' allowsGestureStart:) ('stepping and presenter' step) ('parts bin' initializeToStandAlone isPartsBin residesInPartsBin) ('card in a stack' containsCard:) ('halos and balloon help' defersHaloOnClickTo: wantsDirectionHandles wantsHaloFor: wantsHaloFromClick) ('e-toy support' automaticViewing cursor cursor: fenceEnabled isCandidateForAutomaticViewing referencePlayfield) ('geometry' extent: gridPoint: position:) ('objects from disk' convertToCurrentVersion:refStream: saveOnFile) ('fileIn/out' prepareToBeSaved) ('menus' addCustomMenuItems:hand:) ('debug and other' addViewingItemsTo: buildDebugMenu:) ('structure' activeHand world) ('viewer' defaultNameStemForInstances) ('testing' stepTime) ('change reporting' invalidRect:from:) ('copying' veryDeepCopyWith:) ('user interface' modelWakeUp) ('macpal' currentVocabulary) ('geometry testing' fullContainsPoint:) ('visual properties' canHaveFillStyles) ('drawing' drawOn:) ('printing' printOn:) ('caching' releaseCachedState) ('events-processing' processEvent:using:) ! !PDAToDoItem reorganize! ('comparing' <=) ('day done' dayDone dayDone:) ('day posted' dayPosted dayPosted: matchesDate:) ('deadline' deadline deadline:) ('description' asListItem) ('priority' priority priority:) ('result' result result:) ! !PDARecurringEvent reorganize! ('as text' readField:fromString:fields:base:) ('as yet unclassified' firstDate: lastDate: recurrence recurrence: validRecurrenceSymbols) ('date' matchesDate:) ('key' matchesKey:andMatchesDate:) ! !PDAEvent reorganize! ('comparing' <=) ('date' date date: matchesDate:) ('duration' duration duration:) ('time' asListItem time time:) ! !PDARecord reorganize! ('as text' allFieldsWithValuesDo: asListItem asText printOn: readField:fromString:fields:base: readFrom: sharedFieldsWithBaseDo: sharedFieldsWithValuesDo:) ('comparing' <=) ('description' description description:) ('key' key key: matchesKey: matchesKey:andMatchesDate: rekey:to:) ('other fields' otherFields otherFields:) ! !PDA reorganize! ('category' categoryChoices categorySelected chooseFrom:categoryItem: selectCategory:) ('currentItem' acceptCurrentItemText: clearUserEditFlag currentItem currentItem: currentItemMenu: currentItemSelection currentItemSelection: currentItemText okToChange toggleDescriptionMode updateCurrentItem) ('date' selectDate: setDate:fromButton:down:) ('example' sampleCategoryList sampleNotes samplePeopleList sampleRecurringEventsList sampleScheduleList sampleToDoList) ('initialization' initialize labelString loadDatabase mergeDatabase openAsMorphIn: openMonthView rekeyAllRecordsFrom:to: saveDatabase userCategories:allPeople:allEvents:recurringEvents:allToDoItems:allNotes:dateSelected:) ('menus' perform:orSendTo:) ('notes' addNote notesList notesListIndex notesListIndex: notesListItems notesMenu: removeNote updateNotesList) ('people' addPerson peopleList peopleListIndex peopleListIndex: peopleListItems peopleMenu: removePerson updatePeopleList) ('schedule' addEvent addRecurringEvent declareLastDate declarelastDate removeEvent scheduleList scheduleListForDay: scheduleListIndex scheduleListIndex: scheduleListItems scheduleMenu: updateScheduleList) ('to do' addToDoItem declareItemDone removeToDoItem toDoList toDoListIndex toDoListIndex: toDoListItems toDoMenu: updateToDoList) ! !FlashPlayerMorph reorganize! ('initialize' defaultColor downloadState downloadStateIn: initialize loadInitialFrame makeControls open sourceUrl:) ('accessing' activeMorphs deferred deferred: isStreaming loadedFrames: localBounds localBounds: loopFrames loopFrames: progressValue progressValue:) ('drawing' debugDraw drawOn: drawSubmorphsOn: imageFormOfSize:forFrame:) ('geometry' boundsChangedFrom:to: computeBounds containsPoint: fullBounds fullContainsPoint: privateFullMoveBy:) ('classification' isFlashPlayer) ('stepping' jump10 rewind stepToFrame: stepToFrameForward: stepToFrameSilently:) ('private' collectActivationKeys: noticeRemovalOf:) ('menu' addCustomMenuItems:hand: drawFastest drawMedium drawNicest openSorter toggleDeferred) ('copying' copyMovieFrom:to:) ('project transition' addFillForProjectTarget: beFullScreenTransition: beTransitionFrom: beTransitionFrom:to: beTransitionTo: playProjectTransitionFrom:to:entering: removeFillForProjectTarget: updateProjectFillsFrom:) ('disk i/o' compress decompress) ('holder' cursorWrapped: numberAtCursor selectedRect valueAtCursor valueAtCursor:) ('e-toy support' asWearableCostumeOfExtent: cursor cursor:) ('initialization' openInMVC openInWorld) ('player' shouldRememberCostumes) ('submorphs-add/remove' addMorph:) ! !MagnifierMorph reorganize! ('initialization' defaultBorderWidth defaultColor initialize) ('geometry' defaultExtent extent:) ('drawing' drawOn:) ('stepping') ('events') ('menu' chooseMagnification chooseMagnification: toggleTrackingPointer trackingPointerString) ('magnifying' magnification: magnifiedForm sourcePoint sourceRect sourceRectFrom:) ('round view' isRound toggleRoundString toggleRoundness) ('event handling' handlesMouseDown: mouseDown:) ('accessing' borderWidth: hasTranslucentColor) ('menus' addCustomMenuItems:hand:) ('testing' stepTime) ('stepping and presenter' step) ! !LedDigitMorph reorganize! ('initialization' defaultColor initialize) ('accessing' digit digit: highlighted highlighted:) ('drawing' drawOn: drawOnFills:) ! !LedCharacterMorph reorganize! ('accessing' char char: highlighted highlighted:) ('drawing' drawOn: drawOnFills:) ('initialization' defaultColor initialize) ! !FaceMorph reorganize! ('initialization' defaultColor initialize) ('accessing' leftEye lips rightEye) ('actions' closeEyelids grin happy hideTonge lookAt: lookAtFront lookAtHand lookAtMorph: neutral openEyelids say:) ('geometry' mustachePosition nosePosition) ('drawing' drawNoseOn: drawOn:) ('stepping and presenter' step) ('testing' stepTime) ! EllipseMorph removeSelector: #initialize! EllipseMorph removeSelector: #initializeToStandAlone! !EllipseMorph reorganize! ('visual properties' canHaveFillStyles defaultColor) ('parts bin') ('initialization' defaultBorderColor defaultBorderWidth) ('drawing' areasRemainingToFill: drawOn:) ('accessing' couldHaveRoundedCorners doesBevels) ('geometry testing' containsPoint:) ('testing' canDrawBorder:) ! !CachingMorph reorganize! ('as yet unclassified' updateCacheCanvas:) ('change reporting' invalidRect:from:) ('drawing' drawOn: fullDrawOn: imageForm) ('caching' releaseCachedState) ('initialization' defaultColor initialize) ! !BorderedMorph reorganize! ('accessing' borderColor borderColor: borderInset borderRaised borderStyle borderStyle: borderWidth borderWidth: doesBevels hasTranslucentColor useRoundedCorners useSquareCorners) ('drawing' areasRemainingToFill:) ('geometry' acquireBorderWidth:) ('initialization' basicInitialize borderInitialize defaultBorderColor defaultBorderWidth initialize) ('menu' addBorderStyleMenuItems:hand: changeBorderColor: changeBorderWidth:) ('printing' fullPrintOn:) ('private' setBorderWidth:borderColor: setColor:borderWidth:borderColor:) ! !BackgroundMorph reorganize! ('as yet unclassified' slideBy: startRunning stopRunning subBounds) ('layout' fullBounds layoutChanged) ('drawing' drawOn: fullDrawOn:) ('initialization' initialize) ('testing' stepTime) ('stepping and presenter' step) ('menus' addCustomMenuItems:hand:) ! !Morph reorganize! ('initialization' basicInitialize defaultBounds inATwoWayScrollPane initialize intoWorld: openCenteredInWorld openInHand openInMVC openInWindow openInWindowLabeled: openInWindowLabeled:inWorld: openInWorld openInWorld: outOfWorld: resourceJustLoaded standardPalette) ('classification' demandsBoolean isAlignmentMorph isBalloonHelp isFlapOrTab isFlapTab isFlashMorph isFlexMorph isHandMorph isModalShell isMorphicModel isPlayfieldLike isRenderer isStandardViewer isSyntaxMorph isTextMorph isWorldMorph isWorldOrHandMorph) ('accessing' actorState actorState: actorStateOrNil adoptPaneColor: balloonText balloonTextSelector balloonTextSelector: beFlap: beSticky beUnsticky borderColor borderColor: borderStyle borderStyle: borderStyleForSymbol: borderWidth borderWidth: borderWidthForRounding color color: colorForInsets couldHaveRoundedCorners eventHandler eventHandler: forwardDirection hasTranslucentColor highlight highlightColor highlightColor: highlightOnlySubmorph: insetColor isFlap isLocked isShared isSticky lock lock: methodCommentAsBalloonHelp modelOrNil player player: presenter raisedColor regularColor regularColor: rememberedColor rememberedColor: resistsRemoval resistsRemoval: scaleFactor setBorderStyle: sqkPage sticky: toggleLocked toggleResistsRemoval toggleStickiness unHighlight unlock unlockContents url userString wantsToBeCachedByHand) ('access properties' hasProperty: removeProperty: setProperties: setProperty:toValue: valueOfProperty: valueOfProperty:ifAbsent: valueOfProperty:ifAbsentPut: valueOfProperty:ifPresentDo:) ('copying' copy deepCopy duplicate fullCopy updateReferencesUsing: usableSiblingInstance veryDeepCopyWith: veryDeepFixupWith: veryDeepInner:) ('structure' activeHand allOwners allOwnersDo: firstOwnerSuchThat: hasOwner: isInWorld morphPreceding: nearestOwnerThat: orOwnerSuchThat: outermostMorphThat: outermostWorldMorph owner ownerThatIsA: ownerThatIsA:orA: pasteUpMorph pasteUpMorphHandlingTabAmongFields primaryHand renderedMorph root rootAt: topPasteUp topRendererOrSelf withAllOwners withAllOwnersDo: world) ('submorphs-accessing' allKnownNames allMorphs allMorphsDo: allNonSubmorphMorphs allSubmorphNamesDo: findA: findDeepSubmorphThat:ifAbsent: findDeeplyA: findSubmorphBinary: firstSubmorph hasSubmorphWithProperty: hasSubmorphs indexOfMorphAbove: lastSubmorph morphsAt: morphsAt:behind:unlocked: morphsAt:unlocked: morphsAt:unlocked:do: morphsInFrontOf:overlapping:do: morphsInFrontOverlapping: morphsInFrontOverlapping:do: rootMorphsAt: rootMorphsAtGlobal: shuffleSubmorphs submorphAfter submorphBefore submorphCount submorphNamed: submorphNamed:ifNone: submorphOfClass: submorphThat:ifNone: submorphWithProperty: submorphs submorphsBehind:do: submorphsDo: submorphsInFrontOf:do: submorphsReverseDo: submorphsSatisfying:) ('submorphs-add/remove' abandon actWhen actWhen: addAllMorphs: addAllMorphs:after: addMorph: addMorph:after: addMorph:asElementNumber: addMorph:behind: addMorph:fullFrame: addMorph:inFrontOf: addMorphBack: addMorphCentered: addMorphFront: addMorphFront:fromWorldPosition: addMorphFrontFromWorldPosition: addMorphNearBack: comeToFront copyWithoutSubmorph: delete deleteSubmorphsWithProperty: dismissViaHalo goBehind privateDelete removeAllMorphs removeAllMorphsIn: replaceSubmorph:by: submorphIndexOf:) ('drawing' areasRemainingToFill: boundingBoxOfSubmorphs boundsWithinCorners changeClipSubmorphs clipLayoutCells clipLayoutCells: clipSubmorphs clipSubmorphs: clippingBounds doesOwnRotation drawDropHighlightOn: drawDropShadowOn: drawErrorOn: drawMouseDownHighlightOn: drawOn: drawPostscriptOn: drawRolloverBorderOn: drawSubmorphsOn: expandFullBoundsForDropShadow: expandFullBoundsForRolloverBorder: fullDrawOn: hasClipSubmorphsString hide highlightForMouseDown highlightForMouseDown: highlightedForMouseDown imageForm imageForm:forRectangle: imageFormDepth: imageFormForRectangle: imageFormWithout:andStopThere: refreshWorld shadowForm show visible visible:) ('geometry' align:with: bottom bottom: bottomCenter bottomLeft bottomLeft: bottomRight bottomRight: bounds bounds: bounds:from: bounds:in: boundsIn: boundsInWorld center center: extent extent: fullBoundsInWorld globalPointToLocal: gridPoint: griddedPoint: height height: innerBounds left left: leftCenter localPointToGlobal: minimumExtent minimumExtent: nextOwnerPage outerBounds point:from: point:in: pointFromWorld: pointInWorld: position position: positionInWorld positionSubmorphs previousOwnerPage right right: rightCenter screenLocation screenRectangle setConstrainedPosition:hangOut: shiftSubmorphsBy: shiftSubmorphsOtherThan:by: top top: topCenter topLeft topLeft: topRight topRight: transformedBy: width width: worldBounds worldBoundsForHalo) ('rotate scale and flex' addFlexShell addFlexShellIfNecessary keepsTransform newTransformationMorph rotationDegrees) ('geometry testing' containsPoint: fullContainsPoint: obtrudesBeyondContainer) ('geometry eToy' addTransparentSpacerOfSize: beTransparent cartesianBoundsTopLeft cartesianXY: color:sees: colorUnder degreesOfFlex forwardDirection: getIndexInOwner goHome heading heading: move:toPosition: referencePosition referencePosition: referencePositionInWorld referencePositionInWorld: rotationCenter rotationCenter: setDirectionFrom: setIndexInOwner: touchesColor: transparentSpacerOfSize: wrap x x: x:y: y y:) ('thumbnail' demandsThumbnailing morphRepresented permitsThumbnailing readoutForField: representativeNoTallerThan:norWiderThan:thumbnailHeight: updateThumbnailUrl updateThumbnailUrlInBook:) ('dropping/grabbing' aboutToBeGrabbedBy: disableDragNDrop dragEnabled dragEnabled: dragNDropEnabled dragSelectionColor dropEnabled dropEnabled: dropHighlightColor dropSuccessColor enableDrag: enableDragNDrop enableDragNDrop: enableDrop: formerOwner formerOwner: formerPosition formerPosition: grabTransform highlightForDrop highlightForDrop: highlightedForDrop justDroppedInto:event: justGrabbedFrom: nameForUndoWording rejectDropMorphEvent: repelsMorph:event: resetHighlightForDrop separateDragAndDrop slideBackToFormerSituation: slideToTrash: startDrag:with: toggleDragNDrop transportedMorph undoGrabCommand vanishAfterSlidingTo:event: wantsDroppedMorph:event: wantsToBeDroppedInto: wantsToBeOpenedInWorld willingToBeDiscarded) ('event handling' click click: cursorPoint doubleClick: doubleClickTimeout: dropFiles: firstClickTimedOut: handlesKeyboard: handlesMouseDown: handlesMouseOver: handlesMouseOverDragging: handlesMouseStillDown: hasFocus keyDown: keyStroke: keyUp: keyboardFocusChange: mouseDown: mouseEnter: mouseEnterDragging: mouseLeave: mouseLeaveDragging: mouseMove: mouseStillDown: mouseStillDownThreshold mouseUp: on:send:to: on:send:to:withValue: removeLink: restoreSuspendedEventHandler startDrag: suspendEventHandler transformFrom: transformFromOutermostWorld transformFromWorld wantsDropFiles: wantsEveryMouseMove wantsKeyboardFocusFor: wouldAcceptKeyboardFocus wouldAcceptKeyboardFocusUponTab) ('pen' choosePenColor: choosePenSize getPenColor getPenDown getPenSize liftPen lowerPen penColor: penUpWhile: trailMorph) ('naming' choosePartName downshiftedNameOfObjectRepresented innocuousName name: nameForFindWindowFeature nameInModel nameOfObjectRepresented setNamePropertyTo: setNameTo: specialNameInModel tryToRenameTo: updateAllScriptingElements) ('stepping and presenter' arrangeToStartStepping arrangeToStartSteppingIn: isStepping isSteppingSelector: start startStepping startStepping:at:arguments:stepTime: startSteppingIn: startSteppingSelector: step stepAt: stop stopStepping stopSteppingSelector: stopSteppingSelfAndSubmorphs) ('menus' absorbStateFromRenderer: adMiscExtrasTo: addAddHandMenuItemsForHalo:hand: addCopyItemsTo: addCustomHaloMenuItems:hand: addCustomMenuItems:hand: addExportMenuItems:hand: addFillStyleMenuItems:hand: addHaloActionsTo: addPaintingItemsTo:hand: addPlayerItemsTo: addStackItemsTo: addStandardHaloMenuItemsTo:hand: addTitleForHaloMenu: addToggleItemsToHaloMenu: adhereToEdge adhereToEdge: adjustedCenter adjustedCenter: allMenuWordings changeColor changeDirectionHandles changeDragAndDrop chooseNewGraphic chooseNewGraphicCoexisting: chooseNewGraphicFromHalo collapse dismissButton doMenuItem: exportAsBMP exportAsGIF exportAsJPEG hasDirectionHandlesString hasDragAndDropEnabledString helpButton inspectInMorphic inspectInMorphic: lockUnlockMorph lockedString makeNascentScript maybeAddCollapseItemTo: menuItemAfter: menuItemBefore: presentHelp printPSToFile printPSToFileNamed: putOnBackground putOnForeground resetForwardDirection resistsRemovalString setArrowheads setRotationCenter setRotationCenterFrom: setToAdhereToEdge: snapToEdgeIfAppropriate stickinessString transferStateToRenderer: uncollapseSketch) ('halos and balloon help' addHalo addHalo: addHalo:from: addHandlesTo:box: addMagicHaloFor: addOptionalHandlesTo:box: addSimpleHandlesTo:box: addWorldHandlesTo:box: balloonColor balloonColor: balloonFont balloonFont: balloonHelpAligner balloonHelpDelayTime balloonHelpTextForHandle: boundsForBalloon comeToFrontAndAddHalo defaultBalloonColor defaultBalloonFont defersHaloOnClickTo: deleteBalloon editBalloonHelpContent: editBalloonHelpText halo haloClass haloDelayTime hasHalo hasHalo: isLikelyRecipientForMouseOverHalos mouseDownOnHelpHandle: noHelpString okayToAddDismissHandle okayToAddGrabHandle okayToBrownDragEasily okayToExtractEasily okayToResizeEasily okayToRotateEasily removeHalo setBalloonText: setBalloonText:maxLineLength: setCenteredBalloonText: showBalloon: showBalloon:hand: transferHalo:from: wantsBalloon wantsDirectionHandles wantsDirectionHandles: wantsHalo wantsHaloFor: wantsHaloFromClick wantsHaloHandleWithSelector:inHalo: wantsScriptorHaloHandle) ('change reporting' addedOrRemovedSubmorph: colorChangedForSubmorph: invalidRect: invalidRect:from: ownerChanged userSelectedColor:) ('player' assureExternalName assuredCardPlayer assuredPlayer currentDataValue newPlayerInstance okayToDuplicate shouldRememberCostumes showPlayerMenu variableDocks) ('player commands' jumpTo: makeFenceSound set:) ('player viewer' openViewerForArgument updateLiteralLabel) ('scripting' asEmptyPermanentScriptor bringTileScriptingElementsUpToDate bringUpToDate categoriesForViewer defaultFloatPrecisionFor: instantiatedUserScriptsDo: isTileLike isTileScriptingElement jettisonScripts makeAllTilesColored makeAllTilesGreen restoreTypeColor scriptEditorFor: selectorsForViewer tearOffTile triggerScript: useUniformTileColor viewAfreshIn:showingScript:at:) ('e-toy support' adaptToWorld: adoptVocabulary: allMorphsAndBookPagesInto: appearsToBeSameCostumeAs: asNumber: asWearableCostume asWearableCostumeOfExtent: automaticViewing changeAllBorderColorsFrom:to: configureForKids containingWindow copyCostumeStateFrom: currentPlayerDo: cursor cursor: decimalPlacesForGetter: defaultValueOrNil defaultVariableName definePath deletePath embedInWindow embeddedInMorphicWindowLabeled: enclosingEditor enforceTileColorPolicy fenceEnabled followPath getNumericValue gridFormOrigin:grid:background:line: isAViewer isCandidateForAutomaticViewing isTileEditor listViewLineForFieldList: makeGraphPaper makeGraphPaperGrid:background:line: mustBeBackmost noteDecimalPlaces:forGetter: noteNegotiatedName:for: objectViewed referencePlayfield rotationStyle rotationStyle: setAsActionInButtonProperties: setNaturalLanguageTo: setNumericValue: setStandardTexture slotSpecifications succeededInRevealing: textureParameters topEditor unlockOneSubpart updateCachedThumbnail wantsRecolorHandle wrappedInWindow: wrappedInWindowWithTitle:) ('button' doButtonAction fire firedMouseUpCode) ('parts bin' inPartsBin initializeToStandAlone isPartsBin isPartsDonor isPartsDonor: markAsPartsDonor partRepresented residesInPartsBin) ('printing' asEPS asPostscript asPostscriptPrintJob clipPostscript colorString: constructorString fullPrintOn: initString morphReport morphReportFor: morphReportFor:on:indent: pagesHandledAutomatically printConstructorOn:indent: printConstructorOn:indent:nodeDict: printOn: printSpecs printSpecs: printStructureOn:indent: reportableSize structureString textToPaste) ('property extension' assureExtension extension otherProperties resetExtension) ('caching' fullLoadCachedState fullReleaseCachedState loadCachedState releaseCachedState) ('debug and other' addDebuggingItemsTo:hand: addMouseActionIndicatorsWidth:color: addMouseUpAction addMouseUpActionWith: addViewingItemsTo: allStringsAfter: altSpecialCursor0 altSpecialCursor1 altSpecialCursor2 altSpecialCursor3 altSpecialCursor3: buildDebugMenu: defineTempCommand deleteAnyMouseActionIndicators handMeTilesToFire inspectArgumentsPlayerInMorphic: inspectOwnerChain installModelIn: mouseUpCodeOrNil ownerChain programmedMouseDown:for: programmedMouseEnter:for: programmedMouseLeave:for: programmedMouseUp:for: programmedMouseUp:for:with: removeMouseUpAction resumeAfterDrawError resumeAfterStepError tempCommand viewMorphDirectly) ('private' moveWithPenDownBy: moveWithPenDownByRAA: privateAddMorph:atIndex: privateBounds: privateColor: privateDeleteWithAbsolutelyNoSideEffects privateFullBounds: privateFullMoveBy: privateMoveBy: privateOwner: privateRemoveMorph: privateRemoveMorphWithAbsolutelyNoSideEffects: privateSubmorphs privateSubmorphs:) ('fileIn/out' attachToResource prepareToBeSaved reserveUrl: saveAsResource saveDocPane saveOnURL saveOnURL: saveOnURLbasic updateAllFromResources updateFromResource) ('object fileIn' convertAugust1998:using: convertNovember2000DropShadow:using:) ('visual properties' canHaveFillStyles cornerStyle defaultColor fillStyle fillStyle: fillWithRamp:oriented: useBitmapFill useDefaultFill useGradientFill useSolidFill) ('texture support' asTexture installAsWonderlandTextureOn: isValidWonderlandTexture isValidWonderlandTexture: mapPrimitiveVertex: wonderlandTexture wonderlandTexture:) ('card in a stack' abstractAModel beAStackBackground becomeSharedBackgroundField containsCard: couldHoldSeparateDataForEachInstance currentDataInstance explainDesignations goToNextCardInStack goToPreviousCardInStack holdsSeparateDataForEachInstance insertAsStackBackground insertCard installAsCurrent: isStackBackground makeHoldSeparateDataForEachInstance newCard reassessBackgroundShape relaxGripOnVariableNames reshapeBackground setAsDefaultValueForNewCard showBackgroundObjects showDesignationsOfObjects showForegroundObjects stack stackDo: stopHoldingSeparateDataForEachInstance tabHitWithEvent: wrapWithAStack) ('WiW support' addMorphInFrontOfLayer: addMorphInLayer: eToyRejectDropMorph:event: morphicLayerNumber morphicLayerNumberWithin: randomBoundsFor: shouldGetStepsFrom:) ('rounding' cornerStyle: roundedCorners roundedCornersString toggleCornerRounding wantsRoundedCorners) ('undo' commandHistory undoMove:redo:owner:bounds:predecessor:) ('events-alarms' addAlarm:after: addAlarm:at: addAlarm:with:after: addAlarm:with:at: addAlarm:with:with:after: addAlarm:with:with:at: addAlarm:withArguments:after: addAlarm:withArguments:at: alarmScheduler removeAlarm: removeAlarm:at:) ('events-processing' containsPoint:event: defaultEventDispatcher handleDropFiles: handleDropMorph: handleEvent: handleFocusEvent: handleKeyDown: handleKeyUp: handleKeystroke: handleListenEvent: handleMouseDown: handleMouseEnter: handleMouseLeave: handleMouseMove: handleMouseOver: handleMouseStillDown: handleMouseUp: handleUnknownEvent: handlerForMouseDown: mouseDownPriority processEvent: processEvent:using: rejectDropEvent: rejectsEvent: transformedFrom:) ('meta-actions' addEmbeddingMenuItemsTo:hand: applyStatusToAllSiblings: beThisWorldsModel blueButtonDown: blueButtonUp: bringAllSiblingsToMe: buildHandleMenu: buildMetaMenu: changeColorTarget:selector:originalColor:hand: copyToPasteBuffer: dismissMorph: duplicateMorph: embedInto: grabMorph: handlerForBlueButtonDown: handlerForMetaMenu: inspectAt:event: invokeMetaMenu: invokeMetaMenuAt:event: makeMultipleSiblings: makeNewPlayerInstance: makeSiblings: makeSiblingsLookLikeMe: maybeDuplicateMorph maybeDuplicateMorph: openAButtonPropertySheet openAPropertySheet openATextPropertySheet potentialEmbeddingTargets resizeFromMenu resizeMorph: saveAsPrototype showActions showHiders subclassMorph) ('testing' canDrawAtHigherResolution canDrawBorder: completeModificationHash isFlexed isMorph knownName modificationHash renameTo: shouldDropOnMouseUp stepTime wantsSteps) ('drop shadows' addDropShadow addDropShadowMenuItems:hand: changeShadowColor hasDropShadow hasDropShadow: hasDropShadowString hasRolloverBorder hasRolloverBorder: removeDropShadow setShadowOffset: shadowColor shadowColor: shadowOffset shadowOffset: shadowPoint: toggleDropShadow) ('layout' acceptDroppingMorph:event: adjustLayoutBounds doLayoutIn: fullBounds layoutBounds layoutBounds: layoutChanged layoutInBounds: layoutProportionallyIn: minExtent minHeight minHeight: minWidth minWidth: privateFullBounds submorphBounds) ('layout-menu' addCellLayoutMenuItems:hand: addLayoutMenuItems:hand: addTableLayoutMenuItems:hand: changeCellInset: changeClipLayoutCells changeDisableTableLayout changeLayoutInset: changeListDirection: changeMaxCellSize: changeMinCellSize: changeNoLayout changeProportionalLayout changeReverseCells changeRubberBandCells changeTableLayout hasClipLayoutCellsString hasDisableTableLayoutString hasNoLayoutString hasProportionalLayoutString hasReverseCellsString hasRubberBandCellsString hasTableLayoutString layoutMenuPropertyString:from:) ('layout-properties' assureLayoutProperties assureTableProperties cellInset cellInset: cellPositioning cellPositioning: cellPositioningString: cellSpacing cellSpacing: cellSpacingString: disableTableLayout disableTableLayout: hResizing hResizing: hResizingString: layoutFrame layoutFrame: layoutInset layoutInset: layoutPolicy layoutPolicy: layoutProperties layoutProperties: listCentering listCentering: listCenteringString: listDirection listDirection: listDirectionString: listSpacing listSpacing: listSpacingString: maxCellSize maxCellSize: minCellSize minCellSize: reverseTableCells reverseTableCells: rubberBandCells rubberBandCells: spaceFillWeight spaceFillWeight: vResizeToFit: vResizing vResizing: vResizingString: wrapCentering wrapCentering: wrapCenteringString: wrapDirection wrapDirection: wrapDirectionString:) ('piano rolls' addMorphsTo:pianoRoll:eventTime:betweenTime:and: encounteredAtTime:inScorePlayer:atIndex:inEventTrack:secsPerTick: justDroppedIntoPianoRoll:event: pauseFrom: resetFrom: resumeFrom: triggerActionFromPianoRoll) ('genie-menu' addGenieMenuItems:hand: changeGestureDictionary hasNotExportedGestureDictionary hasReferencedGestureDictionary inspectGestureDictionary makeOwnCopyOfGestureDictionary makeOwnSubGestureDictionary) ('genie-dispatching' blueButtonClickHand:shift: gesture: gestureCode: gestureCommand: gestureKeystrokes: gestureMouseEvent: gestureStrokes: handleGesture: isGestureUndoable: isSpecialCharacterUndoable: modifyGesture:by: undoGesture:) ('genie-processing' allowsGestureEscape allowsGesturePreprocessing allowsGestureStart: defaultGestureDictionaryOrName disableGestures gestureDictionary gestureDictionaryOrName gestureDictionaryOrName: gestureHandler gestureStart: handlesGestureStart: onGestureSend:to:) ('button properties' buttonProperties buttonProperties: ensuredButtonProperties hasButtonProperties) ('other events' menuButtonMouseEnter: menuButtonMouseLeave:) ('miscellaneous' setExtentFromHalo:) ('other' removeAllButFirstSubmorph) ('messenger' affiliatedSelector) ('menu' addBorderStyleMenuItems:hand:) ('text-anchor' addTextAnchorMenuItems:hand: changeDocumentAnchor changeInlineAnchor changeParagraphAnchor hasDocumentAnchorString hasInlineAnchorString hasParagraphAnchorString relativeTextAnchorPosition relativeTextAnchorPosition: textAnchorType textAnchorType:) ('events') ('viewer' defaultNameStemForInstances externalName) ('macpal' beep: currentVocabulary flash scriptPerformer) ('system primitives' creationStamp) ('filter streaming' drawOnCanvas: fullDrawPostscriptOn:) ('events-removing' releaseActionMap) ('converting' asDraggableMorph) ('user interface' beep defaultLabelForInspector initialExtent) ('objects from disk' convertToCurrentVersion:refStream: objectForDataStream: saveOnFile storeDataOn:) ('events-accessing' actionMap updateableActionMap) ('creation' asMorph) ('updating' changed) !