--- 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!