--- a/AbstractLauncherApplication.st	Mon Jan 17 12:30:18 2000 +0100
+++ b/AbstractLauncherApplication.st	Mon Jan 17 18:55:41 2000 +0100
@@ -3857,9 +3857,9 @@
 toolSettingsFor:requestor
     "open a dialog on tool settings"
 
-    |box resources currentUserPrefs
+    |box resources currentUserPrefs in acceptChannel
      useNewInspector useNewChangesBrowser useNewVersionDiffBrowser
-     showClockInLauncher showClock launcher|
+     showClockInLauncher showClock launcher transcriptBufferSize|
 
     currentUserPrefs := UserPreferences current.
 
@@ -3872,6 +3872,9 @@
     useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
     showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
     useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
+    transcriptBufferSize := Transcript current lineLimit printString asValue.
+
+    acceptChannel := false asValue.
 
     "/
     "/ create a box on those values ...
@@ -3888,6 +3891,13 @@
     box addCheckBox:(resources string:'Use Hierarchical Inspector') on:useNewInspector.
     box addHorizontalLine.
     box addCheckBox:(resources string:'Show Clock in Launcher') on:showClockInLauncher.
+    in := box 
+            addLabelledInputField:(resources string:'Transcript Buffer Size:')
+            adjust:#right
+            on:transcriptBufferSize 
+            tabable:true
+            separateAtX:0.6.
+    in acceptChannel:acceptChannel.
 
     box 
         addHelpButtonFor:'Launcher/toolSettings.html';
@@ -3902,6 +3912,8 @@
     "/ update system settings
     "/
     box accepted ifTrue:[
+        acceptChannel value:false; value:true.
+
         currentUserPrefs useNewInspector:useNewInspector value.
         currentUserPrefs useNewChangesBrowser:useNewChangesBrowser value.
         currentUserPrefs useNewVersionDiffBrowser:useNewVersionDiffBrowser value.
@@ -3924,6 +3936,10 @@
         ] ifFalse:[
             Inspector := InspectorView
         ].
+
+        transcriptBufferSize := Integer readFrom:transcriptBufferSize value onError:Transcript current lineLimit.
+        Transcript current lineLimit:transcriptBufferSize.
+
     ].
     box destroy
 
@@ -4955,5 +4971,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.92 2000-01-11 16:33:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.93 2000-01-17 17:55:41 cg Exp $'
 ! !