--- a/Tools__NewSystemBrowser.st Fri Mar 27 17:19:41 2015 +0100
+++ b/Tools__NewSystemBrowser.st Sat Mar 28 13:01:52 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2000 by eXept Software AG
All Rights Reserved
@@ -42453,18 +42451,18 @@
projectMenuLoad
|projects projectsString alreadyWarned|
- NewLauncher notNil ifTrue:[
- "/ use the >>much better<< Launcher-load-package dialog
- NewLauncher openLoadPackageDialog.
- ^ self.
- ].
-
LastLoadedPackages isNil ifTrue:[
LastLoadedPackages := OrderedCollection new.
].
projects := self selectedProjects value.
projects isEmptyOrNil ifTrue:[
+ NewLauncher notNil ifTrue:[
+ "/ use the >>much better<< Launcher-load-package dialog
+ NewLauncher openLoadPackageDialog.
+ ^ self.
+ ].
+
projectsString := Dialog
request:'Load which package(s):'
initialAnswer:projectsString
@@ -62371,11 +62369,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2212 2015-03-25 14:14:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2213 2015-03-28 12:01:52 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2212 2015-03-25 14:14:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2213 2015-03-28 12:01:52 cg Exp $'
!
version_HG
@@ -62384,7 +62382,7 @@
!
version_SVN
- ^ '$Id: Tools__NewSystemBrowser.st,v 1.2212 2015-03-25 14:14:34 cg Exp $'
+ ^ '$Id: Tools__NewSystemBrowser.st,v 1.2213 2015-03-28 12:01:52 cg Exp $'
! !