Packages November 2020

packages@lists.squeakfoundation.org

1 participants
61 discussions

The Trunk: KernelTests-ct.389.mcz
by commits＠source.squeak.org 02 Nov '20

02 Nov '20

Eliot Miranda uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ct.389.mcz ==================== Summary ==================== Name: KernelTests-ct.389 Author: ct Time: 1 November 2020, 7:54:42.403428 pm UUID: 7c294d2e-59a7-9746-b613-997d1aa4521c Ancestors: KernelTests-ul.386 Extend tests for Context #runSimulated:. Depends on Kernel-ct.1359. =============== Diff against KernelTests-ul.386 =============== Item was added: + ----- Method: BlockClosureTest>>return: (in category 'private') ----- + return: something + + ^ something! Item was changed: ----- Method: BlockClosureTest>>testRunSimulated (in category 'tests') ----- testRunSimulated + self assert: Rectangle equals: + (Context runSimulated: aBlockClosure asContext) class. + self assert: 42 equals: + (Context runSimulated: [self return: 42]). + self + should: [Context runSimulated: [self halt]] + raise: Halt.! - self assert: Rectangle equals: (Context runSimulated: aBlockClosure asContext) class! Item was added: + ----- Method: BlockClosureTest>>testRunSimulatedContextAtEachStep (in category 'tests') ----- + testRunSimulatedContextAtEachStep + + | context | + context := aBlockClosure asContext. + self assert: Rectangle equals: (thisContext + runSimulated: context + contextAtEachStep: [:ctxt | self assert: + [ctxt == context or: [ctxt hasSender: context]]]) class.!

1 0

The Trunk: Services-Base-cmfcmf.69.mcz
by commits＠source.squeak.org 02 Nov '20

02 Nov '20

Marcel Taeumel uploaded a new version of Services-Base to project The Trunk: http://source.squeak.org/trunk/Services-Base-cmfcmf.69.mcz ==================== Summary ==================== Name: Services-Base-cmfcmf.69 Author: cmfcmf Time: 30 October 2020, 3:19:26.82353 pm UUID: 8f518c2e-77bb-cc40-a4ff-524c896eabc6 Ancestors: Services-Base-jr.68 Indicate instance messages when instance-side reference is browsed. Otherwise the browser may reach an invalid state, where the class button is still selected, even though an instance message is browsed: b := Browser open. b browseReference: (Color >> #asColor) asCodeReference. b browseReference: (Color class >> #green) asCodeReference. b browseReference: (Color >> #asColor) asCodeReference. =============== Diff against Services-Base-jr.68 =============== Item was changed: ----- Method: Browser>>browseReference: (in category '*services-base') ----- browseReference: ref + self okToChange ifTrue: [ self selectCategoryForClass: ref actualClass theNonMetaClass. self selectClass: ref actualClass theNonMetaClass . + ref actualClass isMeta ifTrue: [self indicateClassMessages] ifFalse: [self indicateInstanceMessages]. - ref actualClass isMeta ifTrue: [self indicateClassMessages]. self changed: #classSelectionChanged. self selectMessageCategoryNamed: ref category. self selectedMessageName: ref methodSymbol. ]!

1 0

The Trunk: Services-Base-mt.70.mcz
by commits＠source.squeak.org 02 Nov '20

02 Nov '20

Marcel Taeumel uploaded a new version of Services-Base to project The Trunk: http://source.squeak.org/trunk/Services-Base-mt.70.mcz ==================== Summary ==================== Name: Services-Base-mt.70 Author: mt Time: 2 November 2020, 5:09:59.542788 pm UUID: 1ed9981b-d99a-6a46-9dc2-8e5c9235b1db Ancestors: Services-Base-mt.69, Services-Base-cmfcmf.69 Merged. =============== Diff against Services-Base-mt.69 =============== Item was changed: ----- Method: Browser>>browseReference: (in category '*services-base') ----- browseReference: ref + self okToChange ifTrue: [ self selectCategoryForClass: ref actualClass theNonMetaClass. self selectClass: ref actualClass theNonMetaClass . + ref actualClass isMeta ifTrue: [self indicateClassMessages] ifFalse: [self indicateInstanceMessages]. - ref actualClass isMeta ifTrue: [self indicateClassMessages]. self changed: #classSelectionChanged. self selectMessageCategoryNamed: ref category. self selectedMessageName: ref methodSymbol. ]!

1 0

The Trunk: ReleaseBuilder-mt.214.mcz
by commits＠source.squeak.org 02 Nov '20

02 Nov '20

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.214.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.214 Author: mt Time: 2 November 2020, 5:04:06.718788 pm UUID: 21106749-548f-064d-9d8d-70e620a355b4 Ancestors: ReleaseBuilder-mt.213 Improve first impression of Etoys features, which are always accessible through a morph's halo. Thanks to Karl (kfr) for taking care! =============== Diff against ReleaseBuilder-mt.213 =============== Item was added: + ----- Method: ReleaseBuilder class>>beautifyEtoys (in category 'scripts - ui') ----- + beautifyEtoys + "If users invoke Etoys features without preparing the system's look-and-feel via #setEtoysMode, some icons look strange. Fix that to improve the first impression." + + (self environment classNamed: #ReleaseBuilderSqueakland) + ifNotNil: [:builder | builder loadMostUsedEtoysForms].! Item was changed: ----- Method: ReleaseBuilder class>>configureTools (in category 'scripts') ----- configureTools "Initialize well-known tools and other resources." FileList initialize. FileServices initialize. "register file reader services" RealEstateAgent standardSize: 600 @ 400. SMLoaderPlus setDefaultFilters: #(filterSafelyAvailable). + self beautifyEtoys. + "Default applications and tools." SystemBrowser default: Browser. MailSender default: nil. SoundService default: BaseSoundSystem. ToolSet default: StandardToolSet. WebBrowser default: nil. !

1 0

The Trunk: EToys-mt.414.mcz
by commits＠source.squeak.org 02 Nov '20

02 Nov '20

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.414.mcz ==================== Summary ==================== Name: EToys-mt.414 Author: mt Time: 2 November 2020, 5:02:31.547788 pm UUID: 4ace51ba-f0be-044c-8710-9d6a2c4bfbc1 Ancestors: EToys-eem.413 Do the most basic installs so Etoys appears with right icons. A few more icons for BookMorph. Thanks to Karl (kfr)! =============== Diff against EToys-eem.413 =============== Item was changed: ----- Method: CategoryViewer>>assureCategoryFullyVisible (in category '*Etoys-Squeakland-categories') ----- assureCategoryFullyVisible "Keep deleting categoryviewers other than the receiver until the receiver is fully visible." | ready toDelete | ready := false. + [(self bounds bottom > self currentWorld bottom) and: [ready not]] whileTrue: [ - [(self bounds bottom > self world bottom) and: [ready not]] whileTrue: [ owner submorphs size > 2 ifTrue: [ toDelete := owner submorphs allButFirst reversed detect: [:cv | cv ~~ self] ifNone: [^ self]. toDelete delete. self world doOneCycleNow] ifFalse: [ ready := true]].! Item was added: + ----- Method: ReleaseBuilderSqueakland class>>loadMostUsedEtoysForms (in category 'preparing') ----- + loadMostUsedEtoysForms + "Add most used Etoy icons to ScriptingSystem formDictionary." + + "ReleaseBuilderSqueakland loadMostUsedEtoysForms" + + "RoundGoldBox, TryItPressed, TryIt, MenuIcon, AddCategoryViewer, AddInstanceVariable, TanOPressed, TanO, Gets, RightCaret, DownCaret, NextPage, NextPagePressed, PrevPage, PrevPagePressed" + + | assoc | + #(scriptingSystemImage109 scriptingSystemImage127 scriptingSystemImage064 scriptingSystemImage038 scriptingSystemImage165 scriptingSystemImage171 scriptingSystemImage014 scriptingSystemImage053 scriptingSystemImage080 scriptingSystemImage044 scriptingSystemImage023 scriptingSystemImage032 scriptingSystemImage107 scriptingSystemImage153) + do: [:sym | + assoc := (self perform: sym). + ScriptingSystem saveForm: assoc value atKey: assoc key].!

1 0

The Trunk: 60Deprecated-mt.84.mcz
by commits＠source.squeak.org 02 Nov '20

02 Nov '20

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.84.mcz ==================== Summary ==================== Name: 60Deprecated-mt.84 Author: mt Time: 2 November 2020, 4:38:10.357816 pm UUID: 0bda9ad6-f334-ab4c-bdb2-bc8c79931c55 Ancestors: 60Deprecated-pre.83 Complements Morphic-mt.1710. =============== Diff against 60Deprecated-pre.83 =============== Item was changed: SystemOrganization addCategory: #'60Deprecated-Collections-Streams'! SystemOrganization addCategory: #'60Deprecated-HelpSystem-Core-Model'! SystemOrganization addCategory: #'60Deprecated-Kernel-Methods'! + SystemOrganization addCategory: #'60Deprecated-Morphic-Events'! SystemOrganization addCategory: #'60Deprecated-Morphic-Widgets'! SystemOrganization addCategory: #'60Deprecated-NSPlugin-System-Support'! SystemOrganization addCategory: #'60Deprecated-System-Support'! SystemOrganization addCategory: #'60Deprecated-Tools-Inspector'! SystemOrganization addCategory: #'60Deprecated-Tools-Menus'! Item was added: + DropEvent subclass: #DropFilesEvent + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: '60Deprecated-Morphic-Events'! + + !DropFilesEvent commentStamp: 'ct 10/15/2020 18:15' prior: 0! + THIS CLASS IS DEPRECATED!! The #dropFiles/#wantsDropFiles: protocol has been replaced. Use #acceptDroppingMorph:event:/#wantsDroppedMorph:event: instead and scan for dragTransferType: #filesAndDirectories.! Item was added: + ----- Method: DropFilesEvent>>sentTo: (in category 'dispatching') ----- + sentTo: anObject + "Dispatch the receiver into anObject" + self type == #dropFilesEvent ifTrue:[^anObject handleDropFiles: self].! Item was added: + ----- Method: DropFilesEvent>>type (in category 'accessing') ----- + type + ^#dropFilesEvent! Item was added: + ----- Method: Morph>>dropFiles: (in category '*60Deprecated-event handling') ----- + dropFiles: anEvent + "Handle a number of files dropped from the OS." + + self flag: #deprecated. "Use #acceptDroppingMorph:event: instead and scan for dragTransferType: #filesAndDirectories.'"! Item was added: + ----- Method: Morph>>handleDropFiles: (in category '*60Deprecated-events-processing') ----- + handleDropFiles: anEvent + "Handle a drop from the OS. Deprecated protocol. Use #handleDropMorph: instead and scan for dragTransferType: #filesAndDirectories." + anEvent wasHandled ifTrue: [^ self]. "not interested" + (self wantsDropFiles: anEvent) ifFalse: [^ self]. + anEvent wasHandled: true. + self deprecated: 'ct: #dropFiles/#wantsDropFiles: protocol is deprecated. Use #acceptDroppingMorph:event:/#wantsDroppedMorph:event: instead and scan for dragTransferType: #filesAndDirectories.'. + self dropFiles: anEvent.! Item was added: + ----- Method: Morph>>wantsDropFiles: (in category '*60Deprecated-event handling') ----- + wantsDropFiles: anEvent + "Return true if the receiver wants files dropped from the OS." + + self flag: #deprecated. "Use #wantsDroppedMorph:event: instead and scan for dragTransferType: #filesAndDirectories.'" + ^ false!

1 0

The Trunk: Morphic-mt.1710.mcz
by commits＠source.squeak.org 02 Nov '20

02 Nov '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1710.mcz ==================== Summary ==================== Name: Morphic-mt.1710 Author: mt Time: 2 November 2020, 4:37:15.795816 pm UUID: c0f2f967-9599-0d4b-831a-be2df0cb9b1e Ancestors: Morphic-mt.1709 Let file-drag/drop events from the host system arrive as regular (in-image) drag/drop events for a uniform look-and-feel. Thanks to Christoph (ct)! For backwards compatibility, DropFilesEvent stays functional until the package 60Deprecated is unloaded. Users should move away from Morph >> #(handle|wants|.)dropFiles to use #acceptDroppingMorph:event: (etc.) and check #dragTransferType for #filesAndDirectories. Note that, in the long term, this unification (to always use DropEvent) makes sense because it will help extract event handling from Morphic to a more generic, object-oriented, GUI-framework-agnostic mechanism to be used in -- for example -- Morphic, MVC, and SqueakShell. =============== Diff against Morphic-mt.1709 =============== Item was removed: - DropEvent subclass: #DropFilesEvent - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Events'! Item was removed: - ----- Method: DropFilesEvent>>sentTo: (in category 'dispatching') ----- - sentTo: anObject - "Dispatch the receiver into anObject" - self type == #dropFilesEvent ifTrue:[^anObject handleDropFiles: self].! Item was removed: - ----- Method: DropFilesEvent>>type (in category 'accessing') ----- - type - ^#dropFilesEvent! Item was changed: Morph subclass: #HandMorph + instanceVariableNames: 'mouseFocus keyboardFocus eventListeners mouseListeners keyboardListeners eventCaptureFilters mouseCaptureFilters keyboardCaptureFilters mouseClickState mouseOverHandler targetOffset lastMouseEvent damageRecorder cacheCanvas cachedCanvasHasHoles temporaryCursor temporaryCursorOffset hardwareCursor hasChanged savedPatch userInitials lastEventBuffer genieGestureProcessor keyboardInterpreter externalDropMorph' - instanceVariableNames: 'mouseFocus keyboardFocus eventListeners mouseListeners keyboardListeners eventCaptureFilters mouseCaptureFilters keyboardCaptureFilters mouseClickState mouseOverHandler targetOffset lastMouseEvent damageRecorder cacheCanvas cachedCanvasHasHoles temporaryCursor temporaryCursorOffset hardwareCursor hasChanged savedPatch userInitials lastEventBuffer genieGestureProcessor keyboardInterpreter' classVariableNames: 'CompositionWindowManager DoubleClickTime DragThreshold EventStats MinimalWheelDelta NewEventRules NormalCursor PasteBuffer SendMouseWheelToKeyboardFocus ShowEvents SynthesizeMouseWheelEvents' poolDictionaries: 'EventSensorConstants' category: 'Morphic-Kernel'! !HandMorph commentStamp: '<historical>' prior: 0! The cursor may be thought of as the HandMorph. The hand's submorphs hold anything being carried by dragging. There is some minimal support for multiple hands in the same world.! Item was added: + ----- Method: HandMorph>>cleanUp: (in category 'initialize-release') ----- + cleanUp: aggressive + + aggressive ifTrue: [ + externalDropMorph := nil].! Item was added: + ----- Method: HandMorph>>collectDropFilesAndDirectories: (in category 'private events') ----- + collectDropFilesAndDirectories: numFiles + + ^ (1 to: numFiles) collect: [:index | + (FileDirectory requestDropDirectory: index) + ifNil: [FileStream requestDropStream: index]]! Item was changed: ----- Method: HandMorph>>dropMorph:event: (in category 'grabbing/dropping') ----- dropMorph: aMorph event: anEvent "Drop the given morph which was carried by the hand" | event dropped | + (anEvent isMouseUp and: [aMorph shouldDropOnMouseUp not]) ifTrue: [^ self]. - (anEvent isMouseUp and:[aMorph shouldDropOnMouseUp not]) ifTrue:[^self]. + "Note: For robustness in drag and drop handling, we remove the morph BEFORE we drop it, but we keep its owner set to the hand. This prevents system lockups when there is a problem in drop handling (for example if there's an error in #wantsToBeDroppedInto:). THIS TECHNIQUE IS NOT RECOMMENDED FOR CASUAL USE." - "Note: For robustness in drag and drop handling we remove the morph BEFORE we drop him, but we keep his owner set to the hand. This prevents system lockups when there is a problem in drop handling (for example if there's an error in #wantsToBeDroppedInto:). THIS TECHNIQUE IS NOT RECOMMENDED FOR CASUAL USE." self privateRemove: aMorph. aMorph privateOwner: self. + - dropped := aMorph. (dropped hasProperty: #addedFlexAtGrab) + ifTrue: [dropped := aMorph removeFlexShell]. - ifTrue:[dropped := aMorph removeFlexShell]. event := DropEvent new setPosition: self position contents: dropped hand: self. [ "In case of an error, ensure that the morph-to-be-dropped will be disposed. Otherwise it may confuse garbage handler. See the sends of #privateRemove: and #privateOwner: above." event := self sendEvent: event focus: nil. "event filters can apply and filtered events will be returned" event wasHandled ifFalse: [aMorph rejectDropMorphEvent: event] ] ensure: [ aMorph owner == self ifTrue: [aMorph delete] ]. self mouseOverHandler processMouseOver: anEvent.! Item was changed: ----- Method: HandMorph>>generateDropFilesEvent: (in category 'private events') ----- generateDropFilesEvent: evtBuf + "Generate the appropriate mouse event for the given raw event buffer." - "Generate the appropriate mouse event for the given raw event buffer" - "Note: This is still in an experimental phase and will need more work" - | position buttons modifiers stamp numFiles dragType | stamp := evtBuf second. + stamp = 0 ifTrue: [stamp := Time eventMillisecondClock]. - stamp = 0 ifTrue: [stamp := Sensor eventTimeNow]. dragType := evtBuf third. position := evtBuf fourth @ evtBuf fifth. + buttons := MouseEvent redButton. "hacked because necessary for correct mouseMoveDragging handling" - buttons := 0. modifiers := evtBuf sixth. buttons := buttons bitOr: (modifiers bitShift: 3). numFiles := evtBuf seventh. + + dragType caseOf: { + [1] -> [ "dragEnter" + externalDropMorph := TransferMorph new + dragTransferType: #filesAndDirectories; + source: self; + passenger: (numFiles = 0 "Usually, numFiles and drop paths are delivered on dragDrop only. Still reserving this possibility for able host implementations." + ifTrue: [self flag: #vmCapabilityMissing. 'Unknown host content' translated] + ifFalse: [self collectDropFilesAndDirectories: numFiles]); + yourself. + + "During the drag operation, the host system is responsible for displaying the cursor." + self grabMorph: externalDropMorph. + self showTemporaryCursor: Cursor blank. + externalDropMorph bottomRight: self topLeft. "Southeast area of the cursor is blocked by drawings from the source application. Display our drop morph at the opposite corner of the cursor." ]. + [2] -> [ "dragMove" + ^ MouseMoveEvent new + setType: #mouseMove + startPoint: self position + endPoint: position + trail: "{self position. position}"(self mouseDragTrailFrom: evtBuf) + buttons: buttons + hand: self + stamp: stamp ]. + [3] -> [ "dragLeave" + externalDropMorph ifNotNil: #abandon. + externalDropMorph := nil. + self showTemporaryCursor: nil ]. + [4] -> [ "dragDrop" + | oldButtons | + externalDropMorph ifNil: [ + "dragDrop has been sent without prior dragging. This happens when the VM is configured as singleton application and has been called again (aka #launchDrop)." + ^ self error: 'Launch drop for singleton Squeak not yet implemented.']. + + self showTemporaryCursor: nil. + externalDropMorph passenger isString ifTrue: [ + self flag: #vmCapabilityMissing. "See above." + externalDropMorph passenger: (self collectDropFilesAndDirectories: numFiles)]. + externalDropMorph := nil. + + (Smalltalk classNamed: #DropFilesEvent) ifNotNil: [:eventClass | + | classicEvent | + "Generate classic DropFilesEvent, providing backward compatibility." + classicEvent := eventClass new + setPosition: position + contents: numFiles + hand: self. + self processEvent: classicEvent. + classicEvent wasHandled ifTrue: [^ nil]]. + + oldButtons := lastEventBuffer fifth + bitOr: (lastEventBuffer sixth bitShift: 3). + ^ MouseButtonEvent new + setType: #mouseUp + position: position + which: (oldButtons bitXor: buttons) + buttons: buttons + nClicks: 0 + hand: self + stamp: stamp ]. + [5] -> [ "drag request" + "For dnd out. Not properly implemented at the moment." + self shouldBeImplemented] }. + ^ nil! - dragType = 4 - ifTrue: - ["e.g., drop" - - owner borderWidth: 0. - ^DropFilesEvent new - setPosition: position - contents: numFiles - hand: self]. - "the others are currently not handled by morphs themselves" - dragType = 1 - ifTrue: - ["experimental drag enter" - - owner - borderWidth: 4; - borderColor: owner color asColor negated]. - dragType = 2 - ifTrue: - ["experimental drag move" - - ]. - dragType = 3 - ifTrue: - ["experimental drag leave" - - owner borderWidth: 0]. - ^nil! Item was changed: ----- Method: HandMorph>>logEvent: (in category 'events-debugging') ----- logEvent: anEvent "Update statistics for processed events." + EventStats ifNil: [EventStats := IdentityDictionary new]. + EventStats at: #count put: (EventStats at: #count ifAbsent: [0]) + 1. + EventStats at: anEvent type put: (EventStats at: anEvent type ifAbsent: [0]) + 1.! - EventStats ifNil:[EventStats := IdentityDictionary new]. - EventStats at: #count put: (EventStats at: #count ifAbsent:[0]) + 1. - EventStats at: anEvent type put: (EventStats at: anEvent type ifAbsent:[0]) + 1.! Item was added: + ----- Method: HandMorph>>mouseDragTrailFrom: (in category 'private events') ----- + mouseDragTrailFrom: currentBuf + "Current event, a dragMove event buffer, is about to be processed. If there are other similar dragMove events queued up, then drop them from the queue, and report the positions inbetween. Adapted version of #mouseTrailFrom:." + + | nextEvent trail | + trail := WriteStream on: (Array new: 1). + trail nextPut: currentBuf fourth @ currentBuf fifth. + [(nextEvent := Sensor peekEvent) isNil] whileFalse: [ + nextEvent first = currentBuf first + ifFalse: [^ trail contents "different event type"]. + nextEvent third = currentBuf third + ifFalse: [^ trail contents "dragType changed"]. + nextEvent sixth = currentBuf sixth + ifFalse: [^ trail contents "modifiers changed"]. + nextEvent seventh = currentBuf seventh + ifFalse: [^ trail contents "numFiles changed"]. + "nextEvent is similar. Remove it from the queue, and check the next." + nextEvent := Sensor nextEvent. + trail nextPut: nextEvent fourth @ nextEvent fifth]. + ^ trail contents! Item was changed: ----- Method: HandMorph>>processEvents (in category 'event handling') ----- processEvents "Process user input events from the local input devices." + | evtBuf hadAny | - | evt evtBuf type hadAny | self currentEvent ~= lastMouseEvent ifTrue: [ "Meaning that we were invoked from within an event response. Make sure z-order is up to date." self mouseOverHandler processMouseOver: lastMouseEvent]. hadAny := false. + [(evtBuf := Sensor nextEvent) isNil] whileFalse: [ + | evt | + evt := evtBuf first "type" + caseOf: { + [EventTypeMouse] -> [self generateMouseEvent: evtBuf]. + [EventTypeMouseWheel] -> [self generateMouseWheelEvent: evtBuf]. + [EventTypeKeyboard] -> [self generateKeyboardEvent: evtBuf]. + [EventTypeDragDropFiles] -> [self generateDropFilesEvent: evtBuf]. + [EventTypeWindow] -> [self generateWindowEvent: evtBuf] } + otherwise: [nil "All other events are ignored"]. + + evt ifNotNil: [ + "Finally, handle it" + self handleEvent: evt. + hadAny := true. + + "For better user feedback, return immediately after a mouse event has been processed." + evt isMouse ifTrue: [^ self] ] ]. - [(evtBuf := Sensor nextEvent) isNil] whileFalse: - [evt := nil. "for unknown event types" - type := evtBuf first. - type = EventTypeMouse - ifTrue: [evt := self generateMouseEvent: evtBuf]. - type = EventTypeMouseWheel - ifTrue: [evt := self generateMouseWheelEvent: evtBuf]. - type = EventTypeKeyboard - ifTrue: [evt := self generateKeyboardEvent: evtBuf]. - type = EventTypeDragDropFiles - ifTrue: [evt := self generateDropFilesEvent: evtBuf]. - type = EventTypeWindow - ifTrue:[evt := self generateWindowEvent: evtBuf]. - "All other events are ignored" - (type ~= EventTypeDragDropFiles and: [evt isNil]) ifTrue: [^self]. - evt ifNotNil: ["Finally, handle it." - self handleEvent: evt. - hadAny := true. - - "For better user feedback, return immediately after a mouse event has been processed." - evt isMouse ifTrue: [^ self]]]. "note: if we come here we didn't have any mouse events" mouseClickState ifNotNil: [ "No mouse events during this cycle. Make sure click states time out accordingly" mouseClickState handleEvent: lastMouseEvent asMouseMove from: self]. hadAny ifFalse: [ "No pending events. Make sure z-order is up to date" self mouseOverHandler processMouseOver: lastMouseEvent].! Item was removed: - ----- Method: Morph>>asDraggableMorph (in category 'converting') ----- - asDraggableMorph - "Huge or complex morphs have a serious impact on performance while being dragged. Use the thumbnail version." - - ^ self thumbnail asMorph! Item was removed: - ----- Method: Morph>>dropFiles: (in category 'event handling') ----- - dropFiles: anEvent - "Handle a number of files dropped from the OS" - ! Item was removed: - ----- Method: Morph>>handleDropFiles: (in category 'events-processing') ----- - handleDropFiles: anEvent - "Handle a drop from the OS." - anEvent wasHandled ifTrue:[^self]. "not interested" - (self wantsDropFiles: anEvent) ifFalse:[^self]. - anEvent wasHandled: true. - self dropFiles: anEvent. - ! Item was removed: - ----- Method: Morph>>wantsDropFiles: (in category 'event handling') ----- - wantsDropFiles: anEvent - "Return true if the receiver wants files dropped from the OS." - ^false! Item was removed: - ----- Method: Object>>asDraggableMorph (in category '*morphic') ----- - asDraggableMorph - "Converts the receiver into a Morph suitable for dragging" - ^(StringMorph contents: ( - (self respondsTo: #dragLabel) - ifTrue:[self dragLabel] - ifFalse:[self printString])) - color: ((self userInterfaceTheme get: #textColor for: #TransferMorph) ifNil: [Color black]); - font: ((self userInterfaceTheme get: #font for: #TransferMorph) ifNil: [TextStyle defaultFont]) - yourself! Item was changed: ----- Method: PasteUpMorph>>acceptDroppingMorph:event: (in category 'dropping/grabbing') ----- acceptDroppingMorph: dropped event: evt "The supplied morph, known to be acceptable to the receiver, is now to be assimilated; the precipitating event is supplied" | aMorph | + (self isWorldMorph and: + [dropped isTransferMorph and: + [dropped dragTransferType = #filesAndDirectories]]) ifTrue: + [^ self dropFiles: dropped passenger event: evt]. + aMorph := self morphToDropFrom: dropped. self isWorldMorph + ifFalse: [super acceptDroppingMorph: aMorph event: evt] + ifTrue: + ["Add the given morph to this world and start stepping it if it wants to be." + aMorph isInWorld ifFalse: [aMorph position: evt position]. + self addMorphFront: aMorph. + (aMorph fullBounds intersects: self viewBox) ifFalse: + [Beeper beep. + aMorph position: self bounds center]]. + - ifTrue:["Add the given morph to this world and start stepping it if it wants to be." - aMorph isInWorld not ifTrue: [aMorph position: evt position]. - self addMorphFront: aMorph. - (aMorph fullBounds intersects: self viewBox) ifFalse: - [Beeper beep. aMorph position: self bounds center]] - ifFalse:[super acceptDroppingMorph: aMorph event: evt]. - aMorph submorphsDo: [:m | (m isKindOf: HaloMorph) ifTrue: [m delete]]. aMorph allMorphsDo: "Establish any penDown morphs in new world" [:m | | tfm mm | m player ifNotNil: [m player getPenDown ifTrue: [((mm := m player costume) notNil and: [(tfm := mm owner transformFrom: self) notNil]) ifTrue: [self noteNewLocation: (tfm localPointToGlobal: mm referencePosition) forPlayer: m player]]]]. + - self isPartsBin ifTrue: [aMorph isPartsDonor: true. aMorph stopSteppingSelfAndSubmorphs. aMorph suspendEventHandler] ifFalse: [self world startSteppingSubmorphsOf: aMorph]. + - " self presenter morph: aMorph droppedIntoPasteUpMorph: self." self griddingOn ifTrue: [aMorph position: (self gridPoint: aMorph position)]. self showingListView ifTrue: [self sortSubmorphsBy: (self valueOfProperty: #sortOrder). self currentWorld abandonAllHalos]. + + self bringTopmostsToFront.! - - self bringTopmostsToFront. - ! Item was removed: - ----- Method: PasteUpMorph>>dropFiles: (in category 'event handling') ----- - dropFiles: anEvent - "Handle a number of dropped files from the OS. - TODO: - - use a more general mechanism for figuring out what to do with the file (perhaps even offering a choice from a menu) - - remember the resource location or (when in browser) even the actual file handle - " - | numFiles | - numFiles := anEvent contents. - 1 to: numFiles do: [ :i | - (FileDirectory requestDropDirectory: i) - ifNotNil: [:directory | self handleDroppedItem: directory event: anEvent] - ifNil: [(FileStream requestDropStream: i) ifNotNil: [:stream | - [self handleDroppedItem: stream event: anEvent] ensure: [stream close]]]]. - ! Item was added: + ----- Method: PasteUpMorph>>dropFiles:event: (in category 'event handling') ----- + dropFiles: filesAndDirectories event: anEvent + "Handle a number of dropped files from the OS." + + filesAndDirectories do: [ :file | + self handleDroppedItem: file event: anEvent].! Item was changed: ----- Method: PasteUpMorph>>morphToDropFrom: (in category 'dropping/grabbing') ----- morphToDropFrom: aMorph + "Given a morph being carried by the hand which the hand is about to drop, answer the actual morph to be deposited. Normally this would be just the morph itself, but several unusual cases arise, which this method is designed to service." - "Given a morph being carried by the hand, which the hand is about to drop, answer the actual morph to be deposited. Normally this would be just the morph itself, but several unusual cases arise, which this method is designed to service." | aNail representee handy posBlock | handy := self primaryHand. posBlock := [:z | | tempPos | tempPos := handy position - ((handy targetOffset - aMorph formerPosition) * (z extent / aMorph extent)) rounded. self pointFromWorld: tempPos]. self alwaysShowThumbnail ifTrue: [aNail := aMorph representativeNoTallerThan: self maxHeightToAvoidThumbnailing norWiderThan: self maximumThumbnailWidth thumbnailHeight: self heightForThumbnails. aNail == aMorph ifFalse: [aMorph formerPosition: aMorph position. aNail position: (posBlock value: aNail)]. ^aNail]. ((aMorph isKindOf: MorphThumbnail) and: [(representee := aMorph morphRepresented) owner isNil]) ifTrue: [representee position: (posBlock value: representee). ^representee]. self showingListView ifTrue: [^aMorph listViewLineForFieldList: (self valueOfProperty: #fieldListSelectors)]. (aMorph hasProperty: #newPermanentScript) ifTrue: [^aMorph asEmptyPermanentScriptor]. ((aMorph isPhraseTileMorph) or: [aMorph isSyntaxMorph]) ifFalse: [^aMorph morphToDropInPasteUp: self]. aMorph userScriptSelector isEmptyOrNil ifTrue: ["non-user" self automaticPhraseExpansion ifFalse: [^aMorph]]. ^aMorph morphToDropInPasteUp: self! Item was removed: - ----- Method: PasteUpMorph>>wantsDropFiles: (in category 'event handling') ----- - wantsDropFiles: anEvent - ^self isWorldMorph! Item was added: + ----- Method: PasteUpMorph>>wantsDroppedTransferMorph: (in category 'dropping/grabbing') ----- + wantsDroppedTransferMorph: transferMorph + + ^ self hasTransferMorphConverter + or: [transferMorph dragTransferType = #filesAndDirectories]! Item was removed: - ----- Method: Text>>asDraggableMorph (in category '*Morphic-converting') ----- - asDraggableMorph - - ^ self copy - addAttribute: (TextFontReference toFont: ((self userInterfaceTheme get: #font for: #TransferMorph) ifNil: [TextStyle defaultFont])); - asMorph! Item was added: + ----- Method: TransferMorph>>createDraggableMorph: (in category 'initialization') ----- + createDraggableMorph: anObject + + (anObject respondsTo: #asDraggableMorph) + ifTrue: [^ anObject asDraggableMorph]. + + anObject isMorph + ifTrue: ["Huge or complex morphs have a serious impact on performance while being dragged. Use the thumbnail version." + ^ anObject thumbnail asMorph]. + + anObject isText + ifTrue: [ + ^ anObject copy + addAttribute: (TextFontReference toFont: (self userInterfaceTheme font ifNil: [TextStyle defaultFont])); + asMorph]. + + ^ ((anObject respondsTo: #dragLabel) ifTrue: [anObject dragLabel] ifFalse: [anObject printString]) asMorph + color: (self userInterfaceTheme textColor ifNil: [Color black]); + font: (self userInterfaceTheme font ifNil: [TextStyle defaultFont]) + yourself + ! Item was changed: ----- Method: TransferMorph>>passenger: (in category 'accessing') ----- passenger: anObject passenger := anObject. self removeAllMorphs; + addMorph: (self createDraggableMorph: passenger); - addMorph: passenger asDraggableMorph; updateCopyIcon; setDefaultParameters.! Item was changed: ----- Method: TransferMorph>>wantsToBeDroppedInto: (in category 'dropping/grabbing') ----- wantsToBeDroppedInto: aMorph + ^ aMorph isWorldMorph + ifTrue: [aMorph wantsDroppedTransferMorph: self] + ifFalse: [super wantsToBeDroppedInto: aMorph]! - ifTrue: [ aMorph hasTransferMorphConverter ] - ifFalse: [ super wantsToBeDroppedInto: aMorph ]! Item was removed: - ----- Method: WorldState class>>cleanUp (in category 'class initialization') ----- - cleanUp - "Reset command histories" - - self allInstances do: [ :ea | ea clearCommandHistory ].! Item was added: + ----- Method: WorldState class>>cleanUp: (in category 'class initialization') ----- + cleanUp: aggressive + + self allInstancesDo: [:worldState | worldState cleanUp: aggressive].! Item was added: + ----- Method: WorldState>>cleanUp: (in category 'initialization') ----- + cleanUp: aggressive + + self clearCommandHistory. + self handsDo: [:hand | hand cleanUp: aggressive].!

1 0

The Trunk: System-mt.1187.mcz
by commits＠source.squeak.org 02 Nov '20

02 Nov '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1187.mcz ==================== Summary ==================== Name: System-mt.1187 Author: mt Time: 2 November 2020, 2:42:51.691816 pm UUID: fb19b021-de9d-284a-bdea-0d3fd23508c4 Ancestors: System-tpr.1186 Minor code clean-up. Thanks to Christoph (ct)! =============== Diff against System-tpr.1186 =============== Item was changed: ----- Method: DefaultExternalDropHandler>>chooseServiceFrom: (in category 'private') ----- chooseServiceFrom: aCollection + "private - choose a service from aCollection asking the user if needed" + ^ aCollection size = 1 - "private - choose a service from aCollection asking the user if needed" - ^aCollection size = 1 ifTrue: [aCollection anyOne] + ifFalse: [UIManager default + chooseFrom: (aCollection collect: [:each | each label]) - ifFalse:[UIManager default - chooseFrom: (aCollection collect:[:each| each label]) values: aCollection title: 'You dropped a file. Please choose a service:' translated withCRs].! Item was changed: ----- Method: DefaultExternalDropHandler>>handle:in:dropEvent: (in category 'event handling') ----- handle: dropStream in: pasteUp dropEvent: anEvent "the file was just droped, let's do our job" | fileName services chosen | fileName := dropStream name. services := self servicesForFileNamed: fileName. + - "no service, default behavior" + services ifEmpty: [ + ^ UIManager default edit: dropStream contentsOfEntireFile]. + - services isEmpty - ifTrue: [^UIManager default edit: dropStream contentsOfEntireFile]. - chosen := self chooseServiceFrom: services. + chosen ifNotNil: [chosen performServiceFor: dropStream].! - chosen ifNotNil:[chosen performServiceFor: dropStream]! Item was changed: ----- Method: DefaultExternalDropHandler>>servicesForFileNamed: (in category 'private') ----- servicesForFileNamed: aString + "private - answer a collection of file-services for the file named aString" + + ^ (FileServices itemsForFile: aString) + copyWithoutAll: self unwantedSelectors! - "private - answer a collection of file-services for the file named - aString" - | allServices | - allServices := FileServices itemsForFile: aString. - ^ allServices - reject: [:svc | self unwantedSelectors includes: svc selector]!

1 0

The Trunk: ToolBuilder-Morphic-mt.269.mcz
by commits＠source.squeak.org 02 Nov '20

02 Nov '20

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.269.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.269 Author: mt Time: 2 November 2020, 2:28:06.554816 pm UUID: 305f872b-8971-d743-af47-f0aef148f1e7 Ancestors: ToolBuilder-Morphic-mt.268 Complements Morphic-mt.1709. Thanks to Christoph (ct)! =============== Diff against ToolBuilder-Morphic-mt.268 =============== Item was changed: ----- Method: PluggableListMorphPlus>>wantsDroppedMorph:event: (in category 'drag and drop') ----- wantsDroppedMorph: aTransferMorph event: anEvent dropItemSelector ifNil: [^ false]. + aTransferMorph isTransferMorph ifFalse: [^ false]. - (aTransferMorph isKindOf: TransferMorph) ifFalse: [^ false]. wantsDropSelector ifNil: [^ true]. ^ model perform: wantsDropSelector withEnoughArguments: { aTransferMorph passenger. aTransferMorph dragTransferType. aTransferMorph source. aTransferMorph}! Item was changed: ----- Method: PluggableTreeMorph>>wantsDroppedMorph:event: (in category 'drag and drop') ----- wantsDroppedMorph: aTransferMorph event: anEvent dropItemSelector ifNil: [^ false]. wantsDropSelector ifNil: [^ true]. + aTransferMorph isTransferMorph ifFalse: [^ false]. - (aTransferMorph isKindOf: TransferMorph) ifFalse: [^ false]. ^ model perform: wantsDropSelector withEnoughArguments: { aTransferMorph passenger. aTransferMorph dragTransferType. aTransferMorph source. aTransferMorph}!

1 0

The Trunk: Tools-mt.1015.mcz
by commits＠source.squeak.org 02 Nov '20

02 Nov '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1015.mcz ==================== Summary ==================== Name: Tools-mt.1015 Author: mt Time: 2 November 2020, 2:27:36.057816 pm UUID: 47544cd1-c6a1-8146-aa8b-82aa9658ff93 Ancestors: Tools-tpr.1014 Complements Morphic-mt.1709. Thanks to Christoph (ct)! =============== Diff against Tools-tpr.1014 =============== Item was changed: ----- Method: Workspace>>wantsDroppedMorph:event:inMorph: (in category 'drag and drop') ----- wantsDroppedMorph: dropee event: evt inMorph: target + ^ acceptDroppedMorphs or: [dropee isTransferMorph] - ^ acceptDroppedMorphs or: [dropee isKindOf: TransferMorph] !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2020