equal
deleted
inserted
replaced
3661 |
3661 |
3662 doOpenReportMailApp |
3662 doOpenReportMailApp |
3663 "open a mail report tool" |
3663 "open a mail report tool" |
3664 |
3664 |
3665 | str | |
3665 | str | |
|
3666 |
3666 str := '' writeStream. |
3667 str := '' writeStream. |
3667 |
3668 |
3668 str nextPutLine:('Error notification from ' |
3669 str nextPutLine:('Error notification from ' |
3669 , OperatingSystem getLoginName |
3670 , OperatingSystem getLoginName |
3670 , '@' |
3671 , '@' |
3682 |
3683 |
3683 firstContext notNil ifTrue:[ |
3684 firstContext notNil ifTrue:[ |
3684 firstContext fullPrintAllOn:str. |
3685 firstContext fullPrintAllOn:str. |
3685 ]. |
3686 ]. |
3686 str cr;cr. |
3687 str cr;cr. |
3687 SendMailTool openForMessage:(str contents) withSubject:('STX Error:[', self label, ']') preOpenBlock:[:inst| |
3688 |
3688 inst recipientEntryField value:'error@exept.de' |
3689 SendMailTool |
3689 ]. |
3690 openForMessage:(str contents) |
3690 str close. |
3691 withSubject:('STX Error:[', self label, ']') |
|
3692 preOpenBlock:[:inst| |
|
3693 inst recipientEntryField value:'error@exept.de' |
|
3694 ]. |
|
3695 |
|
3696 "Modified: / 20-09-2007 / 12:40:40 / cg" |
3691 ! |
3697 ! |
3692 |
3698 |
3693 doRestart |
3699 doRestart |
3694 "restart - the selected context will be restarted" |
3700 "restart - the selected context will be restarted" |
3695 |
3701 |
6049 ! ! |
6055 ! ! |
6050 |
6056 |
6051 !DebugView class methodsFor:'documentation'! |
6057 !DebugView class methodsFor:'documentation'! |
6052 |
6058 |
6053 version |
6059 version |
6054 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.420 2007-09-20 09:37:52 stefan Exp $' |
6060 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.421 2007-09-20 12:01:56 cg Exp $' |
6055 ! ! |
6061 ! ! |
6056 |
6062 |
6057 DebugView initialize! |
6063 DebugView initialize! |