Packages April 2023

packages@lists.squeakfoundation.org

1 participants
37 discussions

The Trunk: Network-tpr.267.mcz
by commits＠source.squeak.org 08 Apr '23

08 Apr '23

tim Rowledge uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-tpr.267.mcz ==================== Summary ==================== Name: Network-tpr.267 Author: tpr Time: 8 April 2023, 12:29:38.830776 pm UUID: 01de8eeb-e2f0-4f50-ad57-4842a5c48a81 Ancestors: Network-mt.266 When asking for the host name, use the network primitives that actually work even if we are still using the old networking setup =============== Diff against Network-mt.266 =============== Item was changed: ----- Method: NetNameResolver class>>localHostName (in category 'lookups') ----- localHostName "Return the local name of this host." "NetNameResolver localHostName" | host | - self useOldNetwork ifTrue: [ - | hostName | - hostName := self - nameForAddress: self localHostAddress - timeout: 5. - ^hostName ifNil: [ self localAddressString ] ]. host := String new: NetNameResolver primHostNameSize. NetNameResolver primHostNameResult: host. ^host!

1 0

The Trunk: Morphic-mt.2103.mcz
by commits＠source.squeak.org 06 Apr '23

06 Apr '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2103.mcz ==================== Summary ==================== Name: Morphic-mt.2103 Author: mt Time: 6 April 2023, 11:21:51.373919 am UUID: d789fd49-b326-7044-97a8-fca46271212c Ancestors: Morphic-mt.2102 In tree widgets, add way to "expand all" via keyboard (SHIFT+RIGHT) or mouse (SHIFT+CLICK) navigation. =============== Diff against Morphic-mt.2102 =============== Item was changed: ScrollPane subclass: #SimpleHierarchicalListMorph instanceVariableNames: 'selectedMorph hoveredMorph getListSelector keystrokeActionSelector autoDeselect columns columnsCache sortingSelector getSelectionSelector setSelectionSelector potentialDropMorph lineColor font textColor' + classVariableNames: 'ExpandAllLimit ExpandedForm NotExpandedForm WrappedNavigation' - classVariableNames: 'ExpandedForm NotExpandedForm WrappedNavigation' poolDictionaries: '' category: 'Morphic-Explorer'! !SimpleHierarchicalListMorph commentStamp: 'ls 3/1/2004 12:15' prior: 0! Display a hierarchical list of items. Each item should be wrapped with a ListItemWrapper. For a simple example, look at submorphsExample. For beefier examples, look at ObjectExplorer or FileList2.! Item was added: + ----- Method: SimpleHierarchicalListMorph class>>expandAllLimit (in category 'preferences') ----- + expandAllLimit + <preference: 'Maximum number of items for expand-all in trees' + category: 'Morphic' + description: 'When the number of items in a tree exceeds this limit, stop the expand-all operation, which is usually invoked via SHIFT+RIGHT.' + type: #Number> + ^ ExpandAllLimit ifNil: [ 5000 "Allow for expanding a full class tree from ProtoObject" ]! Item was added: + ----- Method: SimpleHierarchicalListMorph class>>expandAllLimit: (in category 'preferences') ----- + expandAllLimit: booleanOrNil + + ExpandAllLimit := booleanOrNil.! Item was changed: ----- Method: SimpleHierarchicalListMorph>>arrowKey: (in category 'keyboard navigation') ----- arrowKey: asciiValue "Handle a keyboard navigation character. Answer true if handled, false if not." | keyEvent min max oldSelection nextSelection howManyItemsShowing keyHandled | keyHandled := false. keyEvent := asciiValue. max := self maximumSelection. min := self minimumSelection. nextSelection := oldSelection := self getSelectionIndex. keyEvent = 31 ifTrue:["down" self currentEvent shiftPressed ifTrue: [ self selectedMorph nextVisibleSibling ifNil: ["TODO: wrappedNavigation" ^ true] ifNotNil: [:m | self setSelectedMorph: m. ^ true]]. keyHandled := true. nextSelection :=oldSelection + 1. nextSelection > max ifTrue: [nextSelection := (self class wrappedNavigation ifTrue: [min] ifFalse: [^ true])]]. keyEvent = 30 ifTrue:["up" self currentEvent shiftPressed ifTrue: [ self selectedMorph previousVisibleSibling ifNil: ["TODO: wrappedNaviagtion" ^ true] ifNotNil: [:m | self setSelectedMorph: m. ^ true]]. keyHandled := true. nextSelection := oldSelection - 1. nextSelection < min ifTrue: [nextSelection := self class wrappedNavigation ifTrue: [max] ifFalse: [^ true]]]. keyEvent = 1 ifTrue: ["home" keyHandled := true. nextSelection := min]. keyEvent = 4 ifTrue: ["end" keyHandled := true. nextSelection := max]. howManyItemsShowing := self numSelectionsInView. keyEvent = 11 ifTrue: ["page up" keyHandled := true. nextSelection := min max: oldSelection - howManyItemsShowing]. keyEvent = 12 ifTrue: ["page down" keyHandled := true. nextSelection := oldSelection + howManyItemsShowing min: max]. (nextSelection ~= oldSelection or: [ keyHandled and: [ self class wrappedNavigation not ]]) ifTrue: [ self setSelectionIndex: nextSelection. ^ true]. keyEvent = 29 ifTrue:["right" selectedMorph ifNotNil:[ (selectedMorph canExpand and:[selectedMorph isExpanded not]) + ifTrue:[self currentEvent shiftPressed + ifTrue: [self expandAllSafely: selectedMorph] + ifFalse: [self toggleExpandedState: selectedMorph]] - ifTrue:[self toggleExpandedState: selectedMorph] ifFalse:[self setSelectionIndex: self getSelectionIndex+1]. ]. ^true]. keyEvent = 28 ifTrue:["left" selectedMorph ifNotNil:[ (selectedMorph isExpanded) ifTrue:[self toggleExpandedState: selectedMorph] ifFalse:[ self selectedParentMorph ifNil: [self setSelectionIndex: (self getSelectionIndex-1 max: 1)] ifNotNil: [:pm | self setSelectedMorph: pm]] ]. ^true]. ^false! Item was added: + ----- Method: SimpleHierarchicalListMorph>>expandAllSafely (in category 'events') ----- + expandAllSafely + + self expandAllSafely: selectedMorph.! Item was added: + ----- Method: SimpleHierarchicalListMorph>>expandAllSafely: (in category 'events') ----- + expandAllSafely: aMorph + + aMorph ifNil: [^ self]. + Cursor wait showWhile: [ + [self expandAllSafely: aMorph seen: IdentitySet new. self adjustSubmorphPositions] + on: TooManyItemsInTree do: [:ex | "Stop operation." + self adjustSubmorphPositions. + self inform: 'Too many children in sub-tree. Raise #expandAllLimit preference if needed.' translated. + self flag: #todo. "mt: Let the user choose to continue the operation for another n items..."]].! Item was added: + ----- Method: SimpleHierarchicalListMorph>>expandAllSafely:seen: (in category 'events') ----- + expandAllSafely: aMorph seen: seenObjects + "Keep track of seen objects to handle endless recursion." + + (seenObjects ifAbsentAdd: aMorph withoutListWrapper value) ifFalse: [^ self]. + seenObjects size > self class expandAllLimit ifTrue: [^ TooManyItemsInTree signal]. + aMorph canExpand ifFalse: [^ self]. + aMorph isExpanded ifFalse: [aMorph toggleExpandedState]. + aMorph childrenDo: [:child | self expandAllSafely: child seen: seenObjects].! Item was changed: ----- Method: SimpleHierarchicalListMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt | aMorph selectors | aMorph := self itemFromPoint: evt position. evt yellowButtonPressed "First check for option (menu) click" ifTrue: [ (PluggableListMorph menuRequestUpdatesSelection and: [model okToChange]) ifTrue: [ aMorph == selectedMorph ifFalse: [self setSelectedMorph: aMorph]]. ^ self yellowButtonActivity: evt shiftPressed]. aMorph ifNil: [^ super mouseDown: evt]. (aMorph notNil and:[aMorph inToggleArea: (aMorph point: evt position from: self)]) ifTrue: [ | priorSelection | priorSelection := self selectedMorph. + (evt shiftPressed and: [aMorph canExpand and: [aMorph isExpanded not]]) + ifTrue: [self expandAllSafely: aMorph] + ifFalse: [self toggleExpandedState: aMorph event: evt]. - self toggleExpandedState: aMorph event: evt. (priorSelection notNil and: [self selectedMorph isNil]) ifTrue: [ self setProperty: #changeSelectionOnMouseUp toValue: true. self setProperty: #selectedMorph toValue: aMorph]. ^ self]. PluggableListMorph highlightPreSelection ifTrue: [ aMorph highlightedForMouseDown: true. self setProperty: #highlightedMorph toValue: aMorph]. self setProperty: #changeSelectionOnMouseUp toValue: true. selectors := Array with: #click: with: (self doubleClickEnabled ifTrue: [#doubleClick:] ifFalse: [nil]) with: nil with: (self dragEnabled ifTrue:[#startDrag:] ifFalse:[nil]). evt hand waitForClicksOrDrag: self event: evt selectors: selectors threshold: HandMorph dragThreshold "pixels".! Item was added: + Notification subclass: #TooManyItemsInTree + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Explorer'!

1 0

The Trunk: System-eem.1410.mcz
by commits＠source.squeak.org 05 Apr '23

05 Apr '23

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1410.mcz ==================== Summary ==================== Name: System-eem.1410 Author: eem Time: 5 April 2023, 9:02:35.681492 am UUID: 4ddeee7e-b9ba-46ff-b127-b8eb2febb59d Ancestors: System-mt.1409 More accurate description of the failure conditions for primitive 98, storeSegmentFor:into:outPointers: =============== Diff against System-mt.1409 =============== Item was changed: ----- Method: NativeImageSegment>>storeSegmentFor:into:outPointers: (in category 'read/write segment primitives') ----- storeSegmentFor: rootsArray into: segmentWordArray outPointers: outPointerArray "This primitive will store a binary image segment (in the same format as the Squeak image file) of the receiver and every object in its proper tree of subParts (ie, that is not refered to from anywhere else outside the tree). Note: all elements of the reciever are treated as roots in determining the extent of the tree. All pointers from within the tree to objects outside the tree will be copied into the array of outpointers. In their place in the image segment will be an oop equal to the offset in the outpointer array (the first would be 4 or 8, depending on word size). but with the high bit set. Note: the first element of the segmentWordArray (and hence the first element of the Array answered by loadSegmentFrom:outPointers:) is the rootsArray." "The primitive expects the array and wordArray to be more than adequately long. In this case it returns normally, and truncates the two arrays to exactly the right size. + If either array is too small, if too many out pointers are required (more than 2^22), + or if not enough memory is available to hold the computed set of objects, + then the primitive will fail, but in no other case." - If either array is too small, the primitive will fail, but in no other case." <primitive: 98 error: ec> "successful completion returns self" ec == #'resource limit exceeded' ifTrue: [self primitiveFailed]. ^nil "normal failure returns nil"!

1 0

The Trunk: ToolBuilder-Morphic-mt.336.mcz
by commits＠source.squeak.org 05 Apr '23

05 Apr '23

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.336.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.336 Author: mt Time: 5 April 2023, 12:56:50.384931 pm UUID: 97a852f0-9638-4547-8449-aef57f5abcf4 Ancestors: ToolBuilder-Morphic-mt.335 For tree widget search (CMD+F), fix a issue where the model was not notified about the selected search result. =============== Diff against ToolBuilder-Morphic-mt.335 =============== Item was changed: ----- Method: PluggableTreeMorph>>findAgainNow (in category 'searching') ----- findAgainNow (findQueue isNil or: [findQueue isEmpty]) ifTrue: [^ self flash]. Cursor wait showWhile: [ (self searchMode caseOf: { [#breadthFirst] -> [self findAgainNowBreadthFirst]. [#depthFirst] -> [self findAgainNowDepthFirst] }) ifNotNil: [:currentPath | "Search used model data. View might already be outdated. Collapse parent now to get up-to-date children." self selectedMorph ifNotNil: [:focus | focus isExpanded ifTrue: [ self toggleExpandedState: self selectedMorph]]. "Match!! Stop search for now. Select the match." self selectedPathWrappers: currentPath. self selectedMorph ifNil: [ ^ self inform: 'Could not find path. View up to date?' translated]. "Mimic filter function to highlight (and filter) search results." lastKeystrokes := findText. self filterTree. self scrollSelectionAndExtraIntoView. + self setSelectedMorphOnly: self selectedMorph. "Tell the model" ^ self]]. self inform: 'Nothing found.' translated.! Item was changed: ----- Method: PluggableTreeMorph>>setSelectedMorph: (in category 'selection') ----- setSelectedMorph: aMorph + + self setSelectedMorphOnly: aMorph. - - selectedWrapper := aMorph complexContents. - - "Let the model now about the selected object, not wrapper." - setSelectionSelector ifNotNil: [:symbol | - model - perform: symbol - with: (selectedWrapper ifNotNil: [:w | w item])]. - self setSelectedParentMorph: aMorph. self setSelectedPath: aMorph.! Item was added: + ----- Method: PluggableTreeMorph>>setSelectedMorphOnly: (in category 'selection') ----- + setSelectedMorphOnly: aMorph + + selectedWrapper := aMorph complexContents. + + "Let the model now about the selected object, not wrapper." + setSelectionSelector ifNotNil: [:symbol | + model + perform: symbol + with: (selectedWrapper ifNotNil: [:w | w item])].!

1 0

The Trunk: Morphic-mt.2102.mcz
by commits＠source.squeak.org 05 Apr '23

05 Apr '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2102.mcz ==================== Summary ==================== Name: Morphic-mt.2102 Author: mt Time: 5 April 2023, 11:49:24.832931 am UUID: 7e97cbf7-c375-1c4f-8544-e2787c3adc4c Ancestors: Morphic-mt.2101 For a possible drop into a tree widget, expand the hovered item after 1000 ms if possible so that users can select a sub-tree item during the drag operation. =============== Diff against Morphic-mt.2101 =============== Item was changed: ----- Method: SimpleHierarchicalListMorph>>mouseEnterDragging: (in category 'event handling') ----- mouseEnterDragging: evt | aMorph | (evt hand hasSubmorphs and:[self dropEnabled]) ifFalse: ["no d&d" ^super mouseEnterDragging: evt]. (self wantsDroppedMorph: evt hand firstSubmorph event: evt ) + ifTrue: [ + self removeAlarm: #toggleExpandedState:event:. - ifTrue:[ aMorph := self itemFromPoint: evt position. + aMorph ifNotNil: [ + self potentialDropMorph: aMorph. + (aMorph isExpanded not and: [aMorph canExpand]) ifTrue: [ + self + addAlarm: #toggleExpandedState:event: + withArguments: {aMorph. evt} + after: 1000]]. - aMorph ifNotNil:[self potentialDropMorph: aMorph]. evt hand newMouseFocus: self. "above is ugly but necessary for now" ].! Item was changed: ----- Method: SimpleHierarchicalListMorph>>toggleExpandedState:event: (in category 'events') ----- + toggleExpandedState: aMorph event: aMouseEvent + "Mouse navigation. Thus, avoid changing scroll position. See #toggleExpandedState: for keyboard navigation." - toggleExpandedState: aMorph event: event aMorph toggleExpandedState. self adjustSubmorphPositions. !

1 0

The Trunk: Morphic-mt.2101.mcz
by commits＠source.squeak.org 05 Apr '23

05 Apr '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2101.mcz ==================== Summary ==================== Name: Morphic-mt.2101 Author: mt Time: 5 April 2023, 11:37:16.364931 am UUID: 34cd7139-f586-2341-add3-2f96e52222d0 Ancestors: Morphic-mt.2100 Complements Tools-mt.1196 =============== Diff against Morphic-mt.2100 =============== 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: [self hasTransferMorphConverter not]) ifTrue: [ dropped dragTransferType = #filesAndDirectories ifTrue: [^ self dropFiles: dropped passenger event: evt]. dropped dragTransferType = #sourceCode ifTrue: [^ self dropSourceCode: dropped passenger event: evt]. dropped dragTransferType = #inspectorField "See Tools-Inspector" + ifTrue: [^ self dropInspectorField: dropped passenger event: evt]. + dropped dragTransferType = #explorerField "See Tools-Explorer" + ifTrue: [^ self dropExplorerField: dropped passenger from: dropped source model event: evt]]. - ifTrue: [^ self dropInspectorField: 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]]. 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 showingListView ifTrue: [self sortSubmorphsBy: (self valueOfProperty: #sortOrder). self currentWorld abandonAllHalos]. self bringTopmostsToFront.! Item was added: + ----- Method: PasteUpMorph>>dropExplorerField:from:event: (in category 'event handling') ----- + dropExplorerField: anExplorerField from: anExplorer event: evt + "Create a self-updating morph that serves as a compact watcher for the dropped explorer field." + + | scope | + scope := anExplorer currentParent + ifNil: [Dictionary newFrom: {anExplorerField} "root"] + ifNotNil: [:parent | parent value]. + (scope inspectorClass on: scope) fields + detect: [:field | field name = anExplorerField key + or: [field name = anExplorerField key printString]] + ifFound: [:inspectorField | + self + dropInspectorField: inspectorField rememberInspector + event: evt].! Item was changed: ----- Method: PasteUpMorph>>wantsDroppedTransferMorph: (in category 'dropping/grabbing') ----- wantsDroppedTransferMorph: transferMorph + ^ (((self hasTransferMorphConverter - ^ ((self hasTransferMorphConverter or: [transferMorph dragTransferType = #filesAndDirectories]) or: [transferMorph dragTransferType = #sourceCode]) + or: [transferMorph dragTransferType = #inspectorField "See Tools-Inspector"]) + or: [transferMorph dragTransferType = #explorerField "See Tools-Explorer"]! - or: [transferMorph dragTransferType = #inspectorField "See Tools-Inspector"]!

1 0

The Trunk: Tools-mt.1196.mcz
by commits＠source.squeak.org 05 Apr '23

05 Apr '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1196.mcz ==================== Summary ==================== Name: Tools-mt.1196 Author: mt Time: 5 April 2023, 11:33:38.895931 am UUID: 7ef82cd3-9cc7-c945-b6ff-c3ed304358c7 Ancestors: Tools-mt.1195 Similar to fields from the inspector, allow dropping things from an object explorer into the world to get a watcher. In this context, make drops into workspaces aware of key-value bindings. =============== Diff against Tools-mt.1195 =============== Item was changed: ----- Method: ObjectExplorer>>buildWith: (in category 'toolbuilder') ----- buildWith: builder | windowSpec treeSpec textSpec buttonSpec buttonOffset tool | windowSpec := builder pluggableWindowSpec new. windowSpec model: self; children: OrderedCollection new; label: #windowTitle. treeSpec := builder pluggableTreeSpec new. treeSpec model: self; nodeClass: self class nodeClass; roots: #getList; keyPress: #explorerKey:from:event:; getSelected: #currentSelection; setSelected: #currentSelection:; setSelectedParent: #currentParent:; menu: #genericMenu:; dragItem: #getDragItem:; + dragType: #getDragType:; autoDeselect: false; columns: (ObjectExplorerWrapper showContentsInColumns ifTrue: [{ [:listMorph | (listMorph filteredItems collect: [:item | item preferredWidthOfColumn: 1]) max]. nil "take all the space"}]); frame: (0@0 corner: 1(a)0.71). windowSpec children add: treeSpec. buttonOffset := (Preferences standardButtonFont widthOfString: 'inspect') * 3/2. textSpec := builder pluggableCodePaneSpec new. textSpec model: self; getText: #expression; editText: #expression:; menu: #codePaneMenu:shifted:; help: 'Evaluate expressions for the current tree selection...' translated; frame: (LayoutFrame fractions: (0(a)0.71 corner: 1@1) offsets: (0@0 corner: buttonOffset negated@0)). windowSpec children add: textSpec. buttonSpec := builder pluggableButtonSpec new model: self; label: 'inspect'; action: #inspectObject; help: 'Switch to an inspector tool'; frame: (LayoutFrame fractions: (1(a)0.71 corner: 1@1) offsets: (buttonOffset negated@0 corner: 0 @ 0)). windowSpec children add: buttonSpec. tool := builder build: windowSpec. self changed: #expandRootsRequested. ^ tool! Item was changed: ----- Method: ObjectExplorer>>getDragItem: (in category 'user interface') ----- getDragItem: binding + ^ binding! - ^ binding value! Item was added: + ----- Method: ObjectExplorer>>getDragType: (in category 'user interface') ----- + getDragType: binding + + ^ #explorerField! Item was changed: ----- Method: Workspace>>acceptDroppingMorph:event:inMorph: (in category 'drag and drop') ----- acceptDroppingMorph: dropee event: evt inMorph: targetMorph "Return the dropee to its old position, and add a reference to it at the cursor point." | bindingName externalName reference | (dropee isKindOf: TransferMorph) ifTrue: [reference := dropee passenger. + externalName := dropee passenger className. + (reference respondsTo: #key) ifTrue: [ + externalName := reference key. + externalName isString ifFalse: [ + externalName := externalName asString]. + reference := reference value]] - externalName := dropee passenger className] ifFalse: [reference := dropee. externalName := dropee externalName]. externalName := externalName isOctetString ifTrue: [externalName] ifFalse: ['a' , externalName]. + bindingName := externalName withFirstCharacterDownshifted. + (self hasBindingOf: bindingName) ifTrue: [| num | + self flag: #discuss. "mt: #identityHash or readable number?" + num := 2. + [self hasBindingOf: bindingName, num] + whileTrue: [num := num + 1]. + bindingName := bindingName, num]. - bindingName := externalName withFirstCharacterDownshifted , reference identityHash printString. targetMorph correctSelectionWithString: bindingName , ' '. (self bindingOf: bindingName) value: reference. (dropee isKindOf: TransferMorph) ifFalse: [dropee rejectDropMorphEvent: evt]. ^ true"success"!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2023