Tools__NewSystemBrowser.st
changeset 15564 463ce88788ca
parent 15536 9104e5e6e026
child 15566 184cea584be5
child 15567 1e6533647f04
--- 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 $'
 ! !