--- a/AbstractSettingsApplication.st	Tue Jan 21 16:17:38 2003 +0100
+++ b/AbstractSettingsApplication.st	Tue Jan 21 16:53:25 2003 +0100
@@ -221,7 +221,7 @@
 	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
 		showClockInLauncher useNewChangesBrowser useNewFileBrowser
 		useNewSystemBrowser currentUserPrefs modifiedChannel
-		useNewFileDialog useNewSettingsApplication'
+		useNewFileDialog useNewSettingsApplication useProcessMonitorV2'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:AbstractSettingsApplication
@@ -10700,7 +10700,7 @@
           #collection: #(
            #(#VerticalPanelViewSpec
               #name: 'VerticalPanel2'
-              #layout: #(#LayoutFrame 0 0 0 0 358 0 208 0)
+              #layout: #(#LayoutFrame 0 0 0 0 358 0 234 0)
               #horizontalLayout: #left
               #verticalLayout: #top
               #horizontalSpace: 3
@@ -10751,6 +10751,13 @@
                     #extent: #(#Point 489 25)
                   )
                  #(#CheckBoxSpec
+                    #label: 'Use the New Process Monitor'
+                    #name: 'UseNewProcessMonitor'
+                    #model: #useProcessMonitorV2
+                    #translateLabel: true
+                    #extent: #(#Point 489 25)
+                  )
+                 #(#CheckBoxSpec
                     #label: 'Use Hierarchical Inspector'
                     #name: 'HierarchicalInspector'
                     #model: #useNewInspector
@@ -10825,6 +10832,7 @@
     self useNewInspector value:currentUserPrefs useNewInspector.
     self useNewSystemBrowser value:currentUserPrefs useNewSystemBrowser.
     self useNewVersionDiffBrowser value:currentUserPrefs useNewVersionDiffBrowser.
+    self useProcessMonitorV2 value:currentUserPrefs useProcessMonitorV2.
     self useNewFileDialog value:currentUserPrefs useNewFileDialog.
     self useNewSettingsApplication value:currentUserPrefs useNewSettingsApplication.
     self modifiedChannel value:false.
@@ -10840,6 +10848,7 @@
     currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
     currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value.
     currentUserPrefs useNewFileDialog:self useNewFileDialog value.
+    currentUserPrefs useProcessMonitorV2:self useProcessMonitorV2 value.
     currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
         currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
         reopenLauncher := true.
@@ -10968,6 +10977,15 @@
         useNewVersionDiffBrowser onChangeSend:#evaluateModified to:self
     ].
     ^ useNewVersionDiffBrowser.
+!
+
+useProcessMonitorV2
+
+    useProcessMonitorV2 isNil ifTrue:[
+        useProcessMonitorV2 := currentUserPrefs useProcessMonitorV2 asValue.
+        useProcessMonitorV2 onChangeSend:#evaluateModified to:self
+    ].
+    ^ useProcessMonitorV2.
 ! !
 
 !AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'initialization & release'!
@@ -10992,11 +11010,12 @@
        (self useNewFileBrowser value     ~= currentUserPrefs useNewFileBrowser) or:[
        (self useNewFileDialog value     ~= currentUserPrefs useNewFileDialog) or:[
        (self useNewSettingsApplication value ~= currentUserPrefs useNewSettingsApplication) or:[
-       (self transcriptBufferSize value  ~= Transcript current lineLimit)]]]]]]]])
+       (self useProcessMonitorV2 value ~= currentUserPrefs useProcessMonitorV2) or:[
+       (self transcriptBufferSize value  ~= Transcript current lineLimit)]]]]]]]]])
 ! !
 
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.23 2003-01-20 16:10:48 penk Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.24 2003-01-21 15:52:56 penk Exp $'
+! !