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