--- a/DialogBox.st	Tue Jan 25 18:47:03 2011 +0100
+++ b/DialogBox.st	Thu Jan 27 08:54:08 2011 +0100
@@ -7358,11 +7358,33 @@
      text under either the doc/online/<language> or the help/<language>
      directory."
 
+    ^ self addHelpButtonWithAction:[HTMLDocumentView openFullOnHelpFile:pathToHelpText].
+
+    "
+     |box|
+
+     box := DialogBox new.
+     box 
+        addHelpButtonFor:'Launcher/compilerSettings.html';
+        addAbortButton; 
+        addOkButton.
+
+     box open
+    "
+
+    "Modified: / 09-09-1996 / 22:40:21 / stefan"
+    "Modified: / 26-01-2011 / 18:04:53 / cg"
+!
+
+addHelpButtonWithAction:helpAction
+    "add a help button to the buttonPanel.
+     The argument, helpAction is avaluated when clicked"
+
     |helpButton|
 
     helpButton := Button label:(resources string:'Help').
     helpButton action:[
-        self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:pathToHelpText]
+        self withWaitCursorDo:helpAction
     ].
 
     "/ changed:
@@ -7382,15 +7404,15 @@
 
      box := DialogBox new.
      box 
-        addHelpButtonFor:'Launcher/compilerSettings.html';
+        addHelpButtonWithAction:[ Transcript flash ];
         addAbortButton; 
         addOkButton.
 
      box open
     "
 
-    "Modified: / 9.9.1996 / 22:40:21 / stefan"
-    "Modified: / 17.11.2001 / 09:42:50 / cg"
+    "Modified: / 09-09-1996 / 22:40:21 / stefan"
+    "Created: / 26-01-2011 / 18:04:16 / cg"
 !
 
 addOK:checkBlock
@@ -9535,11 +9557,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.309 2011-01-25 17:47:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.310 2011-01-27 07:54:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.309 2011-01-25 17:47:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.310 2011-01-27 07:54:08 cg Exp $'
 ! !
 
 DialogBox initialize!