The Trunk: PackageInfo-Base-fbs.67.mcz

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

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

Name: PackageInfo-Base-fbs.67
Author: fbs
Time: 3 July 2013, 10:28:38.014 pm
UUID: 4558e56a-36bc-ae4b-9db7-e220b1b336fb
Ancestors: PackageInfo-Base-fbs.66

Split PackageInfo's UI into a separate package.

=============== Diff against PackageInfo-Base-fbs.66 ===============

Item was removed:
- Object subclass: #PackageList
- instanceVariableNames: 'selectedPackage packages'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'PackageInfo-Base'!

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

Item was removed:
- ----- Method: PackageList class>>open (in category 'as yet unclassified') -----
- open
- ^ self new openInWorld!

Item was removed:
- ----- Method: PackageList>>addPackage (in category 'actions') -----
- addPackage
- | packageName |
- packageName := UIManager default request: 'Package name:'.
- packageName isEmpty ifFalse:
- [selectedPackage := self packageOrganizer registerPackageNamed: packageName.
- self changed: #packageSelection]!

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

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

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>>packageOrganizer (in category 'actions') -----
- packageOrganizer
- ^ PackageOrganizer default!

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 removed:
- ----- Method: PackageList>>packages (in category 'as yet unclassified') -----
- packages
- ^ packages ifNil: [packages := self packageOrganizer packages asSortedCollection:
- [:a :b | a packageName <= b packageName]]!

Item was removed:
- ----- Method: PackageList>>perform:orSendTo: (in category 'morphic') -----
- perform: selector orSendTo: otherTarget
- "Selector was just chosen from a menu by a user.  If can respond, then
- perform it on myself. If not, send it to otherTarget, presumably the
- editPane from which the menu was invoked."
-
- (self respondsTo: selector)
- ifTrue: [^ self perform: selector]
- ifFalse: [^ otherTarget perform: selector]!

Item was removed:
- ----- Method: PackageList>>removePackage (in category 'actions') -----
- removePackage
- self packageOrganizer unregisterPackage: selectedPackage!

Item was removed:
- ----- Method: PackageList>>update: (in category 'actions') -----
- update: aSymbol
- aSymbol = #packages ifTrue:
- [packages := nil.
- self changed: #packageList; changed: #packageSelection]!