--- a/XWorkstation.st	Mon Aug 22 15:15:31 1994 +0200
+++ b/XWorkstation.st	Mon Aug 22 15:17:30 1994 +0200
@@ -30,7 +30,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.19 1994-08-11 23:45:37 claus Exp $
+$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.20 1994-08-22 13:17:30 claus Exp $
 '!
 
 !XWorkstation class methodsFor:'documentation'!
@@ -51,7 +51,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.19 1994-08-11 23:45:37 claus Exp $
+$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.20 1994-08-22 13:17:30 claus Exp $
 "
 !
 
@@ -728,6 +728,27 @@
     ^ whitepixel
 !
 
+button1MotionMask
+    "return the state-mask for button1 in motion events state-field"
+%{
+    RETURN (_MKSMALLINT(Button1MotionMask));
+%}
+!
+
+button2MotionMask
+    "return the state-mask for button2 in motion events state-field"
+%{
+    RETURN (_MKSMALLINT(Button2MotionMask));
+%}
+!
+
+button3MotionMask
+    "return the state-mask for button3 in motion events state-field"
+%{
+    RETURN (_MKSMALLINT(Button3MotionMask));
+%}
+!
+
 viewIdFromPoint:aPoint in:windowId
     "given a point in rootWindow, return the viewId of the subview of windowId
      hit by this coordinate.
@@ -4757,16 +4778,16 @@
         case KeyRelease:
             sym = @symbol(keyRelease:x:y:view:);
             symS = @symbol(sendKeyRelease:x:y:to:);
-	    ip = &skr;
-	    ipS = &skrS;
+            ip = &skr;
+            ipS = &skrS;
             goto keyPressAndRelease;
             break;
 
         case KeyPress:
             sym = @symbol(keyPress:x:y:view:);
             symS = @symbol(sendKeyPress:x:y:to:);
-	    ip = &skp;
-	    ipS = &skpS;
+            ip = &skp;
+            ipS = &skpS;
 
         keyPressAndRelease:
             _INST(eventRootX) = _MKSMALLINT(ke->x_root);