oops - labelled inputFields with left-inset being non-0
authorClaus Gittinger <cg@exept.de>
Fri, 19 Apr 1996 17:42:15 +0200
changeset 552 0e9be94135ab
parent 551 91ed5dd2b915
child 553 9aeda7a25755
oops - labelled inputFields with left-inset being non-0
DialogBox.st
--- 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!