Squeak-dev November 2021

squeak-dev@lists.squeakfoundation.org

27 participants
277 discussions

The Inbox: System-ct.1246.mcz
by commits＠source.squeak.org 01 Nov '21

01 Nov '21

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-ct.1246.mcz ==================== Summary ==================== Name: System-ct.1246 Author: ct Time: 1 November 2021, 10:02:52.192754 pm UUID: 1a72b404-61d8-d04c-8323-6a94bceb2230 Ancestors: System-eem.1244 Avoids dangling preferences when removing the preference pragma from a method. The disadvantage of this approach is that the lifecycle of the preference is reset whenever it is recompiled. However, I am not aware of any disadvantage of this change. =============== Diff against System-eem.1244 =============== Item was changed: ----- Method: Preferences class>>prefEvent: (in category 'updating') ----- prefEvent: anEvent "Check if this system event defines or removes a preference." | class selector method | self flag: #performance. "mt: Maybe defer preference dictionary update?" anEvent itemKind = SystemChangeNotifier classKind ifTrue: [ anEvent isRemoved ifTrue: [ self removeAllPreferencesSuchThat: [:pref | pref provider == anEvent item]]. anEvent isRenamed ifTrue: [ self atomicUpdatePreferences: [ :prefs | self allPreferences select: [:pref | pref provider == anEvent item] thenDo: [:pref | prefs at: pref id put: pref]. prefs keys select: [:id | id beginsWith: anEvent oldName] thenDo: [:id | prefs removeKey: id] ] ] ]. anEvent itemKind = SystemChangeNotifier methodKind ifTrue: [ "ignore instance methods" anEvent itemClass isMeta ifFalse: [^ self]. + - class := anEvent itemClass theNonMetaClass. selector := anEvent itemSelector. method := anEvent item. + + self atomicUpdatePreferences: [ :prefs | + "See PragmaPreference >> #id." + prefs removeKey: (class name,'>>', selector) asSymbol ifAbsent: []] . + - - anEvent isRemoved ifTrue: [ - self atomicUpdatePreferences: [ :prefs | - "See PragmaPreference >> #id." - prefs removeKey: (class name,'>>', selector) asSymbol ifAbsent: []]]. - (anEvent isAdded or: [anEvent isModified]) ifTrue: [ method pragmas do: [:pragma | self addPragmaPreference: pragma] ] ].!

1 0

The Inbox: Tools-ct.1069.mcz
by commits＠source.squeak.org 01 Nov '21

01 Nov '21

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-ct.1069.mcz ==================== Summary ==================== Name: Tools-ct.1069 Author: ct Time: 1 November 2021, 7:12:42.078014 pm UUID: 62e9cb10-4017-3e40-a9bb-c57e2f3de95a Ancestors: Tools-eem.1065 Adds menu items to browse the extensions, dependencies, and the package of a system category or package in the relevant browsers' columns. Depends on System-ct.1245. Supersedes Tools-ct.930. Also integrates Tools-ct.961 for package browsing instead of adding new merge conflicts (though this increases the size of this version -- please report back whether this was a good decision or not). Reuploaded as a replacement for Tools-ct.1065 to collect all package-related items in the browser in a submenu. Yes, at some time, we should really clean up CustomMenu and move some responsibilities to the ToolBuilder, but until we tackle this construction site, let's not restraint ourselves from adding new features. =============== Diff against Tools-eem.1065 =============== Item was added: + ----- Method: Browser>>browseExtensions (in category 'system category functions') ----- + browseExtensions + + ^ self systemNavigation browseAllExtensionsOfCategory: self selectedSystemCategory! Item was added: + ----- Method: Browser>>browseInvertedPackageDependencies (in category 'system category functions') ----- + browseInvertedPackageDependencies + + ^ DependencyBrowser openInvertedOnPackage: self selectedPackage! Item was added: + ----- Method: Browser>>browsePackage (in category 'system category functions') ----- + browsePackage + + ^ self selectedPackage browse! Item was added: + ----- Method: Browser>>browsePackageDependencies (in category 'system category functions') ----- + browsePackageDependencies + + ^ DependencyBrowser openOnPackage: self selectedPackage! Item was added: + ----- Method: Browser>>browsePackageExtensions (in category 'system category functions') ----- + browsePackageExtensions + + ^ self systemNavigation browseAllExtensionsOfPackage: self selectedPackage! Item was added: + ----- Method: Browser>>mainPackageMenu: (in category 'system category functions') ----- + mainPackageMenu: aMenu + <packageMenu> + ^ aMenu addList: #( + ('browse' browsePackage) + ('browse extensions' browsePackageExtensions) + ('browse dependencies' browsePackageDependencies) + ('browse inverted dependencies' browseInvertedPackageDependencies)); + yourself! Item was changed: ----- Method: Browser>>mainSystemCategoryMenu: (in category 'system category functions') ----- mainSystemCategoryMenu: aMenu <systemCategoryMenu> + aMenu addTranslatedList: #( + ('find class... (f)' findClass) + ('back... (b)' recent) - ^ aMenu addList: #( - ('find class... (f)' findClass) - ('back... (b)' recent) - + ('browse all' browseAllClasses) + ('browse' buildSystemCategoryBrowser) + ('browse extensions' browseExtensions)). + aMenu + add: 'package' translated + subMenu: (self packageMenu: ((Smalltalk isMorphic + ifTrue: [MenuMorph new defaultTarget: self; yourself] + ifFalse: [CustomMenu new]) + yourself)) + target: self + selector: #yourself + argumentList: #(). + aMenu addTranslatedList: #( - ('browse all' browseAllClasses) - ('browse' buildSystemCategoryBrowser) - + ('printOut' printOutSystemCategory) + ('fileOut' fileOutSystemCategory) - ('printOut' printOutSystemCategory) - ('fileOut' fileOutSystemCategory) - + ('reorganize' editSystemCategories) + ('alphabetize' alphabetizeSystemCategories) - ('reorganize' editSystemCategories) - ('alphabetize' alphabetizeSystemCategories) - + ('update' updateSystemCategories) + ('add item...' addSystemCategory) + ('rename...' renameSystemCategory) + ('remove (x)' removeSystemCategory)). + ^ aMenu! - ('update' updateSystemCategories) - ('add item...' addSystemCategory) - ('rename...' renameSystemCategory) - ('remove (x)' removeSystemCategory)); - yourself - ! Item was added: + ----- Method: Browser>>packageMenu: (in category 'system category functions') ----- + packageMenu: aMenu + ^ self menu: aMenu for: #(packageMenu packageMenuShifted:) + ! Item was added: + ----- Method: Browser>>selectedPackage (in category 'system category list') ----- + selectedPackage + + ^ self environment packageOrganizer packageOfSystemCategory: self selectedSystemCategory! Item was changed: ----- Method: DependencyBrowser class>>openInvertedOn: (in category 'opening') ----- openInvertedOn: requiredPackageNames "DependencyBrowser openInvertedOn: #(Monticello)" | model | model := self new. ^ ToolBuilder open: ( model + packageList: (Cursor wait showWhile: [ + model packageList select: [:packageName | + model computePackageDependencies: packageName. + model packageDeps includesAnyOf: requiredPackageNames]]); - packageList: (model packageList select: [:packageName | - model computePackageDependencies: packageName. - model packageDeps includesAnyOf: requiredPackageNames]); windowTitle: ('Dependency Browser (inverted on {1})' format: {requiredPackageNames}); yourself) ! Item was added: + ----- Method: DependencyBrowser class>>openInvertedOnPackage: (in category 'opening') ----- + openInvertedOnPackage: aPackageInfo + "DependencyBrowser openInvertedOnPackage: Morph packageInfo" + + ^ self openInvertedOn: {aPackageInfo name}! Item was added: + ----- Method: DependencyBrowser class>>openOnPackage: (in category 'opening') ----- + openOnPackage: aPackageInfo + "DependencyBrowser openOnPackage: Morph packageInfo" + + ^ ToolBuilder open: (self new + selectPackage: aPackageInfo name; + yourself)! Item was added: + ----- Method: DependencyBrowser>>selectPackage: (in category 'class list') ----- + selectPackage: packageName + + self packageListIndex: (self packageList indexOf: packageName).! Item was added: + ----- Method: DependencyBrowser>>selectedPackage (in category 'class list') ----- + selectedPackage + + ^ self packageList at: self packageListIndex! Item was added: + ----- Method: PackagePaneBrowser class>>fullOnPackage: (in category 'instance creation') ----- + fullOnPackage: aPackage + + ^ self new + selectPackageNamed: aPackage name; + buildAndOpenFullBrowser! Item was changed: ----- Method: PackagePaneBrowser>>mainPackageMenu: (in category 'package list') ----- mainPackageMenu: aMenu "Answer a Menu of operations on class packages to be displayed when the operate menu button is pressed." <packageListMenu> ^aMenu addList: #( + ('find class... (f)' findClass) + ('back... (b)' recent) - ('find class...' findClass) - ('recent classes...' recent) - + ('browse extensions' browsePackageExtensions) + ('browse dependencies' browsePackageDependencies) + ('browse inverted dependencies' browseInvertedPackageDependencies) + - + ('reorganize' editSystemCategories) + ('alphabetize' alphabetizeSystemCategories) - ('reorganize' editSystemCategories) - ('alphabetize' alphabetizeSystemCategories) - + ('update' updatePackages)); + yourself.! - ('update' updatePackages)); - yourself. - ! Item was changed: ----- Method: PackagePaneBrowser>>packageListKey:from: (in category 'package list') ----- packageListKey: aChar from: view aChar == $f ifTrue: [^ self findClass]. + aChar == $b ifTrue: [^ self recent]. ^ self classListKey: aChar from: view! Item was added: + ----- Method: PackagePaneBrowser>>selectPackageNamed: (in category 'package list') ----- + selectPackageNamed: aPackageName + + self packageListIndex: (self packageList indexOf: aPackageName). + self changed: #packageListIndex.! Item was added: + ----- Method: PackagePaneBrowser>>selectedPackage (in category 'package list') ----- + selectedPackage + + ^ self package + ifNotNil: [:package | PackageInfo named: package] + ifNil: [super selectedPackage]! Item was changed: ----- Method: StandardToolSet class>>browsePackage: (in category 'browsing') ----- browsePackage: aPackageInfo + ^ PackagePaneBrowser fullOnPackage: aPackageInfo! - self flag: #discuss. "mt: Maybe use the package-pane browser?" - "PackagePaneBrowser fullOnCategory: aPackageInfo name" - - ^ self browseCategory: aPackageInfo systemCategories first - - !

1 0

The Inbox: Tools-ct.1068.mcz
by commits＠source.squeak.org 01 Nov '21

01 Nov '21

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-ct.1068.mcz ==================== Summary ==================== Name: Tools-ct.1068 Author: ct Time: 1 November 2021, 7:01:28.288014 pm UUID: f6d09127-a2e9-c34e-8573-bc2aa252cf00 Ancestors: Tools-eem.1065 Fixes CustomMenu >> #add:submenu:target:selector:argumentList: and updates example analogously to Morphic-ct.1791. =============== Diff against Tools-eem.1065 =============== Item was changed: ----- Method: CustomMenu class>>example (in category 'example') ----- example "CustomMenu example" | menu | menu := CustomMenu new. menu add: 'apples' action: #apples. menu add: 'oranges' action: #oranges. menu addLine. menu addLine. "extra lines ignored" menu add: 'peaches' action: #peaches. menu addLine. menu add: 'pears' action: #pears. menu addLine. + menu add: 'test' subMenu: (CustomMenu new + add: 'foo' action: #inspect; + yourself) target: 42 selector: #inform: argumentList: #('hello'). + ^ menu invokeOn: nil + - ^ menu startUp: #apples - - "NB: The following is equivalent to the above, but uses the compact #fromArray: consruct: (CustomMenu fromArray: #( ('apples' apples) ('oranges' oranges) - - ('peaches' peaches) - ('pears' pears) -)) startUp: #apples"! Item was changed: ----- Method: CustomMenu>>add:action: (in category 'construction') ----- add: aString action: actionItem "Add the given string as the next menu item. If it is selected, the given action (usually but not necessarily a symbol) will be returned to the client." | s | aString ifNil: [^ self addLine]. s := String new: aString size + 2. s at: 1 put: Character space. s replaceFrom: 2 to: s size - 1 with: aString. s at: s size put: Character space. labels addLast: s. + targets addLast: nil. + arguments addLast: nil. selections addLast: actionItem.! Item was changed: ----- Method: CustomMenu>>add:subMenu:target:selector:argumentList: (in category 'compatibility') ----- add: aString subMenu: aMenu target: target selector: aSymbol argumentList: argList "Create a sub-menu with the given label. This isn't really a sub-menu the way Morphic does it; it'll just pop up another menu." self add: aString + target: self + selector: #invokeSubmenu:target:selector:argumentList: + argumentList: {aMenu. target. aSymbol. argList asArray}.! - target: aMenu - selector: #invokeOn: - argumentList: argList asArray.! Item was changed: ----- Method: CustomMenu>>add:target:selector:argumentList: (in category 'compatibility') ----- add: aString target: target selector: aSymbol argumentList: argList "Append a menu item with the given label. If the item is selected, it will send the given selector to the target object with the given arguments. If the selector takes one more argument than the number of arguments in the given list, then the triggering event is supplied as as the last argument." self add: aString action: aSymbol. + targets atLast: 1 put: target. + arguments atLast: 1 put: argList asArray - targets addLast: target. - arguments addLast: argList asArray ! Item was changed: ----- Method: CustomMenu>>invokeOn:orSendTo: (in category 'invocation') ----- invokeOn: targetObject orSendTo: anObject "Pop up this menu and return the result of sending to the target object the selector corresponding to the menu item selected by the user. Return nil if no item is selected. If the chosen selector has arguments, obtain appropriately. If the recipient does not respond to the resulting message, send it to the alternate object provided" | aSelector anIndex recipient | ^ (aSelector := self startUp) ifNotNil: [anIndex := self selection. + recipient := nil. + ((targets := self targets) notNil and: [anIndex <= targets size]) + ifTrue: [recipient := targets at: anIndex]. + recipient + ifNil: [recipient := targetObject]. - recipient := ((targets := self targets) isEmptyOrNil or: [anIndex > targets size]) - ifTrue: - [targetObject] - ifFalse: - [targets at: anIndex]. aSelector numArgs = 0 ifTrue: [recipient perform: aSelector orSendTo: anObject] ifFalse: [recipient perform: aSelector withArguments: (self arguments at: anIndex)]]! Item was added: + ----- Method: CustomMenu>>invokeSubmenu:target:selector:argumentList: (in category 'invocation') ----- + invokeSubmenu: aMenu target: target selector: aSymbol argumentList: argList + + target perform: aSymbol withArguments: argList. + ^ aMenu invokeOn: target!

1 0

The Inbox: Morphic-ct.1791.mcz
by commits＠source.squeak.org 01 Nov '21

01 Nov '21

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1791.mcz ==================== Summary ==================== Name: Morphic-ct.1791 Author: ct Time: 1 November 2021, 6:59:37.506014 pm UUID: c33323b2-7221-9d4f-b3af-d723dd256645 Ancestors: Morphic-eem.1784 Documentation: Adds example of #add:subMenu:target:selector:argumentList: to MenuMorph example. =============== Diff against Morphic-eem.1784 =============== Item was changed: ----- Method: MenuMorph class>>example (in category 'example') ----- example "MenuMorph example popUpInWorld" | menu | menu := MenuMorph new. menu addTitle: 'Fruit' translated. menu addStayUpItem. menu add: 'apples' action: #apples. menu add: 'oranges' action: #oranges. menu addLine. menu addLine. "extra lines ignored" menu add: 'peaches' action: #peaches. menu addLine. menu add: 'pears' action: #pears. menu addLine. + menu add: 'test' subMenu: (MenuMorph new + defaultTarget: #peaches; + add: 'foo' action: #inspect; + yourself) target: 42 selector: #inform: argumentList: #('hello'). + ^ menu! - ^ menu - !

1 0

The Inbox: Morphic-ct.1790.mcz
by commits＠source.squeak.org 01 Nov '21

01 Nov '21

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1790.mcz ==================== Summary ==================== Name: Morphic-ct.1790 Author: ct Time: 1 November 2021, 6:18:39.271014 pm UUID: d7f1d632-e952-e44a-a817-587501e5c542 Ancestors: Morphic-eem.1784 Proposal: Add syntax for submenus to MenuMorph >> #addList: by specifying a 1-ary selector. Also fixes typos in the comment. =============== Diff against Morphic-eem.1784 =============== Item was changed: ----- Method: MenuMorph>>addList: (in category 'construction') ----- addList: aList + "Add the given items to this menu, where each item is a pair (<string> <actionSelector | menuSelector:>). If an element of the list is simply the symbol #-, add a line to the receiver. The optional third element of each entry, if present, provides balloon help." - "Add the given items to this menu, where each item is a pair (<string> <actionSelector>).. If an element of the list is simply the symobl $-, add a line to the receiver. The optional third element of each entry, if present, provides balloon help." aList do: [:tuple | (tuple == #-) ifTrue: [self addLine] ifFalse: + [tuple second isUnary + ifTrue: [self add: tuple first action: tuple second] + ifFalse: + [self addItem: [:item | + item + target: self defaultTarget; + contents: tuple first; + subMenuUpdater: [:menu | + menu defaultTarget: self defaultTarget. + self defaultTarget perform: tuple second with: menu] + selector: #value:]]]. - [self add: tuple first action: tuple second. tuple size > 2 ifTrue: + [self balloonTextForLastItem: tuple third]].! - [self balloonTextForLastItem: tuple third]]]! Item was changed: ----- Method: MenuMorph>>addTranslatedList: (in category 'construction') ----- addTranslatedList: aList + "Add the given items to this menu, where each item is a pair (<string> <actionSelector | menuSelector:>). If an element of the list is simply the symbol #-, add a line to the receiver. The optional third element of each entry, if present, provides balloon help. + All strings will be translated." - "Add the given items to this menu, where each item is a pair (<string> <actionSelector>).. If an element of the list is simply the symobl $-, add a line to the receiver. The optional third element of each entry, if present, provides balloon help. - The first and third items will be translated." + ^ self addList: (aList collect: [:tuple | + tuple == #- + ifTrue: [tuple] - aList do: [:tuple | - (tuple == #-) - ifTrue: [self addLine] ifFalse: + [Array new: tuple size streamContents: [:stream | + stream nextPut: tuple first translated. + tuple size >= 2 + ifTrue: [stream nextPut: tuple second]. + tuple size >= 3 + ifTrue: + [stream nextPut: + (tuple third isString + ifTrue: [tuple third translated] + ifFalse: [tuple third])]]]])! - [self add: tuple first translated action: tuple second. - tuple size > 2 ifTrue: - [self balloonTextForLastItem: tuple third translated ]]]!

1 0

squeak-smalltalk/squeak-filesystem
by christoph.thiede＠student.hpi.uni-potsdam.de 01 Nov '21

01 Nov '21

Hi all, recently I have created a PR against the FileSystem repository under [1] that migrates the CI from Travis (not working any longer) to state-of-the-art GitHub Actions. Under the PR, Jakob and I had a discussion on who should receive notification emails about CI failures for this repo. I first intention was only to add interested people to the mail job (that would be me, maybe Jakob, and everyone else who asks). However, we also enter the squeak-dev list there. Or even another mailing list. Do you have any opinions about this? If not, I will go with my initial proposal. Best, Christoph [1] https://github.com/squeak-smalltalk/squeak-filesystem/pull/5 --- Sent from Squeak Inbox Talk

4 4

[ANN] Fuel release 4.0.0
by Max Leske 01 Nov '21

01 Nov '21

Hi everyone. It's been quite a while since we've done any major work on Fuel, so we are very excited to announce version 4.0.0 of Fuel today! Short-list of the most interesting things: - builder API - support for talents and anonymous classes - support for FullBlockClosure - full serialization support by default (no more need to load FuelMetalevel to serialize classes and methods) - full serialization support for Squeak The complete release notes are over on GitHub: https://theseion.github.io/Fuel/releases/4.0.0/. We hope that you'll like what we've done and we're excited to see, what kind of magic you will do with it. If you are using Fuel in a project, please let us know and we'll add it to the list of projects on GitHub (good for us and you ;)). As always, please report any issues to https://github.com/theseion/Fuel/issues and we'll try to help you out. Cheers, Max (on behalf of the Fuel team)

4 3

Jump to page: