Tools__ToDoListBrowser.st
changeset 12007 de1f3a27cc10
parent 8301 dbf72a7a5f23
child 12401 4714b9640528
--- a/Tools__ToDoListBrowser.st	Sat Nov 03 15:41:29 2012 +0100
+++ b/Tools__ToDoListBrowser.st	Sat Nov 03 17:16:49 2012 +0100
@@ -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 $'
 ! !