--- a/WindowSensor.st Mon Nov 22 21:17:38 1999 +0100
+++ b/WindowSensor.st Tue Nov 23 17:13:46 1999 +0100
@@ -528,6 +528,15 @@
!WindowSensor methodsFor:'Compatibility - ST-80'!
+blueButtonPressed
+ "ST-80 compatibility: return true, if the right mouse button is pressed.
+ You should no use it in 'normal' applications.
+ Instead, keep track of the buttons state in your views or controllers
+ button-event methods."
+
+ ^ rightButtonDown
+!
+
eventQuit:event
"ST-80 compatibility:
push an event for terminating the topViews application"
@@ -537,6 +546,24 @@
type:#quit)
"Modified: 3.3.1997 / 20:15:00 / cg"
+!
+
+redButtonPressed
+ "ST-80 compatibility: return true, if the left mouse button is pressed.
+ You should no use it in 'normal' applications.
+ Instead, keep track of the buttons state in your views or controllers
+ button-event methods."
+
+ ^ leftButtonDown
+!
+
+yellowButtonPressed
+ "ST-80 compatibility: return true, if the middle mouse button is pressed.
+ You should no use it in 'normal' applications.
+ Instead, keep track of the buttons state in your views or controllers
+ button-event methods."
+
+ ^ middleButtonDown
! !
!WindowSensor methodsFor:'accessing'!
@@ -2646,15 +2673,6 @@
"Modified: 21.10.1996 / 11:37:31 / cg"
!
-blueButtonPressed
- "ST-80 compatibility: return true, if the right mouse button is pressed.
- You should no use it in 'normal' applications.
- Instead, keep track of the buttons state in your views or controllers
- button-event methods."
-
- ^ rightButtonDown
-!
-
ctrlDown
"return true, if any CTRL key is currently pressed."
@@ -2689,15 +2707,6 @@
^ middleButtonDown
!
-redButtonPressed
- "ST-80 compatibility: return true, if the left mouse button is pressed.
- You should no use it in 'normal' applications.
- Instead, keep track of the buttons state in your views or controllers
- button-event methods."
-
- ^ leftButtonDown
-!
-
rightButtonPressed
"return true, if the right mouse button is pressed.
This has been added to support ST-80 style button polling;
@@ -2712,15 +2721,6 @@
"return true, if any shift key is currently pressed."
^ shiftDown
-!
-
-yellowButtonPressed
- "ST-80 compatibility: return true, if the middle mouse button is pressed.
- You should no use it in 'normal' applications.
- Instead, keep track of the buttons state in your views or controllers
- button-event methods."
-
- ^ middleButtonDown
! !
!WindowSensor methodsFor:'queries - pointer'!
@@ -2922,6 +2922,6 @@
!WindowSensor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.168 1999-11-03 08:50:08 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.169 1999-11-23 16:13:46 cg Exp $'
! !
WindowSensor initialize!