--- a/DialogBox.st	Mon Dec 04 01:32:25 1995 +0100
+++ b/DialogBox.st	Mon Dec 04 01:41:29 1995 +0100
@@ -12,9 +12,9 @@
 
 ModalBox subclass:#DialogBox
 	 instanceVariableNames:'buttonPanel okButton okAction abortButton abortAction
-                acceptReturnAsOK yPosition leftIndent rightIndent bindings
-                addedComponents inputFieldGroup acceptOnLeave acceptValue
-                tabableElements'
+		acceptReturnAsOK yPosition leftIndent rightIndent bindings
+		addedComponents inputFieldGroup acceptOnLeave acceptValue
+		tabableElements'
 	 classVariableNames:''
 	 poolDictionaries:''
 	 category:'Views-DialogBoxes'
@@ -695,7 +695,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.27 1995-11-23 02:24:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.28 1995-12-04 00:41:29 cg Exp $'
 ! !
 
 !DialogBox class methodsFor:'common dialogs'!
@@ -1835,8 +1835,8 @@
 		into:[:max :element |
 			|eExt|
 
-			eExt := element preferredExtent x. "/ max:element extent x.
-			max max:(eExt + element leftInset)].
+			eExt := (element preferredExtent x) + (element borderWidth * 2). "/ max:element extent x.
+			max max:(eExt + element leftInset + element rightInset)].
     ] ifFalse:[
 	w := super preferredExtent x.
     ].