![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to blit CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / cmd / emacs / macros|
Return to blit CVS log | Up to [Research Unix] / researchv9 / cmd / emacs / macros |
1.1 root 1: O blit-pad Blit cursor pad interpreter
2: !��<
3: �A ��B ��C ��D ��E ���F �back-line
4: ��G �forward-line
5: ��H ������
6: is-mouse checks for mouse-position sequence
7: prompt for reading character is taken from the killstack
8: ���@|��~� �4���<
9: |��~� �1�� �1~� �1~�4��� �� �1~� ���
10: mouse-position moves the cursor to position send by mouse
11:
12:
13: C. Douglas Blewett (MH3-C-319) Version 4 or better
14:
15: The mouse transmits ^X ^_ <key> x y. The key is ignored.
16:
17:
18: This function does various things with double clicks depending on
19: the argument
20:
21: 0: do nothing, just position and return
22: 1: insert last kill on double clicks
23:
24:
25: ���1^�� Implement a repeat-until loop
26: �<
27: discard the key
28: ���<
29: ���<
30: ���2~� �2 remove offset from x and y parameters
31: ���2~� �2���1~� �3~� �28 construct screen address
32: � g|���~�~� �<lnumb
33: �� ��~� �<width
34: �� ��4~�1~�=�=� ���� auto reposition
35: �|�� |��~� � ���� ��<
36: �is-mouse
37: �������� ���
38: � home Move the cursor to home
39: &� Get the display up to date
40: �= won't work on continued lines
41: ^��~�=�� get back onto the screen
42:
43: � last-line Move the cursor to the last line
44: ^��~�~�=�&� loop off of the bottom
45: &^��~�=�� now come back
46:
47: � middle Move the cursor to the middle of the screen
48: �last-line
49: ���=�4~� �
50: � scroll-up scroll the screen up arg lines
51: ���=�home
52: ��� g
53: � scroll-down scroll the screen down arg lines
54: ���=�home
55: ��� g
56: kill-select Kill selected area on screen
57: ���mouse-position
58: re-position the mouse for second argument
59:
60: mark-select Mark the selected area
61: �����mouse-position
62: |���<
63: �is-mouse
64: �����mouse-position
65: |��~� � ����
66: pick-select Pick up the selected area
67: ���mouse-position
68: �
69: def-select Default mouse action - Mark
70: �mark-select
71: execute the marking default
72:
73: browser-menu download standard menu
74: �<M@!Standard Menu!m@!s!
75: �<MA!Edit Menu!mA!3s!
76: �<MB!Page Back!mB!v!
77: �<MC!Page Forward!mC!!
78: �<MD!Scroll Back!mD!!
79: �<ME!Scroll Forward!mE!!
80: �<MF!Set Mark!mF! !
81: �<MG!Show Mark!mG!!
82: �<MH!Top of File!mH!<!
83: �<MI!Bottom of File!mI!>!
84: �<MJ!Scroll Bar!mJ!3!
85: �<MK!Change Buffers!mK!5!
86: �<ML!!mL!!
87:
88: standard-menu download standard menu
89: �<M@!Browser Menu!m@!2s!
90: �<MA!Edit Menu!mA!3s!
91: �<MB!Modes Menu!mB!4s!
92: �<MC!Graphics Menu!mC!5s!
93: �<MD!Scroll Bar!mD!3!
94: �<ME!Change Buffers!mE!5!
95: �<MF!Exit!mF!!
96: �<MG!!mG!!
97:
98: s select-menu selects menu by arg
99: !� �&�standard-menu
100: ���browser-menu
101: ���edit-menu
102: ���modes-menu
103: ���graphics-menu
104: ��
105: M custom-menu Download custom menu
106: �standard-menu
107:
108: 5 select-buffer change buffers with mouse
109: <
110: cause buffers to be displayed on screen
111: |���<Select a buffer with the mouse
112: �is-mouse
113: ��<
114: read the extraneous junk from the mouse
115: ���<
116: ���<
117: ���2~� �4 compute selected buffer number
118: |���~�~� ��~� �2�6~� ����
119: 3 scroll-bar place scroll bar and reposition
120: ����=����=�2����4~�3~�0� � � X�2~�0� -�2� �|���is-mouse
121: Uses the bar as the prompt
122: �<
123: ���<
124: ���<
125: ���2~� �2 correct to find position in bar
126: �4~�3~� � �0 ���
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.