--- a/DeviceWorkstation.st	Tue Nov 23 17:13:46 1999 +0100
+++ b/DeviceWorkstation.st	Tue Nov 23 17:47:55 1999 +0100
@@ -953,9 +953,9 @@
     |mask|
 
     mask := 0.
-    self leftButtonPressed ifTrue:[ mask := mask bitOr:1 ].
+    self leftButtonPressed ifTrue:[ mask := mask bitOr:4 ].
     self middleButtonPressed ifTrue:[ mask := mask bitOr:2 ].
-    self rightButtonPressed ifTrue:[ mask := mask bitOr:4 ].
+    self rightButtonPressed ifTrue:[ mask := mask bitOr:1 ].
     ^ mask
 
     "
@@ -6817,6 +6817,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.349 1999-11-18 19:53:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.350 1999-11-23 16:47:36 cg Exp $'
 ! !
 DeviceWorkstation initialize!