![[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 |
researchv9-SUN3(old)
O blit-pad Blit cursor pad interpreter !��< �A ��B ��C ��D ��E ���F �back-line ��G �forward-line ��H ������ is-mouse checks for mouse-position sequence prompt for reading character is taken from the killstack ���@|��~� �4���< |��~� �1�� �1~� �1~�4��� �� �1~� ��� mouse-position moves the cursor to position send by mouse C. Douglas Blewett (MH3-C-319) Version 4 or better The mouse transmits ^X ^_ <key> x y. The key is ignored. This function does various things with double clicks depending on the argument 0: do nothing, just position and return 1: insert last kill on double clicks ���1^�� Implement a repeat-until loop �< discard the key ���< ���< ���2~� �2 remove offset from x and y parameters ���2~� �2���1~� �3~� �28 construct screen address � g|���~�~� �<lnumb �� ��~� �<width �� ��4~�1~�=�=� ���� auto reposition �|�� |��~� � ���� ��< �is-mouse �������� ��� � home Move the cursor to home � Get the display up to date �= won't work on continued lines ^��~�=�� get back onto the screen � last-line Move the cursor to the last line ^��~�~�=�� loop off of the bottom ^��~�=�� now come back � middle Move the cursor to the middle of the screen �last-line ���=�4~� � � scroll-up scroll the screen up arg lines ���=�home ��� g � scroll-down scroll the screen down arg lines ���=�home ��� g kill-select Kill selected area on screen ���mouse-position re-position the mouse for second argument mark-select Mark the selected area �����mouse-position |���< �is-mouse �����mouse-position |��~� � ���� pick-select Pick up the selected area ���mouse-position � def-select Default mouse action - Mark �mark-select execute the marking default browser-menu download standard menu �<M@!Standard Menu!m@!s! �<MA!Edit Menu!mA!3s! �<MB!Page Back!mB!v! �<MC!Page Forward!mC!! �<MD!Scroll Back!mD!! �<ME!Scroll Forward!mE!! �<MF!Set Mark!mF! ! �<MG!Show Mark!mG!! �<MH!Top of File!mH!<! �<MI!Bottom of File!mI!>! �<MJ!Scroll Bar!mJ!3! �<MK!Change Buffers!mK!5! �<ML!!mL!! standard-menu download standard menu �<M@!Browser Menu!m@!2s! �<MA!Edit Menu!mA!3s! �<MB!Modes Menu!mB!4s! �<MC!Graphics Menu!mC!5s! �<MD!Scroll Bar!mD!3! �<ME!Change Buffers!mE!5! �<MF!Exit!mF!! �<MG!!mG!! s select-menu selects menu by arg !� ��standard-menu ���browser-menu ���edit-menu ���modes-menu ���graphics-menu �� M custom-menu Download custom menu �standard-menu 5 select-buffer change buffers with mouse < cause buffers to be displayed on screen |���<Select a buffer with the mouse �is-mouse ��< read the extraneous junk from the mouse ���< ���< ���2~� �4 compute selected buffer number |���~�~� ��~� �2�6~� ���� 3 scroll-bar place scroll bar and reposition ����=����=�2����4~�3~�0� � � X�2~�0� -�2� �|���is-mouse Uses the bar as the prompt �< ���< ���< ���2~� �2 correct to find position in bar �4~�3~� � �0 ���
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.