--- a/Launcher.st	Thu Oct 23 16:42:02 1997 +0200
+++ b/Launcher.st	Sat Oct 25 01:11:06 1997 +0200
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 22-oct-1997 at 4:04:17 pm'                  !
+'From Smalltalk/X, Version:3.2.1 on 24-oct-1997 at 2:34:30 pm'                  !
 
 ApplicationModel subclass:#Launcher
 	instanceVariableNames:'myMenu buttonPanel transcript infoView projectInfoHolder helpIsOn
@@ -1095,7 +1095,7 @@
      warnSTXBox warnUnderscoreBox warnOldStyleBox warnCommonMistakes warnCommonMistakesBox
      warnCompatibility warnCompatibilityBox warnDollarBox
      stcCompilation compilationList stcCompilationOptions stcIncludes stcDefines stcOptions
-     stcLibraries stcLibraryPath cc ccOptions historyLines catchRedefs keepSourceOptions keepSource  
+     stcLibraries stcLibraryPath cc ccOptions historyLines fullHistoryUpdate catchRedefs keepSourceOptions keepSource  
      constantFoldingOptions constantFolding justInTimeCompilation 
      warnEnabler check component oldIndent t supportsJustInTimeCompilation y
      y2 fullDebugSupport yMax
@@ -1157,6 +1157,7 @@
 
     catchRedefs := Class catchMethodRedefinitions asValue.
     historyLines := (HistoryManager notNil and:[HistoryManager isActive]) asValue.
+    fullHistoryUpdate := (HistoryManager notNil and:[HistoryManager fullHistoryUpdate]) asValue.
 
     keepSourceOptions := #( keep reference absReference sourceReference discard ).
     keepSource := SelectionInList new list:(resources array:#('keep as string' 'reference to filename' 'reference to full path' 'append and ref in `st.src''' 'discard' )).
@@ -1195,8 +1196,13 @@
     box label:(resources string:'Compiler settings').
 
     box addCheckBox:(resources string:'catch method redefinitions') on:catchRedefs.
+    y := box yPosition.
     check := box addCheckBox:(resources string:'keep history line in methods') on:historyLines.
     HistoryManager isNil ifTrue:[check disable].
+    box yPosition:y.
+    check := box addCheckBox:(resources string:'keep full class history') on:fullHistoryUpdate.
+    check left:0.5.
+    HistoryManager isNil ifTrue:[check disable] ifFalse:[check enableChannel:historyLines].
 
     box addPopUpList:(resources string:'fileIn source mode:') on:keepSource.
     keepSource selectionIndex:( keepSourceOptions indexOf:(ClassCategoryReader sourceMode) ifAbsent:1).
@@ -1384,6 +1390,7 @@
 
     box accepted ifTrue:[
         HistoryManager notNil ifTrue:[
+            HistoryManager fullHistoryUpdate:fullHistoryUpdate value.
             historyLines value ifTrue:[
                 HistoryManager activate
             ] ifFalse:[
@@ -1436,9 +1443,9 @@
     ].
     box destroy
 
-    "Modified: 10.9.1995 / 19:19:18 / claus"
-    "Modified: 9.9.1996 / 22:42:47 / stefan"
-    "Modified: 7.9.1997 / 01:58:04 / cg"
+    "Modified: / 10.9.1995 / 19:19:18 / claus"
+    "Modified: / 9.9.1996 / 22:42:47 / stefan"
+    "Modified: / 24.10.1997 / 02:29:06 / cg"
 !
 
 displaySettings
@@ -2607,10 +2614,13 @@
       nextPutLine:'ObjectMemory justInTimeCompilation: ' , (ObjectMemory justInTimeCompilation storeString) , '.';
       nextPutLine:'ObjectMemory fullSingleStepSupport: ' , (ObjectMemory fullSingleStepSupport storeString) , '.'.
 
-    (HistoryManager notNil and:[HistoryManager isActive]) ifTrue:[
-        s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager activate].'.
-    ] ifFalse:[
-        s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager deactivate].'.
+    HistoryManager notNil ifTrue:[
+        HistoryManager isActive ifTrue:[
+            s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager activate].'.
+            s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager fullHistoryUpdate:' , HistoryManager fullHistoryUpdate storeString , '].'.
+        ] ifFalse:[
+            s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager deactivate].'.
+        ].
     ].
 
     ObjectFileLoader notNil ifTrue:[
@@ -2701,7 +2711,7 @@
      Transcript topView application saveSettings
     "
 
-    "Modified: 9.6.1997 / 21:23:34 / cg"
+    "Modified: / 24.10.1997 / 02:32:00 / cg"
 !
 
 sourceAndDebuggerSettings
@@ -4854,5 +4864,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.298 1997-10-22 13:16:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.299 1997-10-24 23:11:06 cg Exp $'
 ! !