AbstractLauncherApplication.st
branchjv
changeset 17133 f9f20407fbf9
parent 17132 17d361c666c2
parent 16894 a6e7b6cd2db0
child 17134 c4cce8b7a95d
--- a/AbstractLauncherApplication.st	Mon Oct 03 15:15:56 2016 +0100
+++ b/AbstractLauncherApplication.st	Sun Oct 09 22:55:02 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1997 by eXept Software AG
               All Rights Reserved
@@ -1369,6 +1367,17 @@
         title:'All breakPointed/traced methods'
 !
 
+browseContainingString
+    "open a browser after asking for a string"
+
+    |browserClass|
+
+    browserClass := UserPreferences systemBrowserClass.
+    self withWaitCursorDo:[
+        browserClass new browseMenuMethodsWithString
+    ].
+!
+
 browseImplementors
     "open an implementors- browser after asking for a selector"
 
@@ -7193,6 +7202,7 @@
     |p|
     
     (p := backgroundPackageFindProcess) notNil ifTrue:[
+        backgroundPackageFindProcess := nil.
         p isDead ifFalse:[
             p terminate
         ]
@@ -7610,7 +7620,7 @@
                 repos := eachSelectedItem parent info.                    
                 MCRepositoryBrowser openOnRepository:repos forPackage:eachSelectedItem label.
             ] ifFalse:[
-                package := packageIdByItem at:eachSelectedItem ifAbsent:nil.
+                package := packageIdByItem at:eachSelectedItem ifAbsent:[nil].
                 package notNil ifTrue:[
                     self loadPackageAndUpdate:package browse:doBrowse subPackages:false item:eachSelectedItem
                 ].