--- a/DebugView.st	Mon Jun 09 15:36:30 2008 +0200
+++ b/DebugView.st	Mon Jun 09 15:53:15 2008 +0200
@@ -394,6 +394,12 @@
     "Modified: / 11-02-2007 / 11:47:20 / cg"
 !
 
+defaultIconForAboutBox
+    <resource: #programImage>
+
+    ^ ToolbarIconLibrary debug22x22IconForBlackBackgound    
+!
+
 defaultVerboseBacktrace
     <resource: #obsolete>
     self obsoleteMethodWarning.
@@ -737,7 +743,7 @@
                   label: 'Debuggers Documentation'
                   itemValue: openHTMLDocument:
                   translateLabel: true
-                  argument: 'tools/debugView/TOP.html'
+                  argument: 'tools/debugger/TOP.html'
                 )
                (MenuItem
                   label: '-'
@@ -2040,7 +2046,7 @@
 
         self initializeButtonsIn:bpanel.
 
-        bH := bpanel preferredHeight.
+        bH := bpanel preferredHeight + 5.
         bpanel origin:(0.0 @ mH)
                extent:(1.0 @ bH).
         panel := VariableVerticalPanel
@@ -2063,13 +2069,15 @@
         bpanel1 := HorizontalPanelView in:self.
         self initializeButtons1In:bpanel1.
 
-        bH1 := bpanel1 preferredHeight.
+        bH1 := bpanel1 preferredHeight + 5.
         bpanel1 origin:(0.0 @ mH)
                 extent:(1.0 @ bH1).
         panel := VariableVerticalPanel
                             origin:(0.0 @ (mH + bH1))
                             corner:(1.0 @ 1.0)
                                 in:self.
+        "/ panel showHandle:true.
+        "/ panel handlePosition:#left.
 
         v := self initializeContextListViewIn:panel.
         v origin:(0.0 @ 0.0) corner:(1.0 @ 0.25).
@@ -2078,7 +2086,7 @@
         bpanel2 := HorizontalPanelView in:codePanel.
         self initializeButtons2In:bpanel2.
 
-        bH2 := bpanel2 preferredHeight.
+        bH2 := bpanel2 preferredHeight + 5.
         bpanel2 origin:(0.0 @ 0.0)
                 extent:(1.0 @ bH2).
 
@@ -2122,11 +2130,10 @@
     bpanel verticalLayout:#centerMax.
     bpanel verticalSpace:ViewSpacing // 2.
 
+    self initializeContinueButtonIn:bpanel.
+    separator := View extent:(10 @ 5) in:bpanel.
+    separator borderWidth:0; level:0.
     self initializeAbortButtonIn:bpanel.
-"/    separator := View extent:(10 @ 5) in:bpanel.
-"/    separator borderWidth:0; level:0.
-
-    self initializeContinueButtonIn:bpanel.
 
     separator := View extent:(10 @ 5) in:bpanel.
     separator borderWidth:0; level:0.
@@ -4592,6 +4599,12 @@
     mayProceed := aBoolean
 !
 
+openHTMLDocument: anHTMLFilename
+    "open a HTMLDocumentView on anHTMLFilename"
+
+    HTMLDocumentView openFullOnDocumentationFile: anHTMLFilename
+!
+
 processPerform:aMessage
     "do something, then update the context list"
 
@@ -6343,7 +6356,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.440 2008-06-09 13:36:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.441 2008-06-09 13:53:15 cg Exp $'
 ! !
 
 DebugView initialize!