--- 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
].