# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1190289716 -7200
# Node ID cf6ca4e657fb15befe2848a63d74c030ceca97df
# Parent  7e4538e4c2cf578867b72ec2bb2b1e7011b26e40
changed #doOpenReportMailApp

diff -r 7e4538e4c2cf -r cf6ca4e657fb DebugView.st
--- a/DebugView.st	Thu Sep 20 11:37:52 2007 +0200
+++ b/DebugView.st	Thu Sep 20 14:01:56 2007 +0200
@@ -3663,6 +3663,7 @@
     "open a mail report tool"
 
     | str |
+
     str := '' writeStream.
 
     str nextPutLine:('Error notification from '
@@ -3684,10 +3685,15 @@
         firstContext fullPrintAllOn:str.
     ].
     str cr;cr.
-    SendMailTool openForMessage:(str contents) withSubject:('STX Error:[', self label, ']') preOpenBlock:[:inst|
-        inst recipientEntryField value:'error@exept.de'
-    ].
-    str close.
+
+    SendMailTool 
+        openForMessage:(str contents) 
+        withSubject:('STX Error:[', self label, ']') 
+        preOpenBlock:[:inst|
+            inst recipientEntryField value:'error@exept.de'
+        ].
+
+    "Modified: / 20-09-2007 / 12:40:40 / cg"
 !
 
 doRestart
@@ -6051,7 +6057,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.420 2007-09-20 09:37:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.421 2007-09-20 12:01:56 cg Exp $'
 ! !
 
 DebugView initialize!