Packages January 2022

packages@lists.squeakfoundation.org

1 participants
209 discussions

The Trunk: Installer-Core-cmm.443.mcz
by commits＠source.squeak.org 15 Jan '22

15 Jan '22

Chris Muller uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-cmm.443.mcz ==================== Summary ==================== Name: Installer-Core-cmm.443 Author: cmm Time: 15 January 2022, 12:07:10.110797 am UUID: 490e147c-d8f7-4e14-8e5c-ba144e54178e Ancestors: Installer-Core-mt.442 Actually lazily initialize the Installer's 'localRepository' to avoid keeping hitting one's local SqueakSource server many times unnecessarily. =============== Diff against Installer-Core-mt.442 =============== Item was changed: ----- Method: Installer class>>localRepository (in category 'repository-overrides') ----- localRepository + ^ localRepository ifNil: [localRepository := self defaultLocalRepository]! - ^ localRepository ifNil: [self defaultLocalRepository]!

1 0

The Trunk: Tools-mt.1106.mcz
by commits＠source.squeak.org 14 Jan '22

14 Jan '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1106.mcz ==================== Summary ==================== Name: Tools-mt.1106 Author: mt Time: 14 January 2022, 5:25:52.988796 pm UUID: b34a81cd-911f-374c-921e-a40071c98798 Ancestors: Tools-mt.1105 Revise last commit in favor of what Christoph (ct) proposed. Note that I am still not so sure that it is a good idea to integrate debugging tools into regular widgets like this. Warnings seem much better suited for this case, leaving the UI clean. =============== Diff against Tools-mt.1105 =============== Item was removed: - Warning subclass: #MenuBuilderFailed - instanceVariableNames: 'builderError' - classVariableNames: '' - poolDictionaries: '' - category: 'Tools-Menus'! Item was removed: - ----- Method: MenuBuilderFailed class>>signal:for: (in category 'instance creation') ----- - signal: signalerText for: builderError - - ^ self suppressed - ifTrue: [nil] - ifFalse: [self new - builderError: builderError; - signal: signalerText]! Item was removed: - ----- Method: MenuBuilderFailed>>builderError (in category 'accessing') ----- - builderError - - ^ builderError! Item was removed: - ----- Method: MenuBuilderFailed>>builderError: (in category 'accessing') ----- - builderError: anObject - - builderError := anObject.! Item was removed: - ----- Method: MenuBuilderFailed>>defaultAction (in category 'priv handling') ----- - defaultAction - - super defaultAction. - self builderError pass.! Item was changed: ----- Method: Model>>buildMenu:withBuilders:shifted: (in category '*Tools-pluggable menus') ----- buildMenu: aMenu withBuilders: builders shifted: aBoolean " We let every builder modify the menu. Skip erroneous builders silently. The builder should indicate whether to abort by returning nil." | menu | menu := aMenu. + builders do: [:builder | | buildBlock | + buildBlock := [menu := self perform: builder method selector withEnoughArguments: {menu . aBoolean}]. + buildBlock + on: Error, Warning, Halt do: [:ex | + menu add: ('<menu builder failed: {1}>' translated format: {ex}) action: buildBlock]]. + ^ menu! - builders do: [:builder | - menu := [self perform: builder method selector withEnoughArguments: { menu . aBoolean }] - on: Error do: [:ex | - MenuBuilderFailed - signal: ('Menu builder failed.\\{1}\\Proceed to debug the error. Suppress and cancel this warning to not see it again. Read on.' withCRs translated format: {ex message}) - for: ex. - menu]. - menu ifNil: [^ aMenu]]. - ^ menu - !

1 0

The Trunk: Tools-mt.1105.mcz
by commits＠source.squeak.org 14 Jan '22

14 Jan '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1105.mcz ==================== Summary ==================== Name: Tools-mt.1105 Author: mt Time: 14 January 2022, 4:50:22.513919 pm UUID: d5036460-6e47-7642-a323-a0f40b3dd559 Ancestors: Tools-eem.1104 When a menu builder fails, show a warning that can be suppressed if too annoying. Proceed that warning to open a debugger for the exception that made the menu builder fail. Note that this is the first time that we use a warning to maybe mask an exception via the "suppress warning" feature. =============== Diff against Tools-eem.1104 =============== Item was added: + Warning subclass: #MenuBuilderFailed + instanceVariableNames: 'builderError' + classVariableNames: '' + poolDictionaries: '' + category: 'Tools-Menus'! Item was added: + ----- Method: MenuBuilderFailed class>>signal:for: (in category 'instance creation') ----- + signal: signalerText for: builderError + + ^ self suppressed + ifTrue: [nil] + ifFalse: [self new + builderError: builderError; + signal: signalerText]! Item was added: + ----- Method: MenuBuilderFailed>>builderError (in category 'accessing') ----- + builderError + + ^ builderError! Item was added: + ----- Method: MenuBuilderFailed>>builderError: (in category 'accessing') ----- + builderError: anObject + + builderError := anObject.! Item was added: + ----- Method: MenuBuilderFailed>>defaultAction (in category 'priv handling') ----- + defaultAction + + super defaultAction. + self builderError pass.! Item was changed: ----- Method: Model>>buildMenu:withBuilders:shifted: (in category '*Tools-pluggable menus') ----- buildMenu: aMenu withBuilders: builders shifted: aBoolean " We let every builder modify the menu. Skip erroneous builders silently. The builder should indicate whether to abort by returning nil." | menu | menu := aMenu. builders do: [:builder | menu := [self perform: builder method selector withEnoughArguments: { menu . aBoolean }] + on: Error do: [:ex | + MenuBuilderFailed + signal: ('Menu builder failed.\\{1}\\Proceed to debug the error. Suppress and cancel this warning to not see it again. Read on.' withCRs translated format: {ex message}) + for: ex. + menu]. - ifError: [:msg | Transcript showln: 'Menu builder failed: ', msg. menu]. menu ifNil: [^ aMenu]]. ^ menu !

1 0

The Treated Inbox: ToolBuilder-Morphic-cmm.285.mcz
by commits＠source.squeak.org 14 Jan '22

14 Jan '22

Chris Muller uploaded a new version of ToolBuilder-Morphic to project The Treated Inbox: http://source.squeak.org/treated/ToolBuilder-Morphic-cmm.285.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-cmm.285 Author: cmm Time: 13 January 2022, 12:06:18.53413 am UUID: fdfc0020-4e12-4f5c-a2bc-f632794ce0c3 Ancestors: ToolBuilder-Morphic-mt.284 Render field help text in the color used for comments. =============== Diff against ToolBuilder-Morphic-mt.284 =============== Item was changed: ----- Method: PluggableTextMorphPlus>>drawBalloonTextOn: (in category 'drawing') ----- drawBalloonTextOn: aCanvas "Show balloon text in the text morph if it has no contents." textMorph contents ifNotEmpty: [ ^ self ]. ([ self balloonText ] on: Error do: [ : err | 'error in balloonText' ]) ifNotNil: [ : text | aCanvas drawString: text in: (self innerBounds insetBy: (5 @ 2 corner: 0 @ 0)) font: (self userInterfaceTheme balloonTextFont ifNil: [TextStyle defaultFont]) + color: ((self userInterfaceTheme get: #comment for: SHTextStylerST80) first ifNil: [Color gray darker]) ]! - color: (self userInterfaceTheme balloonTextColor ifNil: [Color gray: 0.7]) ]!

1 0

The Trunk: Tools-eem.1104.mcz
by commits＠source.squeak.org 13 Jan '22

13 Jan '22

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.1104.mcz ==================== Summary ==================== Name: Tools-eem.1104 Author: eem Time: 13 January 2022, 10:21:10.513361 am UUID: 1d051d8d-473d-43ee-9628-d33992a5849f Ancestors: Tools-mt.1103 Fix MNU in menu building for MessageTrace with no method selected =============== Diff against Tools-mt.1103 =============== Item was changed: ----- Method: CodeHolder>>isBreakOnEntry (in category 'breakpoints') ----- isBreakOnEntry + ^self selectedClassOrMetaClass + ifNil: [false] + ifNotNil: + [:class| + (class + compiledMethodAt: self selectedMessageName + ifAbsent: nil) + ifNil: [false] + ifNotNil: [:method| method hasBreakpoint]]! - | selectedMethod | - selectedMethod := self selectedClassOrMetaClass - compiledMethodAt: self selectedMessageName - ifAbsent: [^ false]. - ^ selectedMethod hasBreakpoint!

1 0

The Trunk: Tools-ct.1069.mcz
by commits＠source.squeak.org 13 Jan '22

13 Jan '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/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 Trunk: Tools-mt.1103.mcz
by commits＠source.squeak.org 13 Jan '22

13 Jan '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1103.mcz ==================== Summary ==================== Name: Tools-mt.1103 Author: mt Time: 13 January 2022, 3:51:35.185475 pm UUID: 15568d63-9e8c-1541-9620-1e86a2644382 Ancestors: Tools-mt.1102, Tools-ct.1069 Merges Tools-ct.1069, which adds "browse package" sub-menu into SystemBrowser's system/class-category menu to then be able to browse extensions and dependencies of a package that belongs to the selected category. =============== Diff against Tools-mt.1102 =============== Item was added: + ----- Method: Browser>>browsePackage (in category 'system category functions') ----- + browsePackage + + ^ self selectedPackage + ifNil: [self informUnknownPackage] + ifNotNil: [:package | package browse].! Item was added: + ----- Method: Browser>>browsePackageDependencies (in category 'system category functions') ----- + browsePackageDependencies + + ^ self selectedPackage + ifNil: [self informUnknownPackage] + ifNotNil: [:package | DependencyBrowser openOnPackage: package].! Item was added: + ----- Method: Browser>>browsePackageDependenciesInverted (in category 'system category functions') ----- + browsePackageDependenciesInverted + + ^ self selectedPackage + ifNil: [self informUnknownPackage] + ifNotNil: [:package | DependencyBrowser openInvertedOnPackage: package].! Item was added: + ----- Method: Browser>>browsePackageExtensions (in category 'system category functions') ----- + browsePackageExtensions + + ^ self selectedPackage + ifNil: [self informUnknownPackage] + ifNotNil: [:package | self systemNavigation browseAllExtensionMethodsOfPackage: package]! Item was added: + ----- Method: Browser>>browsePackageExtensionsLocalTo (in category 'system category functions') ----- + browsePackageExtensionsLocalTo + + ^ self selectedPackage + ifNil: [self informUnknownPackage] + ifNotNil: [:package | + self systemNavigation + browseAllExtensionMethodsOfPackage: package + localTo: self selectedSystemCategory].! Item was added: + ----- Method: Browser>>informUnknownPackage (in category 'system category functions') ----- + informUnknownPackage + + self inform: ('The category <b>{1}</b> does not<br>belong to a known package.' translated format: {self selectedSystemCategory}) asTextFromHtml.! Item was added: + ----- Method: Browser>>mainPackageMenu: (in category 'system category functions') ----- + mainPackageMenu: aMenu + <packageMenu> + + self selectedPackage ifNil: [ + ^ aMenu + add: '(No package found.)' translated action: #yourself; + yourself]. + + aMenu addList: #( + ('browse package' browsePackage) + #- + ('extensions' browsePackageExtensions)). + + aMenu + add: 'extensions local to ''', self selectedSystemCategory, '''' + action: #browsePackageExtensionsLocalTo. + + aMenu addList: #( + #- + ('dependencies' browsePackageDependencies) + ('inverted dependencies' browsePackageDependenciesInverted)). + + ^ aMenu! 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)). + + (Smalltalk isMorphic and: [self selectedPackage notNil]) ifTrue: [ + aMenu + add: ('browse package ''{1}''' translated format: {self selectedPackage name}) + 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 + ifNone: []! 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 computePackageAndClassDependencies: packageName. + model packageDeps includesAnyOf: requiredPackageNames]]); - packageList: (model packageList select: [:packageName | - model computePackageAndClassDependencies: packageName. - model packageDeps includesAnyOf: requiredPackageNames]); windowTitle: ('Dependency Browser (inverted on {1})' translated format: {requiredPackageNames}); + yourself) + ! - 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 'package list') ----- + selectedPackage + + ^ self environment packageOrganizer + packageNamed: self selectedPackageName + ifAbsent: [nil]! Item was added: + ----- Method: DependencyBrowser>>selectedPackageName (in category 'package list') ----- + selectedPackageName + + ^ 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' browsePackageDependenciesInverted) + - + ('reorganize' editSystemCategories) + ('alphabetize' alphabetizeSystemCategories) - ('reorganize' editSystemCategories) - ('alphabetize' alphabetizeSystemCategories) - + ('update' updatePackages)); + yourself.! - ('update' updatePackages)); - yourself. - ! Item was changed: ----- Method: PackagePaneBrowser>>package (in category 'package list') ----- package "Answer the receiver's 'package'." + ^ self selectedPackageName! - ^ self hasPackageSelected - ifFalse: [nil] - ifTrue: [self packageList at: packageListIndex] - ! 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 selectedPackageName + ifNil: [super selectedPackage] + ifNotNil: [:packageName | + self environment packageOrganizer + packageNamed: packageName + ifAbsent: [nil]]! Item was added: + ----- Method: PackagePaneBrowser>>selectedPackageName (in category 'package list') ----- + selectedPackageName + + ^ self hasPackageSelected + ifFalse: [nil] + ifTrue: [self packageList at: packageListIndex]! 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 Trunk: System-mt.1285.mcz
by commits＠source.squeak.org 13 Jan '22

13 Jan '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1285.mcz ==================== Summary ==================== Name: System-mt.1285 Author: mt Time: 13 January 2022, 3:45:39.983475 pm UUID: 0842d51d-2a43-4b44-98d7-7e958e1e3cdd Ancestors: System-mt.1284 Fixes slip in window title. =============== Diff against System-mt.1284 =============== Item was changed: ----- Method: SystemNavigation>>browseAllExtensionClassesOfPackage:localTo: (in category 'browse') ----- browseAllExtensionClassesOfPackage: aPackageInfoOrName localTo: aClassCategory "self default browseAllExtensionClassesOfPackage: #Morphic localTo: 'Morphic-Support' " | packageInfo | packageInfo := self packageInfoFor: aPackageInfoOrName. ^ self browseClassList: [self allExtensionClassesOfPackage: packageInfo localTo: aClassCategory] + name: ('Extensions of package {1} local to {2}' translated format: {packageInfo name. aClassCategory})! - name: ('Extensions of package {1}' translated format: {packageInfo name})! Item was changed: ----- Method: SystemNavigation>>browseAllExtensionMethodsOfPackage:localTo: (in category 'browse') ----- browseAllExtensionMethodsOfPackage: aPackageInfoOrName localTo: aClassCategory "self default browseAllExtensionMethodsOfPackage: #Morph localTo: 'Morphic-Support' " | packageInfo | packageInfo := self packageInfoFor: aPackageInfoOrName. ^ self browseMessageList: [self allExtensionMethodsOfPackage: packageInfo localTo: aClassCategory] + name: ('Extensions of package {1} local to {2}' translated format: {packageInfo name. aClassCategory})! - name: ('Extensions of package {1}' translated format: {packageInfo name})!

1 0

The Treated Inbox: Tools-ct.961.mcz
by commits＠source.squeak.org 13 Jan '22

13 Jan '22

Marcel Taeumel uploaded a new version of Tools to project The Treated Inbox: http://source.squeak.org/treated/Tools-ct.961.mcz ==================== Summary ==================== Name: Tools-ct.961 Author: ct Time: 17 March 2020, 8:27:02.187389 pm UUID: 1bcc5bd9-2cd5-2b4b-a99d-e056f37ecf10 Ancestors: Tools-mt.955 Adds PackagePaneBrowser fullOnPackage: and refines StandardToolSet browsePackage:. Try it out! Morph package browse. =============== Diff against Tools-mt.955 =============== Item was added: + ----- Method: PackagePaneBrowser class>>fullOnPackage: (in category 'instance creation') ----- + fullOnPackage: aPackage + + ^ self new + selectPackageNamed: aPackage name; + buildAndOpenFullBrowser! Item was added: + ----- Method: PackagePaneBrowser>>selectPackageNamed: (in category 'package list') ----- + selectPackageNamed: aPackageName + + self packageListIndex: (self packageList indexOf: aPackageName). + self changed: #packageListIndex.! 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 Treated Inbox: Tools-ct.1065.mcz
by commits＠source.squeak.org 13 Jan '22

13 Jan '22

Marcel Taeumel uploaded a new version of Tools to project The Treated Inbox: http://source.squeak.org/treated/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 - - !

1 0

← Newer
1
...
12
13
14
15
16
17
18
...
21
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2022