github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-03-01 09:30:56 +00:00
Code Issues Projects Releases Wiki Activity
Files
fe88618d12ed4ee8f8fa9500093be232b2175193
Interlisp.maiko/src/xwinman.c

421 lines
12 KiB
C
Executable File
Raw Blame History

/* $Id: xwinman.c,v 1.3 2001/12/26 22:17:07 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
static char *id = "$Id: xwinman.c,v 1.3 2001/12/26 22:17:07 sybalsky Exp $ Copyright (C) Venue";
/************************************************************************/
/* */
/* (C) Copyright 1989, 1990, 1990, 1991, 1992, 1993, 1994, 2000 Venue. */
/* All Rights Reserved. */
/* Manufactured in the United States of America. */
/* */
/* The contents of this file are proprietary information */
/* belonging to Venue, and are provided to you under license. */
/* They may not be further distributed or disclosed to third */
/* parties without the specific permission of Venue. */
/* */
/************************************************************************/
#include "version.h"
#include <stdio.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#ifdef ISC
#include <sys/bsdtypes.h>
#endif /* ISC */
#include "lispemul.h"
#include "devif.h"
#include "xdefs.h"
int Mouse_Included = FALSE;
extern Cursor WaitCursor,
DefaultCursor,
VertScrollCursor,
VertThumbCursor,
ScrollUpCursor,
ScrollDownCursor,
HorizScrollCursor,
HorizThumbCursor,
ScrollLeftCursor,
ScrollRightCursor;
extern DspInterface currentdsp, colordsp;
extern DLword *EmCursorX68K
, *EmCursorY68K;
extern DLword *EmMouseX68K
, *EmMouseY68K
, *EmKbdAd068K
, *EmRealUtilin68K;
extern LispPTR *CLastUserActionCell68k;
extern MISCSTATS *MiscStats;
extern int KBDEventFlg;
extern u_char *SUNLispKeyMap;
#define KEYCODE_OFFSET 7 /* Sun Keycode offset */
#define MOUSE_LEFT 13
#define MOUSE_MIDDLE 15
#define MOUSE_RIGHT 14
/* bound: return b if it is between a and c otherwise it returns a or c */
int bound( a, b, c)
int a, b, c;
{
if (b <= a) return( a );
else if ( b >= c ) return( c );
else return( b );
}
Set_BitGravity( event, dsp, window, grav )
XButtonEvent *event;
DspInterface dsp;
Window window;
int grav;
{
XSetWindowAttributes Lisp_SetWinAttributes;
Window OldWindow;
/* Change Background Pixmap of Gravity Window */
XLOCK;
switch( dsp->BitGravity ) {
case NorthWestGravity: OldWindow = dsp->NWGrav;
break;
case NorthEastGravity: OldWindow = dsp->NEGrav;
break;
case SouthWestGravity: OldWindow = dsp->SWGrav;
break;
case SouthEastGravity: OldWindow = dsp->SEGrav;
break;
};
dsp->BitGravity = grav;
XSetWindowBackgroundPixmap( event->display , OldWindow
, dsp->GravityOffPixmap );
XClearWindow( event->display, OldWindow );
XSetWindowBackgroundPixmap( event->display , window
, dsp->GravityOnPixmap );
XClearWindow( event->display, window );
XUNLOCK;
} /* end Set_BitGravity */
lisp_Xconfigure( dsp, x, y, lspWinWidth, lspWinHeight )
DspInterface dsp;
int x, y, lspWinWidth, lspWinHeight;
{
int GravSize, Col2, Row2, Col3, Row3;
/* The Vissible width and height changes when */
/* we configure the window. Make them */
/* stay within bounds. */
dsp->Vissible.width = bound(OUTER_SB_WIDTH(dsp)+2,
lspWinWidth,
dsp->Display.width + OUTER_SB_WIDTH(dsp)) - OUTER_SB_WIDTH(dsp);
dsp->Vissible.height = bound(OUTER_SB_WIDTH(dsp)+2,
lspWinHeight,
dsp->Display.height + OUTER_SB_WIDTH(dsp)) - OUTER_SB_WIDTH(dsp);
GravSize = (int)(dsp->ScrollBarWidth/2) - (dsp->InternalBorderWidth);
Col2 = dsp->Vissible.width;
Row2 = dsp->Vissible.height;
Col3 = dsp->Vissible.width + (int)(OUTER_SB_WIDTH(dsp)/2);
Row3 = dsp->Vissible.height + (int)(OUTER_SB_WIDTH(dsp)/2);
XLOCK;
XMoveResizeWindow( dsp->display_id, dsp->DisplayWindow, 0, 0, dsp->Vissible.width, dsp->Vissible.height);
/* Scroll bars */
XMoveResizeWindow( dsp->display_id, dsp->VerScrollBar,
Col2, 0-dsp->InternalBorderWidth, /* y */
dsp->ScrollBarWidth, /* width */
dsp->Vissible.height); /* height */
XMoveResizeWindow( dsp->display_id,
dsp->HorScrollBar,
0-dsp->InternalBorderWidth, Row2, /* y */
dsp->Vissible.width, /* width */
dsp->ScrollBarWidth); /* height */
/* Scroll buttons */
XMoveResizeWindow( dsp->display_id,
dsp->HorScrollButton,
(int)((dsp->Vissible.x * dsp->Vissible.width) / dsp->Display.width), /* x */
0-dsp->InternalBorderWidth, /* y */
(int)((dsp->Vissible.width*dsp->Vissible.width)/ dsp->Display.width) + 1, /* width */
dsp->ScrollBarWidth); /* height */
XMoveResizeWindow( dsp->display_id,
dsp->VerScrollButton,
0-dsp->InternalBorderWidth, /* x */
(int)((dsp->Vissible.y * dsp->Vissible.height) / dsp->Display.height), /* y */
dsp->ScrollBarWidth, /* width */
(int)((dsp->Vissible.height*dsp->Vissible.height) / dsp->Display.height) + 1); /* height */
/* Gravity windows */
XMoveResizeWindow( dsp->display_id, dsp->NWGrav, Col2, Row2, GravSize, GravSize);
XMoveResizeWindow( dsp->display_id, dsp->NEGrav, Col3, Row2, GravSize, GravSize);
XMoveResizeWindow( dsp->display_id, dsp->SEGrav, Col3, Row3, GravSize, GravSize);
XMoveResizeWindow( dsp->display_id, dsp->SWGrav, Col2, Row3, GravSize, GravSize);
Scroll( dsp, dsp->Vissible.x, dsp->Vissible.y );
XFlush(dsp->display_id);
XUNLOCK;
} /* end lisp_Xconfigure */
/************************************************************************/
/* */
/* g e t X s i g n a l d a t a */
/* */
/* Take X key/mouse events and turn them into Lisp events */
/* */
/************************************************************************/
extern int Current_Hot_X, Current_Hot_Y; /* Cursor hotspot */
void
getXsignaldata(dsp)
DspInterface dsp;
{
XEvent report;
while( XPending( dsp->display_id ) )
{
XNextEvent( dsp->display_id, &report );
if( report.xany.window == dsp->DisplayWindow ) /* Try the most important window first. */
switch(report.type) {
case MotionNotify :
*CLastUserActionCell68k = MiscStats->secondstmp;
*EmCursorX68K = (*((DLword *)EmMouseX68K)) = (short) ((report.xmotion.x + dsp->Vissible.x)&0xFFFF) - Current_Hot_X;
*EmCursorY68K = (*((DLword *)EmMouseY68K)) = (short) ((report.xmotion.y + dsp->Vissible.y)&0xFFFF) - Current_Hot_Y;
DoRing();
if(( KBDEventFlg ) > 0) Irq_Stk_End=Irq_Stk_Check=0;
break;
case KeyPress :
kb_trans( SUNLispKeyMap[(report.xkey.keycode)-KEYCODE_OFFSET], FALSE );
DoRing();
if((KBDEventFlg += 1) > 0) Irq_Stk_End=Irq_Stk_Check=0;
break;
case KeyRelease :
kb_trans( SUNLispKeyMap[(report.xkey.keycode)-KEYCODE_OFFSET], TRUE );
DoRing();
if((KBDEventFlg += 1) > 0) Irq_Stk_End=Irq_Stk_Check=0;
break;
case ButtonPress :
switch (report.xbutton.button) {
case Button1: PUTBASEBIT68K( EmRealUtilin68K, MOUSE_LEFT, FALSE );
break;
case Button2: PUTBASEBIT68K( EmRealUtilin68K, MOUSE_MIDDLE, FALSE );
break;
case Button3: PUTBASEBIT68K( EmRealUtilin68K, MOUSE_RIGHT, FALSE );
break;
default:
break;
}
DoRing();
if((KBDEventFlg += 1) > 0) Irq_Stk_End=Irq_Stk_Check=0;
break;
case ButtonRelease :
switch (report.xbutton.button) {
case Button1: PUTBASEBIT68K( EmRealUtilin68K, MOUSE_LEFT, TRUE );
break;
case Button2: PUTBASEBIT68K( EmRealUtilin68K, MOUSE_MIDDLE, TRUE);
break;
case Button3: PUTBASEBIT68K( EmRealUtilin68K, MOUSE_RIGHT, TRUE );
break;
default:
break;
}
DoRing();
if((KBDEventFlg += 1) > 0) Irq_Stk_End=Irq_Stk_Check=0;
break;
case EnterNotify :
Mouse_Included = TRUE;
break;
case LeaveNotify :
Mouse_Included = FALSE;
break;
case Expose :
XLOCK;
(dsp->bitblt_to_screen)( dsp, 0,
report.xexpose.x+dsp->Vissible.x,
report.xexpose.y+dsp->Vissible.y,
report.xexpose.width,
report.xexpose.height );
XUNLOCK;
break;
default:
break;
}
else if( report.xany.window == dsp->LispWindow )
switch(report.xany.type) {
case ConfigureNotify :
lisp_Xconfigure(dsp, report.xconfigure.x, report.xconfigure.y,
report.xconfigure.width, report.xconfigure.height);
break;
case EnterNotify :
enable_Xkeyboard( currentdsp );
break;
case LeaveNotify :
break;
case MapNotify :
/* Turn the blitting to the screen on */
break;
case UnmapNotify :
/* Turn the blitting to the screen off */
break;
default:
break;
}
else if ( report.xany.window == dsp->HorScrollBar )
switch(report.type) {
case ButtonPress :
switch( report.xbutton.button ) {
case Button1:
DefineCursor( dsp->display_id, dsp->HorScrollBar, &ScrollLeftCursor );
ScrollLeft( dsp, report );
break;
case Button2:
DefineCursor( dsp->display_id, dsp->HorScrollBar, &HorizThumbCursor );
break;
case Button3:
DefineCursor( dsp->display_id, dsp->HorScrollBar, &ScrollRightCursor );
ScrollRight( dsp, report );
break;
default:
break;
} /* end switch */
break;
case ButtonRelease :
switch( report.xbutton.button ) {
case Button1:
DefineCursor( dsp->display_id, report.xany.window, &HorizScrollCursor );
break;
case Button2:
JumpScrollHor( dsp, report.xbutton.x );
DefineCursor( dsp->display_id, report.xany.window, &HorizScrollCursor );
break;
case Button3:
DefineCursor( dsp->display_id, report.xany.window, &HorizScrollCursor );
break;
default:
break;
} /* end switch */
default:
break;
}
else if ( report.xany.window == dsp->VerScrollBar )
switch(report.type) {
case ButtonPress :
switch( report.xbutton.button ) {
case Button1:
DefineCursor( dsp->display_id, report.xany.window, &ScrollUpCursor );
ScrollUp( dsp );
break;
case Button2:
DefineCursor( dsp->display_id, report.xany.window, &VertThumbCursor );
break;
case Button3:
DefineCursor( dsp->display_id, report.xany.window, &ScrollDownCursor );
ScrollDown( dsp );
break;
default:
break;
} /* end switch */
break;
case ButtonRelease :
switch( report.xbutton.button ) {
case Button1:
DefineCursor( dsp->display_id, report.xany.window, &VertScrollCursor );
break;
case Button3:
DefineCursor( dsp->display_id, report.xany.window, &VertScrollCursor );
break;
case Button2:
JumpScrollVer( dsp, report.xbutton.y );
DefineCursor( dsp->display_id, report.xany.window, &VertScrollCursor );
break;
default:
break;
} /* end switch */
break;
default:
break;
}
else if (( report.xany.window == dsp->NEGrav ) &&
( report.xany.type == ButtonPress) &&
((report.xbutton.button & 0xFF) == Button1))
Set_BitGravity(report, dsp, dsp->NEGrav, NorthEastGravity);
else if (( report.xany.window == dsp->SEGrav ) &&
( report.xany.type == ButtonPress) &&
((report.xbutton.button & 0xFF) == Button1))
Set_BitGravity(report, dsp, dsp->SEGrav, SouthEastGravity);
else if (( report.xany.window == dsp->SWGrav ) &&
( report.xany.type == ButtonPress) &&
((report.xbutton.button & 0xFF) == Button1))
Set_BitGravity(report, dsp, dsp->SWGrav, SouthWestGravity);
else if (( report.xany.window == dsp->NWGrav ) &&
( report.xany.type == ButtonPress) &&
((report.xbutton.button & 0xFF) == Button1))
Set_BitGravity(report, dsp, dsp->NWGrav, NorthWestGravity);
XFlush(dsp->display_id);
} /* end while */
} /* end getXsignaldata() */
enable_Xkeyboard( dsp )
DspInterface dsp;
{
XLOCK;
XSelectInput( dsp->display_id,
dsp->DisplayWindow,
dsp->EnableEventMask );
XFlush( dsp->display_id );
XUNLOCK;
}
disable_Xkeyboard( dsp )
DspInterface dsp;
{
XLOCK;
XSelectInput( dsp->display_id,
dsp->DisplayWindow,
dsp->DisableEventMask );
XFlush( dsp->display_id );
XUNLOCK;
}
beep_Xkeyboard( dsp )
DspInterface dsp;
{
#ifdef TRACE
printf( "TRACE: beep_Xkeyboard()\n" );
#endif
XLOCK;
XBell( dsp->display_id, (int) 50 );
XFlush( dsp->display_id );
XUNLOCK;
} /* end beep_Xkeyboard */
Reference in New Issue View Git Blame Copy Permalink