--- a/UserPreferences.st	Wed Jan 30 18:30:18 2013 +0100
+++ b/UserPreferences.st	Wed Jan 30 18:44:37 2013 +0100
@@ -1352,6 +1352,30 @@
     "
 !
 
+button2WithAltKey
+    "if true, an ALT-left click is translated to a right click
+     Useful with 1-button mice"
+
+    ^ self at:#button2WithAltKey ifAbsent:[ false ]
+
+    "
+     UserPreferences current button2WithAltKey
+    "
+!
+
+button2WithAltKey: aBoolean
+    "if true, an ALT-left click is translated to a right click
+     Useful with 1-button mice"
+
+    ^ self at:#button2WithAltKey put: aBoolean
+
+    "
+     UserPreferences current button2WithAltKey
+     UserPreferences current button2WithAltKey:true
+     UserPreferences current button2WithAltKey:false
+    "
+!
+
 closePopUpMenuChainOnEscape
     "if true, the whole chain of popUpMenus is closed when escape is pressed.
      if false (the default), only the last popup-view is closed.
@@ -4165,11 +4189,11 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.323 2013-01-30 17:30:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.324 2013-01-30 17:44:37 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.323 2013-01-30 17:30:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.324 2013-01-30 17:44:37 cg Exp $'
 !
 
 version_SVN