Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 27 Mar 2006 22:09:10 +0200
changeset 6742 62e435871e77
parent 6741 e45eaa140394
child 6743 fed3ac14df0f
*** empty log message ***
AbstractSettingsApplication.st file | annotate | diff | comparison | revisions 
--- a/AbstractSettingsApplication.st	Mon Mar 27 19:10:54 2006 +0200
+++ b/AbstractSettingsApplication.st	Mon Mar 27 22:09:10 2006 +0200
@@ -250,7 +250,7 @@
 	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
 		showClockInLauncher useNewChangesBrowser useNewFileBrowser
 		useNewSystemBrowser useNewFileDialog useNewSettingsApplication
-		useProcessMonitorV2'
+		useProcessMonitorV2 useSmalltalkDocumentViewer'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:AbstractSettingsApplication
@@ -11718,6 +11718,13 @@
                     translateLabel: true
                     extent: (Point 607 25)
                   )
+                 (CheckBoxSpec
+                    label: 'Use the Smalltalk Document Viewer'
+                    name: 'UseSmalltalkDocumentViewer'
+                    model: useSmalltalkDocumentViewer
+                    translateLabel: true
+                    extent: (Point 607 25)
+                  )
                  (ViewSpec
                     name: 'Box2'
                     extent: (Point 607 20)
@@ -11779,7 +11786,6 @@
 !AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
 
 basicSaveSettings
-
     | showClock launcher reopenLauncher newSystemBrowserClass transcript|
 
     newSystemBrowserClass := Tools::NewSystemBrowser ? NewSystemBrowser.
@@ -11790,6 +11796,8 @@
     currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value.
     currentUserPrefs useNewFileDialog:self useNewFileDialog value.
     currentUserPrefs useProcessMonitorV2:self useProcessMonitorV2 value.
+    currentUserPrefs useSmalltalkDocumentViewer:self useSmalltalkDocumentViewer value.
+
     currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
         currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
     ].
@@ -11863,6 +11871,7 @@
     self useProcessMonitorV2 value:currentUserPrefs useProcessMonitorV2.
     self useNewFileDialog value:currentUserPrefs useNewFileDialog.
     self useNewSettingsApplication value:currentUserPrefs useNewSettingsApplication.
+    self useSmalltalkDocumentViewer value:currentUserPrefs useSmalltalkDocumentViewer.
 
     self modifiedChannel value:false
 ! !
@@ -11870,7 +11879,6 @@
 !AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
 
 showClockInLauncher
-
     showClockInLauncher isNil ifTrue:[
         showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
         showClockInLauncher onChangeSend:#updateModifiedChannel to:self
@@ -11879,7 +11887,6 @@
 !
 
 transcriptBufferSize
-
     transcriptBufferSize isNil ifTrue:[
         transcriptBufferSize := 600 asValue. "/ Transcript current lineLimit asValue.
         transcriptBufferSize onChangeSend:#updateModifiedChannel to:self
@@ -11888,7 +11895,6 @@
 !
 
 useNewChangesBrowser
-
     useNewChangesBrowser isNil ifTrue:[
         useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
         useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self
@@ -11897,7 +11903,6 @@
 !
 
 useNewFileBrowser
-
     useNewFileBrowser isNil ifTrue:[
         useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue.
         useNewFileBrowser onChangeSend:#updateModifiedChannel to:self
@@ -11906,7 +11911,6 @@
 !
 
 useNewFileDialog
-
     useNewFileDialog isNil ifTrue:[
         useNewFileDialog := true asValue.
         useNewFileDialog onChangeSend:#updateModifiedChannel to:self
@@ -11915,7 +11919,6 @@
 !
 
 useNewInspector
-
     useNewInspector isNil ifTrue:[
         useNewInspector := currentUserPrefs useNewInspector asValue.
         useNewInspector onChangeSend:#updateModifiedChannel to:self
@@ -11924,7 +11927,6 @@
 !
 
 useNewSettingsApplication
-
     useNewSettingsApplication isNil ifTrue:[
         useNewSettingsApplication := true asValue.
         useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self
@@ -11933,7 +11935,6 @@
 !
 
 useNewSystemBrowser
-
     useNewSystemBrowser isNil ifTrue:[
         useNewSystemBrowser := currentUserPrefs useNewSystemBrowser asValue.
         useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self
@@ -11942,7 +11943,6 @@
 !
 
 useNewVersionDiffBrowser
-
     useNewVersionDiffBrowser isNil ifTrue:[
         useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
         useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self
@@ -11951,26 +11951,40 @@
 !
 
 useProcessMonitorV2
-
     useProcessMonitorV2 isNil ifTrue:[
         useProcessMonitorV2 := currentUserPrefs useProcessMonitorV2 asValue.
         useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self
     ].
     ^ useProcessMonitorV2.
+!
+
+useSmalltalkDocumentViewer
+    useSmalltalkDocumentViewer isNil ifTrue:[
+        useSmalltalkDocumentViewer := currentUserPrefs useSmalltalkDocumentViewer asValue.
+        useSmalltalkDocumentViewer onChangeSend:#updateModifiedChannel to:self
+    ].
+    ^ useSmalltalkDocumentViewer.
 ! !
 
 !AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
 
 hasUnsavedChanges
-    (self useNewInspector value       ~= currentUserPrefs useNewInspector) ifTrue:[^ true].
-    (self useNewChangesBrowser value  ~= currentUserPrefs useNewChangesBrowser)  ifTrue:[^ true].
-    (self useNewSystemBrowser value   ~= currentUserPrefs useNewSystemBrowser)  ifTrue:[^ true].
-    (self showClockInLauncher value   ~= currentUserPrefs showClockInLauncher)  ifTrue:[^ true].
-    (self useNewVersionDiffBrowser value ~= currentUserPrefs useNewVersionDiffBrowser) ifTrue:[^ true].
-    (self useNewFileBrowser value     ~= currentUserPrefs useNewFileBrowser) ifTrue:[^ true].
-    (self useNewFileDialog value     ~= currentUserPrefs useNewFileDialog)  ifTrue:[^ true].
-    (self useNewSettingsApplication value ~= currentUserPrefs useNewSettingsApplication)  ifTrue:[^ true].
-    (self useProcessMonitorV2 value ~= currentUserPrefs useProcessMonitorV2)  ifTrue:[^ true].
+    #( 
+        useNewInspector
+        useNewChangesBrowser
+        useNewSystemBrowser
+        useNewVersionDiffBrowser
+        useNewFileBrowser
+        useNewFileDialog
+        useNewSettingsApplication
+        useProcessMonitorV2
+        useSmalltalkDocumentViewer
+        showClockInLauncher
+    )
+    do:[:aspect |
+        (self perform:aspect) value ~= (currentUserPrefs perform:aspect) ifTrue:[^ true].
+    ].
+
     Transcript current isExternalStream ifFalse:[
         (self transcriptBufferSize value  ~= Transcript current lineLimit) ifTrue:[^ true].
     ].
@@ -11980,5 +11994,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.218 2006-03-10 09:50:15 cg Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.219 2006-03-27 20:09:10 cg Exp $'
+! !
hg/stx-libtool