--- a/DialogBox.st Fri Apr 19 17:16:54 1996 +0200
+++ b/DialogBox.st Fri Apr 19 17:42:15 1996 +0200
@@ -3022,9 +3022,11 @@
y := self yPosition.
lbl := self addTextLabel:labelString.
+ lbl rightInset:0.
lbl width:relativeX; adjust:labelAdjust; borderWidth:0.
self yPosition:y.
field := self addInputFieldOn:model tabable:tabable.
+ field leftInset:0.
field width:(1.0 - relativeX); left:relativeX.
^ field
@@ -3081,6 +3083,7 @@
"
"Created: 13.4.1996 / 13:41:31 / cg"
+ "Modified: 19.4.1996 / 17:39:46 / cg"
!
addListBoxOn:aModel
@@ -4220,6 +4223,6 @@
!DialogBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.60 1996-04-19 15:16:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.61 1996-04-19 15:42:15 cg Exp $'
! !
DialogBox initialize!