--- a/EnterBox.st Sun Apr 30 15:40:03 1995 +0200
+++ b/EnterBox.st Wed May 03 02:30:14 1995 +0200
@@ -37,7 +37,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.20 1995-03-31 03:01:43 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.21 1995-05-03 00:29:20 claus Exp $
"
!
@@ -212,8 +212,10 @@
labelField label:aString.
labelField forceResize.
- labelField extent ~= oldSize ifTrue:[
- shown ifTrue:[self resize]
+ shown ifTrue:[
+ labelField extent ~= oldSize ifTrue:[
+ self resize
+ ]
]
]
!
@@ -275,25 +277,29 @@
innerWidth := width - space2.
labelField := Label in:self.
- labelField label:'';
- borderWidth:0.
- labelField adjust:#left.
-
- labelField origin:(0.0 @ ViewSpacing)
- extent:[1.0 @ labelField height].
- labelField leftInset:ViewSpacing; rightInset:ViewSpacing.
+ labelField
+ label:'';
+ borderWidth:0;
+ adjust:#left;
+ origin:(0.0 @ ViewSpacing) extent:[1.0 @ labelField height];
+ leftInset:ViewSpacing;
+ rightInset:ViewSpacing.
self createEnterField.
- enterField origin:[0.0 @ (space2 + labelField preferedExtent y "height")]
- extent:[1.0 @ enterField height].
- enterField leftInset:ViewSpacing; rightInset:ViewSpacing.
- enterField leaveAction:[:key | self okPressed].
+ enterField
+ origin:[0.0 @ (space2 + labelField preferedExtent y "height")]
+ extent:[1.0 @ enterField height].
+ enterField
+ leftInset:ViewSpacing;
+ rightInset:ViewSpacing;
+ leaveAction:[:key | self okPressed].
+
enterField addDependent:self. "to get preferedExtent-changes"
"
forward keyboard input to the enterfield
"
- self delegate:(KeyboardForwarder to:enterField)
+ self delegate:(KeyboardForwarder to:enterField condition:#noFocus)
!
reAdjustGeometry