--- a/Launcher.st Mon Mar 04 23:30:30 1996 +0100
+++ b/Launcher.st Tue Mar 05 01:46:47 1996 +0100
@@ -2194,17 +2194,18 @@
models
with:(resources array:#('all' 'labels' 'buttons' 'lists' 'menus' 'edit text'))
do:[:model :title |
- |y2 lbl f|
+ |y2 lbl f i|
f := model value.
(box addTextLabel:title) adjust:#left.
y := box yPosition.
- b := box addComponent:(Button label:(resources string:'change')).
+ b := box addComponent:(Button label:(resources string:'change')) tabable:true.
b relativeExtent:nil; extent:(b preferredExtent).
y2 := box yPosition.
box yPosition:y.
+ i := box leftIndent.
box leftIndent:(b widthIncludingBorder + View viewSpacing).
(lbl := box addTextLabel:'')
adjust:#left;
@@ -2221,7 +2222,7 @@
argument:model).
labels add:lbl.
- box leftIndent:0.
+ box leftIndent:i.
box yPosition:(box yPosition max:y2).
box addVerticalSpace.
box addHorizontalLine.
@@ -2276,7 +2277,7 @@
^ box accepted
"Created: 27.2.1996 / 01:44:16 / cg"
- "Modified: 27.2.1996 / 02:06:28 / cg"
+ "Modified: 5.3.1996 / 01:46:23 / cg"
!
pickAView
@@ -2351,5 +2352,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.96 1996-03-02 17:59:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.97 1996-03-05 00:46:47 cg Exp $'
! !