*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 04 Jul 2007 16:38:19 +0200
changeset 3491 d965db0d2d7f
parent 3490 00803075b7d5
child 3492 fa487f650441
*** empty log message ***
TextView.st
--- a/TextView.st	Fri Jun 22 15:30:54 2007 +0200
+++ b/TextView.st	Wed Jul 04 16:38:19 2007 +0200
@@ -1775,16 +1775,14 @@
 
     self withWaitCursorDo:[
         printStream := Printer new.
-        printStream notNil ifTrue:[
-            Printer writeErrorSignal handle:[:ex |
-                self warn:('error while printing:\\' 
-                            , ex description 
-                            , '\\(printing with: ' , (Printer printCommand) , ')') withCRs
-            ] do:[
-                self fileOutContentsOn:printStream.
-            ].
-            printStream close
-        ]
+        Printer writeErrorSignal handle:[:ex |
+            self warn:('error while printing:\\' 
+                        , ex description 
+                        , '\\(printing with: ' , (Printer printCommand) , ')') withCRs
+        ] do:[
+            self fileOutContentsOn:printStream.
+        ].
+        printStream close
     ].
 
     "Created: 6.5.1996 / 16:11:26 / cg"
@@ -3933,7 +3931,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.278 2007-04-13 10:18:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.279 2007-07-04 14:38:19 cg Exp $'
 ! !
 
 TextView initialize!