[squeak-dev] The Trunk: 45Deprecated-fbs.4.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jul 3 22:32:14 UTC 2013


Frank Shearar uploaded a new version of 45Deprecated to project The Trunk:
http://source.squeak.org/trunk/45Deprecated-fbs.4.mcz

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

Name: 45Deprecated-fbs.4
Author: fbs
Time: 3 July 2013, 11:32:12.48 pm
UUID: b03730a5-e595-e148-89e3-093f30e0947c
Ancestors: 

PackageList's former UI, written in Morphic.

==================== Snapshot ====================

----- Method: PackageList>>buildList (in category '*45Deprecated') -----
buildList
	^ PluggableListMorph
		on: self
		list: #packageList
		selected: #packageSelection
		changeSelected: #packageSelection:
		menu: #packageMenu:!

----- Method: PackageList>>defaultBackgroundColor (in category '*45Deprecated') -----
defaultBackgroundColor 
	^ Color white!

----- Method: PackageList>>defaultExtent (in category '*45Deprecated') -----
defaultExtent
	^ 200 at 200!

----- Method: PackageList>>label (in category '*45Deprecated') -----
label
	^ 'Packages'!

----- Method: PackageList>>openInWorld (in category '*45Deprecated') -----
openInWorld
	self packageOrganizer addDependent: self.
	^ self buildWindow!

----- Method: PackageList>>packageContextMenu: (in category '*45Deprecated') -----
packageContextMenu: aMenu
	aMenu
		addLine;
		add: 'remove package' action: #removePackage;
		addServices: PackageServices allServices for: selectedPackage extraLines: #()!

----- Method: PackageList>>packageList (in category '*45Deprecated') -----
packageList
	^ self packages collect: [:ea | ea packageName]!

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

----- Method: PackageList>>packageSelection (in category '*45Deprecated') -----
packageSelection
	^ self packages indexOf: selectedPackage!

----- Method: PackageList>>packageSelection: (in category '*45Deprecated') -----
packageSelection: aNumber
	selectedPackage := self packages at: aNumber ifAbsent: [].
	self changed: #packageSelection!



More information about the Squeak-dev mailing list