--- a/AbstractLauncherApplication.st Tue Oct 15 03:30:27 2013 +0200
+++ b/AbstractLauncherApplication.st Tue Oct 15 10:44:54 2013 +0200
@@ -1663,14 +1663,6 @@
"Modified: / 23.4.1998 / 18:37:46 / cg"
!
-packageDialog
- "opens a package dialog"
-
- ^ LauncherDialogs packageDialog
-
- "Modified: / 31.7.1998 / 17:33:24 / cg"
-!
-
saveImageAs: aFileName
"save image in aFilename.
Sender has to handle SnapshotError"
@@ -5856,118 +5848,6 @@
"Modified: / 17-09-1995 / 16:47:50 / claus"
"Created: / 19-09-2006 / 19:14:06 / cg"
-!
-
-packageDialog
- <resource: #obsolete>
-
- "opens a package dialog. Obsolete"
-
- |allPackages packageList packageUpdater
- box listView tabs
- menu resources selectedPackage|
-
- self obsoleteMethodWarning.
-
- resources := self owningClass classResources.
-
- box := Dialog new.
- box label:(resources string:'Packages').
-
- allPackages := Set new.
- allPackages addAll:(Smalltalk knownPackages).
-
- Project knownProjects do:[:package |
- allPackages add:(package name)
- ].
- Project loadedProjects do:[:package |
- allPackages add:(package name)
- ].
- allPackages := allPackages asOrderedCollection sort.
-
- packageUpdater := [
- tabs := TabulatorSpecification unit:#inch positions:#(0 4).
- packageList := allPackages collect:[:pName | |pkg entry|
- entry := MultiColListEntry new:2 tabulatorSpecification:tabs.
- pkg := Project projectWithId:pName asSymbol.
- (pkg notNil and:[pkg isLoaded]) ifTrue:[
- entry colAt:1 put:pName allBold.
- entry colAt:2 put:'loaded'.
- ] ifFalse:[
- entry colAt:1 put:pName.
-
- (Smalltalk allClasses
- contains:[:cls | cls package = pName and:[cls isLoaded not]])
- ifTrue:[
- (Smalltalk allClasses
- contains:[:cls | cls package = pName and:[cls isLoaded]])
- ifTrue:[
- entry colAt:2 put:'loaded/autoloaded'.
- ] ifFalse:[
- entry colAt:2 put:'autoloaded'.
- ]
- ]
- ].
- entry
- ].
- ].
- packageUpdater value.
-
- listView := HVScrollableView for:SelectionInListView miniScrollerH:true.
- listView list:packageList.
-
- box addComponent:listView tabable:true.
- listView origin:0.0@0.0 corner:1.0@1.0.
- listView bottomInset:40.
- listView action:[:selIndex | |pkg|
- selectedPackage := (allPackages at:selIndex) asSymbol.
-
- pkg := Project projectWithId:selectedPackage.
- (pkg notNil and:[pkg isLoaded]) ifTrue:[
- menu disable:#load.
-"/ menu enable:#unload.
- ] ifFalse:[
-"/ menu disable:#unload.
- menu enable:#load.
- ]
- ].
-
- menu := PopUpMenu
- itemList:#(
- ('load...' load )
-"/ ('-' nil )
-"/ ('unload...' unload)
- )
- resources:resources.
- listView middleButtonMenu:menu.
- menu actionAt:#load put:[
- box withWaitCursorDo:[
- Smalltalk loadPackage:selectedPackage.
- packageUpdater value.
- ]
- ].
-"/ menu actionAt:#unload put:[
-"/ box withWaitCursorDo:[
-"/ Smalltalk unloadPackage:selectedPackage.
-"/ packageUpdater value.
-"/ ].
-"/ ].
- menu disable:#load.
-"/ menu disable:#unload.
-
- box addAbortButtonLabelled:(resources string:'dismiss').
-
- box width:(400 min:(box device width * 2 // 3));
- height:(450 min:(box device height - 50)).
-
- box openWithExtent:(600 min:(box device width * 2 // 3))
- @
- (500 min:(box device height - 50)) .
-
- box destroy.
-"
- self packageDialog
-"
! !
!AbstractLauncherApplication::LauncherDialogs class methodsFor:'dialogs-private'!
@@ -7049,14 +6929,14 @@
!AbstractLauncherApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.440 2013-08-29 10:27:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.441 2013-10-15 08:44:54 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.440 2013-08-29 10:27:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.441 2013-10-15 08:44:54 stefan Exp $'
!
version_SVN
- ^ '$Id: AbstractLauncherApplication.st,v 1.440 2013-08-29 10:27:38 cg Exp $'
+ ^ '$Id: AbstractLauncherApplication.st,v 1.441 2013-10-15 08:44:54 stefan Exp $'
! !