PDP-10 Archive: emacs/mouse.elib from mit_emacs_170_teco

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/mouse.elib

There are no other files named mouse.elib in the archive.

(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   !
TJ'-:
epY}g	F

,Z+jjv@U

5(BxLsS% Cursor to Mouse% Mouse Scroll Window&% Mouse Scroll Window Proportional& Decode Mouse& Default Mouse Button& Handle Mouse& Print Mouse Button& Read Mouse Click& Setup MOUSE Library

Mouse OnSet Mouse Button~DIRECTORY~~DOC~ % Cursor to Mouse~DOC~ % Mouse Scroll Window,~DOC~ % Mouse Scroll Window Proportional~DOC~ & Decode Mouse ~DOC~ & Default Mouse Button~DOC~ & Handle Mouse~DOC~ & Print Mouse Button~DOC~ & Read Mouse Click~DOC~ & Setup MOUSE Library~DOC~ Mouse Off~DOC~ Mouse On~DOC~ Set Mouse Button~DOC~ ~FILENAME~~FILENAME~

~INVERT~128*5FSQVEC[0
128*5FSQVEC[1
8*5FSQVEC[2
Q0M.VMouse Dispatch Table
Q1M.VMouse Echo Dispatch Table
Q2M.VMouse Default Dispatch Table
m.m% Cursor to MouseU:0(4)
m.m% Mouse Scroll WindowU:1(4)
m.m% Mouse Scroll Window ProportionalU:1(2)
@:I*/m(m.mMouse Off)/m.vExit Hook
@:I*/M(M.MMouse On)/m.VReturn from Superior Hook
m.m& Handle MouseU..:
m(m.mMouse On)
250FO..QMouse Quiescent Time:\[0
7FO..QMouse Character:\[1
@:I*/:0;71;0;0;767;0;1;1;1;1;0;0;0;c/FSECHODISPLAY
@:I*/:5;1;0L/FSECHODISPLAY
K@:I*/:0;0;;;;;;;;;;;;c/FSECHODISPLAY
@:I*/:5;1;0L/FSECHODISPLAY
r0[00[10[2
-1UX-1UY-1UC0UB
F[BBIND
<M(M.M& Read Mouse Click)
0JQX"L\UXC\UYC'"#2S;'
\UF
QF&100."E
(QF&7)Q0-Q0"E
Q1"EQ0U10UC'
Q0-Q1"E1%C''
QF&7U0'
"#
Q1"EQ0U10UC'
Q1UB
QXU.1QYU.2
FSHEIGHT-(QY/16)UY
QX/9UX
QF&7'
HK>
+FI-27"EFIFI'
FI<FIU2Q2-c"E0;'Q2I>
U5+5F[IBASE
[B[C[X[Y[F
[.1[.2
M(M.M& Decode Mouse)
[D[E
FSHEIGHT-(FSECHOLINES)-QY-1"L
QMouse Echo Dispatch TableUD
:IEBND	Button not defined in echo area'
"#QMouse Dispatch TableUD
:IEBND	Button not defined'
Q:D(QC*8+QB)[0
Q0"E
Q:Mouse Default Dispatch Table(QB)U0
Q0"E
QEM(M.M& Default Mouse Button)''
M0p8,FFunction Name: [0
m.m0m(m.m& Macro Name)u0
@FTPut 0 on mouse button (Press button) : 
[C[B[X[Y[.0[.1
M(M.M& Decode Mouse)
[D[E
FSHEIGHT-(FSECHOLINES)-QY-1"L
QMouse Echo Dispatch TableUD:IE in echo area '
"#QMouse Dispatch TableUD:IE'
QC,QBM(M.M& Print Mouse Button)@FTE
@ft
  Go ahead1m(m.m& Yes or No)"e0'
m.m0u:D(QC*8+QB):1,m(m.m& Print Mouse Button)[0
[1
:I*1, 0FSERRr[1
:I1
QB&4"N:I1Left-'
QB&2"N:I11Middle-'
QB&1"N:I11Right-'
QC+1:\[0
:I110
"NQ1'"#@FT1'
20FO..QWindow 2 Size"N
FSTOPLINE"E
FSLINES-QY"L
M(M.M^R Other Window)
''
"#
FSTOPLINE-QY"G
M(M.M^R Other Window)'''
FSWINDOW+BJ
1:<-(FSTOPLINE)+QY,QX:FM>
;QX*(Z-B)/(FSWIDTH)[0
Q0-Z"GZU0'
Q0J0L
.FSWINDOW
RQX-(FSWIDTH/2)"L
@M(M.M^R Previous Screen)'
"#
@M(M.M^R Next Screen)'
	MOUSE.Functions to Grok the BBN Bitbucket mouse. fooC Turns the mouse on.C Turns the mouse off.QS Decodes the mouse clicks.
The Altmode : may have been stripped off the first mouse event.  This
routine sets QX and QY to the coordinates of the mouse (in raw
coordinates), Q.1 and Q.2 to the coords in character coords with
origin at top left.  QB is set to the buttons which were pressed, and
QC to the number of clicks minus 1.  The buttons are encoded as Left =
4, Middle = 2, and Right = 1.  These may be or'ed to indicate chords.
Multiple clicks with different chords are not supported; The first
click is taken as the desired click, and any non-conforming clicks are
ignored.  Likewise, any stray characters between clicks are ignored.
This routine assumes correct format of the sequence; no error checking
is attempted.  Returns a value indicating whether the chord is still
held down, 0 if not, the chord being held, if so.+S Reads the mouse click into the buffer|S Handles mouse events.  This must be placed on M-:.
This routine assumes that the input is in correct and full format.C )S Prints an informative error messageS Prints an English rendition of a mouse button in the echo area.
Expects clicks,buttons in QC and QB resp.  With pre-comma arg of 1, returns
string.BS Move the cursor to the mouse, changing windows, if necessary=S Scrolls the screen accoding to the X position of mouse.tS Scrolls the screen up or down, depending on whether the
mouse is on the left half of the screen or the right.r& Setup MOUSE Library
Mouse On
Mouse Off
& Decode Mouse
& Read Mouse Click
& Handle Mouse
Set Mouse Button
& Default Mouse Button
& Print Mouse Button
% Cursor to Mouse
% Mouse Scroll Window Proportional
% Mouse Scroll Window
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2