UserPreferences.st
branchjv
changeset 18011 deb0c3355881
parent 17993 956342c369a2
parent 14543 f66741e8d140
child 18017 7fef9e17913f
--- a/UserPreferences.st	Thu Dec 20 11:48:59 2012 +0000
+++ b/UserPreferences.st	Sat Jan 19 01:30:00 2013 +0000
@@ -571,13 +571,6 @@
 "/        ^ self
 "/    ].
 
-    key == #svnConfigurations2 ifTrue:[
-        self breakPoint:#jv.
-        ^self.
-    ].
-
-
-
     value == true ifTrue:[
         key == #useNewVersionDiffBrowser ifTrue:[
             classNameToCheck := #'VersionDiffBrowser'.
@@ -612,9 +605,9 @@
     ^ super at:key asSymbol put:value
 
     "Modified: / 15-01-2012 / 14:26:53 / cg"
-    "Modified: / 22-02-2012 / 13:22:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !UserPreferences methodsFor:'accessing-locale'!
 
 dateInputFormat
@@ -907,6 +900,7 @@
 !
 
 changesBrowserClass
+    "the browser to be used for the changeFile"
 
     | class className |
 
@@ -1454,6 +1448,28 @@
     "Created: / 29-11-2010 / 19:47:36 / cg"
 !
 
+eclipseStyleMenus
+    "if true, return menus organized like in eclipse;
+     if false (the default) return them as usual"
+
+    ^ self at:#eclipseStyleMenus ifAbsent:false
+
+    "Created: / 08-07-2011 / 13:22:45 / cg"
+!
+
+eclipseStyleMenus:aBoolean
+    "if true, return menus organized like in eclipse;
+     if false (the default) return them as usual"
+
+    ^ self at:#eclipseStyleMenus put:aBoolean
+
+    "
+     UserPreferences current eclipseStyleMenus:true
+    "
+
+    "Created: / 08-07-2011 / 13:22:50 / cg"
+!
+
 expandSelectionOnMouseMoveWithButtonPressed
     "expand the selection in a selectionInListView if the mouse is pressed while moving over
      more lines. Default is not FALSE !!"
@@ -1544,6 +1560,35 @@
     "Modified: / 22-10-2010 / 11:13:54 / cg"
 !
 
+menuPanelTakesFocusOnClick
+    "if true, the menu panel takes the focus and allows further control via
+     cursor and tab keys. 
+     Used to be on, but now we changed the default as it turned out to be counter productive"
+
+    ^ self at:#menuPanelTakesFocusOnClick ifAbsent:[ false ]
+
+    "
+     UserPreferences current menuPanelTakesFocusOnClick
+    "
+    "Modified: / 11.9.1998 / 00:09:59 / cg"
+!
+
+menuPanelTakesFocusOnClick:aBooleanOrNil
+    "if true, the menu panel takes the focus and allows further control via
+     cursor and tab keys. 
+     Used to be on, but now we changed the default as it turned out to be counter productive"
+
+    ^ self at:#menuPanelTakesFocusOnClick put:aBooleanOrNil
+
+    "
+     UserPreferences current menuPanelTakesFocusOnClick:true
+     UserPreferences current menuPanelTakesFocusOnClick:false
+     UserPreferences current menuPanelTakesFocusOnClick
+    "
+
+    "Modified: / 11.9.1998 / 00:09:59 / cg"
+!
+
 motionDistanceToStartDrag
     "the motion distance (in pixel) to start drag (as opposed to adding to the selection)"
 
@@ -3249,6 +3294,7 @@
     "
 ! !
 
+
 !UserPreferences methodsFor:'accessing-prefs-editor'!
 
 deleteSetsClipboardText
@@ -3870,6 +3916,7 @@
     "Created: / 19-08-2011 / 12:51:58 / cg"
 ! !
 
+
 !UserPreferences methodsFor:'default settings-syntax colors'!
 
 listOfPredefinedSyntaxColoringSchemes
@@ -4140,13 +4187,13 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.319 2012/11/01 14:22:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.320 2012-12-01 09:51:12 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.319 2012/11/01 14:22:04 cg Exp §'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.320 2012-12-01 09:51:12 cg Exp $'
 !
 
 version_SVN
-    ^ '$ Id: UserPreferences.st 10648 2011-06-23 15:55:10Z vranyj1  $'
+    ^ '§ Id: UserPreferences.st 10648 2011-06-23 15:55:10Z vranyj1  §'
 ! !