[Pkg] The Trunk: PackageInfo-UI-fbs.3.mcz

[commits at source.squeak.org]

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 at 0 corner: 1 at 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 at 0 corner: 1 at 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 at 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]]!