equal
deleted
inserted
replaced
28 |
28 |
29 XWorkstation comment:' |
29 XWorkstation comment:' |
30 COPYRIGHT (c) 1989 by Claus Gittinger |
30 COPYRIGHT (c) 1989 by Claus Gittinger |
31 All Rights Reserved |
31 All Rights Reserved |
32 |
32 |
33 $Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.19 1994-08-11 23:45:37 claus Exp $ |
33 $Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.20 1994-08-22 13:17:30 claus Exp $ |
34 '! |
34 '! |
35 |
35 |
36 !XWorkstation class methodsFor:'documentation'! |
36 !XWorkstation class methodsFor:'documentation'! |
37 |
37 |
38 copyright |
38 copyright |
49 " |
49 " |
50 ! |
50 ! |
51 |
51 |
52 version |
52 version |
53 " |
53 " |
54 $Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.19 1994-08-11 23:45:37 claus Exp $ |
54 $Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.20 1994-08-22 13:17:30 claus Exp $ |
55 " |
55 " |
56 ! |
56 ! |
57 |
57 |
58 documentation |
58 documentation |
59 " |
59 " |
726 "return the colornumber of white" |
726 "return the colornumber of white" |
727 |
727 |
728 ^ whitepixel |
728 ^ whitepixel |
729 ! |
729 ! |
730 |
730 |
|
731 button1MotionMask |
|
732 "return the state-mask for button1 in motion events state-field" |
|
733 %{ |
|
734 RETURN (_MKSMALLINT(Button1MotionMask)); |
|
735 %} |
|
736 ! |
|
737 |
|
738 button2MotionMask |
|
739 "return the state-mask for button2 in motion events state-field" |
|
740 %{ |
|
741 RETURN (_MKSMALLINT(Button2MotionMask)); |
|
742 %} |
|
743 ! |
|
744 |
|
745 button3MotionMask |
|
746 "return the state-mask for button3 in motion events state-field" |
|
747 %{ |
|
748 RETURN (_MKSMALLINT(Button3MotionMask)); |
|
749 %} |
|
750 ! |
|
751 |
731 viewIdFromPoint:aPoint in:windowId |
752 viewIdFromPoint:aPoint in:windowId |
732 "given a point in rootWindow, return the viewId of the subview of windowId |
753 "given a point in rootWindow, return the viewId of the subview of windowId |
733 hit by this coordinate. |
754 hit by this coordinate. |
734 return nil if no view was hit. |
755 return nil if no view was hit. |
735 - use to find window to drop objects after a cross-view drag" |
756 - use to find window to drop objects after a cross-view drag" |
4755 */ |
4776 */ |
4756 switch (__ev__.type) { |
4777 switch (__ev__.type) { |
4757 case KeyRelease: |
4778 case KeyRelease: |
4758 sym = @symbol(keyRelease:x:y:view:); |
4779 sym = @symbol(keyRelease:x:y:view:); |
4759 symS = @symbol(sendKeyRelease:x:y:to:); |
4780 symS = @symbol(sendKeyRelease:x:y:to:); |
4760 ip = &skr; |
4781 ip = &skr; |
4761 ipS = &skrS; |
4782 ipS = &skrS; |
4762 goto keyPressAndRelease; |
4783 goto keyPressAndRelease; |
4763 break; |
4784 break; |
4764 |
4785 |
4765 case KeyPress: |
4786 case KeyPress: |
4766 sym = @symbol(keyPress:x:y:view:); |
4787 sym = @symbol(keyPress:x:y:view:); |
4767 symS = @symbol(sendKeyPress:x:y:to:); |
4788 symS = @symbol(sendKeyPress:x:y:to:); |
4768 ip = &skp; |
4789 ip = &skp; |
4769 ipS = &skpS; |
4790 ipS = &skpS; |
4770 |
4791 |
4771 keyPressAndRelease: |
4792 keyPressAndRelease: |
4772 _INST(eventRootX) = _MKSMALLINT(ke->x_root); |
4793 _INST(eventRootX) = _MKSMALLINT(ke->x_root); |
4773 _INST(eventRootY) = _MKSMALLINT(ke->y_root); |
4794 _INST(eventRootY) = _MKSMALLINT(ke->y_root); |
4774 _INST(altDown) = (ke->state & Mod2Mask) ? true : false; |
4795 _INST(altDown) = (ke->state & Mod2Mask) ? true : false; |