class: ChangesBrowser
authorClaus Gittinger <cg@exept.de>
Tue, 10 Jun 2014 12:06:06 +0200
changeset 14483 c46c9ffe64c3
parent 14482 9619e73d4dfd
child 14484 ca909db9a8db
class: ChangesBrowser changed: #showNotFound
ChangesBrowser.st
--- a/ChangesBrowser.st	Sun Jun 08 23:17:26 2014 +0200
+++ b/ChangesBrowser.st	Tue Jun 10 12:06:06 2014 +0200
@@ -3433,15 +3433,9 @@
 !
 
 showNotFound
-    |savedCursor|
-
-    savedCursor := cursor.
-    [
-	self cursor:(Cursor cross).
-	self beep.
-	Delay waitForMilliseconds:300.
-    ] ensure:[
-	self cursor:savedCursor
+    self withCursor:(Cursor cross) do:[
+        self beep.
+        Delay waitForMilliseconds:300.
     ]
 
     "Modified: / 29.4.1999 / 22:36:54 / cg"
@@ -6539,10 +6533,10 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.457 2014-03-02 11:13:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.458 2014-06-10 10:06:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.457 2014-03-02 11:13:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.458 2014-06-10 10:06:06 cg Exp $'
 ! !