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!