"

COPYRIGHT (c) 1989-93 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 hasFaxExtension hasShmExtension

                              hasDPSExtension

                              blackpixel whitepixel redMask greenMask blueMask

                              ProtocolsAtom DeleteWindowAtom SaveYourselfAtom

                              QuitAppAtom

                              listOfXFonts eventRootX eventRootY buttonsPressed

                              displayName eventTrace'

       classVariableNames:   'keyPressMask pointerMotionMask

                              buttonPressMask buttonReleaseMask buttonMotionMask

                              exposureMask focusChangeMask structureNotifyMask

                              enterWindowMask leaveWindowMask

                              bitButton1 bitButton2 bitButton3'

       poolDictionaries:''

       category:'Interface-Graphics'

!

XWorkstation comment:'

COPYRIGHT (c) 1989-93 by Claus Gittinger

              All Rights Reserved

this class provides the interface to X11

written spring/summer 89 by claus

'!

%{

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

#define Time XTime

#include <stdio.h>

#include <X11/Xlib.h>

#include <X11/Xutil.h>

#include <X11/Xatom.h>

/*

 * shape support works; enabled by -DSHAPE in makefile

 * see RoundClock and RoundGlobe examples

 */

#ifdef SHAPE

# include <X11/extensions/shape.h>

#endif

/*

 * shared memory extension currently not supported

 * (only query is implemented)

 */

#ifdef SHM

# include <X11/extensions/XShm.h>

#endif

/*

 * this is a non-standard fax-image decompression extension

 * (only found in megascan servers ported by myself)

 */

#ifdef FAX

# include <X11/extensions/XFAXImage.h>

#endif

/*

 * when I have more time to check it out, Ill 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

extern int _immediateInterrupt;

#ifdef THIS_CONTEXT

# define CONARG /* */

#else

# define CONARG __context,

#endif

/*

 * a private error handler

 */

static char lastErrorMsg[80] = "";

static unsigned lastRequestCode = 0;

static unsigned lastMinorCode = 0;

static unsigned lastResource = 0;

static 

ErrorHandler(dpy, event)

    Display *dpy;

    XErrorEvent *event;

{

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

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

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

    }

    lastRequestCode = event->request_code;

    lastMinorCode = event->minor_code;

    lastResource = event->resourceid;

    printf("x-error (%s) cought maj=%x min=%x resource=%x\n",

           lastErrorMsg, event->request_code, event->minor_code,

           event->resourceid);

    errorInterrupt();

    return 0;

}

/*

 * some defines - tired of typing ...

 */

#ifdef hpux

# define _DisplayVal(o)       (Display *)((int)(o) & ~TAG_INT)

# define _WindowVal(o)        (Window)((int)(o) & ~TAG_INT)

# define _PixmapVal(o)        (Pixmap)((int)(o) & ~TAG_INT)

# define _GCVal(o)            (GC)((int)(o) & ~TAG_INT)

# define _CursorVal(o)        (Cursor)((int)(o) & ~TAG_INT)

# define _FontVal(o)          (XFontStruct *)((int)(o) & ~TAG_INT)

# define _AtomVal(o)          (Atom)((int)(o) & ~TAG_INT)

# define _DPSContextVal(o)    (DPSContext)((int)(o) & ~TAG_INT)

#else

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

# define _WindowVal(o)        (Window)(_intVal(o))

# define _PixmapVal(o)        (Pixmap)(_intVal(o))

# define _GCVal(o)            (GC)(_intVal(o))

# define _CursorVal(o)        (Cursor)(_intVal(o))

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

# define _AtomVal(o)          (Atom)(_intVal(o))

# define _DPSContextVal(o)    (DPSContext)(_intVal(o))

#endif

#define myDpy _DisplayVal(_INST(displayId))

%}

!XWorkstation class methodsFor:'initialization'!

initialize

    self initializeDisplayConstants.

    self initializeConstants.

!

initializeDisplayConstants

    "initialize some display constants"

%{  /* NOCONTEXT */

    XWorkstation_keyPressMask = _MKSMALLINT(KeyPressMask);

    XWorkstation_buttonPressMask = _MKSMALLINT(ButtonPressMask);

    XWorkstation_buttonReleaseMask = _MKSMALLINT(ButtonReleaseMask);

    XWorkstation_buttonMotionMask = _MKSMALLINT(Button1MotionMask);

    XWorkstation_pointerMotionMask = _MKSMALLINT(PointerMotionMask);

    XWorkstation_exposureMask = _MKSMALLINT(ExposureMask);

    XWorkstation_focusChangeMask = _MKSMALLINT(FocusChangeMask);

    XWorkstation_enterWindowMask = _MKSMALLINT(EnterWindowMask);

    XWorkstation_leaveWindowMask = _MKSMALLINT(LeaveWindowMask);

    XWorkstation_structureNotifyMask = _MKSMALLINT(StructureNotifyMask);

    XWorkstation_bitButton1 = _MKSMALLINT(Button1Mask);

    XWorkstation_bitButton2 = _MKSMALLINT(Button2Mask);

    XWorkstation_bitButton3 = _MKSMALLINT(Button3Mask);

%}

! !

!XWorkstation class methodsFor:'error handling'!

requestCodeOfLastError

%{  /* NOCONTEXT */

    RETURN ( _MKSMALLINT(lastRequestCode) );

%}

!

minorCodeOfLastError

%{  /* NOCONTEXT */

    RETURN ( _MKSMALLINT(lastMinorCode) );

%}

!

resourceIdOfLastError

%{  /* NOCONTEXT */

    RETURN ( _MKSMALLINT(lastResource) );

%}

!

lastError

    "return the last X-error string - 

     when buffering is on, this may be

     an error for a long-ago operation"

%{

    RETURN ( _MKSTRING(lastErrorMsg, __context) );

%}

! !

!XWorkstation methodsFor:'initialize / release'!

initializeFor:aDisplayName

    "initialize the receiver for a connection to an X-Server;

     the argument, aDisplayName may be nil (for the default server from

     DISPLAY-variable) or the name of the server as hostname:number"

     "{ Symbol: unknown    }"

     "{ Symbol: color      }"

     "{ Symbol: monochrome }"

%{

    int screen;

    Display *dpy;

    Visual *visual;

    int shapeEventBase, shapeErrorBase;

    int shmEventBase, shmErrorBase;

    int faxEventBase, faxErrorBase;

    char *type;

    int dummy;

    if (_INST(displayId) != nil) {

        RETURN ( self );

    }

    if (aDisplayName != nil)

        dpy = XOpenDisplay((char *)_stringVal(aDisplayName));

    else

        dpy = XOpenDisplay(NULL);

    if (dpy) {

#ifdef SUPERDEBUG

        XSynchronize(dpy, 1);

#endif

        _INST(screen) = _MKSMALLINT(screen = DefaultScreen(dpy));

        _INST(displayId) = MKOBJ((int)dpy);

        _INST(depth) = _MKSMALLINT(DisplayPlanes(dpy, screen));

        _INST(ncells) = _MKSMALLINT(DisplayCells(dpy, screen));

        _INST(width) = _MKSMALLINT(DisplayWidth(dpy, screen));

        _INST(height) = _MKSMALLINT(DisplayHeight(dpy, screen));

        _INST(widthMM) = _MKSMALLINT(DisplayWidthMM(dpy, screen));

        _INST(heightMM) = _MKSMALLINT(DisplayHeightMM(dpy, screen));

        _INST(blackpixel) = _MKSMALLINT(BlackPixel(dpy, screen));

        _INST(whitepixel) = _MKSMALLINT(WhitePixel(dpy, screen));

#ifdef SHAPE

        if (XShapeQueryExtension(dpy, &shapeEventBase, &shapeErrorBase))

            _INST(hasShapeExtension) = true;

        else

#else

        _INST(hasShapeExtension) = false;

#endif

#ifdef SHM

        if (XShmQueryExtension(dpy, &shmEventBase, &shmErrorBase))

            _INST(hasShmExtension) = true;

        else

#else

        _INST(hasShmExtension) = false;

#endif

#ifdef FAX

        if (XFAXImageQueryExtension(dpy, &faxEventBase, &faxErrorBase))

            _INST(hasFaxExtension) = true;

        else

#else

        _INST(hasFaxExtension) = false;

#endif

#ifdef DPS

        if (XQueryExtension(dpy, "DPSExtension", &dummy, &dummy, &dummy))

            _INST(hasDPSExtension) = true;

        else

#else

        _INST(hasDPSExtension) = false;

#endif

        visual = DefaultVisualOfScreen(DefaultScreenOfDisplay(dpy));

        switch (visual->class) {

            case StaticGray:

                type = "StaticGray";

                _INST(hasColors) = false;

                _INST(hasGreyscales) = true;

                _INST(monitorType) = _monochrome;

                break;

            case GrayScale:

                type = "GrayScale";

                _INST(hasColors) = false;

                _INST(hasGreyscales) = true;

                _INST(monitorType) = _monochrome;

                break;

            case StaticColor:

                type = "StaticColor";

                _INST(hasColors) = true;

                _INST(hasGreyscales) = true;

                _INST(monitorType) = _unknown;

                break;

            case PseudoColor:

                type = "PseudoColor";

                _INST(hasColors) = true;

                _INST(hasGreyscales) = true;

                _INST(monitorType) = _unknown;

                break;

            case TrueColor:

                type = "TrueColor";

                _INST(hasColors) = true;

                _INST(hasGreyscales) = true;

                _INST(monitorType) = _unknown;

                break;

            case DirectColor:

                type = "DirectColor";

                _INST(hasColors) = true;

                _INST(hasGreyscales) = true;

                _INST(monitorType) = _unknown;

                break;

        }

        if (DisplayCells(dpy, screen) == 2) {

            _INST(hasColors) = false;

            _INST(hasGreyscales) = false;

            _INST(monitorType) = _monochrome;

        }

        _INST(bitsPerRGB) = _MKSMALLINT(visual->bits_per_rgb);

        _INST(redMask)   = _MKSMALLINT(visual->red_mask);

        _INST(greenMask) = _MKSMALLINT(visual->green_mask);

        _INST(blueMask)  = _MKSMALLINT(visual->blue_mask);

        _INST(visualType) = _MKSYMBOL(type, (OBJ *)0, __context);

        XSetErrorHandler(ErrorHandler);

    }

%}

.

    displayId isNil ifTrue:[

        "

        self fatalError:'cannot connect to Display.'.

        Smalltalk exit

        "

        'cannot connect to Display.' printNewline.

        ^ nil

    ].

    dispatching := false.

    shiftDown := false.

    controlDown := false.

    metaDown := false.

    altDown := false.

    motionEventCompression := true.

    buttonsPressed := 0.

    displayName := aDisplayName.

    ProtocolsAtom := nil.

    DeleteWindowAtom := nil.

    SaveYourselfAtom := nil.

    QuitAppAtom := nil.

    self initializeKeyboardMap.

    ObjectMemory errorInterruptHandler:self class.

!

close

    "close down the connection to the X-server"

%{  /* NOCONTEXT */

    Display *dpy;

    if (_INST(displayId) != nil) {

        XCloseDisplay(myDpy);

        _INST(displayId) = nil;

    }

%}

! !

!XWorkstation methodsFor:'misc'!

setInputFocusTo:aWindowId

%{  /* NOCONTEXT */

    if (_isSmallInteger(aWindowId)) {

        XSetInputFocus(myDpy, _WindowVal(aWindowId), RevertToParent, CurrentTime);

        RETURN ( self );

    }

%}

.

    self primitiveFailed

!

unBuffered

    "make all drawing be sent immediately to the display"

%{  /* NOCONTEXT */

    XSynchronize(myDpy, 1);

%}

    "Display unbuffered"

!

buffered

    "buffer drawing - do not send it immediately to the display"

%{  /* NOCONTEXT */

    XSynchronize(myDpy, 0);

%}

    "Display buffered"

!

synchronizeOutput

    "send all buffered drawing to the display"

%{  /* NOCONTEXT */

    XSync(myDpy, 0);

%}

!

flushDpsContext:aDPSContext

%{  /* NOCONTEXT */

#ifdef DPS

    if (_isSmallInteger(aDPSContext)) {

        DPSFlushContext(MKDPSCONTEXT(aDPSContext));

        RETURN ( self );

    }

#endif

%}

.

    self primitiveFailed

!

beep:volumeInPercent

    "output an audible beep"

%{

    int volume;

    if (_isSmallInteger(volume)) {

        /* stupid: X wants -100 .. 100 and calls this percent */

        volume = _intVal(volumeInPercent) * 2 - 100;

        if (volume < -100) volume = -100;

        else if (volume > 100) volume = 100;

        XBell(myDpy, volume);

    }

%}

!

beep

    "output an audible beep or bell"

    self beep:50

! !

!XWorkstation methodsFor:'accessing & queries'!

displayFileDescriptor

    "return the displays fileNumber - for select"

%{  /* NOCONTEXT */

    RETURN ( MKOBJ(ConnectionNumber(myDpy)) );

%}

!

serverVendor

    "return the X-server vendor string - this should normally not be of

     any interrest, but can be for special cases

     (to avoid bugs in certain implementations)"

%{

    RETURN ( _MKSTRING(XServerVendor(myDpy), __context) );

%}

!

vendorRelease

    "return the X-servers vendor release - should normally not be of

     any interrest, but can be for special cases.

     (to avoid bugs in certain implementations)"

%{

    RETURN ( _MKSMALLINT(XVendorRelease(myDpy)) );

%}

!

protocolVersion

    "return the X-servers protocol version - should normally not be of

     any interrest"

%{

    RETURN ( _MKSMALLINT(XProtocolVersion(myDpy)) );

%}

!

hasShape

    "return true, if this workstation supports non-rectangular windows"

    ^ hasShapeExtension

!

hasShm

    "return true, if this workstation supports shared pixmaps"

    ^ hasShmExtension

!

hasFax

    "return true, if this workstation supports decompression of fax images"

    ^ hasFaxExtension

!

hasDPS

    "return true, if this workstation supports display postscript"

    ^ hasDPSExtension

!

blackpixel

    "return the colornumber of black"