Packages March 2021

packages@lists.squeakfoundation.org

1 participants
89 discussions

The Trunk: Morphic-mt.1732.mcz
by commits＠source.squeak.org 02 Mar '21

02 Mar '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1732.mcz ==================== Summary ==================== Name: Morphic-mt.1732 Author: mt Time: 2 March 2021, 5:06:00.167687 pm UUID: cb835785-768b-fd48-8eef-af27742a70dc Ancestors: Morphic-mt.1731 Encapsulates most of the logic for halo invocation (and transfer) from Morph and PasteUpMorph into a new MorphicHaloDispatcher. Hopefully no new bugs introduced. Yet, there is still this issue with protruding submorphs due to the logic in #dispatchHalo:createFor: ... :-) PasteUpMorph #tryInvokeHalo: --> #dispatchHalo:createFor: Morph #transferHalo:from: --> #dispatchHalo:transferFrom: It always starts in #dispatchHalo:with: --- either called from the world's event filter or the current halo's mouse-down handling code. =============== Diff against Morphic-mt.1731 =============== Item was removed: - ----- Method: Morph>>addHalo:from: (in category 'halos and balloon help') ----- - addHalo: evt from: formerHaloOwner - "Transfer a halo from the former halo owner to the receiver" - ^self addHalo: evt! Item was added: + ----- Method: Morph>>defaultHaloDispatcher (in category 'halos and balloon help') ----- + defaultHaloDispatcher + + ^ MorphicHaloDispatcher new! Item was removed: - ----- Method: Morph>>invokeHaloOrMove: (in category 'meta-actions') ----- - invokeHaloOrMove: anEvent - "Special gestures (cmd-mouse on the Macintosh; Alt-mouse on Windows and Unix) allow a mouse-sensitive morph to be moved or bring up a halo for the morph." - | h tfm doNotDrag | - h := anEvent hand halo. - "Prevent wrap around halo transfers originating from throwing the event back in" - doNotDrag := false. - h ifNotNil:[ - (h innerTarget == self) ifTrue:[doNotDrag := true]. - (h innerTarget hasOwner: self) ifTrue:[doNotDrag := true]. - (self hasOwner: h target) ifTrue:[doNotDrag := true]]. - - tfm := (self transformedFrom: nil) inverseTransformation. - - "cmd-drag on flexed morphs works better this way" - h := self addHalo: (anEvent transformedBy: tfm). - h ifNil: [^ self]. - doNotDrag ifTrue:[^self]. - "Initiate drag transition if requested" - anEvent hand - waitForClicksOrDrag: h - event: (anEvent transformedBy: tfm) - selectors: { nil. nil. nil. #startDragTarget:. } - threshold: HandMorph dragThreshold. - "Pass focus explicitly here" - anEvent hand newMouseFocus: h. - "Reset temporary cursors to make available halo interaction visible." - anEvent hand showTemporaryCursor: nil.! Item was added: + ----- Method: Morph>>transferHalo: (in category 'halos and balloon help') ----- + transferHalo: event + + ^ self transferHalo: event using: self defaultHaloDispatcher! Item was removed: - ----- Method: Morph>>transferHalo:from: (in category 'halos and balloon help') ----- - transferHalo: event from: formerHaloOwner - "Progressively transfer the halo to the next likely recipient" - | localEvt w target | - - self flag: #workAround. "For halo's distinction between 'target' and 'innerTarget' we need to bypass any renderers." - (formerHaloOwner == self and:[self isRenderer and:[self wantsHaloFromClick not]]) ifTrue:[ - event shiftPressed ifTrue:[ - target := owner. - localEvt := event transformedBy: (self transformedFrom: owner). - ] ifFalse:[ - target := self renderedMorph. - localEvt := event transformedBy: (target transformedFrom: self). - ]. - ^target transferHalo: localEvt from: target]. - - " formerHaloOwner == self ifTrue:[^ self removeHalo]." - - "Never transfer halo to top-most world" - (self isWorldMorph and:[owner isNil]) ifFalse:[ - (self wantsHaloFromClick and:[formerHaloOwner ~~ self]) - ifTrue:[^self addHalo: event from: formerHaloOwner]]. - - event shiftPressed ifTrue:[ - "Pass it outwards" - owner ifNotNil:[^owner transferHalo: event from: formerHaloOwner]. - "We're at the top level; throw the event back in to find recipient" - formerHaloOwner removeHalo. - ^self processEvent: event copy resetHandlerFields. - ]. - self submorphsDo:[:m| - localEvt := event transformedBy: (m transformedFrom: self). - (m fullContainsPoint: localEvt position) - ifTrue:[^m transferHalo: event from: formerHaloOwner]. - ]. - "We're at the bottom most level; throw the event back up to the root to find recipient" - formerHaloOwner removeHalo. - - Preferences maintainHalos ifFalse:[ - (w := self world) ifNil: [ ^self ]. - localEvt := event transformedBy: (self transformedFrom: w) inverseTransformation. - ^w processEvent: localEvt resetHandlerFields. - ]. - ! Item was added: + ----- Method: Morph>>transferHalo:using: (in category 'halos and balloon help') ----- + transferHalo: event using: dispatcher + + ^ dispatcher dispatchHalo: event with: self! Item was added: + Object subclass: #MorphicHaloDispatcher + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Events'! Item was added: + ----- Method: MorphicHaloDispatcher>>dispatchHalo:createFor: (in category 'dispatching') ----- + dispatchHalo: anEvent createFor: aMorph + "Invoke halos around the top-most world container at aUserInputEvent's #position. If it was already halo'd, zero-in on its next inward component morph at that position. Holding Shift during the click reverses this traversal order." + + | stack innermost haloTarget | + "the stack is the top-most morph to bottom-most." + stack := (aMorph morphsAt: anEvent position unlocked: true) select: + [ : each | each wantsHaloFromClick or: [ each handlesMouseDown: anEvent ] ]. + innermost := anEvent hand halo + ifNil: [ stack first ] + ifNotNil: + [ : existingHalo | + (stack := stack copyWithout: existingHalo) "No halos on halos" + detect: [ : each | each owner == aMorph ] + ifFound: + [ : worldContainer | "Is existingHalo's target part of the same worldContainer as the morph clicked?" + (existingHalo target withAllOwners includes: worldContainer) + ifTrue: [ "same hierarchy, let #transferHalo: continue to handle it for now." ^ false ] + ifFalse: + [ "different hierarchy, remove + add." + anEvent hand removeHalo. + anEvent shiftPressed + ifTrue: [ stack first ] + ifFalse: [ worldContainer ] ] ] + ifNone: [ "existingHalo is on the World, defer to #transferHalo: for now." ^ false ] ]. + + "If modifier key is pressed, start at innermost (the target), otherwise the outermost (direct child of the world (self))." + haloTarget := (innermost == aMorph or: [anEvent shiftPressed]) + ifTrue: [ innermost ] + ifFalse: + [ "Find the outermost owner that wants it." + innermost withAllOwners reversed allButFirst + detect: [ : each | each wantsHaloFromClick ] + ifNone: [ "haloTarget has its own mouseDown handler, don't halo." ^ false ] ]. + "Now that we have the haloTarget, show the halo." + self invokeHaloOrMove: anEvent on: haloTarget. + ^ true! Item was added: + ----- Method: MorphicHaloDispatcher>>dispatchHalo:transferFrom: (in category 'dispatching') ----- + dispatchHalo: event transferFrom: morph + "Progressively transfer the halo to the next likely recipient" + + ^ event shiftPressed + ifTrue: [self dispatchHalo: event transferOutwardsFrom: morph] + ifFalse: [self dispatchHalo: event transferInwardsFrom: morph]! Item was added: + ----- Method: MorphicHaloDispatcher>>dispatchHalo:transferInwardsFrom: (in category 'dispatching') ----- + dispatchHalo: event transferInwardsFrom: currentTarget + + | localEvent world | + currentTarget submorphsDo: [:nextTarget | + localEvent := event transformedBy: (nextTarget transformedFrom: currentTarget). + (nextTarget fullContainsPoint: localEvent position) ifTrue: [ + ^ nextTarget wantsHaloFromClick + ifTrue: [self invokeHalo: localEvent on: nextTarget] + ifFalse: [self dispatchHalo: localEvent transferInwardsFrom: nextTarget]]]. + + "We're at the bottom most level; throw the event back up to the root to find recipient" + event hand removeHalo. + Preferences maintainHalos ifFalse: [ + (world := currentTarget world) ifNil: [ ^ false ]. + localEvent := event transformedBy: (currentTarget transformedFrom: world) inverseTransformation. + world processEvent: localEvent resetHandlerFields]. + + ^ false! Item was added: + ----- Method: MorphicHaloDispatcher>>dispatchHalo:transferOutwardsFrom: (in category 'dispatching') ----- + dispatchHalo: event transferOutwardsFrom: currentTarget + + | localEvent | + currentTarget owner ifNotNil: [:nextTarget | + localEvent := event transformedBy: (currentTarget transformedFrom: nextTarget). + "Never transfer halo to top-most world" + ^ (nextTarget isWorldMorph not and: [nextTarget wantsHaloFromClick]) + ifTrue: [self invokeHalo: localEvent on: nextTarget] + ifFalse: [self dispatchHalo: localEvent transferOutwardsFrom: nextTarget]]. + + "We're at the top level; throw the event back in to find recipient" + event hand removeHalo. + currentTarget isWorldMorph + ifTrue: [currentTarget processEvent: event copy resetHandlerFields]. + + ^ false! Item was added: + ----- Method: MorphicHaloDispatcher>>dispatchHalo:with: (in category 'dispatching') ----- + dispatchHalo: anEvent with: aMorph + + | halo successful | + halo := anEvent hand halo. + successful := (halo isNil or: [halo target ~~ aMorph]) + ifTrue: [self dispatchHalo: anEvent createFor: aMorph] + ifFalse: [self dispatchHalo: anEvent transferFrom: aMorph]. + successful ifTrue: [ + self assert: [halo ~~ anEvent hand halo]. + anEvent hand halo setProperty: #lastHaloDispatcher toValue: self]. + ^ successful! Item was added: + ----- Method: MorphicHaloDispatcher>>invokeHalo:on: (in category 'invoking') ----- + invokeHalo: anEvent on: aMorph + + aMorph addHalo: anEvent. + ^ true! Item was added: + ----- Method: MorphicHaloDispatcher>>invokeHaloOrMove:on: (in category 'invoking') ----- + invokeHaloOrMove: anEvent on: aMorph + "Special gestures (cmd-mouse on the Macintosh; Alt-mouse on Windows and Unix) allow a mouse-sensitive morph to be moved or bring up a halo for the morph." + | h tfm doNotDrag | + anEvent hand newMouseFocus: aMorph event: anEvent. + h := anEvent hand halo. + "Prevent wrap around halo transfers originating from throwing the event back in" + doNotDrag := false. + h ifNotNil:[ + (h innerTarget == aMorph) ifTrue:[doNotDrag := true]. + (h innerTarget hasOwner: aMorph) ifTrue:[doNotDrag := true]. + (aMorph hasOwner: h target) ifTrue:[doNotDrag := true]]. + + tfm := (aMorph transformedFrom: nil) inverseTransformation. + + "cmd-drag on flexed morphs works better this way" + h := aMorph addHalo: (anEvent transformedBy: tfm). + h setProperty: #lastHaloDispatcher toValue: self. + doNotDrag ifTrue:[^ true]. + "Initiate drag transition if requested" + anEvent hand + waitForClicksOrDrag: h + event: (anEvent transformedBy: tfm) + selectors: { nil. nil. nil. #startDragTarget:. } + threshold: HandMorph dragThreshold. + "Pass focus explicitly here" + anEvent hand newMouseFocus: h. + "Reset temporary cursors to make available halo interaction visible." + anEvent hand showTemporaryCursor: nil. + ^ true! Item was changed: ----- Method: PasteUpMorph>>tryInvokeHalo: (in category 'events-processing') ----- tryInvokeHalo: aUserInputEvent + - "Invoke halos around the top-most world container at aUserInputEvent's #position. If it was already halo'd, zero-in on its next inward component morph at that position. Holding Shift during the click reverses this traversal order." - | stack innermost haloTarget | Preferences noviceMode ifTrue: [ ^ self ]. Morph haloForAll ifFalse: [ ^ self ]. + + (self transferHalo: aUserInputEvent) + ifTrue: "The event was handled, don't let it cause any further side-effects." + [ aUserInputEvent ignore ].! - "the stack is the top-most morph to bottom-most." - stack := (self morphsAt: aUserInputEvent position unlocked: true) select: - [ : each | each wantsHaloFromClick or: [ each handlesMouseDown: aUserInputEvent ] ]. - innermost := aUserInputEvent hand halo - ifNil: [ stack first ] - ifNotNil: - [ : existingHalo | (stack copyWithout: existingHalo) "No halos on halos" - detect: [ : each | each owner == self ] - ifFound: - [ : worldContainer | "Is existingHalo's target part of the same worldContainer as the morph clicked?" - (existingHalo target withAllOwners includes: worldContainer) - ifTrue: [ "same hierarchy, let #transferHalo: continue to handle it for now." ^self ] - ifFalse: - [ "different hierarchy, remove + add." - aUserInputEvent hand removeHalo. - aUserInputEvent shiftPressed - ifTrue: [ stack second "first is still the just removed halo" ] - ifFalse: [ worldContainer ] ] ] - ifNone: [ "existingHalo is on the World, defer to #transferHalo: for now." ^self ] ]. - "If modifier key is pressed, start at innermost (the target), otherwise the outermost (direct child of the world (self))." - haloTarget := (innermost == self or: [aUserInputEvent shiftPressed]) - ifTrue: [ innermost ] - ifFalse: - [ "Find the outermost owner that wants it." - innermost withAllOwners reversed allButFirst - detect: [ : each | each wantsHaloFromClick ] - ifNone: [ "haloTarget has its own mouseDown handler, don't halo." ^ self ] ]. - "Now that we have the haloTarget, show the halo." - aUserInputEvent hand - newMouseFocus: haloTarget - event: aUserInputEvent. - haloTarget invokeHaloOrMove: aUserInputEvent. - "aUserInputEvent has been consumed, don't let it cause any further side-effects." - aUserInputEvent ignore! Item was changed: ----- Method: SimpleHaloMorph>>transferHalo: (in category 'pop up') ----- transferHalo: event "Transfer the halo to the next likely recipient" + ^ self + transferHalo: event + using: (self + valueOfProperty: #lastHaloDispatcher + ifAbsent: [self target defaultHaloDispatcher])! - self target - transferHalo: (event transformedBy: (self target transformedFrom: self)) - from: self target.! Item was removed: - ----- Method: SimpleHaloMorph>>transferHalo:from: (in category 'halos and balloon help') ----- - transferHalo: event from: formerHaloOwner - "If my world tries to open on me, pass it on to the next sibling after me." - - formerHaloOwner == self world ifTrue: [ - self world submorphsDo: [:m | - (m ~~ self and: [m fullContainsPoint: event position]) ifTrue: [ - m comeToFront. - ^ m transferHalo: event from: formerHaloOwner]]].! Item was added: + ----- Method: SimpleHaloMorph>>transferHalo:using: (in category 'pop up') ----- + transferHalo: event using: dispatcher + "Transfer the halo to the next likely recipient. Call the target again so that it may change the dispatcher." + + ^ self target + transferHalo: (event transformedBy: (self target transformedFrom: self)) + using: dispatcher! Item was added: + ----- Method: SimpleHaloMorph>>wantsHaloFromClick (in category 'halos and balloon help') ----- + wantsHaloFromClick + + ^ false!

1 0

The Trunk: EToys-mt.429.mcz
by commits＠source.squeak.org 02 Mar '21

02 Mar '21

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.429.mcz ==================== Summary ==================== Name: EToys-mt.429 Author: mt Time: 2 March 2021, 11:45:35.238687 am UUID: ef67f837-252c-6b4d-a9ff-b543b854da2a Ancestors: EToys-mt.428 Complements Morphic-mt.1731 =============== Diff against EToys-mt.428 =============== Item was changed: ----- Method: PasteUpMorph>>backgroundForm (in category '*Etoys-playfield') ----- backgroundForm ^ self backgroundSketch ifNil: [Form extent: self extent depth: Display depth] + ifNotNil: [:sketch | sketch form]! - ifNotNil: [backgroundMorph form]! Item was added: + ----- Method: PasteUpMorph>>backgroundGridMorph (in category '*Etoys-playfield-gridding') ----- + backgroundGridMorph + + ^ self valueOfProperty: #backgroundGridMorph! Item was added: + ----- Method: PasteUpMorph>>backgroundGridMorph: (in category '*Etoys-playfield-gridding') ----- + backgroundGridMorph: aMorph + + self setProperty: #backgroundGridMorph toValue: aMorph.! Item was added: + ----- Method: PasteUpMorph>>backgroundMorph (in category '*Etoys-playfield') ----- + backgroundMorph + + ^ self valueOfProperty: #backgroundMorph! Item was added: + ----- Method: PasteUpMorph>>backgroundMorph: (in category '*Etoys-playfield') ----- + backgroundMorph: aMorph + + self setProperty: #backgroundMorph toValue: aMorph.! Item was changed: ----- Method: PasteUpMorph>>backgroundSketch (in category '*Etoys-playfield') ----- backgroundSketch + self backgroundMorph ifNil: [^ nil]. + self backgroundMorph owner == self ifFalse: + [self backgroundMorph: nil]. "has been deleted" + ^ self backgroundMorph! - backgroundMorph ifNil: [^ nil]. - backgroundMorph owner == self ifFalse: - [backgroundMorph := nil]. "has been deleted" - ^ backgroundMorph! Item was changed: ----- Method: PasteUpMorph>>backgroundSketch: (in category '*Etoys-playfield') ----- backgroundSketch: aSketchMorphOrNil "Set the receiver's background graphic as indicated. If nil is supplied, remove any existing background graphic. In any case, delete any preexisting background graphic." + self backgroundMorph ifNotNil: [self backgroundMorph delete]. "replacing old background" - backgroundMorph ifNotNil: [backgroundMorph delete]. "replacing old background" + aSketchMorphOrNil ifNil: [self backgroundMorph: nil. ^ self]. - aSketchMorphOrNil ifNil: [backgroundMorph := nil. ^ self]. + self backgroundMorph: (StickySketchMorph new form: aSketchMorphOrNil form). + self backgroundMorph position: aSketchMorphOrNil position. + self addMorphBack: self backgroundMorph. - backgroundMorph := StickySketchMorph new form: aSketchMorphOrNil form. - backgroundMorph position: aSketchMorphOrNil position. - self addMorphBack: backgroundMorph. aSketchMorphOrNil delete. + self backgroundMorph lock. + self backgroundMorph disableLayout: true. + self backgroundMorph setProperty: #shared toValue: true. + self backgroundMorph morphicLayerNumber: self class backmostLayer. + ^ self backgroundMorph - backgroundMorph lock. - backgroundMorph setProperty: #shared toValue: true. - ^ backgroundMorph ! Item was changed: ----- Method: PasteUpMorph>>deleteBackgroundPainting (in category '*Etoys-playfield') ----- deleteBackgroundPainting + self backgroundMorph - backgroundMorph ifNotNil: + [self backgroundMorph delete. + self backgroundMorph: nil] - [backgroundMorph delete. - backgroundMorph := nil] ifNil: [self inform: 'There is presently no background painting to delete.' translated]! Item was added: + ----- Method: PasteUpMorph>>gridVisible (in category '*Etoys-playfield-gridding') ----- + gridVisible + + ^ self hasProperty: #gridVisible! Item was added: + ----- Method: PasteUpMorph>>gridVisibleOnOff (in category '*Etoys-playfield-gridding') ----- + gridVisibleOnOff + + self setProperty: #gridVisible toValue: self gridVisible not. + + self backgroundGridMorph ifNotNil: [:morph | morph delete]. + + self gridVisible ifFalse: [self backgroundGridMorph: nil. ^ self]. + + self backgroundGridMorph: (Morph new + fillStyle: (self + gridFormOrigin: self gridOrigin grid: self gridModulus + background: nil line: Color lightGray); + lock; + disableLayout: true; "The morphs itself visualizes the origin." + ownerChangedHandler: [:m | m bounds: m owner bounds]; + morphicLayerNumber: self class backmostLayer - 1). + + self addMorph: self backgroundGridMorph.! Item was added: + ----- Method: PasteUpMorph>>gridVisibleString (in category '*Etoys-playfield-gridding') ----- + gridVisibleString + "Answer a string to be used in a menu offering the opportunity + to show or hide the grid" + ^ (self gridVisible + ifTrue: ['<yes>'] + ifFalse: ['<no>']) + , 'grid visible when gridding' translated! Item was added: + ----- Method: PasteUpMorph>>griddingOn (in category '*Etoys-playfield-gridding') ----- + griddingOn + + ^ self layoutPolicy notNil and: [self layoutPolicy isGridLayout]! Item was added: + ----- Method: PasteUpMorph>>griddingOnOff (in category '*Etoys-playfield-gridding') ----- + griddingOnOff + "Change grid layout. Consider the #clearArea to ignore docking bars and other adhereing morphs." + + self layoutPolicy: (self griddingOn ifFalse: [GridLayout new]).! Item was added: + ----- Method: PasteUpMorph>>griddingString (in category '*Etoys-playfield-gridding') ----- + griddingString + "Answer a string to use in a menu offering the user the + opportunity to start or stop using gridding" + ^ (self griddingOn + ifTrue: ['<yes>'] + ifFalse: ['<no>']) + , 'use gridding' translated! Item was added: + ----- Method: PasteUpMorph>>setGridSpec (in category '*Etoys-playfield-gridding') ----- + setGridSpec + "Gridding rectangle provides origin and modulus" + | response result | + response := UIManager default + request: 'New grid origin (usually 0@0):' translated + initialAnswer: self gridOrigin printString. + response isEmpty ifTrue: [^ self]. + result := [Compiler evaluate: response] ifError: [^ self]. + (result isPoint and: [(result >= (0@0))]) + ifTrue: [self gridOrigin: result] + ifFalse: [self inform: ('Must be a Point with coordinates (for example 10@10)' translated )]. + + response := UIManager default + request: 'New grid spacing:' translated + initialAnswer: self gridModulus printString. + response isEmpty ifTrue: [^ self]. + result := [Compiler evaluate: response] ifError: [^ self]. + (result isPoint and: [(result > (0@0)) ]) + ifTrue: [self gridModulus: result] + ifFalse: [self inform: ('Must be a Point with coordinates (for example 10@10)' translated )]. + + !

1 0

The Trunk: Morphic-mt.1731.mcz
by commits＠source.squeak.org 02 Mar '21

02 Mar '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1731.mcz ==================== Summary ==================== Name: Morphic-mt.1731 Author: mt Time: 2 March 2021, 11:44:21.476687 am UUID: d06129c7-0def-1645-9066-c8a5720bf5d2 Ancestors: Morphic-mt.1730 Adds the possibility to handle #ownerChanged through composition (instead of subclassing/overwriting). Note that #cull: also works with symbols and message sends, not just blocks. :-) Got inspired by #eventHandler and how #mouseDown: (etc.) is implemented in Morph. Use it to extract Etoys-specific background morph and grid. =============== Diff against Morphic-mt.1730 =============== Item was changed: + ----- Method: Morph>>ownerChanged (in category 'layout') ----- - ----- Method: Morph>>ownerChanged (in category 'change reporting') ----- ownerChanged "This morph's owner has changed its geometry and is about to update its layout. This is a simple layout hook to update this morph's geometry according to its owner. For more advanced strategies, use a LayoutPolicy with some LayoutProperties. See #layoutPolicy: and maybe also #doLayoutIn:." + self snapToEdgeIfAppropriate. + + self ownerChangedHandler + ifNotNil: [:handler | handler cull: self].! - self snapToEdgeIfAppropriate.! Item was added: + ----- Method: Morph>>ownerChangedHandler (in category 'layout') ----- + ownerChangedHandler + + ^ self valueOfProperty: #ownerChangedHandler! Item was added: + ----- Method: Morph>>ownerChangedHandler: (in category 'layout') ----- + ownerChangedHandler: aHandler + + self + setProperty: #ownerChangedHandler + toValue: aHandler. + + self layoutChanged.! Item was changed: ----- Method: MorphicProject class>>applyUserInterfaceTheme (in category 'preferences') ----- applyUserInterfaceTheme self current addDeferredUIMessage: [ "After all immediate changes where applied, we can reset to values that match the current world configuration:" self worldGridOrigin: nil. self worldGridModulus: nil. + self worldGridEnabled - self current world griddingOn ifTrue: [self current world firstHand turnOnGridding]].! Item was changed: ----- Method: MorphicProject class>>worldGridEnabled (in category 'preferences') ----- worldGridEnabled <preference: 'Snap Morphs to World Grid' categoryList: #('Morphic' 'Tools') description: 'When true, morphs placed in the world will align with a regular grid. This includes tool windows.' type: #Boolean> + + | world | + world := self current world. + ^ self current isMorphic and: [world layoutPolicy notNil and: [world layoutPolicy isGridLayout]]! - ^ self current isMorphic and: [self current world griddingOn]! Item was changed: ----- Method: MorphicProject class>>worldGridEnabled: (in category 'preferences') ----- worldGridEnabled: aBooleanOrNil + (aBooleanOrNil ifNil: [false]) + ifTrue: [self current world layoutPolicy: GridLayout new] + ifFalse: [self current world layoutPolicy: nil]. - (aBooleanOrNil ifNil: [false]) = self current world griddingOn - ifFalse: [self current world griddingOnOff]. "Auto-configure origin and modulus to match world properties." self worldGridOrigin: nil. self worldGridModulus: nil. "Snap to grid when dragging something." + self worldGridEnabled - self current world griddingOn ifTrue: [self current world firstHand turnOnGridding] ifFalse: [self current world firstHand turnOffGridding].! Item was changed: BorderedMorph subclass: #PasteUpMorph + instanceVariableNames: 'presenter model cursor padding turtleTrailsForm turtlePen lastTurtlePositions isPartsBin indicateCursor wantsMouseOverHalos worldState' - instanceVariableNames: 'presenter model cursor padding backgroundMorph turtleTrailsForm turtlePen lastTurtlePositions isPartsBin indicateCursor wantsMouseOverHalos worldState' classVariableNames: 'GlobalCommandKeysEnabled WindowEventHandler' poolDictionaries: '' category: 'Morphic-Worlds'! !PasteUpMorph commentStamp: '<historical>' prior: 0! A morph whose submorphs comprise a paste-up of rectangular subparts which "show through". Anything called a 'Playfield' is a PasteUpMorph. Facilities commonly needed on pages of graphical presentations and on simulation playfields, such as the painting of new objects, turtle trails, gradient fills, background paintings, parts-bin behavior, collision-detection, etc., are (or will be) provided. A World, the entire Smalltalk screen, is a PasteUpMorph. A World responds true to isWorld. Morph subclasses that have specialized menus (BookMorph) build them in the message addBookMenuItemsTo:hand:. A PasteUpMorph that is a world, builds its menu in HandMorph buildWorldMenu. presenter A Presenter in charge of stopButton stepButton and goButton, mouseOverHalosEnabled soundsEnabled fenceEnabled coloredTilesEnabled. model <not used> cursor ?? padding ?? backgroundMorph A Form that covers the background. turtleTrailsForm Moving submorphs may leave trails on this form. turtlePen Draws the trails. lastTurtlePositions A Dictionary of (aPlayer -> aPoint) so turtle trails can be drawn only once each step cycle. The point is the start of the current stroke. isPartsBin If true, every object dragged out is copied. autoLineLayout ?? indicateCursor ?? resizeToFit ?? wantsMouseOverHalos If true, simply moving the cursor over a submorph brings up its halo. worldState If I am also a World, keeps the hands, damageRecorder, stepList etc. griddingOn If true, submorphs are on a grid ! Item was changed: ----- Method: PasteUpMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas "Draw in order: - background color - - grid, if any - - background sketch, if any - Update and draw the turtleTrails form. See the comment in updateTrailsForm. - cursor box if any Later (in drawSubmorphsOn:) I will skip drawing the background sketch." "draw background fill" super drawOn: aCanvas. - "draw grid" - (self griddingOn and: [self gridVisible]) - ifTrue: - [aCanvas fillRectangle: self bounds - fillStyle: (self - gridFormOrigin: self gridOrigin - grid: self gridModulus - background: nil - line: Color lightGray)]. - - "draw background sketch." - backgroundMorph ifNotNil: [ - self clipSubmorphs ifTrue: [ - aCanvas clipBy: self clippingBounds - during: [ :canvas | canvas fullDrawMorph: backgroundMorph ]] - ifFalse: [ aCanvas fullDrawMorph: backgroundMorph ]]. - "draw turtle trails" (lastTurtlePositions isNil or: [lastTurtlePositions isEmpty]) ifFalse:[ self updateTrailsForm. ]. turtleTrailsForm ifNotNil: [aCanvas paintImage: turtleTrailsForm at: self position]. "draw cursor" (submorphs notEmpty and: [self indicateCursor]) ifTrue: [aCanvas frameRectangle: self selectedRect width: 2 color: Color black]! Item was removed: - ----- Method: PasteUpMorph>>drawSubmorphsOn: (in category 'painting') ----- - drawSubmorphsOn: aCanvas - "Display submorphs back to front, but skip my background sketch." - - | drawBlock | - submorphs isEmpty ifTrue: [^self]. - drawBlock := [:canvas | submorphs reverseDo: [:m | m ~~ backgroundMorph ifTrue: [ canvas fullDrawMorph: m ]]]. - self clipSubmorphs - ifTrue: [aCanvas clipBy: self clippingBounds during: drawBlock] - ifFalse: [drawBlock value: aCanvas]! Item was removed: - ----- Method: PasteUpMorph>>gridVisible (in category 'gridding') ----- - gridVisible - - ^ self hasProperty: #gridVisible! Item was removed: - ----- Method: PasteUpMorph>>gridVisibleOnOff (in category 'gridding') ----- - gridVisibleOnOff - - self setProperty: #gridVisible toValue: self gridVisible not. - self changed! Item was removed: - ----- Method: PasteUpMorph>>gridVisibleString (in category 'gridding') ----- - gridVisibleString - "Answer a string to be used in a menu offering the opportunity - to show or hide the grid" - ^ (self gridVisible - ifTrue: ['<yes>'] - ifFalse: ['<no>']) - , 'grid visible when gridding' translated! Item was removed: - ----- Method: PasteUpMorph>>griddingOn (in category 'gridding') ----- - griddingOn - - ^ self layoutPolicy notNil and: [self layoutPolicy isGridLayout]! Item was removed: - ----- Method: PasteUpMorph>>griddingOnOff (in category 'gridding') ----- - griddingOnOff - "Change grid layout. Consider the #clearArea to ignore docking bars and other adhereing morphs." - - self layoutPolicy: (self griddingOn ifFalse: [GridLayout new]).! Item was removed: - ----- Method: PasteUpMorph>>griddingString (in category 'gridding') ----- - griddingString - "Answer a string to use in a menu offering the user the - opportunity to start or stop using gridding" - ^ (self griddingOn - ifTrue: ['<yes>'] - ifFalse: ['<no>']) - , 'use gridding' translated! Item was removed: - ----- Method: PasteUpMorph>>privateRemoveMorph: (in category 'private') ----- - privateRemoveMorph: aMorph - backgroundMorph == aMorph ifTrue: [ backgroundMorph := nil ]. - ^super privateRemoveMorph: aMorph. - ! Item was removed: - ----- Method: PasteUpMorph>>setGridSpec (in category 'gridding') ----- - setGridSpec - "Gridding rectangle provides origin and modulus" - | response result | - response := UIManager default - request: 'New grid origin (usually 0@0):' translated - initialAnswer: self gridOrigin printString. - response isEmpty ifTrue: [^ self]. - result := [Compiler evaluate: response] ifError: [^ self]. - (result isPoint and: [(result >= (0@0))]) - ifTrue: [self gridOrigin: result] - ifFalse: [self inform: ('Must be a Point with coordinates (for example 10@10)' translated )]. - - response := UIManager default - request: 'New grid spacing:' translated - initialAnswer: self gridModulus printString. - response isEmpty ifTrue: [^ self]. - result := [Compiler evaluate: response] ifError: [^ self]. - (result isPoint and: [(result > (0@0)) ]) - ifTrue: [self gridModulus: result] - ifFalse: [self inform: ('Must be a Point with coordinates (for example 10@10)' translated )]. - - !

1 0

The Trunk: MorphicTests-mt.72.mcz
by commits＠source.squeak.org 02 Mar '21

02 Mar '21

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.72.mcz ==================== Summary ==================== Name: MorphicTests-mt.72 Author: mt Time: 2 March 2021, 11:03:22.265687 am UUID: b86bc3c1-fdde-7343-9628-073d9dd73d70 Ancestors: MorphicTests-mt.71 More tests for the new grid layout. =============== Diff against MorphicTests-mt.71 =============== Item was changed: ----- Method: GridLayoutTest>>test01Position (in category 'tests') ----- test01Position + | m o | - | m | m := self addMorph. + o := container position. { 0@0 . 0@0 . 9@9 . 0@0 . 10@10 . 20@20 . 25@25 . 20@20 } pairsDo: [:newPosition :expectedGrid | + m position: newPosition + o. - m position: newPosition. container fullBounds. + self assert: expectedGrid + o equals: m position].! - self assert: expectedGrid equals: m position].! Item was added: + ----- Method: GridLayoutTest>>test05SnapToEdge (in category 'tests') ----- + test05SnapToEdge + "The grid should be ignored for morphs that snap to their owner's edges." + + | m | + m := Morph new color: Color random; extent: 10@10; yourself. + container addMorph: m. + + "1) Manual snap-to-edge will not work." + m position: 0@(100 - 10). + container fullBounds. + self assert: 0@100 equals: m position. + + "2) Use snap-to-edge property." + m setToAdhereToEdge: #bottom. + container fullBounds. + self assert: 0@(100 - 10) equals: m position.! Item was added: + ----- Method: GridLayoutTest>>test06Origin (in category 'tests') ----- + test06Origin + "The grid's origin should be relative to its morph's position so that the morph can be moved around without the grid changing." + + container position: 0@0. + container removeAllMorphs. + self test01Position. + + container position: 10@10. + container removeAllMorphs. + self test01Position.!

1 0

The Trunk: Morphic-mt.1730.mcz
by commits＠source.squeak.org 02 Mar '21

02 Mar '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1730.mcz ==================== Summary ==================== Name: Morphic-mt.1730 Author: mt Time: 2 March 2021, 11:01:40.072687 am UUID: 5fa729ff-1ebb-3a4e-8283-f88485971bd6 Ancestors: Morphic-mt.1729 A fix and a tweak. (Note that it is interesting that damage-recording-based drawing via #changed and deferred layout computation via #layoutChanged are in conflict with each other. Also see #privateInvalidateMorph: and its senders.) =============== Diff against Morphic-mt.1729 =============== Item was changed: ----- Method: Morph>>position: (in category 'geometry') ----- position: aPoint "Change the position of this morph, which is the top left corner of its bounds." | delta box | delta := (aPoint - self bounds topLeft) rounded. "Skip drawing and layout updates for null changes." (delta x = 0 and: [delta y = 0]) ifTrue: [^ self]. "Optimize drawing. Record one damage rectangle for short distance and two damage rectangles for large distances." + box := fullBounds ifNil: [self outerBounds]. "Avoid premature layout computation. Like in #extent: and #changed." - box := self fullBounds. (delta dotProduct: delta) > 100 "More than 10 pixels?" ifTrue: [self invalidRect: box; invalidRect: (box translateBy: delta)] ifFalse: [self invalidRect: (box merge: (box translateBy: delta))]. "Move this morph and *all* of its submorphs." self privateFullMoveBy: delta. "For all known layout policies, my layout and the layout of my children is fine. Only the layout of my owner might be affected. So, tell about it." self owner ifNotNil: [:o | self flag: #todo. "mt: Maybe we can save a lot of effort and troubles by only calling #layoutChanged if the owner has a layout policy installed? Take the thumbs of scroll-bars as an example..." o layoutChanged].! Item was changed: ----- Method: Morph>>setToAdhereToEdge: (in category 'menus') ----- setToAdhereToEdge: anEdge anEdge ifNil: [^ self]. anEdge == #none ifTrue: [^ self removeProperty: #edgeToAdhereTo]. self setProperty: #edgeToAdhereTo toValue: anEdge. + self layoutChanged. !

1 0

The Trunk: MorphicTests-mt.71.mcz
by commits＠source.squeak.org 01 Mar '21

01 Mar '21

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.71.mcz ==================== Summary ==================== Name: MorphicTests-mt.71 Author: mt Time: 1 March 2021, 5:59:12.350934 pm UUID: 848fe7e9-51bf-1544-8c4f-ac96274f1f5f Ancestors: MorphicTests-mt.70 Adds tests about layer-specific add-all interface. =============== Diff against MorphicTests-mt.70 =============== Item was changed: ----- Method: MorphTest>>createAndAddMorphs: (in category 'support') ----- createAndAddMorphs: someNames + (self createMorphs: someNames) do: [:newMorph | - (self createMorphs: #(a b)) do: [:newMorph | morph addMorphBack: newMorph].! Item was added: + ----- Method: MorphTest>>createMorphs:inLayers: (in category 'support') ----- + createMorphs: names inLayers: layerNumbers + + ^ names with: layerNumbers collect: [:name :layer | + Morph new name: name; morphicLayerNumber: layer; yourself]! Item was added: + ----- Method: MorphTest>>test13AddAllMorphsInLayers (in category 'tests - submorphs - layers') ----- + test13AddAllMorphsInLayers + + morph addAllMorphsInLayers: (self createMorphs: #(a b) inLayers: #(5 4)). + self assert: #(b a) equals: self getSubmorphNames. + + morph addAllMorphsInLayers: (self createMorphs: #(x y z) inLayers: #(3 3 5)). + self assert: #(x y b a z) equals: self getSubmorphNames.! Item was added: + ----- Method: MorphTest>>test14AddAllMorphsFrontInLayers (in category 'tests - submorphs - layers') ----- + test14AddAllMorphsFrontInLayers + + morph addAllMorphsFrontInLayers: (self createMorphs: #(a b) inLayers: #(5 4)). + self assert: #(b a) equals: self getSubmorphNames. + + morph addAllMorphsFrontInLayers: (self createMorphs: #(x y z) inLayers: #(3 3 5)). + self assert: #(x y b z a) equals: self getSubmorphNames.! Item was added: + ----- Method: MorphTest>>test15AddAllMorphsBackInLayers (in category 'tests - submorphs - layers') ----- + test15AddAllMorphsBackInLayers + + morph addAllMorphsBackInLayers: (self createMorphs: #(a b) inLayers: #(5 4)). + self assert: #(b a) equals: self getSubmorphNames. + + morph addAllMorphsBackInLayers: (self createMorphs: #(x y z) inLayers: #(3 3 5)). + self assert: #(x y b a z) equals: self getSubmorphNames.!

1 0

The Trunk: Morphic-mt.1729.mcz
by commits＠source.squeak.org 01 Mar '21

01 Mar '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1729.mcz ==================== Summary ==================== Name: Morphic-mt.1729 Author: mt Time: 1 March 2021, 5:42:08.604934 pm UUID: 5bc3cc16-c4ce-bb45-921d-e5ba198cf436 Ancestors: Morphic-mt.1728 Fixes submorph insertion order for layer-specific add-all interface. =============== Diff against Morphic-mt.1728 =============== Item was changed: ----- Method: Morph>>addAllMorphsFrontInLayers: (in category 'submorphs - layers') ----- addAllMorphsFrontInLayers: morphs + morphs reverseDo: [:morph | self addMorphFrontInLayer: morph].! - morphs do: [:morph | self addMorphFrontInLayer: morph].!

1 0

The Trunk: Morphic-mt.1728.mcz
by commits＠source.squeak.org 01 Mar '21

01 Mar '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1728.mcz ==================== Summary ==================== Name: Morphic-mt.1728 Author: mt Time: 1 March 2021, 12:21:45.616905 pm UUID: 9034e981-d83b-c344-a079-e9eb55c8115f Ancestors: Morphic-mt.1727 Increases robustness during layout computation. Similar to WorldState >> #displayWorldSafely:. Here, faulty layout policies will be disabled to keep the environment responsive. Note that you can try breaking #doLayoutIn: and then take a look at all those #fullBounds sends. (After reverting the last change via the emergency evaluator, of course.) =============== Diff against Morphic-mt.1727 =============== Item was changed: ----- Method: Morph>>adjustLayoutBounds (in category 'layout') ----- adjustLayoutBounds "Adjust the receivers bounds depending on the resizing strategy imposed" | hFit vFit box sbox myExtent myOrigin myBox | hFit := self hResizing. vFit := self vResizing. (hFit == #shrinkWrap or:[vFit == #shrinkWrap]) ifFalse:[^self]. "not needed" (self cellSpacing == #none and: [self listSpacing == #none]) ifFalse: [ self flag: #todo. "mt: Find a way to make cell sizes accessible from here." + self cellSpacing: #none; listSpacing: #none. self notify: 'It is not possible to shrink-wrap around submorphs when the layout policy reserves extra cell space. At this point, we have no access to that extra cell space and we do not know whether the submorph did make use of that extra space. So, shrink-wrapping could make the bounds very unstable.\\Please either reset #cellSpacing and #listSpacing - or change the resizing strategy to #rigid or #spaceFill.' withCRs. ^ self]. box := self layoutBounds. sbox := self submorphBoundsForShrinkWrap outsetBy: self cellInset. myExtent := box extent. myOrigin := box origin. hFit == #shrinkWrap ifTrue:[ myExtent := sbox extent x @ myExtent y. myOrigin := sbox origin x @ myOrigin y]. vFit == #shrinkWrap ifTrue:[ myExtent := myExtent x @ sbox extent y. myOrigin := myOrigin x @ sbox origin y]. "Make sure we don't get smaller than minWidth/minHeight" myExtent x < self minWidth ifTrue:[ myExtent := (myExtent x max: (self minWidth - self bounds width + self layoutBounds width)) @ myExtent y]. myExtent y < self minHeight ifTrue:[ myExtent := myExtent x @ (myExtent y max: (self minHeight - self bounds height + self layoutBounds height))]. myBox := myOrigin extent: myExtent. self setLayoutBoundsFromLayout: myBox.! Item was changed: ----- Method: Morph>>buildDebugMenu: (in category 'debug and other') ----- buildDebugMenu: aHand "Answer a debugging menu for the receiver. The hand argument is seemingly historical and plays no role presently" | aMenu aPlayer | aMenu := MenuMorph new defaultTarget: self. aMenu addStayUpItem. (self hasProperty: #errorOnDraw) ifTrue: [aMenu add: 'start drawing again' translated action: #resumeAfterDrawError. aMenu addLine]. (self hasProperty: #errorOnStep) ifTrue: [aMenu add: 'start stepping again' translated action: #resumeAfterStepError. aMenu addLine]. + (self hasProperty: #errorOnLayout) ifTrue: + [aMenu add: 'start layouting again' translated action: #resumeAfterLayoutError. + aMenu addLine]. aMenu add: 'inspect morph' translated action: #inspectInMorphic:. aMenu add: 'inspect owner chain' translated action: #inspectOwnerChain. Smalltalk isMorphic ifFalse: [aMenu add: 'inspect morph (in MVC)' translated action: #inspect]. self isMorphicModel ifTrue: [aMenu add: 'inspect model' translated target: self model action: #inspect; add: 'explore model' translated target: self model action: #explore]. (aPlayer := self player) ifNotNil: [aMenu add: 'inspect player' translated target: aPlayer action: #inspect]. aMenu add: 'explore morph' translated target: self selector: #exploreInMorphic:. aMenu addLine. aPlayer ifNotNil: [ aMenu add: 'viewer for Player' translated target: self player action: #beViewed. aMenu balloonTextForLastItem: 'Opens a viewer on my Player -- this is the same thing you get if you click on the cyan "View" halo handle' translated ]. aMenu add: 'viewer for Morph' translated target: self action: #viewMorphDirectly. aMenu balloonTextForLastItem: 'Opens a Viewer on this Morph, rather than on its Player' translated. aMenu addLine. aPlayer ifNotNil: [aPlayer class isUniClass ifTrue: [ aMenu add: 'browse player class' translated target: aPlayer selector: #haveFullProtocolBrowsedShowingSelector: argumentList: #(nil)]]. aMenu add: 'browse morph class' translated target: self selector: #browseHierarchy. (self isMorphicModel) ifTrue: [aMenu add: 'browse model class' target: self model selector: #browseHierarchy]. aMenu addLine. self addViewingItemsTo: aMenu. aMenu add: 'make own subclass' translated action: #subclassMorph; add: 'save morph in file' translated action: #saveOnFile; addLine; add: 'call #tempCommand' translated action: #tempCommand; add: 'define #tempCommand' translated action: #defineTempCommand; addLine; add: 'control-menu...' translated target: self selector: #invokeMetaMenu:; add: 'edit balloon help' translated action: #editBalloonHelpText. ^ aMenu! Item was added: + ----- Method: Morph>>doLayout (in category 'layout') ----- + doLayout + + self doLayoutIn: self layoutBounds.! Item was added: + ----- Method: Morph>>doLayoutSafely (in category 'layout') ----- + doLayoutSafely + "Also see #resumeAfterLayoutError." + + [fullBounds] whileNil: [ + [self doLayout] on: Error, Halt, Warning do: [:error | + + | errorMorph | + (error signalerContext + findContextSuchThat: [:context | + context receiver isMorph and: [context receiver layoutPolicy notNil]]) + ifNil: [^ Project current primitiveError: error description] + ifNotNil: [:errorContext | errorMorph := errorContext receiver]. + errorMorph + instVarNamed: #fullBounds + put: (errorMorph instVarNamed: #bounds). + (Warning handles: error) ifFalse: [ + "Disable the policy unless it is a warning, which should be secured where signaled to ease debugging." + errorMorph + setProperty: #errorOnLayout toValue: errorMorph layoutPolicy; + setProperty: #layoutPolicy toValue: nil. "Avoid #layoutChanged!!"]. + + ToolSet debugException: error]].! Item was changed: ----- Method: Morph>>fullBounds (in category 'layout') ----- fullBounds + "Return the bounding box of the receiver and all its children. Recompute the layout if necessary. See #layoutChanged." + + ^ fullBounds ifNil: [self doLayoutSafely. fullBounds]! - "Return the bounding box of the receiver and all its children. Recompute the layout if necessary." - fullBounds ifNotNil:[^fullBounds]. - "Errors at this point can be critical so make sure we catch 'em all right" - [self doLayoutIn: self layoutBounds] on: Error, Warning, Halt do:[:ex| - "This should do it unless you don't screw up the bounds" - fullBounds := bounds. - ex pass]. - ^fullBounds! Item was added: + ----- Method: Morph>>resumeAfterLayoutError (in category 'debug and other') ----- + resumeAfterLayoutError + "Resume layouting after an error has occured." + + self layoutPolicy: (self valueOfProperty: #errorOnLayout ifAbsent: [^ self]). + self removeProperty:#errorOnLayout.! Item was changed: ----- Method: MorphicDebugger class>>openOn:context:label:contents:fullView: (in category 'opening') ----- openOn: processToDebug context: context label: title contents: contentsStringOrNil fullView: full | debugger uiBlock | debugger := self new process: processToDebug context: context; errorWasInUIProcess: (Project current spawnNewProcessIfThisIsUI: processToDebug). uiBlock := [ full ifTrue: [debugger openFullNoSuspendLabel: title] ifFalse: [debugger openNotifierNoSuspendContents: contentsStringOrNil label: title]. + "Try layouting the debugger tool at least once to avoid freeze." + debugger topView ifNotNil: [:window | + "There are way too many #fullBounds sends. Layout errors might already have happened." + window allMorphsDo: [:m | (m hasProperty: #errorOnLayout) ifTrue: [self error: 'Layout error']]. + window world doLayout. "Not safely!!"]. "Try drawing the debugger tool at least once to avoid freeze." debugger topView ifNotNil: [:window | window world displayWorld. "Not safely!!"]. ]. "Schedule debugging in a deferred UI message if necessary. Note that only the ui process should execute ui code." (Project current uiProcess isActiveProcess not or: [processToDebug isActiveProcess]) ifTrue: [Project current addDeferredUIMessage: uiBlock] ifFalse: uiBlock. processToDebug suspend. "Get here only if active process is not the process-to-debug. So in tests, use a helper process if you want to access this return value." ^ debugger!

1 0

The Trunk: Tools-mt.1027.mcz
by commits＠source.squeak.org 01 Mar '21

01 Mar '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1027.mcz ==================== Summary ==================== Name: Tools-mt.1027 Author: mt Time: 1 March 2021, 11:19:25.66938 am UUID: 4a78193f-b0aa-1b42-9f4a-d588b979d0b6 Ancestors: Tools-mt.1026 Let warnings appear as "normal" as possible via #debugException:. Note that the "normal" contents are prepared only in ToolSet >> #handleWarning: for unhandled warnings, which is transparent to the signaler. This interface, however, is for exception handlers that want to allow for post-exception debugging, which can also catch warnings. =============== Diff against Tools-mt.1026 =============== Item was changed: ----- Method: StandardToolSet class>>debugException: (in category 'debugging') ----- debugException: anException "For convenience. Construct a helper process to debug an exception that occurred in the active process later on so that the active process can (try to) resume. Uses a temporary variable to access and copy the signaler context now before it gets GC'ed." | helperProcess | helperProcess := (Process forContext: anException signalerContext copyStack priority: Processor activeProcess priority) shouldResumeFromDebugger: false; yourself. Project current addDeferredUIMessage: [ helperProcess debugWithTitle: anException description + full: false + contents: ((anException isKindOf: Warning) + ifTrue: [anException messageText])].! - full: false].!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2021