--- a/DebugView.st	Wed Mar 19 21:50:23 1997 +0100
+++ b/DebugView.st	Wed Mar 19 21:51:49 1997 +0100
@@ -22,7 +22,7 @@
 		stepForReturn actualContext inWrap stackInspector steppedContext
 		wrapperContext verboseBacktrace firstContext stepHow'
 	classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
-		DebuggingDebugger VerboseBacktraceDefault'
+		DebuggingDebugger VerboseBacktraceDefault DefaultIcon'
 	poolDictionaries:''
 	category:'Interface-Debugger'
 !
@@ -293,9 +293,22 @@
 !DebugView class methodsFor:'defaults'!
 
 defaultIcon
-    ^ Image fromFile:'bitmaps/Debugger.xbm' resolution:100
-
-    "Created: 1.1.1970 / 01:00:00 / cg"
+    DefaultIcon isNil ifTrue:[
+        DefaultIcon := self classResources at:'ICON'.
+        DefaultIcon isNil ifTrue:[
+            DefaultIcon := Image fromFile:'bitmaps/Debugger.xbm' resolution:100
+        ].
+        DefaultIcon notNil ifTrue:[
+            DefaultIcon := DefaultIcon on:Display
+        ]
+    ].
+    ^ DefaultIcon
+
+    "
+     DebugView defaultIcon
+    "
+
+    "Modified: 19.3.1997 / 20:33:24 / cg"
 !
 
 defaultVerboseBacktrace
@@ -3447,5 +3460,5 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.148 1997-03-17 14:19:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.149 1997-03-19 20:51:49 cg Exp $'
 ! !