The Trunk: PackageInfo-UI-fbs.3.mcz

Frank Shearar uploaded a new version of PackageInfo-UI to project The Trunk:
http://source.squeak.org/trunk/PackageInfo-UI-fbs.3.mcz

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

Name: PackageInfo-UI-fbs.3
Author: fbs
Time: 3 July 2013, 11:29:36.283 pm
UUID: 1f6991a3-6577-9b45-be27-f631cc6caae6
Ancestors: PackageInfo-UI-fbs.2

ToolBuilder UI. Morphic UI building's moved to 45Deprecated.

=============== Diff against PackageInfo-UI-fbs.2 ===============

Item was changed:
+ ----- Method: PackageList class>>initialize (in category 'class initialization') -----
- ----- Method: PackageList class>>initialize (in category 'as yet unclassified') -----
  initialize
  TheWorldMenu registerOpenCommand: {'Package List'. {self. #open}}!

Item was changed:
+ ----- Method: PackageList class>>open (in category 'instance creation') -----
- ----- Method: PackageList class>>open (in category 'as yet unclassified') -----
  open
+ ^ ToolBuilder open: self new label: 'Package List'.!
- ^ self new openInWorld!

Item was removed:
- ----- Method: PackageList>>buildList (in category 'morphic') -----
- buildList
- ^ PluggableListMorph
- on: self
- list: #packageList
- selected: #packageSelection
- changeSelected: #packageSelection:
- menu: #packageMenu:!

Item was changed:
+ ----- Method: PackageList>>buildWindow (in category 'toolbuilder') -----
- ----- Method: PackageList>>buildWindow (in category 'morphic') -----
  buildWindow
+ ^ ToolBuilder build: self.!
- | window |
- window := SystemWindow labelled: self label.
- window model: self.
- window addMorph: self buildList fullFrame: (LayoutFrame fractions: (0@0 corner: 1@1)).
- ^ window!

Item was added:
+ ----- Method: PackageList>>buildWith: (in category 'toolbuilder') -----
+ buildWith: builder
+ | listSpec windowSpec |
+ listSpec := builder pluggableListSpec new
+ model: self;
+ frame: (LayoutFrame fractions: (0@0 corner: 1@1));
+ list: #packageList;
+ getIndex: #packageSelection;
+ setIndex: #packageSelection:;
+ menu: #packageMenu;
+ yourself.
+
+ windowSpec := builder pluggableWindowSpec new
+ model: self;
+ label: self label.
+ windowSpec children: {listSpec}.
+ ^ builder build: windowSpec.!

Item was removed:
- ----- Method: PackageList>>defaultBackgroundColor (in category 'morphic') -----
- defaultBackgroundColor
- ^ Color white!

Item was removed:
- ----- Method: PackageList>>defaultExtent (in category 'morphic') -----
- defaultExtent
- ^ 200@200!

Item was removed:
- ----- Method: PackageList>>label (in category 'morphic') -----
- label
- ^ 'Packages'!

Item was removed:
- ----- Method: PackageList>>openInWorld (in category 'morphic') -----
- openInWorld
- self packageOrganizer addDependent: self.
- self buildWindow openInWorldExtent: self defaultExtent!

Item was removed:
- ----- Method: PackageList>>packageContextMenu: (in category 'morphic') -----
- packageContextMenu: aMenu
- aMenu
- addLine;
- add: 'remove package' action: #removePackage;
- addServices: PackageServices allServices for: selectedPackage extraLines: #()!

Item was removed:
- ----- Method: PackageList>>packageList (in category 'morphic') -----
- packageList
- ^ self packages collect: [:ea | ea packageName]!

Item was removed:
- ----- Method: PackageList>>packageMenu: (in category 'morphic') -----
- packageMenu: aMenu
- aMenu
- defaultTarget: self;
- add: 'add package' action: #addPackage.
- selectedPackage ifNotNil: [self packageContextMenu: aMenu].
- ^ aMenu!

Item was removed:
- ----- Method: PackageList>>packageSelection (in category 'morphic') -----
- packageSelection
- ^ self packages indexOf: selectedPackage!

Item was removed:
- ----- Method: PackageList>>packageSelection: (in category 'morphic') -----
- packageSelection: aNumber
- selectedPackage := self packages at: aNumber ifAbsent: [].
- self changed: #packageSelection!

Item was changed:
+ ----- Method: PackageList>>packages (in category 'accessing') -----
- ----- Method: PackageList>>packages (in category 'as yet unclassified') -----
  packages
  ^ packages ifNil: [packages := self packageOrganizer packages asSortedCollection:
  [:a :b | a packageName <= b packageName]]!