--- a/NewLauncher.st Tue Nov 11 15:58:57 2014 +0100
+++ b/NewLauncher.st Tue Nov 11 16:03:24 2014 +0100
@@ -4903,7 +4903,7 @@
"load wellknown package"
|l root d v itemsByPath getItemByPath packageIdByItem packageID
- packageIcon greyPackageIcon folderIcon|
+ packageIcon greyPackageIcon folderIcon browse|
folderIcon := ToolbarIconLibrary directoryOpen18x18Icon.
packageIcon := ToolbarIconLibrary packageOpen24x24Icon.
@@ -4976,17 +4976,20 @@
d label:(resources string:'Load Package').
d addAbortButton.
d addOkButtonLabelled:(resources string:'Load').
+ (d addOkButtonLabelled:(resources string:'Load & Browse')) action:[browse := true. d accept].
v := HVScrollableView for:HierarchicalListView.
v multipleSelectOk:true.
v list:l.
- v preferredExtent:(300 @ 300).
+ v preferredExtent:(400 @ 300).
d addComponent:v.
d stickAtBottomWithVariableHeight:v.
PreviousPackageDialogExtent notNil ifTrue:[
d extent:PreviousPackageDialogExtent
].
+
+ browse := false.
d open.
"/ remember the expand/collapse status
@@ -4999,6 +5002,9 @@
package := packageIdByItem at:eachSelectedItem.
Smalltalk loadPackage:package.
+ browse ifTrue:[
+ Tools::NewSystemBrowser openOnPackage:package
+ ].
].
].
!
@@ -5218,14 +5224,14 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.497 2014-11-11 14:58:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.498 2014-11-11 15:03:24 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.497 2014-11-11 14:58:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.498 2014-11-11 15:03:24 cg Exp $'
!
version_SVN
- ^ '$Id: NewLauncher.st,v 1.497 2014-11-11 14:58:57 cg Exp $'
+ ^ '$Id: NewLauncher.st,v 1.498 2014-11-11 15:03:24 cg Exp $'
! !