Squeak-dev February 2021

squeak-dev@lists.squeakfoundation.org

33 participants
196 discussions

The Trunk: 60Deprecated-mt.91.mcz
by commits＠source.squeak.org 26 Feb '21

26 Feb '21

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.91.mcz ==================== Summary ==================== Name: 60Deprecated-mt.91 Author: mt Time: 26 February 2021, 4:06:40.619077 pm UUID: 6d65b8cc-da01-2d49-9774-79687ef96ebd Ancestors: 60Deprecated-mt.90 Sigh. The last one produced an endless recursion. =============== Diff against 60Deprecated-mt.90 =============== Item was changed: ----- Method: Morph>>addMorphInFrontOfLayer: (in category '*60Deprecated-WiW support') ----- addMorphInFrontOfLayer: aMorph self flag: #deprecated. "Use #addMorphFrontInLayer: instead". + ^ self privateAddMorph: aMorph atIndex: 1! - ^ self addMorphFront: aMorph!

1 0

The Trunk: 60Deprecated-mt.90.mcz
by commits＠source.squeak.org 26 Feb '21

26 Feb '21

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.90.mcz ==================== Summary ==================== Name: 60Deprecated-mt.90 Author: mt Time: 26 February 2021, 4:03:45.796077 pm UUID: 4019283c-bb5b-5a46-ae48-8b90d0d891e2 Ancestors: 60Deprecated-mt.89 Next try to no lock up the image while updating. Use a method that is definitely existing. =============== Diff against 60Deprecated-mt.89 =============== Item was changed: ----- Method: Morph>>addMorphInFrontOfLayer: (in category '*60Deprecated-WiW support') ----- addMorphInFrontOfLayer: aMorph self flag: #deprecated. "Use #addMorphFrontInLayer: instead". + ^ self addMorphFront: aMorph! - ^ self addMorphFrontInLayer: aMorph!

1 0

The Trunk: 60Deprecated-mt.89.mcz
by commits＠source.squeak.org 26 Feb '21

26 Feb '21

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.89.mcz ==================== Summary ==================== Name: 60Deprecated-mt.89 Author: mt Time: 26 February 2021, 4:01:21.309077 pm UUID: 05ea8570-9a8e-aa44-901d-ffeaac3e325f Ancestors: 60Deprecated-mt.88 Soften the previous deprecation to not lock up the image during the image. =============== Diff against 60Deprecated-mt.88 =============== Item was changed: ----- Method: Morph>>addMorphInFrontOfLayer: (in category '*60Deprecated-WiW support') ----- addMorphInFrontOfLayer: aMorph + self flag: #deprecated. "Use #addMorphFrontInLayer: instead". - self deprecated: 'Use #addMorphFrontInLayer: instead.'. ^ self addMorphFrontInLayer: aMorph! Item was changed: ----- Method: Morph>>morphicLayerNumberWithin: (in category '*60Deprecated-WiW support') ----- morphicLayerNumberWithin: anOwner + self flag: #deprecated. "Use #morphicLayerNumber instead". - self deprecated: 'Use #morphicLayerNumber instead.'. ^ self morphicLayerNumber!

1 0

The Trunk: PreferenceBrowser-mt.112.mcz
by commits＠source.squeak.org 26 Feb '21

26 Feb '21

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.112.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.112 Author: mt Time: 26 February 2021, 3:52:51.660955 pm UUID: 267f5452-97da-f34b-8104-f181caa03604 Ancestors: PreferenceBrowser-mt.111 Complements Morphic-mt.1726 =============== Diff against PreferenceBrowser-mt.111 =============== Item was changed: ----- Method: PreferenceWizardMorph>>initialize (in category 'initialization') ----- initialize super initialize. isFullScreen := false. self hasLowPerformance ifTrue: [self color: self defaultColor] ifFalse: [self color: (self defaultColor alpha: 0.75)]. self setProperty: #indicateKeyboardFocus toValue: #never. self changeProportionalLayout; layoutInset: 20; cellGap: 10; cellPositioning: #center; + disableLayout: true; + morphicLayerNumber: self class dialogLayer + 1. - disableLayout: true. self addKeyboardCaptureFilter: self.! Item was removed: - ----- Method: PreferenceWizardMorph>>morphicLayerNumber (in category 'layout') ----- - morphicLayerNumber - - ^ 1!

1 0

The Trunk: Tools-mt.1026.mcz
by commits＠source.squeak.org 26 Feb '21

26 Feb '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1026.mcz ==================== Summary ==================== Name: Tools-mt.1026 Author: mt Time: 26 February 2021, 3:48:32.727955 pm UUID: 46a85c1d-6c6a-6f49-a7a4-e59bd45cce2a Ancestors: Tools-mt.1025 Complements Morphic-mt.1726 =============== Diff against Tools-mt.1025 =============== Item was changed: ----- Method: FileList2 class>>morphicViewProjectSaverFor: (in category 'blue ui') ----- morphicViewProjectSaverFor: aProject " (FileList2 morphicViewProjectSaverFor: Project current) openInWorld " | window aFileList buttons treePane pane2 textColor1 option treeExtent buttonData buttonRow | textColor1 := Color r: 0.742 g: 0.839 b: 1.0. aFileList := self new directory: ServerDirectory projectDefaultDirectory. aFileList dirSelectionBlock: self hideSqueakletDirectoryBlock. window := AlignmentMorphBob1 newColumn. window hResizing: #shrinkWrap; vResizing: #shrinkWrap. aFileList modalView: window. window setProperty: #FileList toValue: aFileList; wrapCentering: #center; cellPositioning: #topCenter; borderWidth: 1; borderColor: (Color r: 0.9 g: 0.801 b: 0.2); useRoundedCorners. buttonData := Preferences enableLocalSave ifTrue: [{ {'Save'. #okHit. 'Save in the place specified below, and in the Squeaklets folder on your local disk'. Color lightGreen}. {'Save on local disk only'. #saveLocalOnlyHit. 'saves in the Squeaklets folder'. Color lightGreen}. {'Cancel'. #cancelHit. 'return without saving'. Color lightRed} }] ifFalse: [{ {'Save'. #okHit. 'Save in the place specified below, and in the Squeaklets folder on your local disk'. Color lightGreen}. {'Cancel'. #cancelHit. 'return without saving'. Color lightRed} }]. buttons := buttonData collect: [ :each | (self blueButtonText: each first textColor: textColor1 color: each fourth inWindow: window) setBalloonText: each third translated; hResizing: #shrinkWrap; on: #mouseUp send: each second to: aFileList ]. option := aProject world valueOfProperty: #SuperSwikiPublishOptions ifAbsent: [#initialDirectoryList]. aProject world removeProperty: #SuperSwikiPublishOptions. treeExtent := Project current world height < 500 ifTrue: [ 350@150 ] ifFalse: [ 350@300 ]. (treePane := aFileList morphicDirectoryTreePaneFiltered: option) extent: treeExtent; retractable: false; borderWidth: 0. window addARowCentered: { window fancyText: 'Publish This Project' translated font: Preferences standardEToysTitleFont color: textColor1 }. buttonRow := OrderedCollection new. buttons do: [:button | buttonRow add: button] separatedBy: [buttonRow add: ((Morph new extent: 30@5) color: Color transparent)]. " addARowCentered: { buttons first. (Morph new extent: 30@5) color: Color transparent. buttons second. (Morph new extent: 30@5) color: Color transparent. buttons third };" window addARowCentered: buttonRow; addARowCentered: { (window inAColumn: {(ProjectViewMorph on: aProject) lock}) layoutInset: 4}; addARowCentered: { window fancyText: 'Please select a folder' translated font: Preferences standardEToysFont color: textColor1 }; addARow: { ( window inAColumn: { (pane2 := window inARow: {window inAColumn: {treePane}}) useRoundedCorners; layoutInset: 0; borderWidth: 1; borderColor: (Color r: 0.6 g: 0.7 b: 1) } ) layoutInset: 10 }. window fullBounds. window fillWithRamp: (Color r: 1 g: 0.85 b: 0.975) oriented: 0.65. pane2 fillWithRamp: (Color r: 0.85 g: 0.9 b: 1) oriented: (0.7 @ 0.35). " buttons do: [ :each | each fillWithRamp: ColorTheme current dialogButtonsRampOrColor oriented: (0.75 @ 0). ]. " + window morphicLayerNumber: window class dialogLayer. - window setProperty: #morphicLayerNumber toValue: 11. aFileList postOpen. window adoptPaneColor: (Color r: 0.548 g: 0.677 b: 1.0). ^ window !

1 0

The Trunk: ToolBuilder-Morphic-mt.273.mcz
by commits＠source.squeak.org 26 Feb '21

26 Feb '21

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.273.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.273 Author: mt Time: 26 February 2021, 3:48:03.094955 pm UUID: 85920c43-33dc-0844-8f7b-2a6f21f1d548 Ancestors: ToolBuilder-Morphic-mt.272 Complements Morphic-mt.1726 =============== Diff against ToolBuilder-Morphic-mt.272 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableDialog: (in category 'widgets optional') ----- buildPluggableDialog: aSpec | widget | widget := self dialogClass new. self register: widget id: aSpec name. widget model: aSpec model. "Set child dependent layout properties. The pane morph holds the special contents." widget paneMorph wantsPaneSplitters: (aSpec wantsResizeHandles ifNil: [true]). self setLayoutHintsFor: widget paneMorph spec: aSpec. widget paneMorph layoutInset: (aSpec padding ifNil: [ProportionalSplitterMorph gripThickness]). widget paneMorph cellGap: (aSpec spacing ifNil: [ProportionalSplitterMorph gripThickness]). + widget morphicLayerNumber: widget class dialogLayer. widget paneMorph wantsPaneSplitters ifTrue: [ widget paneMorph addCornerGrips"addEdgeGrips". widget paneMorph grips do: [:ea | ea showHandle: true]]. "Now create the children." panes := OrderedCollection new. aSpec children isSymbol ifTrue: [ widget getChildrenSelector: aSpec children. widget update: aSpec children] ifFalse: [ self buildAll: aSpec children in: widget paneMorph]. "Now create the buttons." aSpec buttons isSymbol ifTrue: [ widget getButtonsSelector: aSpec buttons. widget update: aSpec buttons] ifFalse: [ self buildAll: aSpec buttons in: widget buttonRowMorph. widget updateButtonProperties]. aSpec title ifNotNil: [:label | label isSymbol ifTrue:[widget getTitleSelector: label; update: label] ifFalse:[widget title: label]]. aSpec message ifNotNil: [:label | label isSymbol ifTrue:[widget getMessageSelector: label; update: label] ifFalse:[widget message: label]]. "Interaction behavior." aSpec autoCancel ifNotNil: [:b | widget autoCancel: b]. aSpec exclusive ifNotNil: [:b | widget exclusive: b]. widget closeDialogSelector: aSpec closeAction. self buildHelpFor: widget spec: aSpec. "Everything is shrink-wrapped around the pane morph." widget paneMorph extent: (aSpec extent ifNil:[widget initialExtent]) + (widget paneMorph layoutInset * 2) asPoint. ^ widget! Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableWindow: (in category 'widgets required') ----- buildPluggableWindow: aSpec | widget | aSpec layout == #proportional ifFalse:[ "This needs to be implemented - probably by adding a single pane and then the rest" ^self error: 'Not implemented'. ]. widget := (self windowClassFor: aSpec) new. self register: widget id: aSpec name. widget model: aSpec model. "Set child dependent layout properties." widget wantsPaneSplitters: (aSpec wantsResizeHandles ifNil: [true]). MorphicProject worldGridEnabled ifTrue: [ "Snap both #position and #extent to grid." aSpec horizontalResizing ifNil: [aSpec horizontalResizing: #spaceFill]. aSpec verticalResizing ifNil: [aSpec verticalResizing: #spaceFill]]. self setLayoutHintsFor: widget spec: aSpec. widget layoutInset: (aSpec padding ifNil: [ProportionalSplitterMorph gripThickness]). widget cellGap: (aSpec spacing ifNil: [ProportionalSplitterMorph gripThickness]). + widget morphicLayerNumber: widget class windowLayer. "Now create the children." panes := OrderedCollection new. aSpec children isSymbol ifTrue: [ widget getChildrenSelector: aSpec children. widget update: aSpec children] ifFalse: [ self buildAll: aSpec children in: widget]. widget setUpdatablePanesFrom: panes. aSpec label ifNotNil: [:label| label isSymbol ifTrue:[widget getLabelSelector: label] ifFalse:[widget setLabel: label]]. aSpec multiWindowStyle notNil ifTrue: [widget savedMultiWindowState: (SavedMultiWindowState on: aSpec model)]. widget closeWindowSelector: aSpec closeAction. self buildHelpFor: widget spec: aSpec. widget bounds: (RealEstateAgent initialFrameFor: widget initialExtent: (aSpec extent ifNil:[widget initialExtent]) world: self currentWorld). widget refreshWindowColor. ^ widget! Item was changed: + ----- Method: PluggableDialogWindow>>delete (in category 'submorphs - add/remove') ----- - ----- Method: PluggableDialogWindow>>delete (in category 'submorphs-add/remove') ----- delete self model okToClose ifFalse: [^ self]. self closeDialogSelector ifNotNil: [:sel | self model perform: sel]. self model windowIsClosing; release. self model: nil. super delete.!

1 0

The Trunk: MorphicExtras-mt.285.mcz
by commits＠source.squeak.org 26 Feb '21

26 Feb '21

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.285.mcz ==================== Summary ==================== Name: MorphicExtras-mt.285 Author: mt Time: 26 February 2021, 3:47:14.471955 pm UUID: a3e97393-d97b-684b-b584-abde4e302510 Ancestors: MorphicExtras-mt.284 Complements Morphic-mt.1726 =============== Diff against MorphicExtras-mt.284 =============== Item was changed: + ----- Method: BookMorph>>abandon (in category 'submorphs - add/remove') ----- - ----- Method: BookMorph>>abandon (in category 'submorphs-add/remove') ----- abandon "Like delete, but we really intend not to use this morph again. Make the page cache release the page object." self delete. pages do: [:aPage | | pg | (pg := aPage sqkPage) ifNotNil: [ pg contentsMorph == aPage ifTrue: [ pg contentsMorph: nil]]].! Item was changed: + ----- Method: BookMorph>>allNonSubmorphMorphs (in category 'submorphs - accessing') ----- - ----- Method: BookMorph>>allNonSubmorphMorphs (in category 'submorphs-accessing') ----- allNonSubmorphMorphs "Return a collection containing all morphs in this morph which are not currently in the submorph containment hierarchy. Especially the non-showing pages in BookMorphs. (As needed, make a variant of this that brings in all pages that are not in memory.)" | coll | coll := OrderedCollection new. pages do: [:pg | pg isInMemory ifTrue: [ pg == currentPage ifFalse: [coll add: pg]]]. ^ coll! Item was changed: + ----- Method: BouncingAtomsMorph>>addMorphFront: (in category 'submorphs - add/remove') ----- - ----- Method: BouncingAtomsMorph>>addMorphFront: (in category 'submorphs-add/remove') ----- addMorphFront: aMorph "Called by the 'embed' meta action. We want non-atoms to go to the back." "Note: A user would not be expected to write this method. However, a sufficiently advanced user (e.g, an e-toy author) might do something equivalent by overridding the drag-n-drop messages when they are implemented." (aMorph isMemberOf: AtomMorph) ifTrue: [super addMorphFront: aMorph] ifFalse: [super addMorphBack: aMorph].! Item was changed: + ----- Method: EmbeddedWorldBorderMorph>>morphicLayerNumber (in category 'submorphs - layers') ----- - ----- Method: EmbeddedWorldBorderMorph>>morphicLayerNumber (in category 'WiW support') ----- morphicLayerNumber + "Embedded worlds come in front of other worlds' Project navigation morphs" + ^ self valueOfProperty: #morphicLayerNumber ifAbsent: [self class navigatorLayer - 1] + ! - "helpful for insuring some morphs always appear in front of or behind others. - smaller numbers are in front" - - ^20 "Embedded worlds come in front of other worlds' Project navigation morphs"! Item was changed: + ----- Method: FlapTab>>dismissViaHalo (in category 'submorphs - add/remove') ----- - ----- Method: FlapTab>>dismissViaHalo (in category 'submorphs-add/remove') ----- dismissViaHalo "Dismiss the receiver (and its referent), unless it resists" self resistsRemoval ifTrue: [(UIManager default chooseFrom: #( 'Yes' 'Um, no, let me reconsider') title: 'Really throw this flap away?') = 2 ifFalse: [^ self]]. referent delete. self delete! Item was changed: + ----- Method: FlapTab>>morphicLayerNumber (in category 'submorphs - layers') ----- - ----- Method: FlapTab>>morphicLayerNumber (in category 'WiW support') ----- morphicLayerNumber + + ^ self valueOfProperty: #morphicLayerNumber ifAbsent: [self class navigatorLayer]! - ^self flapShowing ifTrue: [26] ifFalse: [25] "As navigators"! Item was changed: ----- Method: Flaps class>>newPaintingFlap (in category 'predefined flaps') ----- newPaintingFlap "Add a flap with the paint palette in it" | aFlap aFlapTab | "Flaps reinstateDefaultFlaps. Flaps addPaintingFlap" aFlap := PasteUpMorph new borderWidth: 0. aFlap color: Color transparent. aFlap layoutPolicy: TableLayout new. aFlap hResizing: #shrinkWrap. aFlap vResizing: #shrinkWrap. aFlap cellPositioning: #topLeft. aFlap clipSubmorphs: false. aFlap beSticky. "really?!!" aFlap addMorphFront: PaintBoxMorph new. + aFlap beFlap: true. - aFlap setProperty: #flap toValue: true. aFlap fullBounds. "force layout" aFlapTab := FlapTab new referent: aFlap. aFlapTab setNameTo: 'Painting' translated. aFlapTab setProperty: #priorWording toValue: 'Paint' translated. aFlapTab useGraphicalTab. aFlapTab removeAllMorphs. aFlapTab setProperty: #paintingFlap toValue: true. aFlapTab addMorphFront: "(SketchMorph withForm: (ScriptingSystem formAtKey: #PaintingFlapPic))" self paintFlapButton. aFlapTab cornerStyle: #rounded. aFlapTab edgeToAdhereTo: #right. aFlapTab setToPopOutOnDragOver: false. aFlapTab setToPopOutOnMouseOver: false. aFlapTab on: #mouseUp send: #startOrFinishDrawing: to: aFlapTab. aFlapTab setBalloonText:'Click here to start or finish painting.' translated. aFlapTab fullBounds. "force layout" aFlapTab position: (0@6). self currentWorld addMorphFront: aFlapTab. ^ aFlapTab! Item was changed: + ----- Method: FloatingBookControlsMorph>>morphicLayerNumber (in category 'submorphs - layers') ----- - ----- Method: FloatingBookControlsMorph>>morphicLayerNumber (in category 'WiW support') ----- morphicLayerNumber + "page controls are behind menus and balloons, but in front of most other stuff" + + ^ self valueOfProperty: #morphicLayerNumber ifAbsent: [self class navigatorLayer]! - - "helpful for insuring some morphs always appear in front of or behind others. - smaller numbers are in front" - - ^23 "page controls are behind menus and balloons, but in front of most other stuff"! Item was changed: + ----- Method: ProjectNavigationMorph>>morphicLayerNumber (in category 'submorphs - layers') ----- - ----- Method: ProjectNavigationMorph>>morphicLayerNumber (in category 'WiW support') ----- morphicLayerNumber + ^ self valueOfProperty: #morphicLayerNumber ifAbsent: [self class navigatorLayer]! - "helpful for insuring some morphs always appear in front of or behind others. - smaller numbers are in front" - - ^mouseInside == true ifTrue: [26] ifFalse: [25] - - "Navigators are behind menus and balloons, but in front of most other stuff"! Item was changed: ----- Method: ProjectNavigationMorph>>soundDownEvt:morph: (in category '*MorphicExtras-Sound') ----- soundDownEvt: a morph: b soundSlider ifNotNil: [soundSlider delete]. (soundSlider := RectangleMorph new) + morphicLayerNumber: self class frontmostLayer; - setProperty: #morphicLayerNumber toValue: 1; extent: b width @ (b width * 3); color: self colorForButtons; borderStyle: BorderStyle raised; bottomLeft: b boundsInWorld origin. soundSlider addMorph: ( RectangleMorph new color: self colorForButtons; borderColor: #raised; extent: b width @ 8; center: soundSlider center x @ (soundSlider bottom - (soundSlider height * self getSoundVolume) asInteger) ). soundSlider openInWorld.! Item was changed: + ----- Method: ReferenceMorph>>allNonSubmorphMorphs (in category 'submorphs - accessing') ----- - ----- Method: ReferenceMorph>>allNonSubmorphMorphs (in category 'submorphs-accessing') ----- allNonSubmorphMorphs "we hold extra morphs" ^ Array with: referent! Item was changed: + ----- Method: ScreeningMorph>>addMorph: (in category 'submorphs - add/remove') ----- - ----- Method: ScreeningMorph>>addMorph: (in category 'submorphs-add/remove') ----- addMorph: aMorph | f | super addMorph: aMorph. submorphs size <= 2 ifTrue: [self bounds: submorphs last bounds]. submorphs size = 2 ifTrue: ["The screenMorph has just been added. Choose as the passingColor the center color of that morph" f := self screenMorph imageForm. passingColor := f colorAt: f boundingBox center. passElseBlock := true]! Item was added: + ----- Method: SketchEditorMorph>>initialize (in category 'initialization') ----- + initialize + + super initialize. + forEachHand := Dictionary new.! Item was changed: ----- Method: SketchEditorMorph>>initializeFor:inBounds:pasteUpMorph:paintBoxPosition: (in category 'initialization') ----- initializeFor: aSketchMorph inBounds: boundsToUse pasteUpMorph: aPasteUpMorph paintBoxPosition: aPosition "NB: if aPosition is nil, then it's assumed that the paintbox is obtained from a flap or some such, so do nothing special regarding a palette in this case. The palette needs already to be in the world for this to work." | w | (w := aPasteUpMorph world) addMorphInLayer: self. "in back of palette" enclosingPasteUpMorph := aPasteUpMorph. hostView := aSketchMorph. "may be ownerless" self bounds: boundsToUse. palette := w paintBox focusMorph: self. palette beStatic. "give Nebraska whatever help we can" palette addWeakDependent: self. + self morphicLayerNumber: self class dialogLayer + 1. + palette morphicLayerNumber: self class dialogLayer. aPosition ifNotNil: [w addMorphFront: palette. "bring to front" palette position: aPosition. palette beSupersized. self flag: #hacky. "mt: That super-sizing with a flex shell is awkward. Need to fix." palette owner bounds: (palette owner bounds translatedToBeWithin: self world bounds)]. paintingForm := Form extent: bounds extent depth: w assuredCanvas depth. self dimTheWindow. self addRotationScaleHandles. aSketchMorph ifNotNil: [ aSketchMorph form displayOn: paintingForm at: (hostView boundsInWorld origin - bounds origin - hostView form offset) clippingBox: (0@0 extent: paintingForm extent) rule: Form over fillColor: nil. "assume they are the same depth". undoBuffer := paintingForm deepCopy. rotationCenter := aSketchMorph rotationCenter]! Item was removed: - ----- Method: SketchEditorMorph>>morphicLayerNumber (in category 'WiW support') ----- - morphicLayerNumber - "Place the painting behind the paint palette" - - ^ 28! Item was changed: + ----- Method: StringButtonMorph>>actWhen: (in category 'submorphs - add/remove') ----- - ----- Method: StringButtonMorph>>actWhen: (in category 'submorphs-add/remove') ----- actWhen: aSymbol "Set the condition under which to invoke my action to one of: #buttonDown, #buttonUp, and #whilePressed." actWhen := aSymbol. ! Item was changed: + ----- Method: TabbedPalette>>replaceSubmorph:by: (in category 'submorphs - add/remove') ----- - ----- Method: TabbedPalette>>replaceSubmorph:by: (in category 'submorphs-add/remove') ----- replaceSubmorph: oldMorph by: newMorph super replaceSubmorph: oldMorph by: newMorph. oldMorph == currentPage ifTrue: [currentPage := newMorph]! Item was changed: + ----- Method: ThreadNavigationMorph>>morphicLayerNumber (in category 'submorphs - layers') ----- - ----- Method: ThreadNavigationMorph>>morphicLayerNumber (in category 'private') ----- morphicLayerNumber + ^ self valueOfProperty: #morphicLayerNumber ifAbsent: [self class navigatorLayer]! - "helpful for insuring some morphs always appear in front of or behind others. - smaller numbers are in front" - - ^15 "Navigators are behind menus and balloons, but in front of most other stuff"! Item was changed: + ----- Method: ViewerFlapTab>>allNonSubmorphMorphs (in category 'submorphs - accessing') ----- - ----- Method: ViewerFlapTab>>allNonSubmorphMorphs (in category 'submorphs-accessing') ----- allNonSubmorphMorphs "Return a collection containing all morphs in this morph which are not currently in the submorph containment hierarchy. Especially the non-showing pages in BookMorphs." ^ flapShowing ifTrue: [#()] ifFalse: [Array with: referent]!

1 0

The Trunk: EToys-mt.428.mcz
by commits＠source.squeak.org 26 Feb '21

26 Feb '21

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.428.mcz ==================== Summary ==================== Name: EToys-mt.428 Author: mt Time: 26 February 2021, 3:46:14.660955 pm UUID: 717b17d4-5453-8645-b809-fba5e44796ca Ancestors: EToys-mt.427 Complements Morphic-mt.1726 =============== Diff against EToys-mt.427 =============== Item was changed: + ----- Method: ComponentLayout>>allKnownNames (in category 'submorphs - accessing') ----- - ----- Method: ComponentLayout>>allKnownNames (in category 'submorphs-accessing') ----- allKnownNames ^super allKnownNames , (self submorphs collect: [:m | m knownName] thenSelect: [:m | m notNil])! Item was changed: + ----- Method: ComponentLikeModel>>delete (in category 'submorphs - add/remove') ----- - ----- Method: ComponentLikeModel>>delete (in category 'submorphs-add/remove') ----- delete "Delete the receiver. Possibly put up confirming dialog. Abort if user changes mind" (model isKindOf: Component) ifTrue: [^self deleteComponent]. (model isMorphicModel) ifFalse: [^super delete]. slotName ifNotNil: [(PopUpMenu confirm: 'Shall I remove the slot ' , slotName , ' along with all associated methods?') ifTrue: [(model class selectors select: [:s | s beginsWith: slotName]) do: [:s | model class removeSelector: s]. (model class instVarNames includes: slotName) ifTrue: [model class removeInstVarName: slotName]] ifFalse: [(PopUpMenu confirm: '...but should I at least dismiss this morph? [choose no to leave everything unchanged]') ifFalse: [^self]]]. super delete! Item was changed: ----- Method: EtoyDAVLoginMorph>>buildPanel (in category 'private') ----- buildPanel | title | self deletePanel. panel := AlignmentMorphBob1 new. panel vResizing: #shrinkWrap; hResizing: #shrinkWrap; layoutInset: 4; color: self defaultColor; beSticky; borderWidth: self defaultBorderWidth; borderColor: self defaultBorderColor. title := TextMorph new contents: 'Etoys is trying to open your web browser.\If it does not work, you can sign up at:\\' translated withCRs, self url; beAllFont: self myFont. title beSticky. title centered. panel addARow: {title}. panel addARow: { (StringMorph contents:'') lock }. panel addARow: { self newSpacer: Color transparent. self okButton2 hResizing: #rigid. self newSpacer: Color transparent. }. + panel morphicLayerNumber: self class dialogLayer - 1. - panel setProperty: #morphicLayerNumber toValue: 9. ^ panel. ! Item was changed: ----- Method: EtoyDAVLoginMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" self vResizing: #shrinkWrap; hResizing: #shrinkWrap; layoutInset: 4; beSticky; rebuild. + self morphicLayerNumber: self class dialogLayer.! - self setProperty: #morphicLayerNumber toValue: 10.! Item was changed: + ----- Method: KedamaMorph>>allSubmorphNamesDo: (in category 'submorphs - accessing') ----- - ----- Method: KedamaMorph>>allSubmorphNamesDo: (in category 'submorphs-accessing') ----- allSubmorphNamesDo: aBlock super allSubmorphNamesDo: aBlock. aBlock value: self defaultPatch externalName. ! Item was changed: ----- Method: NewVariableDialogMorph>>initialize (in category 'initialize') ----- initialize + super initialize. + + self morphicLayerNumber: self class dialogLayer. + self rebuild.! - self rebuild! Item was removed: - ----- Method: NewVariableDialogMorph>>morphicLayerNumber (in category 'accessing') ----- - morphicLayerNumber - - ^10.6! Item was changed: + ----- Method: PinMorph>>delete (in category 'submorphs - add/remove') ----- - ----- Method: PinMorph>>delete (in category 'submorphs-add/remove') ----- delete self unwire. ^ super delete! Item was changed: + ----- Method: ScriptEditorMorph>>dismissViaHalo (in category 'submorphs - add/remove') ----- - ----- Method: ScriptEditorMorph>>dismissViaHalo (in category 'submorphs-add/remove') ----- dismissViaHalo "The user has clicked in the delete halo-handle. This provides a hook in case some concomitant action should be taken, or if the particular morph is not one which should be put in the trash can, for example." self resistsRemoval ifTrue: [^ self]. self destroyScript! Item was changed: + ----- Method: SpectrumAnalyzerMorph>>delete (in category 'submorphs - add/remove') ----- - ----- Method: SpectrumAnalyzerMorph>>delete (in category 'submorphs-add/remove') ----- delete "Turn off recording when this morph is deleted." super delete. soundInput stopRecording. ! Item was changed: + ----- Method: StackMorph>>allNonSubmorphMorphs (in category 'submorphs - accessing') ----- - ----- Method: StackMorph>>allNonSubmorphMorphs (in category 'submorphs-accessing') ----- allNonSubmorphMorphs "Return a collection containing all morphs in this morph which are not currently in the submorph containment hierarchy. Especially the non-showing pages in BookMorphs." | coll | coll := OrderedCollection new. self privateCards do: [:cd | cd privateMorphs ifNotNil: [coll addAll: cd privateMorphs]]. ^ coll! Item was changed: + ----- Method: StackMorph>>insertionIndexForPaneOfType: (in category 'submorphs - accessing') ----- - ----- Method: StackMorph>>insertionIndexForPaneOfType: (in category 'submorphs-accessing') ----- insertionIndexForPaneOfType: aType | naturalIndex insertionIndex | naturalIndex := self naturalPaneOrder indexOf: aType. insertionIndex := 1. (self naturalPaneOrder copyFrom: 1 to: (naturalIndex - 1)) do: "guys that would precede" [:sym | (self hasSubmorphWithProperty: sym) ifTrue: [insertionIndex := insertionIndex + 1]]. ^ insertionIndex! Item was changed: + ----- Method: StackMorph>>naturalPaneOrder (in category 'submorphs - accessing') ----- - ----- Method: StackMorph>>naturalPaneOrder (in category 'submorphs-accessing') ----- naturalPaneOrder ^ #(header pageControl retrieve search index content)! Item was changed: ----- Method: StandardScriptingSystem>>openInfoFlapWithLabel:helpContents:edge: (in category '*Etoys-Squeakland-help in a flap') ----- openInfoFlapWithLabel: aTitle helpContents: aString edge: anEdge "Open an info flap with the given label, contents, and edge" | aPlug outer leftStrip rightStrip titleRow aDismissButton aFlapTab | Preferences enable: #scrollBarsOnRight. Preferences enable: #inboardScrollbars. aFlapTab := FlapTab new. aFlapTab assureExtension visible: false. aFlapTab referentMargin: 0 @ Project current world sugarAllowance. outer := HelpFlap newRow. outer assureExtension visible: false. outer clipSubmorphs: true. outer beTransparent. outer vResizing: #spaceFill; hResizing: #spaceFill. outer layoutInset: 0; cellInset: 0; borderWidth: 0. + outer morphicLayerNumber: outer class navigatorLayer. - outer setProperty: #morphicLayerNumber toValue: 26. leftStrip := Morph new beTransparent. leftStrip layoutInset: 0; cellInset: 0; borderWidth: 0. leftStrip width: 20. leftStrip hResizing: #rigid; vResizing: #spaceFill. outer addMorphBack: leftStrip. rightStrip := AlignmentMorph newColumn. rightStrip beTransparent. rightStrip layoutInset: 0; cellInset: 0; borderWidth: 0. outer addMorphBack: rightStrip. outer clipSubmorphs: true. titleRow := AlignmentMorph newRow. titleRow borderColor: Color veryVeryLightGray; borderWidth: 1. titleRow hResizing: #spaceFill; vResizing: #shrinkWrap. titleRow beTransparent. aDismissButton := aFlapTab tanOButton. aDismissButton actionSelector: #dismissViaHalo. titleRow addMorphFront: aDismissButton. titleRow addTransparentSpacerOfSize: 8 @ 0. titleRow addMorphBack: (StringMorph contents: aTitle font: Preferences standardEToysTitleFont). rightStrip addMorph: titleRow. aPlug := PluggableTextMorph new. aPlug width: 540. aPlug setText: aString. aPlug textMorph beAllFont: Preferences standardEToysFont. aPlug retractable: false; scrollBarOnLeft: false. aPlug hScrollBarPolicy: #never. aPlug borderColor: ScriptingSystem borderColor. aPlug setNameTo: aTitle. aPlug hResizing: #spaceFill. aPlug vResizing: #spaceFill. rightStrip addMorphBack: aPlug. aFlapTab referent ifNotNil: [aFlapTab referent delete]. aFlapTab referent: outer. aFlapTab setName: aTitle edge: anEdge color: (Color r: 0.677 g: 0.935 b: 0.484). aFlapTab submorphs first beAllFont: Preferences standardEToysFont. Project current world addMorphFront: aFlapTab. aFlapTab adaptToWorld: Project current world. aFlapTab computeEdgeFraction. anEdge == #left ifTrue: [aFlapTab position: (outer left @ outer top). outer extent: (540 @ Project current world height)]. anEdge == #right ifTrue: [aFlapTab position: ((Project current world right - aFlapTab width) @ Project current world top). outer extent: (540 @ Project current world height)]. outer beFlap: true. outer color: Color green veryMuchLighter. aPlug textMorph lock. aFlapTab referent hide. aFlapTab openFully. outer beSticky. leftStrip beSticky. rightStrip beSticky. Project current world doOneCycle. aPlug width: 540. aPlug setText: aString. "hmm, again" aPlug color: outer color. aPlug borderWidth: 0. aPlug textMorph contents: aString wrappedTo: 520. aFlapTab applyThickness: 560. aFlapTab fitOnScreen. aFlapTab referent show. ^ aFlapTab! Item was changed: ----- Method: SugarNavigatorBar>>initialize (in category 'initialization') ----- initialize super initialize. self layoutInset: 0@0; hResizing: #rigid; vResizing: #rigid; cellPositioning: #topLeft. self cornerStyle: #square. self resistsRemoval: true. self beSticky. self makeGray. + self morphicLayerNumber: self class navigatorLayer. ! Item was removed: - ----- Method: SugarNavigatorBar>>morphicLayerNumber (in category 'event handling') ----- - morphicLayerNumber - - ^ 100. - ! Item was changed: + ----- Method: SyntaxMorph>>findA: (in category 'submorphs - accessing') ----- - ----- Method: SyntaxMorph>>findA: (in category 'submorphs-accessing') ----- findA: aClass | ans | "Allow finding on the class of the parseNode" (ans := super findA: aClass) ifNotNil: [^ ans]. submorphs do: [:ss | ss isSyntaxMorph ifTrue: [ ss parseNode class == aClass ifTrue: [^ ss]]]. ^ nil! Item was changed: + ----- Method: VeryPickyMorph>>delete (in category 'submorphs - add/remove') ----- - ----- Method: VeryPickyMorph>>delete (in category 'submorphs-add/remove') ----- delete passengerMorph ifNotNil: [passengerMorph delete]. super delete! Item was changed: + ----- Method: WebCamMorph>>delete (in category 'submorphs - add/remove') ----- - ----- Method: WebCamMorph>>delete (in category 'submorphs-add/remove') ----- delete self off. super delete! Item was changed: + ----- Method: WireMorph>>delete (in category 'submorphs - add/remove') ----- - ----- Method: WireMorph>>delete (in category 'submorphs-add/remove') ----- delete pins do: [:p | p removeWire: self]. pins first isIsolated ifTrue: [pins first removeVariableAccess. pins second isIsolated ifTrue: [pins second removeModelVariable]] ifFalse: [pins second isIsolated ifTrue: [pins second removeVariableAccess] ifFalse: [pins second addModelVariable]]. super delete!

1 0

The Trunk: 60Deprecated-mt.88.mcz
by commits＠source.squeak.org 26 Feb '21

26 Feb '21

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.88.mcz ==================== Summary ==================== Name: 60Deprecated-mt.88 Author: mt Time: 26 February 2021, 3:44:56.483955 pm UUID: 990c34c3-5689-fc4d-bb49-578f125bd1ec Ancestors: 60Deprecated-mt.87 Complements Morphic-mt.1726 =============== Diff against 60Deprecated-mt.87 =============== Item was added: + ----- Method: Morph>>addMorphInFrontOfLayer: (in category '*60Deprecated-WiW support') ----- + addMorphInFrontOfLayer: aMorph + + self deprecated: 'Use #addMorphFrontInLayer: instead.'. + ^ self addMorphFrontInLayer: aMorph! Item was added: + ----- Method: Morph>>morphicLayerNumberWithin: (in category '*60Deprecated-WiW support') ----- + morphicLayerNumberWithin: anOwner + + self deprecated: 'Use #morphicLayerNumber instead.'. + ^ self morphicLayerNumber!

1 0

The Trunk: MorphicTests-mt.70.mcz
by commits＠source.squeak.org 26 Feb '21

26 Feb '21

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.70.mcz ==================== Summary ==================== Name: MorphicTests-mt.70 Author: mt Time: 26 February 2021, 3:44:25.553955 pm UUID: 6872ad63-f538-cf4a-b162-e1a236b6604b Ancestors: MorphicTests-mt.69 Complements Morphic-mt.1726 with tests. =============== Diff against MorphicTests-mt.69 =============== Item was added: + ----- Method: MorphTest>>test01LayerNumberDefault (in category 'tests - submorphs - layers') ----- + test01LayerNumberDefault + + self assert: Morph new morphicLayerNumber isNumber.! Item was added: + ----- Method: MorphTest>>test02LayerNumberCustom (in category 'tests - submorphs - layers') ----- + test02LayerNumberCustom + + | m | + m := Morph new. + self deny: 50 equals: m morphicLayerNumber. + m morphicLayerNumber: 50. + self assert: 50 equals: m morphicLayerNumber.! Item was added: + ----- Method: MorphTest>>test03LayerNumberFromOwner (in category 'tests - submorphs - layers') ----- + test03LayerNumberFromOwner + "If not specified, inherit the owner's layer number." + + | m1 m2 | + m1 := Morph new. + m2 := Morph new. + m1 addMorph: m2. + + m1 morphicLayerNumber: 50. + self assert: 50 equals: m2 morphicLayerNumber. + + m2 morphicLayerNumber: 25. + self assert: 25 equals: m2 morphicLayerNumber. + ! Item was added: + ----- Method: MorphTest>>test04AddMorphInLayer (in category 'tests - submorphs - layers') ----- + test04AddMorphInLayer + + | container builder unordered ordered | + container := Morph new. + builder := [Morph new]. + + unordered := #(6.5 100 20 15 5.0 6 7 100 20 -10). + unordered := unordered collect: [:layerNumber | + {layerNumber . builder value morphicLayerNumber: layerNumber}]. + unordered do: [:spec | + container addMorphBackInLayer: spec second]. + + ordered := unordered. "No need to reverse the list because add-to-back directly maps to the resulting submorph order." + ordered := ordered sorted: [:a :b | a first <= b first]. "Must be stable." + ordered := ordered collect: [:spec | spec second]. "Just the morphs." + + self assert: (ordered hasEqualElements: container submorphs).! Item was added: + ----- Method: MorphTest>>test05AddMorphFrontInLayer (in category 'tests - submorphs - layers') ----- + test05AddMorphFrontInLayer + + | container builder unordered ordered | + container := Morph new. + builder := [Morph new]. + + unordered := #(6.5 100 20 15 5.0 6 7 100 20 -10). + unordered := unordered collect: [:layerNumber | + {layerNumber . builder value morphicLayerNumber: layerNumber}]. + unordered do: [:spec | + container addMorphFrontInLayer: spec second]. + + ordered := unordered reversed. "Submorph order will be reversed due to add-to-front." + ordered := ordered sorted: [:a :b | a first <= b first]. "Must be stable." + ordered := ordered collect: [:spec | spec second]. "Just the morphs." + + self assert: (ordered hasEqualElements: container submorphs).! Item was added: + ----- Method: MorphTest>>test06AddMorphBackInLayer (in category 'tests - submorphs - layers') ----- + test06AddMorphBackInLayer + + | container builder unordered ordered | + container := Morph new. + builder := [Morph new]. + + unordered := #(6.5 100 20 15 5.0 6 7 100 20 -10). + unordered := unordered collect: [:layerNumber | + {layerNumber . builder value morphicLayerNumber: layerNumber}]. + unordered do: [:spec | + container addMorphBackInLayer: spec second]. + + ordered := unordered. "No need to reverse the list because add-to-back directly maps to the resulting submorph order." + ordered := ordered sorted: [:a :b | a first <= b first]. "Must be stable." + ordered := ordered collect: [:spec | spec second]. "Just the morphs." + + self assert: (ordered hasEqualElements: container submorphs).! Item was added: + ----- Method: MorphTest>>test07ChangeLayerNumber (in category 'tests - submorphs - layers') ----- + test07ChangeLayerNumber + + | container m1 m2 | + container := Morph new. + m1 := Morph new. + m2 := Morph new. + + m1 morphicLayerNumber: 20. "behind m2" + m2 morphicLayerNumber: 10. "in front of m1" + + container addMorphInLayer: m1. + container addMorphInLayer: m2. + self assert: ({m2 . m1} hasEqualElements: container submorphs). + + m1 morphicLayerNumber: 5. "go in front of m2" + container addMorphInLayer: m1. + self assert: ({m1 . m2} hasEqualElements: container submorphs). + + m1 morphicLayerNumber: 50. "go behind m2 again" + container addMorphInLayer: m1. + self assert: ({m2 . m1} hasEqualElements: container submorphs). + ! Item was added: + ----- Method: MorphTest>>test08ChangeLayerNumberAuto (in category 'tests - submorphs - layers') ----- + test08ChangeLayerNumberAuto + + | container m1 m2 | + container := Morph new. + m1 := Morph new. + m2 := Morph new. + + m1 morphicLayerNumber: 20. "behind m2" + m2 morphicLayerNumber: 10. "in front of m1" + + container addMorphInLayer: m1. + container addMorphInLayer: m2. + self assert: ({m2 . m1} hasEqualElements: container submorphs). + + m1 morphicLayerNumber: 5. "go in front of m2" + self assert: ({m1 . m2} hasEqualElements: container submorphs). + + m1 morphicLayerNumber: 50. "go behind m2 again" + self assert: ({m2 . m1} hasEqualElements: container submorphs).! Item was added: + ----- Method: MorphTest>>test09IgnoreLayer (in category 'tests - submorphs - layers') ----- + test09IgnoreLayer + + | container m1 m2 | + container := Morph new. + m1 := Morph new. + m2 := Morph new. + + m1 morphicLayerNumber: 1. + m2 morphicLayerNumber: 999. + + container addMorphFrontInLayer: m1. + container addMorphFront: m2. "Ignore the layer of m1." + self assert: ({m2 . m1} hasEqualElements: container submorphs). + + container addMorphFrontInLayer: m1. + self assert: ({m1 . m2} hasEqualElements: container submorphs).! Item was added: + ----- Method: MorphTest>>test10TransformKeepsLayer (in category 'tests - submorphs - layers') ----- + test10TransformKeepsLayer + + | morph transform | + morph := Morph new. + transform := morph addFlexShell. + + morph morphicLayerNumber: 50. + self assert: 50 equals: transform morphicLayerNumber. + + transform morphicLayerNumber: 20. + self assert: 20 equals: transform morphicLayerNumber. + + transform removeMorph: morph. + transform morphicLayerNumber: 50. + self + assert: 20 equals: morph morphicLayerNumber; + assert: 50 equals: transform morphicLayerNumber.! Item was added: + ----- Method: MorphTest>>test11NamedLayers (in category 'tests - submorphs - layers') ----- + test11NamedLayers + + #( + frontmostLayer + + balloonLayer + haloLayer + menuLayer + + progressLayer + + dialogLayer + navigatorLayer + windowLayer + + defaultLayer + + backmostLayer + + ) overlappingPairsDo: [:a :b | + self assert: (Morph perform: a) <= (Morph perform: b)]! Item was added: + ----- Method: MorphTest>>test12ResetLayerToDefault (in category 'tests - submorphs - layers') ----- + test12ResetLayerToDefault + + | morph default | + morph := Morph new. + default := morph morphicLayerNumber. + + morph morphicLayerNumber: default * 2. + self deny: default equals: morph morphicLayerNumber. + + morph morphicLayerNumber: nil. + self assert: default equals: morph morphicLayerNumber.! Item was changed: + ----- Method: MorphTest>>testAddAllMorphs (in category 'tests - submorphs - add/remove') ----- - ----- Method: MorphTest>>testAddAllMorphs (in category 'testing - add/remove submorphs') ----- testAddAllMorphs self createAndAddMorphs: #(a b). self assert: #(a b) equals: self getSubmorphNames. morph addAllMorphs: (self createMorphs: #(x y)). self assert: #(a b x y) equals: self getSubmorphNames. morph removeAllMorphs. morph addAllMorphs: (self createMorphs: #(x y)). self assert: #(x y) equals: self getSubmorphNames.! Item was changed: + ----- Method: MorphTest>>testAddAllMorphsAfter (in category 'tests - submorphs - add/remove') ----- - ----- Method: MorphTest>>testAddAllMorphsAfter (in category 'testing - add/remove submorphs') ----- testAddAllMorphsAfter self createAndAddMorphs: #(a b). self assert: #(a b) equals: self getSubmorphNames. morph addAllMorphs: (self createMorphs: #(x y)) after: (self getSubmorph: #a). self assert: #(a x y b) equals: self getSubmorphNames. morph addAllMorphs: (self getSubmorphs: #(x y)) after: (self getSubmorph: #b). self assert: #(a b x y) equals: self getSubmorphNames. morph addAllMorphs: (self getSubmorphs: #(a x)) after: (self getSubmorph: #y). self assert: #(b y a x) equals: self getSubmorphNames. morph addAllMorphs: (self getSubmorphs: #(x y)) after: (self getSubmorph: #a). self assert: #(b a x y) equals: self getSubmorphNames.! Item was changed: + ----- Method: MorphTest>>testAddAllMorphsInFrontOf (in category 'tests - submorphs - add/remove') ----- - ----- Method: MorphTest>>testAddAllMorphsInFrontOf (in category 'testing - add/remove submorphs') ----- testAddAllMorphsInFrontOf self createAndAddMorphs: #(a b). self assert: #(a b) equals: self getSubmorphNames. morph addAllMorphs: (self createMorphs: #(x y)) inFrontOf: (self getSubmorph: #b). self assert: #(a x y b) equals: self getSubmorphNames. morph addAllMorphs: (self getSubmorphs: #(x y)) inFrontOf: (self getSubmorph: #a). self assert: #(x y a b) equals: self getSubmorphNames. morph addAllMorphs: (self getSubmorphs: #(y b)) inFrontOf: (self getSubmorph: #x). self assert: #(y b x a) equals: self getSubmorphNames. morph addAllMorphs: (self getSubmorphs: #(x y)) inFrontOf: (self getSubmorph: #b). self assert: #(x y b a) equals: self getSubmorphNames.! Item was changed: + ----- Method: MorphTest>>testIntoWorldCollapseOutOfWorld (in category 'tests - into/outOf World') ----- - ----- Method: MorphTest>>testIntoWorldCollapseOutOfWorld (in category 'testing - into/outOf World') ----- testIntoWorldCollapseOutOfWorld | m1 m2 collapsed | "Create the guys" m1 := TestInWorldMorph new. m2 := TestInWorldMorph new. self assert: (m1 intoWorldCount = 0). self assert: (m1 outOfWorldCount = 0). self assert: (m2 intoWorldCount = 0). self assert: (m2 outOfWorldCount = 0). "add them to basic morph" morph addMorphFront: m1. m1 addMorphFront: m2. self assert: (m1 intoWorldCount = 0). self assert: (m1 outOfWorldCount = 0). self assert: (m2 intoWorldCount = 0). self assert: (m2 outOfWorldCount = 0). "open the guy" morph openInWorld. self assert: (m1 intoWorldCount = 1). self assert: (m1 outOfWorldCount = 0). self assert: (m2 intoWorldCount = 1). self assert: (m2 outOfWorldCount = 0). "collapse it" collapsed := CollapsedMorph new beReplacementFor: morph. self assert: (m1 intoWorldCount = 1). self assert: (m1 outOfWorldCount = 1). self assert: (m2 intoWorldCount = 1). self assert: (m2 outOfWorldCount = 1). "expand it" collapsed collapseOrExpand. self assert: (m1 intoWorldCount = 2). self assert: (m1 outOfWorldCount = 1). self assert: (m2 intoWorldCount = 2). self assert: (m2 outOfWorldCount = 1). "delete it" morph delete. self assert: (m1 intoWorldCount = 2). self assert: (m1 outOfWorldCount = 2). self assert: (m2 intoWorldCount = 2). self assert: (m2 outOfWorldCount = 2). ! Item was changed: + ----- Method: MorphTest>>testIntoWorldDeleteOutOfWorld (in category 'tests - into/outOf World') ----- - ----- Method: MorphTest>>testIntoWorldDeleteOutOfWorld (in category 'testing - into/outOf World') ----- testIntoWorldDeleteOutOfWorld | m1 m2 | "Create the guys" m1 := TestInWorldMorph new. m2 := TestInWorldMorph new. self assert: (m1 intoWorldCount = 0). self assert: (m1 outOfWorldCount = 0). self assert: (m2 intoWorldCount = 0). self assert: (m2 outOfWorldCount = 0). morph addMorphFront: m1. m1 addMorphFront: m2. self assert: (m1 intoWorldCount = 0). self assert: (m1 outOfWorldCount = 0). self assert: (m2 intoWorldCount = 0). self assert: (m2 outOfWorldCount = 0). morph openInWorld. self assert: (m1 intoWorldCount = 1). self assert: (m1 outOfWorldCount = 0). self assert: (m2 intoWorldCount = 1). self assert: (m2 outOfWorldCount = 0). morph delete. self assert: (m1 intoWorldCount = 1). self assert: (m1 outOfWorldCount = 1). self assert: (m2 intoWorldCount = 1). self assert: (m2 outOfWorldCount = 1). ! Item was changed: + ----- Method: MorphTest>>testIntoWorldTransferToNewGuy (in category 'tests - into/outOf World') ----- - ----- Method: MorphTest>>testIntoWorldTransferToNewGuy (in category 'testing - into/outOf World') ----- testIntoWorldTransferToNewGuy | m1 m2 | "Create the guys" m1 := TestInWorldMorph new. m2 := TestInWorldMorph new. self assert: (m1 intoWorldCount = 0). self assert: (m1 outOfWorldCount = 0). self assert: (m2 intoWorldCount = 0). self assert: (m2 outOfWorldCount = 0). morph addMorphFront: m1. m1 addMorphFront: m2. self assert: (m1 intoWorldCount = 0). self assert: (m1 outOfWorldCount = 0). self assert: (m2 intoWorldCount = 0). self assert: (m2 outOfWorldCount = 0). morph openInWorld. self assert: (m1 intoWorldCount = 1). self assert: (m1 outOfWorldCount = 0). self assert: (m2 intoWorldCount = 1). self assert: (m2 outOfWorldCount = 0). morph addMorphFront: m2. self assert: (m1 intoWorldCount = 1). self assert: (m1 outOfWorldCount = 0). self assert: (m2 intoWorldCount = 1). self assert: (m2 outOfWorldCount = 0). morph addMorphFront: m1. self assert: (m1 intoWorldCount = 1). self assert: (m1 outOfWorldCount = 0). self assert: (m2 intoWorldCount = 1). self assert: (m2 outOfWorldCount = 0). m2 addMorphFront: m1. self assert: (m1 intoWorldCount = 1). self assert: (m1 outOfWorldCount = 0). self assert: (m2 intoWorldCount = 1). self assert: (m2 outOfWorldCount = 0). morph delete. self assert: (m1 intoWorldCount = 1). self assert: (m1 outOfWorldCount = 1). self assert: (m2 intoWorldCount = 1). self assert: (m2 outOfWorldCount = 1). ! Item was changed: + ----- Method: MorphTest>>testIsMorph (in category 'tests - classification') ----- - ----- Method: MorphTest>>testIsMorph (in category 'testing - classification') ----- testIsMorph self assert: (morph isMorph).! Item was changed: + ----- Method: MorphTest>>testOpenInWorld (in category 'tests - initialization') ----- - ----- Method: MorphTest>>testOpenInWorld (in category 'testing - initialization') ----- testOpenInWorld "This should not throw an exception." morph openInWorld.!

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
20
Older →

Jump to page: