--- a/AbstractLauncherApplication.st	Wed Aug 04 17:07:36 1999 +0200
+++ b/AbstractLauncherApplication.st	Thu Aug 05 11:39:43 1999 +0200
@@ -2571,7 +2571,9 @@
     |box igcLimit igcFreeLimit igcFreeAmount newSpaceSize
      compressLimit
      oldIncr component fields codeLimit codeTrigger stackLimit resources
-     fastMoreLimit maxOldSpace models info|
+     fastMoreLimit maxOldSpace models info acceptChannel|
+
+    acceptChannel := false asValue.
 
     resources := requestor class classResources.
 
@@ -2592,17 +2594,17 @@
 
     models := OrderedCollection new.
     info := OrderedCollection new.
-    models add:newSpaceSize.    info add:#('size of newSpace where objects are created'                    'size of newSpace:' ).
-    models add:fastMoreLimit.   info add:#('quickly allocate more memory (suppress GC) up to this limit'   'quick allocate limit:').
-    models add:maxOldSpace.     info add:#('never allocate more than this amount of memory'                'maximum memory limit:').
-    models add:igcLimit.        info add:#('start IGC whenever this amount has been allocated'             'incremental GC allocation trigger:').
-    models add:igcFreeLimit.    info add:#('start IGC whenever freespace drops below this'                 'incremental GC freespace trigger:').
-    models add:igcFreeAmount.   info add:#('try to keep this amount for peak requests'                     'incremental GC amount:').
-    models add:oldIncr.         info add:#('increase oldSpace in chunks of this size'                      'oldspace increment:').
-    models add:compressLimit.   info add:#('suppress compressing GC if more memory is in use'              'oldspace compress limit:').
-    models add:stackLimit.      info add:#('trigger recursionInterrupt if more stack is used by a process' 'stack limit:').
-    models add:codeLimit.       info add:#('flush dynamic compiled code to stay within this limit'         'dynamic code limit:').
-    models add:codeTrigger.     info add:#('start incremental GC whenever this amount of code has been allocated' 'dynamic code GC trigger:').
+    models add:newSpaceSize.    info add:#(number      'size of newSpace where objects are created'                    'size of newSpace:' ).
+    models add:fastMoreLimit.   info add:#(number      'quickly allocate more memory (suppress GC) up to this limit'   'quick allocate limit:').
+    models add:maxOldSpace.     info add:#(number      'never allocate more than this amount of memory'                'maximum memory limit:').
+    models add:igcLimit.        info add:#(number      'start IGC whenever this amount has been allocated'             'incremental GC allocation trigger:').
+    models add:igcFreeLimit.    info add:#(number      'start IGC whenever freespace drops below this'                 'incremental GC freespace trigger:').
+    models add:igcFreeAmount.   info add:#(number      'try to keep this amount for peak requests'                     'incremental GC amount:').
+    models add:oldIncr.         info add:#(number      'increase oldSpace in chunks of this size'                      'oldspace increment:').
+    models add:compressLimit.   info add:#(number      'suppress compressing GC if more memory is in use'              'oldspace compress limit:').
+    models add:stackLimit.      info add:#(number      'trigger recursionInterrupt if more stack is used by a process' 'stack limit:').
+    models add:codeLimit.       info add:#(numberOrNil 'flush dynamic compiled code to stay within this limit'         'dynamic code limit:').
+    models add:codeTrigger.     info add:#(numberOrNil 'start incremental GC whenever this amount of code has been allocated' 'dynamic code GC trigger:').
 
     "/
     "/ create a box on those values ...
@@ -2617,18 +2619,25 @@
     box addHorizontalLine.
 
     models with:info do:[:m :i |
+        |lbl descr conv|
+
+        conv := i at:1.
+        lbl := i at:3.
+        descr := i at:2.
+
         component := box 
-                    addLabelledInputField:(resources string:(i at:2))
+                    addLabelledInputField:(resources string:lbl)
                     adjust:#right
                     on:nil "/ newSpaceSize 
                     tabable:true
                     separateAtX:0.7.
         component acceptOnLeave:false.
-        component converter:(PrintConverter new initForNumber).
-        component model:m.
+"/        component converter:(PrintConverter new perform:conv).
+        component model:((TypeConverter on:m) perform:conv).
+        component acceptChannel:acceptChannel.
         fields add:component.
 
-        (box addTextLabel:(i at:1)) adjust:#left.
+        (box addTextLabel:descr) adjust:#left.
         box addHorizontalLine.
     ].
 
@@ -2650,7 +2659,7 @@
     "/ update system settings
     "/
     box accepted ifTrue:[
-        fields do:[:comp | comp accept].
+        acceptChannel value:true.
 
         igcFreeAmount value ~~ ObjectMemory freeSpaceGCAmount ifTrue:[
             ObjectMemory freeSpaceGCAmount:igcFreeAmount value.
@@ -4778,5 +4787,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.75 1999-08-04 14:38:29 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.76 1999-08-05 09:39:43 cg Exp $'
 ! !