"

COPYRIGHT (c) 1989 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

DeviceWorkstation subclass:#XWorkstation

	instanceVariableNames:'screen hasShapeExtension hasShmExtension hasDPSExtension

		hasMbufExtension hasXVideoExtension hasSaveUnder hasPEXExtension

		hasImageExtension hasInputExtension ignoreBackingStore blackpixel

		whitepixel protocolsAtom deleteWindowAtom saveYourselfAtom

		quitAppAtom primaryAtom secondaryAtom cutBuffer0Atom stringAtom

		lengthAtom wmStateAtom listOfXFonts buttonsPressed eventRootX

		eventRootY displayName eventTrace dispatchingExpose rgbVisual

		virtualRootId rootId eventBuffer altModifierMask metaModifierMask

		multiClickTime deviceErrorSignal deviceIOErrorSignal'

	classVariableNames:'RawKeysymTranslation ConservativeSync'

	poolDictionaries:''

	category:'Interface-Graphics'

!

!XWorkstation primitiveDefinitions!

%{

#ifdef LINUX

# define SHM

#endif

#define COUNT_RESOURCES

#ifdef COUNT_RESOURCES

static int __cnt_color = 0;

static int __cnt_bitmap = 0;

static int __cnt_view = 0;

static int __cnt_gc = 0;

static int __cnt_cursor = 0;

static int __cnt_font = 0;

#endif

/*

 * x does a typedef Time - I need Object Time ...

 */

#define Time XTime

/*

 * x does a #define True / False

 * we are lucky - the ST/X True/False are not needed

 */

#undef True

#undef False

#ifdef memset

# undef memset

#endif

#ifdef __openVMS__

# undef __new

#endif

#include <stdio.h>

#include <X11/Xlib.h>

#include <X11/Xutil.h>

#include <X11/Xatom.h>

#define XK_MISCELLANY

#include <X11/keysymdef.h>

#include <X11/cursorfont.h>

/*

 * this define suppresses XAllocColor/XFreeColor on

 * TrueColor systems - I am not certain, if this is

 * always legal to do (it works with XFree servers).

 */

#define QUICK_TRUE_COLORS

/*

 * shape support works; enabled by -DSHAPE in makefile

 * see RoundClock and RoundGlobe examples

 */

#ifdef SHAPE

# include <X11/extensions/shape.h>

#endif

/*

 * shared memory extension access is currently not supported

 * (only query is implemented)

 */

#ifdef SHM

# include <X11/extensions/XShm.h>

#endif

/*

 * multiBuffer extension access is currently not supported

 * (only query is implemented)

 */

#ifdef MBUF

# include <X11/extensions/multibuf.h>

#endif

/*

 * XVideo extension access is currently not supported

 * (only query is implemented)

 */

#ifdef XVIDEO

# include <X11/extensions/Xv.h>

#endif

/*

 * PEX extension - if available

 */

#ifdef PEX5

# include <PEX5/PEX.h>

#endif

/*

 * XImage extension - if available

 */

#ifdef XIE

# include <X11/extensions/XIE.h>

#endif

/*

 * when I have more time to check it out, I will support display-PS

 */

#ifdef DPS

# ifdef sgi

#  include <X11/extensions/XDPS.h>

#  include <X11/extensions/XDPSlib.h>

#  include <X11/extensions/dpsXclient.h>

# else

#  include <DPS/XDPS.h>

#  include <DPS/XDPSlib.h>

#  include <DPS/dpsXclient.h>

# endif

#endif

#if defined(someMachine)

/*

 * if nformats cannot be found in the Display structure ...

 */

# define NO_PRIVATE_DISPLAY_ACCESS

#endif

#if defined(IRIX5) || defined(__VMS) || (XlibSpecificationRelease == 6)

  /*

   * accessing private data in Display ... sorry

   */

# define DISPLAYACCESS(d) ((_XPrivDisplay)d)

#else

# define DISPLAYACCESS(d) d

#endif

/*

 * some defines - tired of typing ...

 */

#define _DisplayVal(o)       (Display *)(__externalAddressVal(o))

#define _WindowVal(o)        (Window)(__externalAddressVal(o))

#define _PixmapVal(o)        (Pixmap)(__externalAddressVal(o))

#define _GCVal(o)            (GC)(__externalAddressVal(o))

#define _CursorVal(o)        (Cursor)(__externalAddressVal(o))

#define _FontVal(o)          (XFontStruct *)(__externalAddressVal(o))

#define _DPSContextVal(o)    (DPSContext)(__externalAddressVal(o))

#define __MKATOMOBJ(a)       __MKSMALLINT(a)

#define _AtomVal(o)          __intVal(o)

#define __isAtomID(o)        __isSmallInteger(o)

#define myDpy                _DisplayVal(__INST(displayId))

#define ISCONNECTED          (__INST(displayId) != nil)

#ifndef THISCONTEXT_IN_REGISTER

# define BEGIN_INTERRUPTSBLOCKED /* */

# define END_INTERRUPTSBLOCKED /* */

#else

# define BEGIN_INTERRUPTSBLOCKED        \

    {                                   \

	int needUnblock = 0;            \

					\

	__BEGIN_PROTECT_REGISTERS__     \

	if (!__interruptsBlocked) {     \

	    __BLOCKINTERRUPTS();        \

	    needUnblock = 1;            \

	}

# define END_INTERRUPTSBLOCKED_NOW      \

	__END_PROTECT_REGISTERS__       \

	if (needUnblock) {              \

	    __UNBLOCKINTERRUPTS();      \

	}                               \

    }

# define END_INTERRUPTSBLOCKED          \

	__END_PROTECT_REGISTERS__

#endif

#ifdef __VMS__

# include "vms_Xnames.h"

#endif

%}

! !

!XWorkstation primitiveVariables!

%{

/*

 * remembered info from private error handler

 */

static char lastErrorMsg[80] = "";

static unsigned INT lastRequestCode = 0;

static unsigned INT lastMinorCode = 0;

static unsigned INT lastResource = 0;

static int __debug__ = 0;

#define DPRINTF(x)      if (__debug__) { printf x; }

%}

! !

!XWorkstation primitiveFunctions!

%{

/*

 * some systems need a dummy reference to force the linker

 * to include that stuff. Should be #ifdef'd ...

 */

#ifndef ELF

# ifdef __GNUC__

VOLATILE 

# endif

static

dummyToForceLoading() {

	XCreateSimpleWindow(0, 0, 0, 0, 0, 0, 0, 0, 0);

	XCloseDisplay(0);

	XCreateImage(0, 0, 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0);

	XSetWindowColormap(0, 0, 0);

	XQueryColors(0,0,0,0);

# ifdef SHM

	XShmAttach(0, 0);

	XShmCreateImage(0, 0, 0, 0, 0, 0, 0 ,0);

	XShmDetach(0, 0);

	XShmPutImage(0, 0, 0, 0 , 0,0,0,0,0,0,0);

	shmctl(0,0,0);

	fgetc(0);

# endif

}

#endif

/*

 * catch X-errors and forward as errorInterrupt:#DisplayError,

 * (which itself invokes my handler and optionally raises an exceptionSignal)

 * the implementation below is somewhat wrong: it will

 * report all errors for Display, even though there could be

 * more than one display connection. (being fixed, new errorInterrupt mechanism

 * allows passing an additional argument, which is the displayID ...)

 */

__XErrorHandler__(dpy, event)

    Display *dpy;

    XErrorEvent *event;

{

    XGetErrorText(dpy, event->error_code, lastErrorMsg, 79);

    lastErrorMsg[79] = '\0';

    if (lastErrorMsg[0] == '\0') {

	sprintf(lastErrorMsg, "code: %d", event->error_code);

    }

    lastRequestCode = event->request_code;

    lastMinorCode = event->minor_code;

    lastResource = event->resourceid;

    if ((event->error_code == BadWindow) && (lastRequestCode == 4) && (lastMinorCode == 0)) {

	/* 

	 * this is a BadWindow error for X_DestroyWindow.

	 * ignore it here, since it results from the GC freeing windows

	 * in non bottom-up window order.

	 */

	return 0;

    }

    if (@global(ErrorPrinting) == true) {

	fprintf(stderr, "XWorkstation [error]: x-error caught maj=%d (0x%x) min=%d (0x%x) resource=%x\n",

			event->request_code, event->request_code, 

			event->minor_code, event->minor_code, event->resourceid);

	fprintf(stderr, "XWorkstation [error]: x-error message is [%d] '%s'\n", event->error_code, lastErrorMsg);

    }

    __errorInterruptWithIDAndParameter__(@symbol(DisplayError), __MKEXTERNALADDRESS(dpy));

    return 0;

}

/*

 * much like the above, but for IO Errors;

 * In single display apps, handling those here does not

 * really make sense (except, for a controlled cleanup).

 * However, in multiDisplay apps, a single broken

 * connection should not affect the other users.

 */

__XIOErrorHandler__(dpy)

    Display *dpy;

{

    if (@global(ErrorPrinting) == true) {

	fprintf(stderr, "XWorkstation [error]: I/O error\n");

    }

    __immediateErrorInterruptWithIDAndParameter__(@symbol(DisplayIOError), __MKEXTERNALADDRESS(dpy));

    __internalError("unhandled display I/O error");

    __terminateProcess(0);      /* soft terminate */

    __terminateProcess(1);      /* hard terminate */

}

#ifdef VIRTUAL_ROOT

/*

 * added since RootWindow-macro is not sufficient

 * when virtual root-windows are involved (i.e. tvtwm)

 */

static Window

getRootWindow(dpy, screen)

    Display *dpy;

{

    Window root;

    Atom vRootAtom = None;

    int i;

    Window rootReturn, parentReturn;

    Window* children = (Window *)0;

    unsigned int numChildren;

    root = RootWindow(dpy, screen);

    /*

     * on IRIS, this creates a badwindow error - why ?

     * children contains a funny window (000034)

     */

# if !defined(IRIS) || defined(IRIX5)

    if (root) {

	if (XQueryTree(dpy, root, &rootReturn, &parentReturn, &children, &numChildren)) {

	    vRootAtom = XInternAtom(dpy, "__SWM_VROOT", True );

	    if (vRootAtom != None) {

		for (i=0; i < numChildren; i++) {

		    Atom actual_type;

		    int actual_format;

		    unsigned long nitems, bytesafter;

		    Window* newRoot = (Window*) 0;

		    if (children[i]) {

			if (XGetWindowProperty(dpy, children[i], vRootAtom,

					       0L, 1L, False, XA_WINDOW,

					       &actual_type, &actual_format, &nitems, &bytesafter,

					       (unsigned char**) &newRoot) == Success && newRoot) {

			    root = *newRoot;

			    XFree(newRoot); /* XXX */

			    break;

			}

		    }

		}

	    }

	    if (children) XFree( children );

	}

    }

# endif

    return root;

}

#endif

%}

! !

!XWorkstation class methodsFor:'documentation'!

copyright

"

COPYRIGHT (c) 1989 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    this class provides the interface to X11. It redefines all required methods

    from DeviceWorkstation. Notice, that in Smalltalk/X you are not technically

    limited to one display - in theory, you can create Views on many displays

    simultanously. However, the default setup is for one display only.

    To support multiple displays, you will have to start another event dispatcher

    process for the other display(s) and create the other views with a slightly

    different protocol. However, 'normal' applications do not have to care for

    all of this ...

    See more documentation in my superclass, DeviceWorkstation.

    [author:]

	Claus Gittinger

"

! !

!XWorkstation class methodsFor:'initialization'!

initialize

    |d|

    super initialize.

    RawKeysymTranslation isNil ifTrue:[

	"/ the following table maps X-keyevents to ST/X

	"/ device independed events. 

	"/ It is NOT meant as a keyboardMap replacement.

	RawKeysymTranslation := d := Dictionary new.

	d at:'Delete_line' put:#DeleteLine.

	d at:'Delete_word' put:#DeleteWord.

	d at:'Down' put:#CursorDown.

	d at:'Up' put:#CursorUp.

	d at:'Left' put:#CursorLeft.

	d at:'Right' put:#CursorRight.

    ]

! !

!XWorkstation class methodsFor:'error handling'!

debug:aBoolean

%{  /* NOCONTEXT */

    __debug__ = (aBoolean == true) ? 1 : 0;

%}

!

debugResources

%{

#ifdef COUNT_RESOURCES

    printf("colors:%d bitmaps:%d views:%d gc:%d cursors:%d fonts:%d\n",

	    __cnt_color, __cnt_bitmap,

	    __cnt_view, __cnt_gc, __cnt_cursor, __cnt_font);

#endif

%}

    "

     XWorkstation debugResources

    "

!

errorStringOfLastError

%{

    RETURN ( __MKSTRING(lastErrorMsg) );

%}

!

lastErrorString

    "return the last X-error string - 

     when buffering is on, this may be

     an error for a long-ago operation"

    |string requestCode s match line|

    string := self errorStringOfLastError.

    requestCode := self requestCodeOfLastError.

    "

     X specific: search the requestCode in '/usr/lib/X11/XErrorDB',

     and append the name of the corresponding X-request

    "

    s := '/usr/lib/X11/XErrorDB' asFilename readStream.

    s notNil ifTrue:[

	match := 'XRequest.' , requestCode printString.

	line := s peekForLineStartingWith:match.

	line notNil ifTrue:[

	    string := string , ' in ' , (line copyFrom:(line indexOf:$:)+1)

	].

	s close.

    ].

    ^ string

!

minorCodeOfLastError

%{  /* NOCONTEXT */

    RETURN ( __MKSMALLINT(lastMinorCode) );

%}