DeviceWorkstation.st
changeset 2880 9dda5e03b02b
parent 2876 dbe1454f8539
child 2881 220eafd70135
equal deleted inserted replaced
2879:f1e9b8310d4e 2880:9dda5e03b02b
  5629      be redefined by concrete subclasses."
  5629      be redefined by concrete subclasses."
  5630 
  5630 
  5631     ^ self subclassResponsibility
  5631     ^ self subclassResponsibility
  5632 
  5632 
  5633     "Created: 15.10.1997 / 19:17:00 / cg"
  5633     "Created: 15.10.1997 / 19:17:00 / cg"
       
  5634 !
       
  5635 
       
  5636 button1MotionMask
       
  5637     "return an integer for masking out the left button from a
       
  5638      motion buttonStates value. This is very device specific and to
       
  5639      be redefined by concrete subclasses."
       
  5640 
       
  5641     ^ self subclassResponsibility
       
  5642 !
       
  5643 
       
  5644 button2MotionMask
       
  5645     "return an integer for masking out the middle button from a
       
  5646      motion buttonStates value. This is very device specific and to
       
  5647      be redefined by concrete subclasses."
       
  5648 
       
  5649     ^ self subclassResponsibility
       
  5650 !
       
  5651 
       
  5652 button3MotionMask
       
  5653     "return an integer for masking out the right button from a
       
  5654      motion buttonStates value. This is very device specific and to
       
  5655      be redefined by concrete subclasses."
       
  5656 
       
  5657     ^ self subclassResponsibility
  5634 !
  5658 !
  5635 
  5659 
  5636 buttonStates
  5660 buttonStates
  5637     "return an integer representing the state of the pointer buttons;
  5661     "return an integer representing the state of the pointer buttons;
  5638      a one-bit represents a pressed button. The bit positions are device specific
  5662      a one-bit represents a pressed button. The bit positions are device specific
  6547 ! !
  6571 ! !
  6548 
  6572 
  6549 !DeviceWorkstation class methodsFor:'documentation'!
  6573 !DeviceWorkstation class methodsFor:'documentation'!
  6550 
  6574 
  6551 version
  6575 version
  6552     ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.327 1999-08-31 15:57:47 cg Exp $'
  6576     ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.328 1999-08-31 19:38:47 cg Exp $'
  6553 ! !
  6577 ! !
  6554 DeviceWorkstation initialize!
  6578 DeviceWorkstation initialize!