Squeak-dev October 2021

squeak-dev@lists.squeakfoundation.org

24 participants
212 discussions

The Trunk: Sound-ct.82.mcz
by commits＠source.squeak.org 05 Oct '21

05 Oct '21

Levente Uzonyi uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-ct.82.mcz ==================== Summary ==================== Name: Sound-ct.82 Author: ct Time: 3 October 2021, 3:21:00.283874 pm UUID: 61a3c1d0-1c49-d542-8624-096b1b67e309 Ancestors: Sound-eem.81 Fixes SoundRecorder accesses to CanRecordWhilePlaying by always using the preference getter. As the class variable is nil in current Trunk images, you could not even open the Multimedia category in the parts bin before. Removes the initialization of CanRecordWhilePlaying to support lazy default values from the preference getter. Also, this initialize method apparently has never been called in the current Trunk image. =============== Diff against Sound-eem.81 =============== Item was removed: - ----- Method: SoundRecorder class>>initialize (in category 'class initialization') ----- - initialize - "SoundRecorder initialize" - "Details: Some computers cannot record and playback sound at the same time. If CanRecordWhilePlaying is false, then the SoundRecorder alternates between recording and playing. If it is true, sounds can be playing during recording." - - CanRecordWhilePlaying := false. - ! Item was changed: ----- Method: SoundRecorder>>pause (in category 'recording controls') ----- pause "Go into pause mode. The record level continues to be updated, but no sound is recorded." paused := true. ((currentBuffer ~~ nil) and: [nextIndex > 1]) ifTrue: [self emitPartialBuffer. self allocateBuffer]. soundPlaying ifNotNil: [ soundPlaying pause. soundPlaying := nil]. "Note: there can be problems if canRecordWhilePlaying is true. Recorders which only pause will inhibit other recorders from recording. I chose to make #stopPlaying unconditional in a subclass. The same might be appropriate here at the expense of making recorders resumable" + self class canRecordWhilePlaying ifFalse: [self stopRecording].! - CanRecordWhilePlaying ifFalse: [self stopRecording]. - ! Item was changed: ----- Method: SoundRecorder>>resumeRecording (in category 'recording controls') ----- resumeRecording "Continue recording from the point at which it was last paused." self flag: #bob. "Note: If canRecordWhilePlaying is true, then recordings may never get started (at least by this method). One possibility, used in a subclass, is to make the #startPlaying unconditional. Another would be to use #startPlaying instead of #resumePlaying in appropriate cases" + self class canRecordWhilePlaying ifFalse: [self startRecording]. - CanRecordWhilePlaying ifFalse: [self startRecording]. paused := false. ! Item was changed: ----- Method: SoundRecorder>>startRecording (in category 'recording controls') ----- startRecording "Turn on the sound input driver and start the recording process. Initially, recording is paused. If the primStartRecordingDesiredSampleRate:... fails it almost certainly means we have no usable sound input device. Rather than having the prim raise a failure error we let it quietly do nothing (since I hate trying to debug errors inside a critical block) and check the actual sampling rate later. If the sampling rate is 0 we know the startup failed and raise an application level Signal to let any user code know about the problem. You might think we should also use the stopRecording message to close things down cleanly but that simply results in astorm of attempts to start recording so it is simpler to let it be deluded. An attempts to start recording will repeat the test and thereby handle any plug-in hardware etc." recordLevel ifNil: [recordLevel := 0.5]. "lazy initialization" + self class canRecordWhilePlaying ifFalse: [SoundPlayer shutDown: true]. - CanRecordWhilePlaying ifFalse: [SoundPlayer shutDown: true]. recordProcess ifNotNil: [self stopRecording]. paused := true. meteringBuffer := SoundBuffer newMonoSampleCount: 1024. meterLevel := 0. self allocateBuffer. Smalltalk newExternalSemaphoreDo: [ :semaphore :index | bufferAvailableSema := semaphore. self primStartRecordingDesiredSampleRate: samplingRate asInteger stereo: stereo semaIndex: index ]. RecorderActive := true. samplingRate := self primGetActualRecordingSampleRate. samplingRate = 0 ifTrue: [ Warning signal: 'SoundRecorder: unable to connect to sound input device']. self primSetRecordLevel: (1000.0 * recordLevel) asInteger. recordProcess := [self recordLoop] newProcess. recordProcess priority: Processor userInterruptPriority. recordProcess resume!

1 0

Cannot load FFI on Squeak 6 alpha 20608/pi
by tim Rowledge 05 Oct '21

05 Oct '21

Trying to load FFI to check my old GPIO hardware driving code. It needs FFI. FFI has a ConfigurationOfxxxx. Load that. Run `ConfigurationOfFFI load` Nothing - because it is trying to do the #ensureMetacello thing and wants to fetch Gofer from http://seaside.gemstone.com/ss/metacello which seems to be dead. Bit of a problem. If I dig a bit I find that it seems we want to load ConfigurationOfFFI>>#version20: Loading the 'FFI-Pools-mt.31' , 'FFI-Kernel-mt.180' , 'FFI-Libraries-mt.2' & 'FFI-Callbacks-mt.25'; seems to work, then 'FFI-Tools-mt.37' is ok. Try to run the FFI tests and BOOM! So evidently sometihng isn't terribly happy. Going through all the install again to at least try my actual package results in a syntax error id: i i2cClose: handle "Disconnect from the i2c device, freeing the handle etc. returns 0 if ok, otherwise GpioBadHandle" #<cdecl: long "Nothing more expected ->"'i2c_close' (long ulong) module: 'pigpiod_if2'> ^self externalCallFailed Now so far as I can see it appears that the initial # in front of the <cdecl is no longer accepted? Is that the case? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim A hacker does for love what others would not do for money.

4 5

The Inbox: Tools-ct.1066.mcz
by commits＠source.squeak.org 05 Oct '21

05 Oct '21

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-ct.1066.mcz ==================== Summary ==================== Name: Tools-ct.1066 Author: ct Time: 5 October 2021, 12:28:27.635947 am UUID: 44c95b85-fb19-4847-90a9-19043e1a4377 Ancestors: Tools-eem.1064 Updates well known processes in the process browser to make the changes from Tools-eem.1016 visible. :-) =============== Diff against Tools-eem.1064 =============== Item was changed: + (PackageInfo named: 'Tools') postscript: 'ProcessBrowser registerWellKnownProcesses.'! - (PackageInfo named: 'Tools') postscript: 'ChangeSorter allSubInstancesDo: [:sorter | - (sorter instVarNamed: ''contentsAreStyleable'') ifNil: [ - sorter instVarNamed: ''contentsAreStyleable'' put: true]].'!

1 0

The Inbox: Morphic-ct.1785.mcz
by commits＠source.squeak.org 04 Oct '21

04 Oct '21

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1785.mcz ==================== Summary ==================== Name: Morphic-ct.1785 Author: ct Time: 4 October 2021, 5:13:36.846947 pm UUID: e5774334-8b07-7545-9ea5-5389620d51d0 Ancestors: Morphic-ul.1780 Revises proposal from Morphic-ct.1781 to rearrange menu items in the docking bar. For the sake of consistency, move the generic items to the top of the list not only in the changes menu but also in the do-it menu and in the windows menu. I argue that this way is more ergonomic for two reasons: 1. As opposed to variable items, generic items are the only constants in the menu which have the highest potential for being adopted by the muscle memory. 2. If the list gets very long, the accessibility of generic items is impaired (cf. steering law), which I consider more critical than the reduced accessibility of 1 out of 20 or 30 entries. Even worse, if the lists gets really huge, it might not fit into the height of the world (and we currently do not have scroll bars for menus). +1s or -1s and your arguments wanted. :-) =============== Diff against Morphic-ul.1780 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>listChangesOn: (in category 'submenu - changes') ----- listChangesOn: menu + menu defaultTarget: self. + menu addTranslatedList: #( + ('Simple Change Sorter' browseChanges) + ('Dual Change Sorter' browseChangesDual) + ('Browse changed methods' browseChangedMethods) + - + ('( ... fetching changes ... )' nil)). + menu lastItem isEnabled: false. + + self flag: #hack. "To avoid relayout of static items when dynamic items with icons from below will added, add blank icons right now." + menu addBlankIconsIfNecessary: (MenuIcons blankIconOfWidth: RealEstateAgent defaultIconExtent x). + + [| latestMethodChanges latestClassChanges | - | latestMethodChanges latestClassChanges| latestMethodChanges := (Array streamContents: [:s | ChangeSet current changedMethodsDo: [:method :changeType :dateAndTime :category | s nextPut: { dateAndTime. method. changeType. category }]]) sorted: [:a :b | a first >= b first]. - - 1 to: (10 min: latestMethodChanges size) do: [:index | | spec method | - spec := latestMethodChanges at: index. - method := spec second. - menu addItem: [:item | - item - contents: ('{1} {2} \{{3}\} \{{4}\}' format: {method methodClass. method selector. spec fourth. method methodClass category}) ; - target: ToolSet; - balloonText: spec third asString; - icon: ((#(remove addedThenRemoved) includes: spec third) ifTrue: [MenuIcons smallDeleteIcon] ifFalse: [ - spec third = #add ifTrue: [MenuIcons smallNewIcon] ifFalse: [MenuIcons blankIcon]]); - selector: (method isInstalled ifTrue: [#browseMethod:] ifFalse: [#browseMethodVersion:]); - arguments: {method}]]. - - latestClassChanges := (Array streamContents: [:s | - ChangeSet current changedClassesDo: [:class :changeTypes :dateAndTime :category | - "We are not interested in classes whose method's did only change." - changeTypes ifNotEmpty: [s nextPut: { dateAndTime. class. changeTypes. category }]]]) - sorted: [:a :b | a first >= b first]. - - latestClassChanges ifNotEmpty: [menu addLine]. - 1 to: (10 min: latestClassChanges size) do: [:index | | spec class | - spec := latestClassChanges at: index. - class := spec second. - menu addItem: [:item | - item - contents: ('{1} \{{2}\}' format: {class name. spec fourth }) ; - target: ToolSet; - balloonText: (spec third sorted joinSeparatedBy: Character space); - icon: ((spec third includesAnyOf: #(remove addedThenRemoved)) - ifTrue: [MenuIcons smallDeleteIcon] - ifFalse: [ - (spec third includes: #add) - ifTrue: [MenuIcons smallNewIcon] - ifFalse: [MenuIcons blankIcon]]); - selector: ((spec third includes: #remove) ifTrue: [#inspect:] ifFalse: [#browseClass:]); - arguments: {class}]]. + Project current addDeferredUIMessage: [ + menu lastItem delete. + + 1 to: (10 min: latestMethodChanges size) do: [:index | | spec method | + spec := latestMethodChanges at: index. + method := spec second. + menu addItem: [:item | + item + contents: ('{1} {2} \{{3}\} \{{4}\}' format: {method methodClass. method selector. spec fourth. method methodClass category}) ; + target: ToolSet; + balloonText: spec third asString; + icon: ((#(remove addedThenRemoved) includes: spec third) ifTrue: [MenuIcons smallDeleteIcon] ifFalse: [ + spec third = #add ifTrue: [MenuIcons smallNewIcon] ifFalse: [MenuIcons blankIcon]]); + selector: (method isInstalled ifTrue: [#browseMethod:] ifFalse: [#browseMethodVersion:]); + arguments: {method}]]. + + latestClassChanges := (Array streamContents: [:s | + ChangeSet current changedClassesDo: [:class :changeTypes :dateAndTime :category | + "We are not interested in classes whose method's did only change." + changeTypes ifNotEmpty: [s nextPut: { dateAndTime. class. changeTypes. category }]]]) + sorted: [:a :b | a first >= b first]. - menu defaultTarget: self. - menu addTranslatedList: #( - - - ('Browse current change set' browseChangeSet) - ('Browse changed methods' browseChangedMethods) - - - ('Simple Change Sorter' browseChanges) - ('Dual Change Sorter' browseChangesDual)). + latestClassChanges ifNotEmpty: [menu addLine]. + 1 to: (10 min: latestClassChanges size) do: [:index | | spec class | + spec := latestClassChanges at: index. + class := spec second. + menu addItem: [:item | + item + contents: ('{1} \{{2}\}' format: {class name. spec fourth }) ; + target: ToolSet; + balloonText: (spec third sorted joinSeparatedBy: Character space); + icon: ((spec third includesAnyOf: #(remove addedThenRemoved)) + ifTrue: [MenuIcons smallDeleteIcon] + ifFalse: [ + (spec third includes: #add) + ifTrue: [MenuIcons smallNewIcon] + ifFalse: [MenuIcons blankIcon]]); + selector: ((spec third includes: #remove) ifTrue: [#inspect:] ifFalse: [#browseClass:]); + arguments: {class}]]]] forkAt: Processor userBackgroundPriority.! - - ! Item was changed: ----- Method: TheWorldMainDockingBar>>listCommonRequestsOn: (in category 'submenu - do') ----- listCommonRequestsOn: aMenu | strings | + aMenu add: 'edit this list' translated target: Utilities action: #editCommonRequestStrings. + aMenu addLine. + strings := Utilities commonRequestStrings contents. - strings asString linesDo: [:aString | aString = '-' ifTrue: [aMenu addLine] + ifFalse: [aMenu add: (aString ifEmpty: [' ']) target: Utilities selector: #eval: argument: aString]].! - ifFalse: [aMenu add: (aString ifEmpty: [' ']) target: Utilities selector: #eval: argument: aString]]. - - aMenu addLine. - aMenu add: 'edit this list' translated target: Utilities action: #editCommonRequestStrings.! Item was changed: ----- Method: TheWorldMainDockingBar>>listWindowsOn: (in category 'submenu - windows') ----- listWindowsOn: menu | windows | + menu + add: 'Collapse all windows' translated target: Project current world selector: #collapseAllWindows; + add: 'Close all windows' translated target: self selector: #closeAllWindowsUnsafe; + addItem: [:item | item + contents: 'Close all windows without changes' translated; + target: self; + icon: MenuIcons smallBroomIcon; + selector: #closeAllWindows]; + add: 'Close all windows but workspaces' translated target: self selector: #closeAllWindowsButWorkspaces; + addLine. + windows := self allVisibleWindows sorted: [:winA :winB | ((winA model isNil or: [winB model isNil]) or: [winA model name = winB model name]) ifTrue: [winA label < winB label] ifFalse: [winA model name < winB model name]]. windows ifEmpty: [ menu addItem: [ :item | item contents: 'No Windows' translated; isEnabled: false ] ]. windows do: [ :each | | windowColor | windowColor := (each model respondsTo: #windowColorToUse) ifTrue: [each model windowColorToUse] ifFalse: [UserInterfaceTheme current get: #uniformWindowColor for: Model]. menu addItem: [ :item | item contents: (self windowMenuItemLabelFor: each); icon: (self colorIcon: windowColor); target: each; selector: #comeToFront; subMenuUpdater: self selector: #windowMenuFor:on: arguments: { each }; + action: [ each beKeyWindow; expand ] ] ].! - action: [ each beKeyWindow; expand ] ] ]. - menu - addLine; - add: 'Collapse all windows' target: (Project current world) selector: #collapseAllWindows; - add: 'Close all windows' target: self selector: #closeAllWindowsUnsafe; - addItem: [:item | item - contents: 'Close all windows without changes'; - target: self; - icon: MenuIcons smallBroomIcon; - selector: #closeAllWindows]; - add: 'Close all windows but workspaces' target: self selector: #closeAllWindowsButWorkspaces.!

2 1

The Inbox: Tools-ct.1065.mcz
by commits＠source.squeak.org 04 Oct '21

04 Oct '21

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-ct.1065.mcz ==================== Summary ==================== Name: Tools-ct.1065 Author: ct Time: 4 October 2021, 4:24:14.796947 pm UUID: b693bc16-16c5-bc48-a47e-df8b2fcc255a Ancestors: Tools-eem.1064 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). =============== Diff against Tools-eem.1064 =============== 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 changed: ----- Method: Browser>>mainSystemCategoryMenu: (in category 'system category functions') ----- mainSystemCategoryMenu: aMenu <systemCategoryMenu> ^ aMenu addList: #( + ('find class... (f)' findClass) + ('back... (b)' recent) - ('find class... (f)' findClass) - ('back... (b)' recent) - + ('browse all' browseAllClasses) + ('browse' buildSystemCategoryBrowser) + ('browse extensions' browseExtensions) - ('browse all' browseAllClasses) - ('browse' buildSystemCategoryBrowser) - + ('browse package' browsePackage) + ('browse package extensions' browsePackageExtensions) + ('browse dependencies' browsePackageDependencies) + ('browse inverted dependencies' browseInvertedPackageDependencies) - ('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)); + yourself! - ('update' updateSystemCategories) - ('add item...' addSystemCategory) - ('rename...' renameSystemCategory) - ('remove (x)' removeSystemCategory)); - yourself - ! 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 - - !

2 1

The Inbox: Morphic-ct.1784.mcz
by commits＠source.squeak.org 04 Oct '21

04 Oct '21

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1784.mcz ==================== Summary ==================== Name: Morphic-ct.1784 Author: ct Time: 4 October 2021, 2:22:53.472931 pm UUID: 802f4119-f7af-3741-8b7c-d3a99d3a41f4 Ancestors: Morphic-ul.1780 Honor new instance variable of KeyboardEvent during comparison. =============== Diff against Morphic-ul.1780 =============== Item was changed: ----- Method: KeyboardEvent>>= (in category 'comparing') ----- = aMorphicEvent super = aMorphicEvent ifFalse:[^false]. buttons = aMorphicEvent buttons ifFalse: [^ false]. keyValue = aMorphicEvent keyValue ifFalse: [^ false]. + keyCode = aMorphicEvent keyCode ifFalse: [^ false]. + ^ true! - ^ true - !

1 0

treated@lists.squeakfoundation.org?
by christoph.thiede＠student.hpi.uni-potsdam.de 04 Oct '21

04 Oct '21

Hi all, wondering about how to improve the communication of treated inbox versions. Currently, the treatment of an inbox version is not documented anywhere, you can just observe and observe again source.squeak.org/treated in order to know whether your proposal is still pending review (or, more conveniently - beware, self-promotion! -, you can do this via Squeak Inbox Talk). How complicated would it be to set up a new mailing list, treated(a)lists.squeakfoundation.org, analogously to packages(a)squeakfoundation.org, and have the SqueakSource server notify subscribers about any treated inbox version? I then would also be able to include this information into Squeak Inbox Talk, which currently is unable to display the timestamp of a treatment. Best, Christoph --- Sent from Squeak Inbox Talk

4 6

The Inbox: System-ct.1245.mcz
by commits＠source.squeak.org 04 Oct '21

04 Oct '21

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-ct.1245.mcz ==================== Summary ==================== Name: System-ct.1245 Author: ct Time: 4 October 2021, 4:15:11.217947 pm UUID: ce795acc-c89b-5748-9b42-61b1fde2ac59 Ancestors: System-mt.1241 Adds support for browsing extension methods to SystemNavigation. Usage: self systemNavigation browseAllExtensionsOfCategory: 'System-Support'. self systemNavigation browseAllExtensionsOfPackage: Project packageInfo. Replaces System-ct.1131, now also with support for browsing extensions of system categories. Thanks to Jakob and Chris for the feedback! =============== Diff against System-mt.1241 =============== Item was added: + ----- Method: SystemNavigation>>allExtensionsOfCategory: (in category 'query') ----- + allExtensionsOfCategory: systemCategory + + ^ self environment organization extensionMethodsForCategory: systemCategory! Item was added: + ----- Method: SystemNavigation>>allExtensionsOfPackage: (in category 'query') ----- + allExtensionsOfPackage: aPackageInfo + + ^ aPackageInfo extensionMethods! Item was added: + ----- Method: SystemNavigation>>browseAllExtensionsOfCategory: (in category 'browse') ----- + browseAllExtensionsOfCategory: systemCategory + "self default browseAllExtensionsOfCategory: 'Tools-Browser'" + + ^ self + browseMessageList: [self allExtensionsOfCategory: systemCategory] + name: ('Extensions of category {1}' translated format: {systemCategory})! Item was added: + ----- Method: SystemNavigation>>browseAllExtensionsOfPackage: (in category 'browse') ----- + browseAllExtensionsOfPackage: aPackageInfo + "self default browseAllExtensionsOfPackage: Morph packageInfo" + + ^ self + browseMessageList: [self allExtensionsOfPackage: aPackageInfo] + name: ('Extensions of package {1}' translated format: {aPackageInfo name})! Item was added: + ----- Method: SystemOrganizer>>category:matches: (in category 'as yet unclassified') ----- + category: categoryName matches: prefix + + | prefixSize catSize | + categoryName ifNil: [^ false]. + catSize := categoryName size. + prefixSize := prefix size. + catSize < prefixSize ifTrue: [^ false]. + (categoryName findString: prefix startingAt: 1 caseSensitive: false) = 1 + ifFalse: [^ false]. + ^(categoryName at: prefix size + 1 ifAbsent: [^ true]) = $-! Item was added: + ----- Method: SystemOrganizer>>extensionMethodsForCategory: (in category 'as yet unclassified') ----- + extensionMethodsForCategory: systemCategoryName + + | categoryPrefix | + categoryPrefix := '*' , systemCategoryName. + ^ self allElements + gather: [:className | | class | + class := self environment classNamed: className. + (class organization categories + select: [:methodCategoryName | methodCategoryName notNil + and: [self category: methodCategoryName matches: categoryPrefix]]) + gather: [:methodCategoryName | (class organization listAtCategoryNamed: methodCategoryName) + collect: [:selector | MethodReference + class: class + selector: selector + environment: self environment]]]!

2 1

The Inbox: System-ct.1244.mcz
by commits＠source.squeak.org 03 Oct '21

03 Oct '21

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-ct.1244.mcz ==================== Summary ==================== Name: System-ct.1244 Author: ct Time: 3 October 2021, 5:35:50.467083 pm UUID: 3b80c095-2453-ef4a-a908-395ee97df1ea Ancestors: System-mt.1241 Complements ST80-ct.272. =============== Diff against System-mt.1241 =============== Item was added: + ----- Method: Project>>acceptProjectDetails: (in category 'file in/out') ----- + acceptProjectDetails: details + "To be overridden by subclasses."!

1 0

The Inbox: ST80-ct.272.mcz
by commits＠source.squeak.org 03 Oct '21

03 Oct '21

A new version of ST80 was added to project The Inbox: http://source.squeak.org/inbox/ST80-ct.272.mcz ==================== Summary ==================== Name: ST80-ct.272 Author: ct Time: 3 October 2021, 5:35:19.688083 pm UUID: 94c1e469-375e-a140-820f-b5886b989be5 Ancestors: ST80-ct.269 Moves up #acceptProjectDetails: stub from MVCProject to project. Revises ST80-eem.249. =============== Diff against ST80-ct.269 =============== Item was removed: - ----- Method: MVCProject>>acceptProjectDetails: (in category 'file in/out') ----- - acceptProjectDetails: details - "Ignored; here for MorphicProject compatibility."!

1 0

Jump to page: