# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 841943971 -7200
# Node ID fd15ef9c598a6601e9846bbc7b183cafff784745
# Parent  6c284d7e577dcb576fa8dedd327dbd0341a45db6
show wait cursor while printing

diff -r 6c284d7e577d -r fd15ef9c598a TextView.st
--- a/TextView.st	Sun Aug 25 12:06:22 1996 +0200
+++ b/TextView.st	Thu Sep 05 19:19:31 1996 +0200
@@ -798,20 +798,23 @@
     |printStream|
 
     list isNil ifTrue:[^ self].
-    printStream := Printer new.
-    printStream notNil ifTrue:[
-        Printer writeErrorSignal handle:[:ex |
-            self warn:('error while printing:\\' 
-                        , ex errorString 
-                        , '\\(printing with: ' , (Printer printCommand) , ')') withCRs
-        ] do:[
-            self fileOutContentsOn:printStream.
-        ].
-        printStream close
-    ]
 
-    "Modified: 6.3.1996 / 18:28:14 / cg"
+    self withWaitCursorDo:[
+        printStream := Printer new.
+        printStream notNil ifTrue:[
+            Printer writeErrorSignal handle:[:ex |
+                self warn:('error while printing:\\' 
+                            , ex errorString 
+                            , '\\(printing with: ' , (Printer printCommand) , ')') withCRs
+            ] do:[
+                self fileOutContentsOn:printStream.
+            ].
+            printStream close
+        ]
+    ].
+
     "Created: 6.5.1996 / 16:11:26 / cg"
+    "Modified: 5.9.1996 / 19:18:30 / cg"
 !
 
 editMenu
@@ -2217,5 +2220,5 @@
 !TextView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.64 1996-08-19 08:23:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.65 1996-09-05 17:19:31 cg Exp $'
 ! !