equal
deleted
inserted
replaced
951 "return the current button state" |
951 "return the current button state" |
952 |
952 |
953 |mask| |
953 |mask| |
954 |
954 |
955 mask := 0. |
955 mask := 0. |
956 self leftButtonPressed ifTrue:[ mask := mask bitOr:1 ]. |
956 self leftButtonPressed ifTrue:[ mask := mask bitOr:4 ]. |
957 self middleButtonPressed ifTrue:[ mask := mask bitOr:2 ]. |
957 self middleButtonPressed ifTrue:[ mask := mask bitOr:2 ]. |
958 self rightButtonPressed ifTrue:[ mask := mask bitOr:4 ]. |
958 self rightButtonPressed ifTrue:[ mask := mask bitOr:1 ]. |
959 ^ mask |
959 ^ mask |
960 |
960 |
961 " |
961 " |
962 Display primMouseButtons |
962 Display primMouseButtons |
963 " |
963 " |
6815 ! ! |
6815 ! ! |
6816 |
6816 |
6817 !DeviceWorkstation class methodsFor:'documentation'! |
6817 !DeviceWorkstation class methodsFor:'documentation'! |
6818 |
6818 |
6819 version |
6819 version |
6820 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.349 1999-11-18 19:53:29 cg Exp $' |
6820 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.350 1999-11-23 16:47:36 cg Exp $' |
6821 ! ! |
6821 ! ! |
6822 DeviceWorkstation initialize! |
6822 DeviceWorkstation initialize! |