--- 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 $'
! !