class: Tools::NewSystemBrowser
authorClaus Gittinger <cg@exept.de>
Thu, 05 Sep 2013 13:06:56 +0200
changeset 13499 a2c7d7c34d00
parent 13498 b8d845e42988
child 13500 0128772ce63d
class: Tools::NewSystemBrowser changed: #explainInCode:short:withTimeout:
Tools__NewSystemBrowser.st
--- a/Tools__NewSystemBrowser.st	Thu Sep 05 12:46:11 2013 +0200
+++ b/Tools__NewSystemBrowser.st	Thu Sep 05 13:06:56 2013 +0200
@@ -54295,7 +54295,7 @@
         explanation :=
             [ self explanationForCode:code short:short ]
                     valueWithWatchDog:[explainTookTooLong := true]
-                    afterMilliseconds:100.
+                    afterMilliseconds:200.
     ] ifFalse:[
         explanation := self explanationForCode:code short:short
     ].
@@ -54306,7 +54306,7 @@
         ^ self.
     ].
 
-    explanation notNil ifTrue:[
+    explanation notEmptyOrNil ifTrue:[
         short ifTrue:[
             self showInfo:explanation
         ] ifFalse:[
@@ -59038,11 +59038,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1973 2013-09-05 10:46:11 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1974 2013-09-05 11:06:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1973 2013-09-05 10:46:11 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1974 2013-09-05 11:06:56 cg Exp $'
 !
 
 version_HG
@@ -59051,7 +59051,7 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__NewSystemBrowser.st,v 1.1973 2013-09-05 10:46:11 vrany Exp $'
+    ^ '$Id: Tools__NewSystemBrowser.st,v 1.1974 2013-09-05 11:06:56 cg Exp $'
 ! !