Added new preferences for NewSystemBrowser
authorvrany
Thu, 07 Jul 2011 01:18:17 +0200
changeset 10241 0fc51cf9b272
parent 10240 d156bf8c53c7
child 10242 03acab649548
Added new preferences for NewSystemBrowser
AbstractSettingsApplication.st
--- a/AbstractSettingsApplication.st	Thu Jul 07 01:16:03 2011 +0200
+++ b/AbstractSettingsApplication.st	Thu Jul 07 01:18:17 2011 +0200
@@ -318,7 +318,8 @@
 	instanceVariableNames:'showAcceptCancelBarInBrowser useSearchBarInBrowser
 		showMethodTemplate useCodeView2InTools
 		showEmbeddedTestRunnerInBrowser showBookmarkBar
-		webBrowserLikeLayout'
+		webBrowserLikeLayout sortAndIndentClassesByInheritance
+		showLocalHistory showGlobalHistory'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:AbstractSettingsApplication
@@ -14749,12 +14750,34 @@
                     extent: (Point 607 25)
                   )
                  (CheckBoxSpec
+                    label: 'Sort and Indent Classes by Inheritance'
+                    name: 'SortAndIndentClassesByInheritance'
+                    model: sortAndIndentClassesByInheritance
+                    translateLabel: true
+                    extent: (Point 607 25)
+                  )
+                 (CheckBoxSpec
                     label: 'Web Browser Like Layout (Toolbars are Part of the Tab - EXPERIMENTAL)'
-                    name: 'WebBrowserLikeLayout'
+                    name: 'CheckBox1'
+                    initiallyInvisible: true
                     model: webBrowserLikeLayout
                     translateLabel: true
                     extent: (Point 607 25)
                   )
+                 (CheckBoxSpec
+                    label: 'Show Local Navigation History (Separate History per Browser Tab)'
+                    name: 'CheckBox2'
+                    model: showLocalHistory
+                    translateLabel: true
+                    extent: (Point 607 25)
+                  )
+                 (CheckBoxSpec
+                    label: 'Show Global Navigation History (One Global History Among All Browser Windows)'
+                    name: 'CheckBox3'
+                    model: showGlobalHistory
+                    translateLabel: true
+                    extent: (Point 607 25)
+                  )
                  )
                
               )
@@ -14763,8 +14786,6 @@
          
         )
       )
-
-    "Modified: / 04-07-2011 / 17:03:57 / cg"
 ! !
 
 !AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'actions'!
@@ -14780,10 +14801,14 @@
                 showEmbeddedTestRunnerInBrowser
                 showBookmarkBar
                 webBrowserLikeLayout
+                sortAndIndentClassesByInheritance
+                showGlobalHistory
+                showLocalHistory
+
             )
         from:currentUserPrefs.
 
-    "Modified: / 07-06-2011 / 14:34:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-07-2011 / 00:03:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 basicSaveSettings
@@ -14797,10 +14822,13 @@
                 showEmbeddedTestRunnerInBrowser
                 showBookmarkBar
                 webBrowserLikeLayout
+                sortAndIndentClassesByInheritance
+                showGlobalHistory
+                showLocalHistory
             )
         to:currentUserPrefs.
 
-    "Modified: / 07-06-2011 / 14:34:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-07-2011 / 00:03:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'aspects'!
@@ -14838,6 +14866,28 @@
     "Modified: / 11-03-2010 / 10:12:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+showGlobalHistory
+
+    showGlobalHistory isNil ifTrue:[
+        showGlobalHistory := false asValue.
+        showGlobalHistory onChangeSend:#updateModifiedChannel to:self
+    ].
+    ^ showGlobalHistory.
+
+    "Created: / 07-07-2011 / 00:05:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+showLocalHistory
+
+    showLocalHistory isNil ifTrue:[
+        showLocalHistory := false asValue.
+        showLocalHistory onChangeSend:#updateModifiedChannel to:self
+    ].
+    ^ showLocalHistory.
+
+    "Created: / 07-07-2011 / 00:05:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 showMethodTemplate
     "return/create the 'showMethodTemplate' value holder (automatically generated)"
 
@@ -14851,6 +14901,17 @@
     "Modified: / 11-03-2010 / 10:08:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+sortAndIndentClassesByInheritance
+
+    sortAndIndentClassesByInheritance isNil ifTrue:[
+        sortAndIndentClassesByInheritance := false asValue.
+        sortAndIndentClassesByInheritance onChangeSend:#updateModifiedChannel to:self
+    ].
+    ^ sortAndIndentClassesByInheritance.
+
+    "Created: / 06-07-2011 / 23:50:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 useCodeView2InTools
     "return/create the 'useCodeView2InTools' value holder (automatically generated)"
 
@@ -14907,11 +14968,14 @@
                 showEmbeddedTestRunnerInBrowser
                 showBookmarkBar
                 webBrowserLikeLayout
+                sortAndIndentClassesByInheritance
+                showGlobalHistory
+                showLocalHistory
             )
         asComparedTo:currentUserPrefs) ifTrue:[^ true].
     ^ false.
 
-    "Modified: / 07-06-2011 / 14:34:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-07-2011 / 00:04:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'help specs'!
@@ -15885,5 +15949,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.393 2011-07-06 11:53:50 cg Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.394 2011-07-06 23:18:17 vrany Exp $'
+! !