Return to blit CVS log

Up to [Research Unix] / researchv9 / cmd / emacs / macros

Annotation of researchv9/cmd/emacs/macros/blit, revision 1.1

1.1     ! root        1: Oblit-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~��2remove offset from x and y parameters
        !            31: ���2~��2���1~��3~��28construct 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: sselect-menu selects menu by arg
        !            99: !��&�standard-menu
        !           100: ���browser-menu
        !           101: ���edit-menu
        !           102: ���modes-menu
        !           103: ���graphics-menu
        !           104: ��
        !           105: Mcustom-menu Download custom menu
        !           106: �standard-menu
        !           107: 
        !           108: 5select-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~��4compute selected buffer number
        !           118: |���~�~���~��2�6~�����
        !           119: 3scroll-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~��2correct 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.