class: Tools::NewSystemBrowser
authorClaus Gittinger <cg@exept.de>
Fri, 11 Jul 2014 14:15:50 +0200
changeset 14656 57fa1f6cb1db
parent 14655 29c914f5fede
child 14657 c13b1d3e1de9
class: Tools::NewSystemBrowser changed: #postOpenWith: all window groups now automatically show a busy cursor if not responding
Tools__NewSystemBrowser.st
--- a/Tools__NewSystemBrowser.st	Fri Jul 11 14:15:23 2014 +0200
+++ b/Tools__NewSystemBrowser.st	Fri Jul 11 14:15:50 2014 +0200
@@ -58291,9 +58291,9 @@
     self windowGroup addPreEventHook:self.
     "/ self window sensor addEventListener:self.
 
-    "/ whenever some action takes longer, automatically
-    "/ show a busy cursor
-    self windowGroup showWaitCursorWhenBusyForMillis:100.
+    "/ whenever some action takes longer, automatically show a busy cursor.
+    "/ now done for all windowGroups by the group itself
+    "/ self windowGroup showWaitCursorWhenBusyForMillis:100.
 
     super postOpenWith:aBuilder.
 !
@@ -61799,11 +61799,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2095 2014-07-11 00:02:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2096 2014-07-11 12:15:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2095 2014-07-11 00:02:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2096 2014-07-11 12:15:50 cg Exp $'
 !
 
 version_HG
@@ -61812,7 +61812,7 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__NewSystemBrowser.st,v 1.2095 2014-07-11 00:02:28 cg Exp $'
+    ^ '$Id: Tools__NewSystemBrowser.st,v 1.2096 2014-07-11 12:15:50 cg Exp $'
 ! !