--- a/Launcher.st	Mon Sep 30 23:02:04 1996 +0200
+++ b/Launcher.st	Tue Oct 01 00:26:27 1996 +0200
@@ -1182,7 +1182,8 @@
     component width:0.25; left:0.3; 
               immediateAccept:false; acceptOnLeave:false; 
               cursorMovementWhenUpdating:#beginOfLine;
-              converter:(PrintConverter new initForInteger).
+              converter:(PrintConverter new initForInteger);
+              model:sizeX.
 
     box yPosition:y.
     component := box addTextLabel:(' x ').
@@ -1193,7 +1194,8 @@
     component width:0.25; left:0.65; 
               immediateAccept:false; acceptOnLeave:false; 
               cursorMovementWhenUpdating:#beginOfLine;
-              converter:(PrintConverter new initForInteger).
+              converter:(PrintConverter new initForInteger);
+              model:sizeY.
 
     box yPosition:y.
     component := box addTextLabel:('(mm)').
@@ -1254,8 +1256,8 @@
     ].
     box destroy
 
-    "Modified: 11.7.1996 / 18:26:26 / cg"
     "Modified: 9.9.1996 / 22:43:04 / stefan"
+    "Modified: 30.9.1996 / 23:25:22 / cg"
 !
 
 fontSettings
@@ -1467,11 +1469,12 @@
     component := box 
                     addLabelledInputField:(resources string:'size of newSpace:')
                     adjust:#right
-                    on:newSpaceSize 
+                    on:nil "/ newSpaceSize 
                     tabable:true
                     separateAtX:0.7.
     component acceptOnLeave:false.
     component converter:(PrintConverter new initForNumber).
+    component model:newSpaceSize.
     fields add:component.
 
     box addHorizontalLine.
@@ -1480,11 +1483,12 @@
     component := box 
                     addLabelledInputField:(resources string:'incremental GC allocation trigger:')
                     adjust:#right
-                    on:igcLimit 
+                    on:nil "/ igcLimit 
                     tabable:true
                     separateAtX:0.7.
     component acceptOnLeave:false.
     component converter:(PrintConverter new initForNumber).
+    component model:igcLimit.
     fields add:component.
 
     box addTextLabel:'(start IGC whenever this amount has been allocated)'.
@@ -1493,11 +1497,12 @@
     component := box 
                     addLabelledInputField:(resources string:'incremental GC freespace trigger:')
                     adjust:#right
-                    on:igcFreeLimit 
+                    on:nil "/ igcFreeLimit 
                     tabable:true
                     separateAtX:0.7.
     component acceptOnLeave:false.
     component converter:(PrintConverter new initForNumber).
+    component model:igcFreeLimit.
     fields add:component.
 
     box addTextLabel:'(start IGC whenever freespace drops below this)'.
@@ -1506,11 +1511,12 @@
     component := box 
                     addLabelledInputField:(resources string:'incremental GC amount:')
                     adjust:#right
-                    on:igcFreeAmount 
+                    on:nil "/ igcFreeAmount 
                     tabable:true
                     separateAtX:0.7.
     component acceptOnLeave:false.
     component converter:(PrintConverter new initForNumber).
+    component model:igcFreeAmount.
     fields add:component.
 
     box addTextLabel:'(try to keep this amount for peak requests)'.
@@ -1519,11 +1525,12 @@
     component := box 
                     addLabelledInputField:(resources string:'oldspace increment:')
                     adjust:#right
-                    on:oldIncr 
+                    on:nil "/ oldIncr 
                     tabable:true
                     separateAtX:0.7.
     component acceptOnLeave:false.
     component converter:(PrintConverter new initForNumber).
+    component model:oldIncr.
     fields add:component.
 
     box addTextLabel:'(increase oldSpace in chunks of this size)'.
@@ -1532,11 +1539,12 @@
     component := box 
                     addLabelledInputField:(resources string:'oldspace compress limit:')
                     adjust:#right
-                    on:compressLimit 
+                    on:nil "/ compressLimit 
                     tabable:true
                     separateAtX:0.7.
     component acceptOnLeave:false.
     component converter:(PrintConverter new initForNumber).
+    component model:compressLimit.
     fields add:component.
 
     box addTextLabel:'(suppress compressing GC if more memory is in use)'.
@@ -1574,7 +1582,7 @@
     ].
     box destroy
 
-    "Modified: 29.5.1996 / 14:16:24 / cg"
+    "Modified: 30.9.1996 / 23:24:17 / cg"
 !
 
 messageSettings
@@ -3487,5 +3495,5 @@
 !Launcher  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.194 1996-09-30 21:01:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.195 1996-09-30 22:26:27 cg Exp $'
 ! !