--- a/DialogBox.st	Mon May 20 23:35:11 1996 +0200
+++ b/DialogBox.st	Tue May 21 14:40:39 1996 +0200
@@ -2756,7 +2756,7 @@
 
     helpButton := Button label:(resources string:'help').
     helpButton action:[
-        self withWaitCursorDo:[XtHTML openFullOnHelpFile:pathToHelpText]].
+        self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:pathToHelpText]].
     ^ self addButton:helpButton before:nil.
 
     "
@@ -2771,7 +2771,7 @@
      box open
     "
 
-    "Modified: 27.4.1996 / 17:50:06 / cg"
+    "Modified: 20.5.1996 / 20:30:55 / cg"
 !
 
 addOkButton
@@ -4496,6 +4496,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.73 1996-05-18 15:38:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.74 1996-05-21 12:40:39 cg Exp $'
 ! !
 DialogBox initialize!