Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
care for noConsole present (WIN32 only)
authorClaus Gittinger <cg@exept.de>
Wed, 19 May 1999 18:20:01 +0200
changeset 4209 7c1b4df9e555
parent 4208 fb27208e08f1
child 4210 188eebb46574
care for noConsole present (WIN32 only)
MiniDebug.st file | annotate | diff | comparison | revisions
MiniDebugger.st file | annotate | diff | comparison | revisions 
--- a/MiniDebug.st	Wed May 19 18:09:44 1999 +0200
+++ b/MiniDebug.st	Wed May 19 18:20:01 1999 +0200
@@ -51,13 +51,17 @@
 enter
     "enter a miniDebugger"
 
-    ^ self enterWithMessage:'MiniDebugger'
+    ^ self enterWithMessage:'MiniDebugger entered'
+
+    "Modified: / 19.5.1999 / 18:15:03 / cg"
 !
 
 enter:aContext
     "enter a miniDebugger - for protocol compatibility with the GUI-debugger"
 
-    ^ self enterWithMessage:'MiniDebugger'
+    ^ self enterWithMessage:'MiniDebugger entered'
+
+    "Modified: / 19.5.1999 / 18:13:06 / cg"
 !
 
 enter:aContext withMessage:aString
@@ -84,13 +88,28 @@
         Processor notNil ifTrue:[
             active := Processor activeProcess.
             'process: id=' print. active id print. 
-	    ' name=' print. active name printCR.
+            ' name=' print. active name printCR.
         ].
     ].
-    self new enter.
+
+    OperatingSystem hasConsole ifFalse:[
+        Object errorSignal handle:[:ex |
+            ex return
+        ] do:[
+            self warn:('Unexpected error:\' , aString , '\\No MiniDebugger functionality available') withCRs .
+        ].
+
+        Object errorSignal handle:[:ex |
+            Smalltalk exit
+        ] do:[
+            AbortSignal raise.
+        ]
+    ] ifTrue:[
+        self new enter.
+    ].
     ^ nil
 
-    "Modified: 20.5.1996 / 10:28:31 / cg"
+    "Modified: / 19.5.1999 / 18:14:33 / cg"
 !
 
 new
@@ -677,5 +696,5 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/MiniDebug.st,v 1.40 1999-02-25 20:17:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/MiniDebug.st,v 1.41 1999-05-19 16:20:01 cg Exp $'
 ! !
--- a/MiniDebugger.st	Wed May 19 18:09:44 1999 +0200
+++ b/MiniDebugger.st	Wed May 19 18:20:01 1999 +0200
@@ -51,13 +51,17 @@
 enter
     "enter a miniDebugger"
 
-    ^ self enterWithMessage:'MiniDebugger'
+    ^ self enterWithMessage:'MiniDebugger entered'
+
+    "Modified: / 19.5.1999 / 18:15:03 / cg"
 !
 
 enter:aContext
     "enter a miniDebugger - for protocol compatibility with the GUI-debugger"
 
-    ^ self enterWithMessage:'MiniDebugger'
+    ^ self enterWithMessage:'MiniDebugger entered'
+
+    "Modified: / 19.5.1999 / 18:13:06 / cg"
 !
 
 enter:aContext withMessage:aString
@@ -84,13 +88,28 @@
         Processor notNil ifTrue:[
             active := Processor activeProcess.
             'process: id=' print. active id print. 
-	    ' name=' print. active name printCR.
+            ' name=' print. active name printCR.
         ].
     ].
-    self new enter.
+
+    OperatingSystem hasConsole ifFalse:[
+        Object errorSignal handle:[:ex |
+            ex return
+        ] do:[
+            self warn:('Unexpected error:\' , aString , '\\No MiniDebugger functionality available') withCRs .
+        ].
+
+        Object errorSignal handle:[:ex |
+            Smalltalk exit
+        ] do:[
+            AbortSignal raise.
+        ]
+    ] ifTrue:[
+        self new enter.
+    ].
     ^ nil
 
-    "Modified: 20.5.1996 / 10:28:31 / cg"
+    "Modified: / 19.5.1999 / 18:14:33 / cg"
 !
 
 new
@@ -677,5 +696,5 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.40 1999-02-25 20:17:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.41 1999-05-19 16:20:01 cg Exp $'
 ! !
hg/stx-libbasic