Packages February 2021

packages@lists.squeakfoundation.org

1 participants
74 discussions

The Trunk: Kernel-jar.1375.mcz
by commits＠source.squeak.org 28 Feb '21

28 Feb '21

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-jar.1375.mcz ==================== Summary ==================== Name: Kernel-jar.1375 Author: jar Time: 28 February 2021, 1:39:18.242036 pm UUID: 5fa0cf53-5852-2949-b7f0-a13d8729925b Ancestors: Kernel-codefrau.1374 Fix Process class >> #forContext:priority: potentially crashing image =============== Diff against Kernel-codefrau.1374 =============== Item was changed: ----- Method: Process class>>forContext:priority: (in category 'instance creation') ----- forContext: aContext priority: anInteger "Answer an instance of me that has suspended aContext at priority anInteger." | newProcess | newProcess := self new. + newProcess suspendedContext: aContext asContext. - newProcess suspendedContext: aContext. newProcess priority: anInteger. ^newProcess!

1 0

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

26 Feb '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1727.mcz ==================== Summary ==================== Name: Morphic-mt.1727 Author: mt Time: 26 February 2021, 4:11:09.467077 pm UUID: abe6e8cd-15b2-204c-bd96-9f85ade5304c Ancestors: Morphic-mt.1726 Minor tweak in the conversion script for flaps. =============== Diff against Morphic-mt.1726 =============== Item was changed: + (PackageInfo named: 'Morphic') postscript: 'PasteUpMorph allSubInstancesDo: [:m | m isFlap ifTrue: [m morphicLayerNumber: Morph navigatorLayer]]. - (PackageInfo named: 'Morphic') postscript: 'PasteUpMorph allInstances do: [:m | m isFlap ifTrue: [m morphicLayerNumber: Morph navigatorLayer]]. TheWorldMainDockingBar updateInstances. SystemProgressMorph reset. self currentWorld reorderSubmorphsInLayers.'!

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2021