The Inbox: SMLoader-ct.94.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Inbox: SMLoader-ct.94.mcz

commits-2
A new version of SMLoader was added to project The Inbox:
http://source.squeak.org/inbox/SMLoader-ct.94.mcz

==================== Summary ====================

Name: SMLoader-ct.94
Author: ct
Time: 21 November 2020, 2:29:23.320822 pm
UUID: 020d7eb7-5f0c-4645-a705-a9c82cb67f7d
Ancestors: SMLoader-cmm.93

Removes deprecated and unused toolbuilder methods for SMLoaderCategoricalPlus.

=============== Diff against SMLoader-cmm.93 ===============

Item was removed:
- ----- Method: SMLoaderCategoricalPlus>>buildFancyWith: (in category 'DEPRECATED') -----
- buildFancyWith: aBuilder
- "Creates a variant of the window where the package pane is split between installed and uninstalled packages."
- | buttonBarHeight searchHeight vertDivide horizDivide |
- buttonBarHeight := 0.07.
- searchHeight := 0.07.
- vertDivide := 0.5.
- horizDivide := 0.6.
- builder := aBuilder.
- window := builder build: (builder pluggableWindowSpec new model: self;
- label: #label;
- children: (OrderedCollection new add:
- ((self buildButtonBarWith: builder)
- frame: (0 @ 0 corner: 1 @ buttonBarHeight); yourself);
- add: ((self buildCategoriesListWith: builder)
- frame: (0 @ buttonBarHeight corner: vertDivide @ horizDivide); yourself);
- add: ((self buildSearchPaneWith: builder)
- frame: (vertDivide @ buttonBarHeight corner: 1 @ (buttonBarHeight + searchHeight)); yourself);
- add: ((self buildNotInstalledPackagesListWith: builder)
- frame: (vertDivide @ (buttonBarHeight + searchHeight) corner: 1 @ (horizDivide / 2)); yourself);
- add: ((self buildInstalledPackagesListWith: builder)
- frame: (vertDivide @ (horizDivide / 2) corner: 1 @ horizDivide); yourself);
- add: ((self buildPackagePaneWith: builder)
- frame: (0 @ horizDivide corner: 1 @ 1); yourself); yourself)).
- window on: #mouseEnter send: #paneTransition: to: window.
- window on: #mouseLeave send: #paneTransition: to: window.
- self setUpdatablePanesFrom: #(#installedPackageList #notInstalledPackageList ).
- currentPackageList := #notInstalled.
- window extent: self initialExtent.
- ^ window!

Item was removed:
- ----- Method: SMLoaderCategoricalPlus>>buildInstalledPackagesListWith: (in category 'DEPRECATED') -----
- buildInstalledPackagesListWith: aBuilder
- ^ aBuilder pluggableTreeSpec new model: self;
- roots: #installedPackageList;
- getSelectedPath: #selectedItemPath;
- getSelected: #selectedItem;
- setSelected: #selectedItem:;
- menu: #packagesMenu:;
- label: #itemLabel:;
- getChildren: #itemChildren:;
- hasChildren: #itemHasChildren:;
- autoDeselect: true;
- yourself!

Item was removed:
- ----- Method: SMLoaderCategoricalPlus>>buildNotInstalledPackagesListWith: (in category 'DEPRECATED') -----
- buildNotInstalledPackagesListWith: aBuilder
- ^ aBuilder pluggableTreeSpec new model: self;
- roots: #notInstalledPackageList;
- getSelectedPath: #selectedItemPath;
- getSelected: #selectedItem;
- setSelected: #selectedItem:;
- menu: #packagesMenu:;
- label: #itemLabel:;
- getChildren: #itemChildren:;
- hasChildren: #itemHasChildren:;
- autoDeselect: true;
- yourself!