[squeak-dev] The Trunk: PackageInfo-Base-fbs.67.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jul 3 21:28:49 UTC 2013


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



More information about the Squeak-dev mailing list