Tools__ToDoListBrowser.st
branchjv
changeset 12308 5d9291c0fc27
parent 12125 0c49a3b13e43
child 12401 4714b9640528
--- a/Tools__ToDoListBrowser.st	Fri Nov 30 14:25:59 2012 +0000
+++ b/Tools__ToDoListBrowser.st	Fri Nov 30 17:23:39 2012 +0000
@@ -523,7 +523,9 @@
 !ToDoListBrowser methodsFor:'menu actions-item'!
 
 browseItem
-    (self todoListEntryAtIndex:self selectionIndexHolder value) browse
+    self withWaitCursorDo:[
+        (self todoListEntryAtIndex:self selectionIndexHolder value) browse
+    ].
 
     "Created: / 22-10-2006 / 02:00:20 / cg"
     "Modified: / 18-02-2007 / 12:56:49 / cg"
@@ -562,7 +564,9 @@
 !ToDoListBrowser methodsFor:'user actions'!
 
 itemDoubleClicked:itemIndex
-    (self selectedTodoListEntry) browse
+    self withWaitCursorDo:[
+        (self selectedTodoListEntry) browse
+    ].
 
     "Created: / 22-10-2006 / 01:49:13 / cg"
     "Modified: / 18-02-2007 / 12:56:30 / cg"
@@ -636,5 +640,5 @@
 !ToDoListBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListBrowser.st,v 1.17 2008/10/08 07:16:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListBrowser.st,v 1.18 2012/11/03 16:16:49 cg Exp $'
 ! !