--- a/DebugView.st Thu Apr 18 13:36:45 1996 +0200
+++ b/DebugView.st Thu Apr 18 16:52:30 1996 +0200
@@ -152,18 +152,6 @@
"Debugger enterWithMessage:'hi there'"
!
-lowSpaceCleanup
- "in low memory situations, give up cached debuggers"
-
- self newDebugger
-
- "
- DebugView lowSpaceCleanup
- "
-
- "Modified: 22.2.1996 / 17:58:16 / cg"
-!
-
new
"return a new DebugView - return a cached debugger if it already
exists"
@@ -195,18 +183,6 @@
^ debugger
!
-newDebugger
- "force creation of a new debugger"
-
- CachedDebugger := nil.
- CachedExclusive := nil.
- OpenDebuggers := nil.
-
- "
- DebugView newDebugger
- "
-!
-
newExclusive
"return a debugger for exclusive display access"
@@ -244,6 +220,34 @@
^ nil
! !
+!DebugView class methodsFor:'cleanup'!
+
+lowSpaceCleanup
+ "in low memory situations, give up cached debuggers"
+
+ CachedDebugger := nil.
+ CachedExclusive := nil.
+ OpenDebuggers := nil.
+
+ "
+ DebugView lowSpaceCleanup
+ "
+
+ "Modified: 18.4.1996 / 16:48:03 / cg"
+!
+
+newDebugger
+ "force creation of a new debugger"
+
+ CachedDebugger := nil.
+ CachedExclusive := nil.
+ OpenDebuggers := nil.
+
+ "
+ DebugView newDebugger
+ "
+! !
+
!DebugView methodsFor:'basic'!
enter
@@ -2495,5 +2499,5 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.73 1996-04-13 22:19:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.74 1996-04-18 14:52:30 cg Exp $'
! !