--- a/DebugView.st	Tue Feb 06 19:57:17 2007 +0100
+++ b/DebugView.st	Tue Feb 06 19:57:21 2007 +0100
@@ -27,7 +27,7 @@
 		lastSelectionInReceiverInspector lastSelectionInContextInspector
 		canShowMore exitAbort reportButton setOfHiddenCallingSelectors'
 	classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
-		DebuggingDebugger VerboseBacktraceDefault DefaultIcon
+		DebuggingDebugger VerboseBacktraceDefault
 		DefaultDebuggerBackgroundColor InitialNCHAINShown'
 	poolDictionaries:''
 	category:'Interface-Debugger'
@@ -372,36 +372,11 @@
 !DebugView class methodsFor:'defaults'!
 
 defaultIcon
-    "return the debuggers default window icon"
-
-    <resource: #style (#DEBUGGER_ICON #DEBUGGER_ICON_FILE)>
-
-    |nm i resources|
-
-    (i := DefaultIcon) isNil ifTrue:[
-        i := ToolbarIconLibrary debugIt20x20Icon.
-
-"/        resources := self classResources.
-"/        i := resources at:#DEBUGGER_ICON' default:nil.
-"/        i isNil ifTrue:[
-"/            nm := resources at:#DEBUGGER_ICON_FILE default:'Debugger.xbm'.
-"/            i := Smalltalk imageFromFileNamed:nm forClass:self.
-"/            i isNil ifTrue:[
-"/                i := StandardSystemView defaultIcon
-"/            ]
-"/        ].
-        i notNil ifTrue:[
-            DefaultIcon := i := i onDevice:Display
-        ]
-    ].
-    ^ i
-
-    "
-     DefaultIcon := nil
-    "
-
-    "Modified: / 19-03-1997 / 20:48:34 / ca"
-    "Modified: / 06-02-2007 / 18:52:10 / cg"
+    "return the browsers default window icon"
+
+    <resource: #programImage>
+
+    ^ ToolbarIconLibrary debugIt20x20Icon    
 !
 
 defaultVerboseBacktrace
@@ -6005,7 +5980,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.410 2007-02-06 17:52:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.411 2007-02-06 18:57:21 stefan Exp $'
 ! !
 
 DebugView initialize!