--- a/DialogBox.st	Sat Mar 06 02:28:50 1999 +0100
+++ b/DialogBox.st	Sat Mar 06 02:59:15 1999 +0100
@@ -3930,17 +3930,23 @@
 
     helpButton := Button label:(resources string:'help').
     helpButton action:[
-	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:pathToHelpText]].
-    ^ self addButton:helpButton before:nil.
+        self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:pathToHelpText]
+    ].
+    (styleSheet at:'dialogBox.okAtLeft') ifTrue:[
+        self addButton:helpButton after:nil.
+    ] ifFalse:[
+        self addButton:helpButton before:nil.
+    ].
+    ^ helpButton
 
     "
      |box|
 
      box := DialogBox new.
      box 
-	addHelpButtonFor:'Launcher/compilerSettings.html';
-	addAbortButton; 
-	addOkButton.
+        addHelpButtonFor:'Launcher/compilerSettings.html';
+        addAbortButton; 
+        addOkButton.
 
      box open
     "
@@ -3975,7 +3981,12 @@
 
     okButton := aButton.
     aButton model:self; change:#okPressed.
-    ^ self addButton:aButton.
+    (styleSheet at:'dialogBox.okAtLeft') ifTrue:[
+        self addButton:aButton before:nil.
+    ] ifFalse:[
+        self addButton:aButton after:nil.
+    ].
+    ^ aButton.
 
     "
      |dialog b|
@@ -5894,6 +5905,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.128 1999-03-06 01:28:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.129 1999-03-06 01:58:55 cg Exp $'
 ! !
 DialogBox initialize!