Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ChangesBrowser.st
changeset 2132 4b6c57b84a10
parent 2114 720edbe757f5
child 2133 f8d0b221c4da 
--- a/ChangesBrowser.st	Thu Apr 29 10:36:48 1999 +0200
+++ b/ChangesBrowser.st	Thu Apr 29 22:57:14 1999 +0200
@@ -1862,6 +1862,21 @@
     "Modified: / 18.5.1998 / 14:29:10 / cg"
 !
 
+showNotFound
+    |savedCursor|
+
+    savedCursor := cursor.
+    [
+        self cursor:(Cursor cross).
+        self beep.
+        Delay waitForMilliseconds:300.
+    ] valueNowOrOnUnwindDo:[
+        self cursor:savedCursor
+    ]
+
+    "Modified: / 29.4.1999 / 22:36:54 / cg"
+!
+
 silentDeleteChange:changeNr
     "delete a change do not update changeListView"
 
@@ -2642,16 +2657,11 @@
             nr := nr + 1.
         ].
     ].
-    self beep.
-
-    savedCursor := cursor.
-    self cursor:(Cursor cross).
-    Delay waitForMilliseconds:300.
-    self cursor:savedCursor
+    self showNotFound.
 
     "Created: / 8.4.1997 / 11:00:16 / cg"
     "Modified: / 18.4.1997 / 12:47:52 / stefan"
-    "Modified: / 18.6.1998 / 22:27:33 / cg"
+    "Modified: / 29.4.1999 / 22:38:46 / cg"
 !
 
 findNext
@@ -2689,16 +2699,11 @@
             nr := nr + 1.
         ].
     ].
-    self beep.
-
-    savedCursor := cursor.
-    self cursor:(Cursor cross).
-    Delay waitForMilliseconds:300.
-    self cursor:savedCursor
+    self showNotFound.
 
     "Created: / 21.1.1997 / 22:28:07 / cg"
     "Modified: / 18.4.1997 / 12:48:18 / stefan"
-    "Modified: / 18.6.1998 / 22:29:40 / cg"
+    "Modified: / 29.4.1999 / 22:38:57 / cg"
 !
 
 findNextForSelector
@@ -2726,16 +2731,11 @@
             nr := nr + 1.
         ].
     ].
-    self beep.
-
-    savedCursor := cursor.
-    self cursor:(Cursor cross).
-    Delay waitForMilliseconds:300.
-    self cursor:savedCursor
+    self showNotFound.
 
     "Modified: / 18.4.1997 / 12:48:18 / stefan"
     "Created: / 18.6.1998 / 22:17:37 / cg"
-    "Modified: / 18.6.1998 / 22:29:33 / cg"
+    "Modified: / 29.4.1999 / 22:39:02 / cg"
 !
 
 findNextSnapshot
@@ -2773,16 +2773,11 @@
             ].
         ]
     ].
-    self beep.
-
-    savedCursor := cursor.
-    self cursor:(Cursor cross).
-    Delay waitForMilliseconds:300.
-    self cursor:savedCursor
+    self showNotFound.
 
     "Modified: / 18.4.1997 / 12:48:41 / stefan"
     "Created: / 22.8.1998 / 15:58:49 / cg"
-    "Modified: / 22.8.1998 / 15:59:38 / cg"
+    "Modified: / 29.4.1999 / 22:37:46 / cg"
 !
 
 findPrevious
@@ -2823,15 +2818,10 @@
             ].
         ]
     ].
-    self beep.
-
-    savedCursor := cursor.
-    self cursor:(Cursor cross).
-    Delay waitForMilliseconds:300.
-    self cursor:savedCursor
+    self showNotFound.
 
     "Modified: / 18.4.1997 / 12:48:41 / stefan"
-    "Modified: / 18.6.1998 / 22:29:44 / cg"
+    "Modified: / 29.4.1999 / 22:37:39 / cg"
 !
 
 findPreviousForSelector
@@ -2863,16 +2853,11 @@
             ].
         ]
     ].
-    self beep.
-
-    savedCursor := cursor.
-    self cursor:(Cursor cross).
-    Delay waitForMilliseconds:300.
-    self cursor:savedCursor
+    self showNotFound.
 
     "Modified: / 18.4.1997 / 12:48:41 / stefan"
     "Created: / 18.6.1998 / 22:18:19 / cg"
-    "Modified: / 18.6.1998 / 22:29:29 / cg"
+    "Modified: / 29.4.1999 / 22:37:31 / cg"
 !
 
 findPreviousSnapshot
@@ -2909,16 +2894,11 @@
             ].
         ]
     ].
-    self beep.
-
-    savedCursor := cursor.
-    self cursor:(Cursor cross).
-    Delay waitForMilliseconds:300.
-    self cursor:savedCursor
+    self showNotFound.
 
     "Modified: / 18.4.1997 / 12:48:41 / stefan"
-    "Modified: / 18.6.1998 / 22:29:44 / cg"
     "Created: / 22.8.1998 / 15:57:34 / cg"
+    "Modified: / 29.4.1999 / 22:37:25 / cg"
 !
 
 findSelector
@@ -2959,16 +2939,11 @@
             nr := nr + 1.
         ].
     ].
-    self beep.
-
-    savedCursor := cursor.
-    self cursor:(Cursor cross).
-    Delay waitForMilliseconds:300.
-    self cursor:savedCursor
+    self showNotFound.
 
     "Modified: / 18.4.1997 / 12:47:52 / stefan"
     "Created: / 18.6.1998 / 22:17:04 / cg"
-    "Modified: / 18.6.1998 / 22:27:44 / cg"
+    "Modified: / 29.4.1999 / 22:37:17 / cg"
 !
 
 noChangesAllowed
@@ -3014,5 +2989,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.152 1999-04-23 12:27:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.153 1999-04-29 20:57:14 cg Exp $'
 ! !
hg/stx-libtool