diff -r c260c896ea66 -r 6725ab9cc6f5 DialogBox.st
--- a/DialogBox.st	Tue Oct 21 20:15:06 1997 +0200
+++ b/DialogBox.st	Tue Oct 21 20:28:05 1997 +0200
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.1.9 on 8-sep-1997 at 12:44:02 am'                  !
+'From Smalltalk/X, Version:3.2.1 on 18-oct-1997 at 3:24:10 pm'                  !
 
 ModalBox subclass:#DialogBox
 	instanceVariableNames:'buttonPanel okButton okAction abortButton abortAction
@@ -2691,10 +2691,22 @@
     ].
 
     (aComponentOrSubcomponent isInputField) ifTrue:[
-        self addToInputFieldGroup:aComponentOrSubcomponent
+        self addToInputFieldGroup:aComponentOrSubcomponent before:anotherComponent
     ].
 
-    "Modified: 1.2.1997 / 12:05:10 / cg"
+    "Modified: 18.10.1997 / 03:08:20 / cg"
+!
+
+makeUntabable:aComponentOrSubcomponent
+    (tabableElements includesIdentical:aComponentOrSubcomponent) ifFalse:[
+        tabableElements removeIdentical:aComponentOrSubcomponent.
+
+        (aComponentOrSubcomponent isInputField) ifTrue:[
+            self removeFromInputFieldGroup:aComponentOrSubcomponent
+        ].
+    ].
+
+    "Modified: 18.10.1997 / 02:50:05 / cg"
 !
 
 okAction:aBlock
@@ -3289,12 +3301,23 @@
      The argument, aComponentOrSubcomponent may even be a nested subcomponent of
      a topLevel component."
 
+    self
+        addToInputFieldGroup:aComponentOrSubcomponent before:nil
+
+    "Modified: 18.10.1997 / 03:09:17 / cg"
+!
+
+addToInputFieldGroup:aComponentOrSubcomponent before:anotherComponent
+    "add a component to the input group.
+     The argument, aComponentOrSubcomponent may even be a nested subcomponent of
+     a topLevel component."
+
     inputFieldGroup isNil ifTrue:[
         inputFieldGroup := EnterFieldGroup new.
         inputFieldGroup leaveAction:[self lastFieldLeft].
         aComponentOrSubcomponent hasKeyboardFocus:true.
     ].
-    inputFieldGroup add:aComponentOrSubcomponent.
+    inputFieldGroup add:aComponentOrSubcomponent before:anotherComponent.
     self delegate:(KeyboardForwarder to:inputFieldGroup condition:#noFocus).
 
 "/    inputFields isNil ifTrue:[
@@ -3310,8 +3333,19 @@
 "/    ].
 "/    inputFields add:aComponentOrSubcomponent
 
-    "Created: 9.2.1996 / 20:23:04 / cg"
-    "Modified: 31.5.1996 / 21:30:56 / cg"
+    "Modified: 18.10.1997 / 02:47:20 / cg"
+    "Created: 18.10.1997 / 03:08:51 / cg"
+!
+
+removeFromInputFieldGroup:aComponentOrSubcomponent
+    "remove a component from the input group.
+     The argument, aComponentOrSubcomponent may even be a nested subcomponent of
+     a topLevel component."
+
+    inputFieldGroup isNil ifTrue:[^ self].
+    inputFieldGroup remove:aComponentOrSubcomponent.
+
+    "Created: 18.10.1997 / 02:51:30 / cg"
 ! !
 
 !DialogBox methodsFor:'construction-buttons'!
@@ -5482,6 +5516,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.107 1997-09-08 18:32:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.108 1997-10-21 18:27:24 cg Exp $'
 ! !
 DialogBox initialize!