The Trunk: 45Deprecated-fbs.4.mcz

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@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!