Packages May 2024

packages@lists.squeakfoundation.org

1 participants
34 discussions

The Trunk: Morphic-mt.2157.mcz
by commits＠source.squeak.org 15 May '24

15 May '24

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2157.mcz ==================== Summary ==================== Name: Morphic-mt.2157 Author: mt Time: 15 May 2024, 3:28:11.637384 pm UUID: bf3cf9ea-8445-944d-b566-89b66d0133a4 Ancestors: Morphic-mt.2156 Fixes small color glitch in multi-selection lists where the curren row does not currently belong to the selection. There, selectedRow is merely the cursor and has just an outline. In UI themes with a contrast color, this would otherwise look awkward. Thanks to Tom (tobe) for thei hint! =============== Diff against Morphic-mt.2156 =============== Item was changed: ----- Method: LazyListMorph>>colorForRow: (in category 'drawing') ----- colorForRow: row + ^ ((listSource hasMultiSelection and: [ self listSource itemSelectedAmongMultiple: row ]) + or: [ selectedRow notNil and: [ row = selectedRow] ]) + ifTrue: [ self selectionTextColor ] + ifFalse: [ self color ]! - ^(selectedRow notNil and: [ row = selectedRow]) - ifTrue: [ self selectionTextColor ] - ifFalse: [ self color ].!

1 0

The Trunk: EToys-mt.515.mcz
by commits＠source.squeak.org 13 May '24

13 May '24

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.515.mcz ==================== Summary ==================== Name: EToys-mt.515 Author: mt Time: 13 May 2024, 9:28:17.668237 am UUID: 8c45ae91-336c-6f47-ae9b-713b6832f751 Ancestors: EToys-dtl.514 Complement Collections-ct.1067 and Collections-mt.1068 =============== Diff against EToys-dtl.514 =============== Item was changed: ----- Method: SyntaxMorph>>balloonText (in category 'accessing') ----- balloonText ^(('Value: ',(self getCurrentValue ifNil: [^nil])) + withNoLineLongerThan: 35) truncateWithEllipsisTo: 300! - withNoLineLongerThan: 35) truncateWithElipsisTo: 300!

1 0

The Trunk: Network-mt.284.mcz
by commits＠source.squeak.org 13 May '24

13 May '24

Marcel Taeumel uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-mt.284.mcz ==================== Summary ==================== Name: Network-mt.284 Author: mt Time: 13 May 2024, 9:27:31.407237 am UUID: f56aa4cd-7e14-5b47-8eb3-fff9032db2c0 Ancestors: Network-dtl.283 Complement Collections-ct.1067 and Collections-mt.1068 =============== Diff against Network-dtl.283 =============== Item was changed: ----- Method: MailMessage>>excerpt (in category 'printing/formatting') ----- excerpt "Return a short excerpt of the text of the message" + ^ self bodyText withSeparatorsCompacted truncateWithEllipsisTo: 60! - ^ self bodyText withSeparatorsCompacted truncateWithElipsisTo: 60!

1 0

The Trunk: Tools-mt.1252.mcz
by commits＠source.squeak.org 13 May '24

13 May '24

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1252.mcz ==================== Summary ==================== Name: Tools-mt.1252 Author: mt Time: 13 May 2024, 9:27:09.942237 am UUID: 5548bac2-7392-bb4c-a3a4-3d385ba8504b Ancestors: Tools-eem.1251 Complement Collections-ct.1067 and Collections-mt.1068 =============== Diff against Tools-eem.1251 =============== Item was changed: ----- Method: Inspector>>inspectOneOf: (in category 'menu - commands') ----- inspectOneOf: someKeys | elements labels choice | someKeys size = 0 ifTrue: [^ self inform: 'Nothing to inspect.' translated]. someKeys size = 1 ifTrue: [^ (self elementAt: someKeys first) inspect]. someKeys size > 50 ifTrue: [^ self inspectOneOfFrom: someKeys first to: someKeys last]. elements := someKeys collect: [:key | [self elementAt: key] ifError: ['<???>']]. labels := someKeys with: elements collect: [:key :element | '{1} -> {2}' format: { key printString. + [element printString withoutLineEndings withBlanksCondensed truncateWithEllipsisTo: 75] - [element printString withoutLineEndings withBlanksCondensed truncateWithElipsisTo: 75] ifError: ['<???>']}]. choice := Project uiManager chooseFrom: labels title: 'Inspect which field?' translated. choice = 0 ifTrue: [^ self]. (elements at: choice) inspect.! Item was changed: ----- Method: MethodFinder>>initialize2 (in category 'initialize') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StringHolder>>messageListSelectorTitle (in category '*Tools') ----- messageListSelectorTitle | selector aString aStamp aSize | (selector := self selectedMessageName) ifNil: [aSize := self messageList size. ^ (aSize = 0 ifTrue: ['no'] ifFalse: [aSize printString]), ' message', (aSize = 1 ifTrue: [''] ifFalse: ['s'])] ifNotNil: [Preferences timeStampsInMenuTitles ifFalse: [^ nil]. + aString := selector truncateWithEllipsisTo: 28. - aString := selector truncateWithElipsisTo: 28. ^ (aStamp := self timeStamp) size > 0 ifTrue: [aString, String cr, aStamp] ifFalse: [aString]]!

1 0

The Trunk: Morphic-mt.2156.mcz
by commits＠source.squeak.org 13 May '24

13 May '24

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2156.mcz ==================== Summary ==================== Name: Morphic-mt.2156 Author: mt Time: 13 May 2024, 9:25:51.994237 am UUID: 1f2ce642-cd13-1742-857c-7d257fa40f46 Ancestors: Morphic-ct.2155 Complement Collections-ct.1067 and Collections-mt.1068 =============== Diff against Morphic-ct.2155 =============== Item was changed: ----- Method: HaloMorph>>doDebug:with: (in category 'private') ----- doDebug: evt with: menuHandle "Ask hand to invoke the a debugging menu for my inner target. If shift key is down, immediately put up an inspector on the inner target" | menu | evt shiftPressed ifTrue: [ evt hand removeHalo. ^ innerTarget inspectInMorphic: evt]. menu := innerTarget buildDebugMenu: evt hand. + menu addTitle: (innerTarget externalName truncateWithEllipsisTo: 40). - menu addTitle: (innerTarget externalName truncateWithElipsisTo: 40). menu popUpEvent: evt in: self world. evt hand removeHalo.! Item was changed: ----- Method: PasteUpMorph>>dropInspectorField:event: (in category 'event handling') ----- dropInspectorField: anInspectorField event: evt "Create a self-updating morph that serves as a compact watcher for the dropped inspector field." | watcher | watcher := PluggableButtonMorph new changeTableLayout; cellPositioning: #topLeft; model: [anInspectorField inspector object inspect]; action: #value; yourself. watcher addMorph: ((UpdatingStringMorph on: anInspectorField selector: #value) stepTime: 1000 "msecs"; yourself); + addMorph: (('of ', (anInspectorField inspector object printString truncateWithEllipsisTo: 40)) asMorph - addMorph: (('of ', (anInspectorField inspector object printString truncateWithElipsisTo: 40)) asMorph font: Preferences standardBalloonHelpFont yourself); addMorph: (anInspectorField name asString asMorph font: Preferences standardBalloonHelpFont emphasis: TextEmphasis bold emphasisCode; yourself). watcher center: evt position. watcher bounds: (watcher bounds translatedToBeWithin: self bounds). watcher openInWorld.! Item was changed: ----- Method: SmalltalkEditor>>tallySelection (in category 'do-its') ----- tallySelection "Treat the current selection as an expression; evaluate it and return the time took for this evaluation" | code result rcvr ctxt v | self lineSelectAndEmptyCheck: [^ self]. (model respondsTo: #doItReceiver) ifTrue: [ rcvr := model doItReceiver. ctxt := model doItContext] ifFalse: [rcvr := ctxt := nil]. result := [ | cm | code := self selectionAsStream. cm := rcvr class evaluatorClass new compiledMethodFor: code in: ctxt to: rcvr notifying: self ifFail: [morph flash. ^ self]. Time millisecondsToRun: [v := cm valueWithReceiver: rcvr arguments: (ctxt ifNil: [#()] ifNotNil: [{ctxt}]) ]. ] on: OutOfScopeNotification do: [ :ex | ex resume: true]. Project uiManager inform: ('Expression{1} {2} Time (compile and execute) {3} ms Result {4}' translated asTextFromHtml format: { + rcvr ifNil: [''] ifNotNil: [' (', (rcvr printString truncateWithEllipsisTo: 20), ')']. + (code contents truncateWithEllipsisTo: 200) copyReplaceAll: String cr with: ' '. - rcvr ifNil: [''] ifNotNil: [' (', (rcvr printString truncateWithElipsisTo: 20), ')']. - (code contents truncateWithElipsisTo: 200) copyReplaceAll: String cr with: ' '. result printString. + v printString truncateWithEllipsisTo: 100}).! - v printString truncateWithElipsisTo: 100}).! Item was changed: ----- Method: SystemProgressMorph>>setLabel:at: (in category 'labelling') ----- setLabel: shortDescription at: slot (self labels at: slot) contents: (shortDescription ifNotNil: [ self flag: #todo. "mt: Allow multi-line descriptions... Then see DialogWindow >> #message:." + shortDescription truncateWithEllipsisTo: 100]). - shortDescription truncateWithElipsisTo: 100]). self reposition!

1 0

The Trunk: MorphicExtras-mt.354.mcz
by commits＠source.squeak.org 13 May '24

13 May '24

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.354.mcz ==================== Summary ==================== Name: MorphicExtras-mt.354 Author: mt Time: 13 May 2024, 9:18:27.481237 am UUID: 5cbce2f1-18ca-b848-b8ed-78b3cacf9b1e Ancestors: MorphicExtras-dtl.353 Complement Collections-ct.1067 and Collections-mt.1068 =============== Diff against MorphicExtras-dtl.353 =============== Item was changed: ----- Method: CommandHistory>>redoMenuWording (in category 'menu') ----- redoMenuWording "Answer the wording to be used in a menu offering the current Redo command" | nextCommand | ((nextCommand := self nextCommand) isNil or: [Preferences useUndo not]) ifTrue: [^ 'can''t redo' translated]. ^ String streamContents: [:aStream | aStream nextPutAll: 'redo' translated. aStream nextPutAll: ' "'. + aStream nextPutAll: (nextCommand cmdWording truncateWithEllipsisTo: 20). - aStream nextPutAll: (nextCommand cmdWording truncateWithElipsisTo: 20). aStream nextPut: $". lastCommand phase == #done ifFalse: [aStream nextPutAll: ' (z)']]! Item was changed: ----- Method: CommandHistory>>undoMenuWording (in category 'menu') ----- undoMenuWording "Answer the wording to be used in an 'undo' menu item" (lastCommand isNil or: [Preferences useUndo not or: [(Preferences infiniteUndo not and: [lastCommand phase == #undone]) or: [self nextCommandToUndo isNil]]]) ifTrue: [^ 'can''t undo' translated]. ^ String streamContents: [:aStream | aStream nextPutAll: 'undo' translated. aStream nextPutAll: ' "'. + aStream nextPutAll: (self nextCommandToUndo cmdWording truncateWithEllipsisTo: 20). - aStream nextPutAll: (self nextCommandToUndo cmdWording truncateWithElipsisTo: 20). aStream nextPut: $". lastCommand phase == #done ifTrue: [aStream nextPutAll: ' (z)']].! Item was changed: ----- Method: CommandHistory>>undoOrRedoMenuWording (in category 'menu') ----- undoOrRedoMenuWording "Answer the wording to be used in a menu item offering undo/redo (i.e., the form used when the #infiniteUndo preference is false)" | pre | self assureLastCommandStillValid. lastCommand ifNil: [^ 'can''t undo' translated]. pre := lastCommand phase == #done ifTrue: ['undo' translated] ifFalse: ['redo' translated]. + ^ pre, ' "', (lastCommand cmdWording truncateWithEllipsisTo: 20), '" (z)'! - ^ pre, ' "', (lastCommand cmdWording truncateWithElipsisTo: 20), '" (z)'! Item was changed: ----- Method: CommandHistory>>undoTo (in category 'called from the ui') ----- undoTo "Not yet functional, and not yet sent. Allow the user to choose a point somewhere in the undo/redo tape, and undo his way to there. Applicable only if infiniteUndo is set. " | anIndex commandList reply | (anIndex := self historyIndexOfLastCommand) = 0 ifTrue: [^ Beeper beep]. commandList := history copyFrom: ((anIndex - 10) max: 1) to: ((anIndex + 10) min: history size). + reply := UIManager default chooseFrom: (commandList collect: [:cmd | cmd cmdWording truncateWithEllipsisTo: 20]) values: commandList title: 'undo or redo to...'. - reply := UIManager default chooseFrom: (commandList collect: [:cmd | cmd cmdWording truncateWithElipsisTo: 20]) values: commandList title: 'undo or redo to...'. reply ifNotNil: [self inform: #deferred] "ActiveWorld commandHistory undoTo" !

1 0

The Trunk: HelpSystem-Core-mt.146.mcz
by commits＠source.squeak.org 13 May '24

13 May '24

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-mt.146.mcz ==================== Summary ==================== Name: HelpSystem-Core-mt.146 Author: mt Time: 13 May 2024, 9:17:56.515237 am UUID: 727879be-a73c-ba4b-9369-b3dd395fb259 Ancestors: HelpSystem-Core-ct.145 Complement Collections-ct.1067 and Collections-mt.1068 =============== Diff against HelpSystem-Core-ct.145 =============== Item was changed: ----- Method: AbstractHelpTopic>>title (in category 'accessing') ----- title "A brief description of this topic's contents." + ^ self contents truncateWithEllipsisTo: 20! - ^ self contents truncateWithElipsisTo: 20!

1 0

The Trunk: Collections-mt.1068.mcz
by commits＠source.squeak.org 13 May '24

13 May '24

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.1068.mcz ==================== Summary ==================== Name: Collections-mt.1068 Author: mt Time: 13 May 2024, 9:14:06.416237 am UUID: c204d0f0-3cb8-aa4d-a3d7-6d51ca9a6a8d Ancestors: Collections-ct.1067 Extend commentary in #truncateWithElipsisTo:. Mark softly as deprecated for better tool support. =============== Diff against Collections-ct.1067 =============== Item was changed: ----- Method: String>>truncateWithElipsisTo: (in category 'converting') ----- truncateWithElipsisTo: maxLength "Historical typo kept for compatibility." + self flag: #deprecated. "mt: Soft deprecation to see it in tools. Keep it in Collections package for best backwards compatibility. Due to the many older sources out there, I do not suppose that we would move this to *deprecated any time soon." ^ self truncateWithEllipsisTo: maxLength!

1 0

The Trunk: Files-cmm.207.mcz
by commits＠source.squeak.org 06 May '24

06 May '24

Chris Muller uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-cmm.207.mcz ==================== Summary ==================== Name: Files-cmm.207 Author: cmm Time: 28 April 2024, 7:24:18.020282 pm UUID: 7f3afa72-a69e-48be-aae7-a50900bfd4a3 Ancestors: Files-ul.206 - Support #currentDirectoryNickname from FileDirectory class>>#on:. - Don't allow FileStream class>>#newFileNamed:do: and #forceNewFileNamed:do: to fail silently. =============== Diff against Files-ul.206 =============== Item was changed: ----- Method: FileDirectory class>>on: (in category 'instance creation') ----- on: pathString "Return a new file directory for the given path, of the appropriate FileDirectory subclass for the current OS platform." | pathName | DirectoryClass ifNil: [self setDefaultDirectoryClass]. "If path ends with a delimiter (: or /) then remove it" pathName := pathString. (pathName at: pathName size ifAbsent: nil) = self pathNameDelimiter ifTrue: [pathName := pathName allButLast]. DirectoryClass parentDirectoryNickname ifNotNil: [:parentName| (pathName beginsWith: parentName) ifTrue: [pathName = parentName ifTrue: [^self default containingDirectory]. (pathName at: parentName size + 1 ifAbsent: nil) = self pathNameDelimiter ifTrue: [^self default containingDirectory on: (pathName allButFirst: parentName size + 1)]]]. + DirectoryClass currentDirectoryNickname ifNotNil: + [: currentName| + (pathName beginsWith: currentName) ifTrue: + [pathName = currentName ifTrue: + [^self default]. + (pathName at: currentName size + 1 ifAbsent: nil) = self pathNameDelimiter ifTrue: + [^self default on: (pathName allButFirst: currentName size + 1)]]]. + ^DirectoryClass new setPathName: pathName! Item was changed: ----- Method: FileStream class>>forceNewFileNamed:do: (in category 'instance creation') ----- + forceNewFileNamed: fileName do: aBlock + "Create a file named fileName and value aBlock with a ReadWriteStream on its contents, which is closed automatically upon completion of aBlock. If the file identified by fileName already exists, it will be replaced. If the file can't be created for any reason, signal an error." + ^ (self forceNewFileNamed: fileName) + ifNil: [ self error: 'file not created' ] + ifNotNil: [ : fileStream | self detectFile: fileStream do: aBlock ]! - forceNewFileNamed: fileName do: aBlock - "Avi Bryant says, ''This idiom is quite common in other languages that make heavy use of closures (i.e. Lisp (with-file 'foo' (f) ...) and Ruby (File.open('foo'){|f|...})). It's time Squeak had it, too.'' - - Returns the result of aBlock." - - ^self detectFile: (self forceNewFileNamed: fileName) do: aBlock! Item was changed: ----- Method: FileStream class>>newFileNamed:do: (in category 'instance creation') ----- + newFileNamed: fileName do: aBlock + "Create a file named fileName and value aBlock with a ReadWriteStream on its contents, which is closed automatically upon completion of aBlock. If the file identified by fileName already exists, signal an error. If the file can't be created for any reason, signal an error." + ^ (self newFileNamed: fileName) + ifNil: [ self error: 'file not created' ] + ifNotNil: [ : fileStream | self detectFile: fileStream do: aBlock ]! - newFileNamed: fileName do: aBlock - "Avi Bryant says, ''This idiom is quite common in other languages that make heavy use of closures (i.e. Lisp (with-file 'foo' (f) ...) and Ruby (File.open('foo'){|f|...})). It's time Squeak had it, too.'' - - Returns the result of aBlock." - - ^self detectFile: (self newFileNamed: fileName) do: aBlock!

1 0

The Trunk: Morphic-ct.2155.mcz
by commits＠source.squeak.org 03 May '24

03 May '24

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2155.mcz ==================== Summary ==================== Name: Morphic-ct.2155 Author: ct Time: 3 May 2024, 6:24:46.710377 pm UUID: ea10ff8e-6579-4cd4-9131-d2af6e8a800a Ancestors: Morphic-mt.2152 Fixes halo transfer to morphs that overlap with another morph that overlaps with the current halo. This was a regression from Morphic-ct.1794. =============== Diff against Morphic-mt.2152 =============== Item was changed: ----- Method: MorphicHaloDispatcher>>dispatchHalo:createFor: (in category 'dispatching') ----- dispatchHalo: anEvent createFor: aContainer "Invoke a halo on any aContainer's submorph that wants it. Dispatch uses anEvent's #position. The dispatch only ends in that container if no other morph wants it. Note that the event's #shiftPressed state determines whether the dispatch goes innermost-to-outermost (if pressed) or the other way around (if not pressed). If there already is a halo, check whether the event still points into the same hierarchy. If it does, do nothing here but rely on the halo itself to process the event (see implementors of #transferHalo:from:). If, however, the event points to a different hierarchy in the container, invoke a new halo and discard the current one. We do this here because the current halo should not bother with its container but only its #target." | stack innermost haloTarget | "The stack is the frontmost (i.e. innermost) to backmost (i.e. outermost) morph." stack := (aContainer morphsAt: anEvent position unlocked: true useFullBounds: true) select: [ : each | each wantsHaloFromClick or: [ each isRenderer ] ]. "self assert: [ stack last == aContainer ]." innermost := anEvent hand halo ifNil: [ stack first ] ifNotNil: [ : existingHalo | "self assert: [ existingHalo wantsHaloFromClick not ]. " stack + detect: [ : each | each owner == aContainer ] - detect: [ : each | each owner == aContainer - and: [ existingHalo bounds intersects: (existingHalo haloBoundsFor: each) ] ] ifFound: [ : topInContainer | "Is existingHalo's target part of the same topInContainer as the morph clicked?" (existingHalo target withAllOwners includes: topInContainer) 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: [ topInContainer ] ] ] 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 == aContainer or: [ anEvent shiftPressed ]) ifTrue: [ innermost ] ifFalse: [ "Find the outermost owner that wants it. Ignore containment above aContainer." stack := innermost withAllOwners. (stack first: (stack findFirst: [ : each | each owner == aContainer ])) reversed detect: [ : each | each wantsHaloFromClick or: [ each isRenderer ] ] 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!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2024