Launcher.st
changeset 603 a1054630b5e4
parent 602 fa454064dcc9
child 604 8fd6e7c5868d
--- a/Launcher.st	Mon Jun 03 19:15:55 1996 +0200
+++ b/Launcher.st	Mon Jun 03 19:18:57 1996 +0200
@@ -1600,7 +1600,7 @@
     y := box yPosition.
 
     topInsetComponent := box 
-        addLabelledInputField:(resources string:'top inset:')
+        addLabelledInputField:(resources string:'top margin:')
         adjust:#right
         on:topInset 
         tabable:true
@@ -1613,13 +1613,14 @@
     unitList := SelectionInList with:#('inch' 'mm').
     unitList selectionIndex:1.
 
-    component := box addComponent:(PopUpList on:unitList).
-    component left:0.6; width:0.3.
+    (box addComponent:(PopUpList on:unitList))
+        left:0.6;
+        width:0.3.
 
     box yPosition:y1.
 
     leftInsetComponent := box 
-        addLabelledInputField:(resources string:'left inset:')
+        addLabelledInputField:(resources string:'left margin:')
         adjust:#right
         on:leftInset 
         tabable:true
@@ -1628,7 +1629,7 @@
     leftInsetComponent converter:(PrintConverter new initForNumber).
 
     bottomInsetComponent := box 
-        addLabelledInputField:(resources string:'bottom inset:')
+        addLabelledInputField:(resources string:'bottom margin:')
         adjust:#right
         on:bottomInset 
         tabable:true
@@ -1722,7 +1723,7 @@
     ].
     box destroy
 
-    "Modified: 3.6.1996 / 18:59:10 / cg"
+    "Modified: 3.6.1996 / 19:17:06 / cg"
 !
 
 viewStyleSetting 
@@ -2924,5 +2925,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.143 1996-06-03 17:15:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.144 1996-06-03 17:18:57 cg Exp $'
 ! !