hg/stx-libview: comparison XWorkstation.st

equal deleted inserted replaced

-:a0d448023a54
+:42948798db7f
 # define END_INTERRUPTSBLOCKED /* */
 #else
 extern int __interruptsBlocked;
 # define BEGIN_INTERRUPTSBLOCKED        \
 {                                   \
-int needUnblock = 0;            \
+	int needUnblock = 0;            \
-extern OBJ __thisContext__;     \
+	extern OBJ __thisContext__;     \
-\
+					\
-__thisContext__ = __thisContext;\
+	__thisContext__ = __thisContext;\
-if (!__interruptsBlocked) {     \
+	if (!__interruptsBlocked) {     \
-__BLOCKINTERRUPTS();        \
+	    __BLOCKINTERRUPTS();        \
-needUnblock = 1;            \
+	    needUnblock = 1;            \
-}
+	}
 # define END_INTERRUPTSBLOCKED          \
-__thisContext = __thisContext;  \
+	__thisContext = __thisContext;  \
-__thisContext__ = 0;            \
+	__thisContext__ = 0;            \
-if (needUnblock) {              \
+	if (needUnblock) {              \
-__UNBLOCKINTERRUPTS();      \
+	    __UNBLOCKINTERRUPTS();      \
-}                               \
+	}                               \
 }
 #endif
 %}
 ! !
 all of this ...
 See more documentation in my superclass, DeviceWorkstation.
 [author:]
-Claus Gittinger
+	Claus Gittinger
 "
 ! !
 !XWorkstation class methodsFor:'initialization'!
 int screen = __intVal(__INST(screen));
 XIconSize *sizeList;
 int cnt;
 if (ISCONNECTED) {
-if (XGetIconSizes(myDpy, RootWindow(dpy, screen), &sizeList, &cnt) > 0) {
+	if (XGetIconSizes(myDpy, RootWindow(dpy, screen), &sizeList, &cnt) > 0) {
-xIconSizes = __MKEXTERNALBYTES(sizeList);
+	   xIconSizes = __MKEXTERNALBYTES(sizeList);
-count = __MKSMALLINT(cnt);
+	   count = __MKSMALLINT(cnt);
-}
+	}
 }
 %}.
 xIconSizes isNil ifTrue:[^ nil].
 ret := OrderedCollection new:count.
 1 to:count do:[ :i |
-|minWidth minHeight maxWidth maxHeight widthStep heightStep d|
+	|minWidth minHeight maxWidth maxHeight widthStep heightStep d|
 %{
-XIconSize *slp;
+	XIconSize *slp;
-slp = &((XIconSize *)__externalBytesAddress(xIconSizes))[__intVal(i)-1];
+	slp = &((XIconSize *)__externalBytesAddress(xIconSizes))[__intVal(i)-1];
-minWidth = __MKSMALLINT(slp->min_width);
+	minWidth = __MKSMALLINT(slp->min_width);
-minHeight = __MKSMALLINT(slp->min_height);
+	minHeight = __MKSMALLINT(slp->min_height);
-maxWidth = __MKSMALLINT(slp->max_width);
+	maxWidth = __MKSMALLINT(slp->max_width);
-maxHeight = __MKSMALLINT(slp->max_height);
+	maxHeight = __MKSMALLINT(slp->max_height);
-widthStep = __MKSMALLINT(slp->width_inc);
+	widthStep = __MKSMALLINT(slp->width_inc);
-heightStep = __MKSMALLINT(slp->height_inc);
+	heightStep = __MKSMALLINT(slp->height_inc);
 %}.
-d := IdentityDictionary new.
+	d := IdentityDictionary new.
-d at:#minWidth put:minWidth.
+	d at:#minWidth put:minWidth.
-d at:#maxWidth put:maxWidth.
+	d at:#maxWidth put:maxWidth.
-d at:#widthStep put:widthStep.
+	d at:#widthStep put:widthStep.
-d at:#minHeight put:minHeight.
+	d at:#minHeight put:minHeight.
-d at:#maxHeight put:maxHeight.
+	d at:#maxHeight put:maxHeight.
-d at:#heightStep put:heightStep.
+	d at:#heightStep put:heightStep.
-ret add:d
+	ret add:d
 ].
 xIconSizes free.
 ^ ret
 preferredIconSize
 "return the displays preferred size for icons.
 Redefined to return a special value on SGI servers."
 self serverVendor = 'Silicon Graphics' ifTrue:[
-^ 86@68
+	^ 86@68
 ].
 ^ super preferredIconSize
 "Created: 10.6.1996 / 21:06:48 / cg"
 !
 createWindowFor:aView left:xpos top:ypos width:wwidth height:wheight
 "will vanish - for compatibility with previous versions"
 ^ self
-createWindowFor:aView
+	  createWindowFor:aView
-origin:(xpos @ ypos)
+	  origin:(xpos @ ypos)
-extent:(wwidth @ wheight)
+	  extent:(wwidth @ wheight)
-minExtent:(aView minExtent)
+	  minExtent:(aView minExtent)
-maxExtent:(aView maxExtent)
+	  maxExtent:(aView maxExtent)
-borderWidth:(aView borderWidth)
+	  borderWidth:(aView borderWidth)
-subViewOf:(aView superView)
+	  subViewOf:(aView superView)
-onTop:(aView isPopUpView)
+	  onTop:(aView isPopUpView)
-inputOnly:(aView isInputOnly)
+	  inputOnly:(aView isInputOnly)
-label:(aView label)
+	  label:(aView label)
-cursor:(aView cursor)
+	  cursor:(aView cursor)
-icon:(aView icon)
+	  icon:(aView icon)
-iconView:(aView iconView)
+	  iconView:(aView iconView)
 "Modified: 1.6.1996 / 13:22:48 / cg"
 !
 createWindowFor:aView
 char *colorname;
 Display *dpy = myDpy;
 XColor scolor, ecolor;
 int screen = __intVal(__INST(screen));
+int id;
 Status ok;
 if (ISCONNECTED) {
-if (__isString(aString) || __isSymbol(aString)) {
+	if (__isString(aString) || __isSymbol(aString)) {
-colorname = (char *)_stringVal(aString);
+	    colorname = (char *)_stringVal(aString);
-BEGIN_INTERRUPTSBLOCKED
+	    BEGIN_INTERRUPTSBLOCKED
-ok = XParseColor(dpy, DefaultColormap(dpy, screen), colorname, &ecolor);
+	    ok = XParseColor(dpy, DefaultColormap(dpy, screen), colorname, &ecolor);
-if (ok) {
+	    if (ok) {
 #ifdef QUICK_TRUE_COLORS
-if (__INST(visualType) == @symbol(TrueColor)) {
+		if (__INST(visualType) == @symbol(TrueColor)) {
-id = ((ecolor.red >> (16 - __intVal(__INST(bitsRed)))) << __intVal(__INST(redShift))) & __intVal(__INST(redMask));
+		    id = ((ecolor.red >> (16 - __intVal(__INST(bitsRed)))) << __intVal(__INST(redShift))) & __intVal(__INST(redMask));
-id += ((ecolor.green >> (16 - __intVal(__INST(bitsGreen)))) << __intVal(__INST(greenShift))) & __intVal(__INST(greenMask));
+		    id += ((ecolor.green >> (16 - __intVal(__INST(bitsGreen)))) << __intVal(__INST(greenShift))) & __intVal(__INST(greenMask));
-id += ((ecolor.blue >> (16 - __intVal(__INST(bitsBlue)))) << __intVal(__INST(blueShift))) & __intVal(__INST(blueMask));
+		    id += ((ecolor.blue >> (16 - __intVal(__INST(bitsBlue)))) << __intVal(__INST(blueShift))) & __intVal(__INST(blueMask));
-RETURN ( __MKSMALLINT(id) );
+		    RETURN ( __MKSMALLINT(id) );
-}
+		}
 #endif
-ok = XAllocColor(dpy, DefaultColormap(dpy, screen), &ecolor);
+		ok = XAllocColor(dpy, DefaultColormap(dpy, screen), &ecolor);
-}
+	    }
-END_INTERRUPTSBLOCKED
+	    END_INTERRUPTSBLOCKED
-if (! ok) {
+	    if (! ok) {
-RETURN ( nil );
+		RETURN ( nil );
-}
+	    }
-RETURN ( __MKSMALLINT(ecolor.pixel) );
+	    RETURN ( __MKSMALLINT(ecolor.pixel) );
-}
+	}
 }
 %}.
 self primitiveFailed.
 ^ nil
 !
 int id;
 if (__bothSmallInteger(r, g)
 && __isSmallInteger(b)
 && ISCONNECTED) {
-ecolor.red = __intVal(r);
+	ecolor.red = __intVal(r);
-ecolor.green= __intVal(g);
+	ecolor.green= __intVal(g);
-ecolor.blue = __intVal(b);
+	ecolor.blue = __intVal(b);
 #ifdef QUICK_TRUE_COLORS
-if (__INST(visualType) == @symbol(TrueColor)) {
+	if (__INST(visualType) == @symbol(TrueColor)) {
-id = ((ecolor.red >> (16 - __intVal(__INST(bitsRed)))) << __intVal(__INST(redShift))) & __intVal(__INST(redMask));
+	    id = ((ecolor.red >> (16 - __intVal(__INST(bitsRed)))) << __intVal(__INST(redShift))) & __intVal(__INST(redMask));
-id += ((ecolor.green >> (16 - __intVal(__INST(bitsGreen)))) << __intVal(__INST(greenShift))) & __intVal(__INST(greenMask));
+	    id += ((ecolor.green >> (16 - __intVal(__INST(bitsGreen)))) << __intVal(__INST(greenShift))) & __intVal(__INST(greenMask));
-id += ((ecolor.blue >> (16 - __intVal(__INST(bitsBlue)))) << __intVal(__INST(blueShift))) & __intVal(__INST(blueMask));
+	    id += ((ecolor.blue >> (16 - __intVal(__INST(bitsBlue)))) << __intVal(__INST(blueShift))) & __intVal(__INST(blueMask));
-RETURN ( __MKSMALLINT(id) );
+	    RETURN ( __MKSMALLINT(id) );
-}
+	}
 #endif
-BEGIN_INTERRUPTSBLOCKED
+	BEGIN_INTERRUPTSBLOCKED
-ok = XAllocColor(dpy, DefaultColormap(dpy, screen), &ecolor);
+	ok = XAllocColor(dpy, DefaultColormap(dpy, screen), &ecolor);
-END_INTERRUPTSBLOCKED
+	END_INTERRUPTSBLOCKED
-if (! ok) {
+	if (! ok) {
-RETURN ( nil );
+	    RETURN ( nil );
-}
+	}
-RETURN ( __MKSMALLINT(ecolor.pixel) );
+	RETURN ( __MKSMALLINT(ecolor.pixel) );
 }
 %}.
 self primitiveFailed.
 ^ nil
 !
 unsigned long color;
 int screen = __intVal(__INST(screen));
 #ifdef QUICK_TRUE_COLORS
 if (__INST(visualType) == @symbol(TrueColor)) {
-/* no need to do anything on TrueColor displays ... */
+	/* no need to do anything on TrueColor displays ... */
-RETURN (self);
+	RETURN (self);
 }
 #endif
 if (__isSmallInteger(colorIndex) && ISCONNECTED) {
-color = (long) __intVal(colorIndex);
+	color = (long) __intVal(colorIndex);
-BEGIN_INTERRUPTSBLOCKED
+	BEGIN_INTERRUPTSBLOCKED
-XFreeColors(dpy, DefaultColormap(dpy, screen), &color, 1, 0L);
+	XFreeColors(dpy, DefaultColormap(dpy, screen), &color, 1, 0L);
-END_INTERRUPTSBLOCKED
+	END_INTERRUPTSBLOCKED
-RETURN ( self );
+	RETURN ( self );
 }
 %}.
 self primitiveFailed
 !
 |val|
 self getScaledRGBFrom:index into:[:r :g :b |
 	val := aBlock
 		value:(r * 100.0 / 16rFFFF)
-	        value:(g * 100.0 / 16rFFFF)
+		value:(g * 100.0 / 16rFFFF)
-	        value:(b * 100.0 / 16rFFFF)
+		value:(b * 100.0 / 16rFFFF)
 ].
 ^ val
 !
 getRGBFromName:colorName into:aBlock
 "get rgb components (0..100) of color named colorName,
 and evaluate the 3-arg block, aBlock with them"
 |val|
 self getScaledRGBFromName:colorName into:[:r :g :b |
-val := aBlock
+	val := aBlock
-value:(r * 100.0 / 16rFFFF)
+		value:(r * 100.0 / 16rFFFF)
-value:(g * 100.0 / 16rFFFF)
+		value:(g * 100.0 / 16rFFFF)
-value:(b * 100.0 / 16rFFFF)
+		value:(b * 100.0 / 16rFFFF)
 ].
 ^ val
 !
 getScaledRGBFrom:index into:aBlock
 Window win;
 int w, h, angle1, angle2;
 double f;
 if (__isSmallInteger(startAngle))
-angle1 = __intVal(startAngle) * 64;
+	angle1 = __intVal(startAngle) * 64;
 else if (__isFloat(startAngle)) {
-f = __floatVal(startAngle);
+	f = __floatVal(startAngle);
-angle1 = f * 64;
+	angle1 = f * 64;
 }
 if (__isSmallInteger(angle))
-angle2 = __intVal(angle) * 64;
+	angle2 = __intVal(angle) * 64;
 else if (__isFloat(angle)) {
-f = __floatVal(angle);
+	f = __floatVal(angle);
-angle2 = f * 64;
+	angle2 = f * 64;
 }
 if (__isExternalAddress(aGCId)
 && __isExternalAddress(aDrawableId)
 && __bothSmallInteger(x, y)
 && __bothSmallInteger(width, height)) {
-win = _WindowVal(aDrawableId);
+	win = _WindowVal(aDrawableId);
-gc = _GCVal(aGCId);
+	gc = _GCVal(aGCId);
-w = __intVal(width);
+	w = __intVal(width);
-h = __intVal(height);
+	h = __intVal(height);
-/*
+	/*
-* need this check here: some servers simply dump core with bad args
+	 * need this check here: some servers simply dump core with bad args
-*/
+	 */
-if ((w >= 0) && (h >= 0) && (angle1 >= 0) && (angle2 >= 0)) {
+	if ((w >= 0) && (h >= 0) && (angle1 >= 0) && (angle2 >= 0)) {
-XDrawArc(myDpy, win, gc, __intVal(x), __intVal(y),
+	    XDrawArc(myDpy, win, gc, __intVal(x), __intVal(y),
-w, h, angle1, angle2);
+				   w, h, angle1, angle2);
-}
+	}
-RETURN ( self );
+	RETURN ( self );
 }
 %}.
 "badGC, badDrawable or coordinates not integer"
 self primitiveFailed
 !
 if (__isExternalAddress(aGCId)
 && __isExternalAddress(aDrawableId)
 && __isNonNilObject(aString)
 && __bothSmallInteger(index1, index2)
 && __bothSmallInteger(x, y)) {
-gc = _GCVal(aGCId);
+	gc = _GCVal(aGCId);
-win = _WindowVal(aDrawableId);
+	win = _WindowVal(aDrawableId);
-cls = __qClass(aString);
+	cls = __qClass(aString);
-i1 = __intVal(index1) - 1;
+	i1 = __intVal(index1) - 1;
-if (i1 >= 0) {
+	if (i1 >= 0) {
-i2 = __intVal(index2) - 1;
+	    i2 = __intVal(index2) - 1;
-if (i2 < i1) {
+	    if (i2 < i1) {
-RETURN (self);
+		RETURN (self);
-}
+	    }
-cp = _stringVal(aString);
+	    cp = _stringVal(aString);
-l = i2 - i1 + 1;
+	    l = i2 - i1 + 1;
-if ((cls == @global(String)) || (cls == @global(Symbol))) {
+	    if ((cls == @global(String)) || (cls == @global(Symbol))) {
-n = _stringSize(aString);
+		n = _stringSize(aString);
-if (i2 < n) {
+		if (i2 < n) {
-cp += i1;
+		    cp += i1;
-if (l > 1000) l = 1000;
+		    if (l > 1000) l = 1000;
-if (opaque == true)
+		    if (opaque == true)
-XDrawImageString(myDpy, win, gc, __intVal(x), __intVal(y), (char *)cp, l);
+			XDrawImageString(myDpy, win, gc, __intVal(x), __intVal(y), (char *)cp, l);
-else
+		    else
-XDrawString(myDpy, win, gc, __intVal(x), __intVal(y), (char *)cp, l);
+			XDrawString(myDpy, win, gc, __intVal(x), __intVal(y), (char *)cp, l);
-RETURN ( self );
+		    RETURN ( self );
-}
+		}
-}
+	    }
-nInstBytes = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
+	    nInstBytes = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
-cp += nInstBytes;
+	    cp += nInstBytes;
-if (__isBytes(aString)) {
+	    if (__isBytes(aString)) {
-n = __byteArraySize(aString) - nInstBytes - 1;
+		n = __byteArraySize(aString) - nInstBytes - 1;
-if (i2 < n) {
+		if (i2 < n) {
-cp += i1;
+		    cp += i1;
-if (l > 1000) l = 1000;
+		    if (l > 1000) l = 1000;
-if (opaque == true)
+		    if (opaque == true)
-XDrawImageString(myDpy, win, gc, __intVal(x), __intVal(y), (char *)cp, l);
+			XDrawImageString(myDpy, win, gc, __intVal(x), __intVal(y), (char *)cp, l);
-else
+		    else
-XDrawString(myDpy, win, gc, __intVal(x), __intVal(y), (char *)cp, l);
+			XDrawString(myDpy, win, gc, __intVal(x), __intVal(y), (char *)cp, l);
-RETURN ( self );
+		    RETURN ( self );
-}
+		}
-}
+	    }
-/* TWOBYTESTRINGS */
+	    /* TWOBYTESTRINGS */
-if (__isWords(aString)) {
+	    if (__isWords(aString)) {
-n = (__byteArraySize(aString) - nInstBytes) / 2;
+		n = (__byteArraySize(aString) - nInstBytes) / 2;
-if (i2 < n) {
+		if (i2 < n) {
-union {
+		    union {
-char b[2];
+			char b[2];
-unsigned short s;
+			unsigned short s;
-} u;
+		    } u;
-int i;
+		    int i;
-XChar2b *cp2 = (XChar2b *)0;
+		    XChar2b *cp2 = (XChar2b *)0;
-int mustFree = 0;
+		    int mustFree = 0;
-cp += (i1 * 2);
+		    cp += (i1 * 2);
-if (l > 1000) l = 1000;
+		    if (l > 1000) l = 1000;
-/*
+		    /*
-* ST/X TwoByteStrings store the asciiValue in native byteOrder;
+		     * ST/X TwoByteStrings store the asciiValue in native byteOrder;
-* X expects them MSB first
+		     * X expects them MSB first
-* convert as required
+		     * convert as required
-*/
+		     */
-u.s = 0x1234;
+		    u.s = 0x1234;
-if (u.b[0] != 0x12) {
+		    if (u.b[0] != 0x12) {
-if (l <= NLOCALBUFFER) {
+			if (l <= NLOCALBUFFER) {
-cp2 = xlatebuffer;
+			    cp2 = xlatebuffer;
-} else {
+			} else {
-cp2 = (XChar2b *)(malloc(l * 2));
+			    cp2 = (XChar2b *)(malloc(l * 2));
-mustFree = 1;
+			    mustFree = 1;
-}
+			}
-for (i=0; i<l; i++) {
+			for (i=0; i<l; i++) {
-cp2[i].byte1 = (((XChar2b *)cp)[i]).byte2;
+			    cp2[i].byte1 = (((XChar2b *)cp)[i]).byte2;
-cp2[i].byte2 = (((XChar2b *)cp)[i]).byte1;
+			    cp2[i].byte2 = (((XChar2b *)cp)[i]).byte1;
-}
+			}
-cp = (char *) cp2;
+			cp = (char *) cp2;
-}
+		    }
-if (opaque == true)
+		    if (opaque == true)
-XDrawImageString16(myDpy, win, gc, __intVal(x), __intVal(y), (XChar2b *)cp, l);
+			XDrawImageString16(myDpy, win, gc, __intVal(x), __intVal(y), (XChar2b *)cp, l);
-else
+		    else
-XDrawString16(myDpy, win, gc, __intVal(x), __intVal(y), (XChar2b *)cp, l);
+			XDrawString16(myDpy, win, gc, __intVal(x), __intVal(y), (XChar2b *)cp, l);
-if (mustFree) {
+		    if (mustFree) {
-free(cp2);
+			free(cp2);
-}
+		    }
-RETURN ( self );
+		    RETURN ( self );
-}
+		}
-}
+	    }
-}
+	}
 }
 #undef NLOCALBUFFER
 %}.
 "x/y not integer, badGC or drawable, or not a string"
 self primitiveFailed
 if (__isExternalAddress(aGCId)
 && __isExternalAddress(aDrawableId)
 && __isNonNilObject(aString)
 && __bothSmallInteger(x, y)) {
-gc = _GCVal(aGCId);
+	gc = _GCVal(aGCId);
-win = _WindowVal(aDrawableId);
+	win = _WindowVal(aDrawableId);
-cls = __qClass(aString);
+	cls = __qClass(aString);
-cp = _stringVal(aString);
+	cp = _stringVal(aString);
-if ((cls == @global(String)) || (cls == @global(Symbol))) {
+	if ((cls == @global(String)) || (cls == @global(Symbol))) {
-n = _stringSize(aString);
+	    n = _stringSize(aString);
-if (n > 1000) n = 1000;
+	    if (n > 1000) n = 1000;
-if (opaque == true)
+	    if (opaque == true)
-XDrawImageString(myDpy, win, gc, __intVal(x), __intVal(y), (char *)cp, n);
+		XDrawImageString(myDpy, win, gc, __intVal(x), __intVal(y), (char *)cp, n);
-else
+	    else
-XDrawString(myDpy, win, gc, __intVal(x), __intVal(y), (char *)cp, n);
+		XDrawString(myDpy, win, gc, __intVal(x), __intVal(y), (char *)cp, n);
-RETURN ( self );
+	    RETURN ( self );
-}
+	}
-nInstBytes = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
+	nInstBytes = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
-cp += nInstBytes;
+	cp += nInstBytes;
-if (__isBytes(aString)) {
+	if (__isBytes(aString)) {
-n = __byteArraySize(aString) - nInstBytes - 1;
+	    n = __byteArraySize(aString) - nInstBytes - 1;
-if (n > 1000) n = 1000;
+	    if (n > 1000) n = 1000;
-if (opaque == true)
+	    if (opaque == true)
-XDrawImageString(myDpy, win, gc, __intVal(x), __intVal(y), (char *)cp, n);
+		XDrawImageString(myDpy, win, gc, __intVal(x), __intVal(y), (char *)cp, n);
-else
+	    else
-XDrawString(myDpy, win, gc, __intVal(x), __intVal(y), (char *)cp, n);
+		XDrawString(myDpy, win, gc, __intVal(x), __intVal(y), (char *)cp, n);
-RETURN ( self );
+	    RETURN ( self );
-}
+	}
-/* TWOBYTESTRINGS */
+	/* TWOBYTESTRINGS */
-if (__isWords(aString)) {
+	if (__isWords(aString)) {
-union {
+	    union {
-char b[2];
+		char b[2];
-unsigned short s;
+		unsigned short s;
-} u;
+	    } u;
-int i;
+	    int i;
-XChar2b *cp2;
+	    XChar2b *cp2;
-int mustFree = 0;
+	    int mustFree = 0;
-n = (__byteArraySize(aString) - nInstBytes) / 2;
+	    n = (__byteArraySize(aString) - nInstBytes) / 2;
-if (n > 1000) n = 1000;
+	    if (n > 1000) n = 1000;
-/*
+	    /*
-* ST/X TwoByteStrings store the asciiValue in native byteOrder;
+	     * ST/X TwoByteStrings store the asciiValue in native byteOrder;
-* X expects them MSB first
+	     * X expects them MSB first
-* convert as required
+	     * convert as required
-*/
+	     */
-u.s = 0x1234;
+	    u.s = 0x1234;
-if (u.b[0] != 0x12) {
+	    if (u.b[0] != 0x12) {
-if (n <= NLOCALBUFFER) {
+		if (n <= NLOCALBUFFER) {
-cp2 = xlatebuffer;
+		    cp2 = xlatebuffer;
-} else {
+		} else {
-cp2 = (XChar2b *)(malloc(n * 2));
+		    cp2 = (XChar2b *)(malloc(n * 2));
-mustFree = 1;
+		    mustFree = 1;
-}
+		}
-for (i=0; i<n; i++) {
+		for (i=0; i<n; i++) {
-cp2[i].byte1 = (((XChar2b *)cp)[i]).byte2;
+		    cp2[i].byte1 = (((XChar2b *)cp)[i]).byte2;
-cp2[i].byte2 = (((XChar2b *)cp)[i]).byte1;
+		    cp2[i].byte2 = (((XChar2b *)cp)[i]).byte1;
-}
+		}
-cp = (char *) cp2;
+		cp = (char *) cp2;
-}
+	    }
-if (opaque == true)
+	    if (opaque == true)
-XDrawImageString16(myDpy, win, gc, __intVal(x), __intVal(y), (XChar2b *)cp, n);
+		XDrawImageString16(myDpy, win, gc, __intVal(x), __intVal(y), (XChar2b *)cp, n);
-else
+	    else
-XDrawString16(myDpy, win, gc, __intVal(x), __intVal(y), (XChar2b *)cp, n);
+		XDrawString16(myDpy, win, gc, __intVal(x), __intVal(y), (XChar2b *)cp, n);
-if (mustFree) {
+	    if (mustFree) {
-free(cp2);
+		free(cp2);
-}
+	    }
-RETURN ( self );
+	    RETURN ( self );
-}
+	}
 }
 #undef NLOCALBUFFER
 %}.
 "x/y not integer, badGC or drawable, or not a string"
 self primitiveFailed
 				      with:aGCId
 !
 fillArcX:x y:y width:width height:height from:startAngle angle:angle
-in:aDrawableId with:aGCId
+	       in:aDrawableId with:aGCId
 "fill an arc. If any coordinate is not integer, an error is triggered.
 The angles may be floats or integer - they are given in degrees."
 %{  /* NOCONTEXT */
 Window win;
 int w, h, angle1, angle2;
 double f;
 if (__isSmallInteger(startAngle))
-angle1 = __intVal(startAngle) * 64;
+	angle1 = __intVal(startAngle) * 64;
 else if (__isFloat(startAngle)) {
-f = __floatVal(startAngle);
+	f = __floatVal(startAngle);
-angle1 = f * 64;
+	angle1 = f * 64;
 }
 if (__isSmallInteger(angle))
-angle2 = __intVal(angle) * 64;
+	angle2 = __intVal(angle) * 64;
 else if (__isFloat(angle)) {
-f = __floatVal(angle);
+	f = __floatVal(angle);
-angle2 = f * 64;
+	angle2 = f * 64;
 }
 if (__isExternalAddress(aGCId)
 && __isExternalAddress(aDrawableId)
 && __bothSmallInteger(x, y)
 && __bothSmallInteger(width, height)) {
-gc = _GCVal(aGCId);
+	gc = _GCVal(aGCId);
-win = _WindowVal(aDrawableId);
+	win = _WindowVal(aDrawableId);
-w = __intVal(width);
+	w = __intVal(width);
-h = __intVal(height);
+	h = __intVal(height);
-/*
+	/*
-* need this check here: some servers simply dump core with bad args
+	 * need this check here: some servers simply dump core with bad args
-*/
+	 */
-if ((w >= 0) && (h >= 0) && (angle1 >= 0) && (angle2 >= 0)) {
+	if ((w >= 0) && (h >= 0) && (angle1 >= 0) && (angle2 >= 0)) {
-XFillArc(myDpy, win, gc, __intVal(x), __intVal(y),
+	    XFillArc(myDpy, win, gc, __intVal(x), __intVal(y),
-w, h, angle1, angle2);
+				   w, h, angle1, angle2);
-}
+	}
-RETURN ( self );
+	RETURN ( self );
 }
 %}.
 "badGC, badDrawable or coordinates not integer"
 self primitiveFailed
 !
 simulateKeyboardInput:aCharacterOrString inViewId:viewId
 "send input to some other view, by simulating keyPress/keyRelease
 events.
 Only a few control characters are supported.
 Notice: not all alien views allow this kind of synthetic input;
-some simply ignore it."
+	     some simply ignore it."
 |control code state|
 aCharacterOrString isString ifTrue:[
-aCharacterOrString do:[:char |
+	aCharacterOrString do:[:char |
-self simulateKeyboardInput:char inViewId:viewId
+	    self simulateKeyboardInput:char inViewId:viewId
-].
+	].
-^ self
+	^ self
 ].
 control := false.
 code := aCharacterOrString asciiValue.
 (aCharacterOrString == Character cr) ifTrue:[
-code := #Return
+	code := #Return
 ] ifFalse:[
-(aCharacterOrString == Character tab) ifTrue:[
+	(aCharacterOrString == Character tab) ifTrue:[
-code := #Tab
+	    code := #Tab
-] ifFalse:[
+	] ifFalse:[
-(aCharacterOrString == Character esc) ifTrue:[
+	    (aCharacterOrString == Character esc) ifTrue:[
-code := #Escape
+		code := #Escape
-]
+	    ]
-]
+	]
 ].
 control ifTrue:[
-state := self controlMask
+	state := self controlMask
 ].
 "/ the stuff below should not be needed
 "/ (sendKeyOrButtonevent should be able to figure out things itself)
 "/ however, on some linux systems it seems to not work correctly.
 "/ Hopefully, this is correct ...
 code isNumber ifTrue:[
-code >= $A asciiValue ifTrue:[
+	code >= $A asciiValue ifTrue:[
-code <= $Z asciiValue ifTrue:[
+	    code <= $Z asciiValue ifTrue:[
-state := self shiftMask
+		state := self shiftMask
-]
+	    ]
-]
+	]
 ].
 self sendKeyOrButtonEvent:#keyPress x:0 y:0 keyOrButton:code state:state toViewId:viewId.
 self sendKeyOrButtonEvent:#keyRelease x:0 y:0 keyOrButton:code state:state toViewId:viewId
 encodingAtom = XInternAtom(myDpy, "CHARSET_ENCODING", True);
 charSetCollAtom = XInternAtom(myDpy, "CHARSET_COLLECTIONS", True);
 fontAtom = XInternAtom(myDpy, "FONT", True);
 if (ISCONNECTED) {
-if (__isExternalAddress(aFontId)) {
+	if (__isExternalAddress(aFontId)) {
-f = _FontVal(aFontId);
+	    f = _FontVal(aFontId);
-if (f) {
+	    if (f) {
-n = f->n_properties;
+		n = f->n_properties;
-prop = f->properties;
+		prop = f->properties;
-if (prop) {
+		if (prop) {
-while (n--) {
+		    while (n--) {
-cp = XGetAtomName(myDpy, prop->name);
+			cp = XGetAtomName(myDpy, prop->name);
 #ifdef SUPERDEBUG
-printf("%s (%d) -> %d\n", cp, prop->name, prop->card32);
+			printf("%s (%d) -> %d\n", cp, prop->name, prop->card32);
 #endif
-if (prop->name == XA_FULL_NAME) {
+			if (prop->name == XA_FULL_NAME) {
-cp = XGetAtomName(myDpy, prop->card32);
+			    cp = XGetAtomName(myDpy, prop->card32);
-if (cp) {
+			    if (cp) {
-fullName = __MKSTRING(cp COMMA_CON);
+				fullName = __MKSTRING(cp COMMA_CON);
 #ifdef SUPERDEBUG
-printf("   FULL_NAME -> %s\n", cp);
+				printf("   FULL_NAME -> %s\n", cp);
 #endif
-}
+			    }
-}
+			}
-if (prop->name == fontAtom) {
+			if (prop->name == fontAtom) {
-cp = XGetAtomName(myDpy, prop->card32);
+			    cp = XGetAtomName(myDpy, prop->card32);
-if (cp) {
+			    if (cp) {
-fontName = __MKSTRING(cp COMMA_CON);
+				fontName = __MKSTRING(cp COMMA_CON);
 #ifdef SUPERDEBUG
-printf("   FONT -> %s\n", cp);
+				printf("   FONT -> %s\n", cp);
 #endif
-}
+			    }
-}
+			}
-if (prop->name == encodingAtom) {
+			if (prop->name == encodingAtom) {
-cp = XGetAtomName(myDpy, prop->card32);
+			    cp = XGetAtomName(myDpy, prop->card32);
-if (cp) {
+			    if (cp) {
-encoding = __MKSTRING(cp COMMA_CON);
+				encoding = __MKSTRING(cp COMMA_CON);
 #ifdef SUPERDEBUG
-printf("   ENCODING -> %s\n", cp);
+				printf("   ENCODING -> %s\n", cp);
 #endif
-}
+			    }
-}
+			}
-if (prop->name == registryAtom) {
+			if (prop->name == registryAtom) {
-cp = XGetAtomName(myDpy, prop->card32);
+			    cp = XGetAtomName(myDpy, prop->card32);
-if (cp) {
+			    if (cp) {
-registry = __MKSTRING(cp COMMA_CON);
+				registry = __MKSTRING(cp COMMA_CON);
 #ifdef SUPERDEBUG
-printf("   REGISTRY -> %s\n", cp);
+				printf("   REGISTRY -> %s\n", cp);
 #endif
-}
+			    }
-}
+			}
-if (prop->name == charSetCollAtom) {
+			if (prop->name == charSetCollAtom) {
-cp = XGetAtomName(myDpy, prop->card32);
+			    cp = XGetAtomName(myDpy, prop->card32);
-if (cp) {
+			    if (cp) {
-charSetCollections = __MKSTRING(cp COMMA_CON);
+				charSetCollections = __MKSTRING(cp COMMA_CON);
 #ifdef SUPERDEBUG
-printf("   CHARSET_COLLECTIONS -> %s\n", cp);
+				printf("   CHARSET_COLLECTIONS -> %s\n", cp);
 #endif
-}
+			    }
-}
+			}
-prop++;
+			prop++;
-}
+		    }
-}
+		}
-}
+	    }
-}
+	}
 }
 %}.
 ^ self
-extractEncodingFromRegistry:registry
+	extractEncodingFromRegistry:registry
-encoding:encoding
+	encoding:encoding
-charSetCollections:charSetCollections
+	charSetCollections:charSetCollections
 !
 extractEncodingFromRegistry:registry encoding:encoding charSetCollections:charSetCollections
 "this is pure magic ..."
 |enc charSets|
 (registry notNil and:[registry notEmpty]) ifTrue:[
-enc := registry asLowercase asSymbol.
+	enc := registry asLowercase asSymbol.
 ] ifFalse:[
-(encoding notNil and:[encoding notEmpty]) ifTrue:[
+	(encoding notNil and:[encoding notEmpty]) ifTrue:[
-enc := encoding asLowercase asSymbol
+	    enc := encoding asLowercase asSymbol
-] ifFalse:[
+	] ifFalse:[
-charSets := charSetCollections.
+	    charSets := charSetCollections.
-(charSets notNil and:[charSets notEmpty]) ifTrue:[
+	    (charSets notNil and:[charSets notEmpty]) ifTrue:[
-charSets := charSets asUppercase asCollectionOfWords.
+		charSets := charSets asUppercase asCollectionOfWords.
-(charSets includes:'ISO8859-1') ifTrue:[
+		(charSets includes:'ISO8859-1') ifTrue:[
-enc := #iso8859
+		    enc := #iso8859
-] ifFalse:[
+		] ifFalse:[
-(charSets includes:'ISO8859') ifTrue:[
+		    (charSets includes:'ISO8859') ifTrue:[
-enc := #iso8859
+			enc := #iso8859
-] ifFalse:[
+		    ] ifFalse:[
-(charSets includes:'ASCII') ifTrue:[
+			(charSets includes:'ASCII') ifTrue:[
-enc := #ascii
+			    enc := #ascii
-] ifFalse:[
+			] ifFalse:[
-(charSets includes:'ADOBE-STANDARD') ifTrue:[
+			    (charSets includes:'ADOBE-STANDARD') ifTrue:[
-enc := #iso8859
+				enc := #iso8859
-]
+			    ]
-]
+			]
-]
+		    ]
-]
+		]
-]
+	    ]
-]
+	]
 ].
 ^  enc
 "Created: 17.4.1996 / 14:57:06 / cg"
 "Modified: 17.4.1996 / 17:22:35 / cg"
 "/          listOfXFonts := nil
 "/      ] ifFalse:[
 "/          listOfXFonts sort:[:a :b | a family < b family].
 "/      ].
-"/
+	"/
-"/ new code:
+	"/ new code:
-"/ use new primitive to get font names;
+	"/ use new primitive to get font names;
-"/ this is much faster, and also works on systems where
+	"/ this is much faster, and also works on systems where
-"/      a) xlsfonts is broken (sco)
+	"/      a) xlsfonts is broken (sco)
-"/      b) xlsfonts is not available (aix)
+	"/      b) xlsfonts is not available (aix)
-"/
+	"/
-names := self getAvailableFontsMatching:'*'.
+	names := self getAvailableFontsMatching:'*'.
-names isNil ifTrue:[
+	names isNil ifTrue:[
-"no names returned ..."
+	    "no names returned ..."
-^ nil
+	    ^ nil
-].
+	].
-listOfXFonts := names collect:[:aName |
+	listOfXFonts := names collect:[:aName |
-|fntDescr|
+				    |fntDescr|
-(self decomposeXFontName:aName into:
+				    (self decomposeXFontName:aName into:
-[:family :face :style :size :coding |
+					[:family :face :style :size :coding |
-family notNil ifTrue:[
+					   family notNil ifTrue:[
-fntDescr := FontDescription
+					       fntDescr := FontDescription
-family:family
+							       family:family
-face:face
+							       face:face
-style:style
+							       style:style
-size:size
+							       size:size
-encoding:coding.
+							       encoding:coding.
-] ifFalse:[
+					   ] ifFalse:[
-fntDescr := FontDescription
+					       fntDescr := FontDescription
-name:aName
+							       name:aName
-]
+					   ]
-]
+					]
-) ifFalse:[
+				    ) ifFalse:[
-fntDescr := FontDescription name:aName.
+					fntDescr := FontDescription name:aName.
-].
+				    ].
-fntDescr
+				    fntDescr
-].
+			    ].
 ].
 ^ listOfXFonts
 "
 #   define NLOCALBUFFER 200
 XChar2b xlatebuffer[NLOCALBUFFER];
 int nInstBytes;
 if (ISCONNECTED) {
-if (__bothSmallInteger(index1, index2)
+	if (__bothSmallInteger(index1, index2)
-&& __isExternalAddress(aFontId)
+	 && __isExternalAddress(aFontId)
-&& __isNonNilObject(aString)) {
+	 && __isNonNilObject(aString)) {
-f = _FontVal(aFontId);
+	    f = _FontVal(aFontId);
-i1 = __intVal(index1) - 1;
+	    i1 = __intVal(index1) - 1;
-cls = __qClass(aString);
+	    cls = __qClass(aString);
-if (i1 >= 0) {
+	    if (i1 >= 0) {
-i2 = __intVal(index2) - 1;
+		i2 = __intVal(index2) - 1;
-if (i2 < i1) {
+		if (i2 < i1) {
-RETURN (self);
+		    RETURN (self);
-}
+		}
-cp = (char *) _stringVal(aString);
+		cp = (char *) _stringVal(aString);
-l = i2 - i1 + 1;
+		l = i2 - i1 + 1;
-if ((cls == @global(String)) || (cls == @global(Symbol))) {
+		if ((cls == @global(String)) || (cls == @global(Symbol))) {
-n = _stringSize(aString);
+		    n = _stringSize(aString);
-if (i2 < n) {
+		    if (i2 < n) {
-cp += i1;
+			cp += i1;
-BEGIN_INTERRUPTSBLOCKED
+			BEGIN_INTERRUPTSBLOCKED
-len = XTextWidth(f, cp, l);
+			len = XTextWidth(f, cp, l);
-END_INTERRUPTSBLOCKED
+			END_INTERRUPTSBLOCKED
-RETURN ( __MKSMALLINT(len) );
+			RETURN ( __MKSMALLINT(len) );
-}
+		    }
-}
+		}
-nInstBytes = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
+		nInstBytes = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
-cp += nInstBytes;
+		cp += nInstBytes;
-if (__isBytes(aString)) {
+		if (__isBytes(aString)) {
-n = __byteArraySize(aString) - nInstBytes;
+		    n = __byteArraySize(aString) - nInstBytes;
-if (i2 < n) {
+		    if (i2 < n) {
-cp += i1;
+			cp += i1;
-BEGIN_INTERRUPTSBLOCKED
+			BEGIN_INTERRUPTSBLOCKED
-len = XTextWidth(f, cp, l);
+			len = XTextWidth(f, cp, l);
-END_INTERRUPTSBLOCKED
+			END_INTERRUPTSBLOCKED
-RETURN ( __MKSMALLINT(len) );
+			RETURN ( __MKSMALLINT(len) );
-}
+		    }
-}
+		}
-/* TWOBYTESTRINGS */
+		/* TWOBYTESTRINGS */
-if (__isWords(aString)) {
+		if (__isWords(aString)) {
-n = (__byteArraySize(aString) - nInstBytes) / 2;
+		    n = (__byteArraySize(aString) - nInstBytes) / 2;
-if (i2 < n) {
+		    if (i2 < n) {
-union {
+			union {
-char b[2];
+			    char b[2];
-unsigned short s;
+			    unsigned short s;
-} u;
+			} u;
-int i;
+			int i;
-XChar2b *cp2 = (XChar2b *)0;
+			XChar2b *cp2 = (XChar2b *)0;
-int mustFree = 0;
+			int mustFree = 0;
-cp += (i1 * 2);
+			cp += (i1 * 2);
-if (l > 1000) l = 1000;
+			if (l > 1000) l = 1000;
-/*
+			/*
-* ST/X TwoByteStrings store the asciiValue in native byteOrder;
+			 * ST/X TwoByteStrings store the asciiValue in native byteOrder;
-* X expects them MSB first
+			 * X expects them MSB first
-* convert as required
+			 * convert as required
-*/
+			 */
-u.s = 0x1234;
+			u.s = 0x1234;
-if (u.b[0] != 0x12) {
+			if (u.b[0] != 0x12) {
-if (l <= NLOCALBUFFER) {
+			    if (l <= NLOCALBUFFER) {
-cp2 = xlatebuffer;
+				cp2 = xlatebuffer;
-} else {
+			    } else {
-cp2 = (XChar2b *)(malloc(l * 2));
+				cp2 = (XChar2b *)(malloc(l * 2));
-mustFree = 1;
+				mustFree = 1;
-}
+			    }
-for (i=0; i<l; i++) {
+			    for (i=0; i<l; i++) {
-cp2[i].byte1 = (((XChar2b *)cp)[i]).byte2;
+				cp2[i].byte1 = (((XChar2b *)cp)[i]).byte2;
-cp2[i].byte2 = (((XChar2b *)cp)[i]).byte1;
+				cp2[i].byte2 = (((XChar2b *)cp)[i]).byte1;
-}
+			    }
-cp = (char *) cp2;
+			    cp = (char *) cp2;
-}
+			}
-BEGIN_INTERRUPTSBLOCKED
+			BEGIN_INTERRUPTSBLOCKED
-len = XTextWidth16(f, (XChar2b *)cp, l);
+			len = XTextWidth16(f, (XChar2b *)cp, l);
-END_INTERRUPTSBLOCKED
+			END_INTERRUPTSBLOCKED
-if (mustFree) {
+			if (mustFree) {
-free(cp2);
+			    free(cp2);
-}
+			}
-RETURN ( __MKSMALLINT(len) );
+			RETURN ( __MKSMALLINT(len) );
-}
+		    }
-}
+		}
-}
+	    }
-}
+	}
 }
 #undef NLOCALBUFFER
 %}.
 self primitiveFailed.
 ^ nil
 #   define NLOCALBUFFER 200
 XChar2b xlatebuffer[NLOCALBUFFER];
 int nInstBytes;
 if (ISCONNECTED) {
-if (__isExternalAddress(aFontId)
+	if (__isExternalAddress(aFontId)
-&& __isNonNilObject(aString)) {
+	 && __isNonNilObject(aString)) {
-f = _FontVal(aFontId);
+	    f = _FontVal(aFontId);
-cls = __qClass(aString);
+	    cls = __qClass(aString);
-cp = (char *)_stringVal(aString);
+	    cp = (char *)_stringVal(aString);
-if ((cls == @global(String)) || (cls == @global(Symbol))) {
+	    if ((cls == @global(String)) || (cls == @global(Symbol))) {
-n = _stringSize(aString);
+		n = _stringSize(aString);
-BEGIN_INTERRUPTSBLOCKED
+		BEGIN_INTERRUPTSBLOCKED
-len = XTextWidth(f, cp, n);
+		len = XTextWidth(f, cp, n);
-END_INTERRUPTSBLOCKED
+		END_INTERRUPTSBLOCKED
-RETURN ( __MKSMALLINT(len) );
+		RETURN ( __MKSMALLINT(len) );
-}
+	    }
-nInstBytes = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
+	    nInstBytes = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
-cp += nInstBytes;
+	    cp += nInstBytes;
-if (__isBytes(aString)) {
+	    if (__isBytes(aString)) {
-n = __byteArraySize(aString) - nInstBytes;
+		n = __byteArraySize(aString) - nInstBytes;
-BEGIN_INTERRUPTSBLOCKED
+		BEGIN_INTERRUPTSBLOCKED
-len = XTextWidth(f, cp, n);
+		len = XTextWidth(f, cp, n);
-END_INTERRUPTSBLOCKED
+		END_INTERRUPTSBLOCKED
-RETURN ( __MKSMALLINT(len) );
+		RETURN ( __MKSMALLINT(len) );
-}
+	    }
-/* TWOBYTESTRINGS */
+	    /* TWOBYTESTRINGS */
-if (__isWords(aString)) {
+	    if (__isWords(aString)) {
-union {
+		union {
-char b[2];
+		    char b[2];
-unsigned short s;
+		    unsigned short s;
-} u;
+		} u;
-int i;
+		int i;
-XChar2b *cp2;
+		XChar2b *cp2;
-int mustFree = 0;
+		int mustFree = 0;
-n = (__byteArraySize(aString) - nInstBytes) / 2;
+		n = (__byteArraySize(aString) - nInstBytes) / 2;
-if (n > 1000) n = 1000;
+		if (n > 1000) n = 1000;
-/*
+		/*
-* ST/X TwoByteStrings store the asciiValue in native byteOrder;
+		 * ST/X TwoByteStrings store the asciiValue in native byteOrder;
-* X expects them MSB first
+		 * X expects them MSB first
-* convert as required
+		 * convert as required
-*/
+		 */
-u.s = 0x1234;
+		u.s = 0x1234;
-if (u.b[0] != 0x12) {
+		if (u.b[0] != 0x12) {
-if (n <= NLOCALBUFFER) {
+		    if (n <= NLOCALBUFFER) {
-cp2 = xlatebuffer;
+			cp2 = xlatebuffer;
-} else {
+		    } else {
-cp2 = (XChar2b *)(malloc(n * 2));
+			cp2 = (XChar2b *)(malloc(n * 2));
-mustFree = 1;
+			mustFree = 1;
-}
+		    }
-for (i=0; i<n; i++) {
+		    for (i=0; i<n; i++) {
-cp2[i].byte1 = (((XChar2b *)cp)[i]).byte2;
+			cp2[i].byte1 = (((XChar2b *)cp)[i]).byte2;
-cp2[i].byte2 = (((XChar2b *)cp)[i]).byte1;
+			cp2[i].byte2 = (((XChar2b *)cp)[i]).byte1;
-}
+		    }
-cp = (char *) cp2;
+		    cp = (char *) cp2;
-}
+		}
-BEGIN_INTERRUPTSBLOCKED
+		BEGIN_INTERRUPTSBLOCKED
-len = XTextWidth16(f, (XChar2b *)cp, n);
+		len = XTextWidth16(f, (XChar2b *)cp, n);
-END_INTERRUPTSBLOCKED
+		END_INTERRUPTSBLOCKED
-if (mustFree) {
+		if (mustFree) {
-free(cp2);
+		    free(cp2);
-}
+		}
-RETURN ( __MKSMALLINT(len) );
+		RETURN ( __MKSMALLINT(len) );
-}
+	    }
-}
+	}
 }
 #undef NLOCALBUFFER
 %}.
 self primitiveFailed.
 ^ nil
 %{  /* NOCONTEXT */
 if (__isExternalAddress(aGCId)
 && __isSmallInteger(offset)
 && __isByteArray(dashList)) {
-XSetDashes(myDpy, _GCVal(aGCId),
+	XSetDashes(myDpy, _GCVal(aGCId),
-__intVal(offset),
+		   __intVal(offset),
-__ByteArrayInstPtr(dashList)->ba_element,
+		   __ByteArrayInstPtr(dashList)->ba_element,
-__byteArraySize(dashList));
+		   __byteArraySize(dashList));
-RETURN ( self );
+	RETURN ( self );
 }
 bad: ;
 %}.
 "
 either aGCId is invalid,
 char *type, *nm;
 int dummy;
 int mask, shift, nBits;
 if (ISCONNECTED) {
-__INST(altModifierMask) = __MKSMALLINT(Mod2Mask);
+	__INST(altModifierMask) = __MKSMALLINT(Mod2Mask);
-__INST(metaModifierMask) = __MKSMALLINT(Mod1Mask);
+	__INST(metaModifierMask) = __MKSMALLINT(Mod1Mask);
-BEGIN_INTERRUPTSBLOCKED
+	BEGIN_INTERRUPTSBLOCKED
-__INST(screen) = __MKSMALLINT(scr = DefaultScreen(dpy));
+	__INST(screen) = __MKSMALLINT(scr = DefaultScreen(dpy));
-__INST(depth) = __MKSMALLINT(DisplayPlanes(dpy, scr));
+	__INST(depth) = __MKSMALLINT(DisplayPlanes(dpy, scr));
-__INST(ncells) = __MKSMALLINT(DisplayCells(dpy, scr));
+	__INST(ncells) = __MKSMALLINT(DisplayCells(dpy, scr));
-__INST(width) = __MKSMALLINT(DisplayWidth(dpy, scr));
+	__INST(width) = __MKSMALLINT(DisplayWidth(dpy, scr));
-__INST(height) = __MKSMALLINT(DisplayHeight(dpy, scr));
+	__INST(height) = __MKSMALLINT(DisplayHeight(dpy, scr));
-__INST(widthMM) = __MKSMALLINT(DisplayWidthMM(dpy, scr));
+	__INST(widthMM) = __MKSMALLINT(DisplayWidthMM(dpy, scr));
-__INST(heightMM) = __MKSMALLINT(DisplayHeightMM(dpy, scr));
+	__INST(heightMM) = __MKSMALLINT(DisplayHeightMM(dpy, scr));
-__INST(blackpixel) = __MKSMALLINT(BlackPixel(dpy, scr));
+	__INST(blackpixel) = __MKSMALLINT(BlackPixel(dpy, scr));
-__INST(whitepixel) = __MKSMALLINT(WhitePixel(dpy, scr));
+	__INST(whitepixel) = __MKSMALLINT(WhitePixel(dpy, scr));
 #ifdef SHAPE
-if (XShapeQueryExtension(dpy, &shapeEventBase, &shapeErrorBase))
+	if (XShapeQueryExtension(dpy, &shapeEventBase, &shapeErrorBase))
-__INST(hasShapeExtension) = true;
+	    __INST(hasShapeExtension) = true;
-else
+	else
 #endif
-__INST(hasShapeExtension) = false;
+	  __INST(hasShapeExtension) = false;
 #ifdef SHM
-if (XShmQueryExtension(dpy, &shmEventBase, &shmErrorBase))
+	if (XShmQueryExtension(dpy, &shmEventBase, &shmErrorBase))
-__INST(hasShmExtension) = true;
+	    __INST(hasShmExtension) = true;
-else
+	else
 #endif
-__INST(hasShmExtension) = false;
+	  __INST(hasShmExtension) = false;
 #ifdef FAX
-if (XFAXImageQueryExtension(dpy, &faxEventBase, &faxErrorBase))
+	if (XFAXImageQueryExtension(dpy, &faxEventBase, &faxErrorBase))
-__INST(hasFaxExtension) = true;
+	    __INST(hasFaxExtension) = true;
-else
+	else
 #endif
-__INST(hasFaxExtension) = false;
+	  __INST(hasFaxExtension) = false;
 #ifdef DPS
-if (XQueryExtension(dpy, "DPSExtension", &dummy, &dummy, &dummy))
+	if (XQueryExtension(dpy, "DPSExtension", &dummy, &dummy, &dummy))
-__INST(hasDPSExtension) = true;
+	    __INST(hasDPSExtension) = true;
-else
+	else
 #endif
-__INST(hasDPSExtension) = false;
+	  __INST(hasDPSExtension) = false;
 #ifdef XVIDEO
-if (XQueryExtension(dpy, "XVideo", &dummy, &dummy, &dummy))
+	if (XQueryExtension(dpy, "XVideo", &dummy, &dummy, &dummy))
-__INST(hasXVideoExtension) = true;
+	    __INST(hasXVideoExtension) = true;
-else
+	else
 #endif
-__INST(hasXVideoExtension) = false;
+	  __INST(hasXVideoExtension) = false;
 #ifdef MBUF
-if (XQueryExtension(dpy, "Multi-Buffering", &dummy, &dummy, &dummy))
+	if (XQueryExtension(dpy, "Multi-Buffering", &dummy, &dummy, &dummy))
-__INST(hasMbufExtension) = true;
+	    __INST(hasMbufExtension) = true;
-else
+	else
 #endif
-__INST(hasMbufExtension) = false;
+	  __INST(hasMbufExtension) = false;
 #ifdef PEX5
-if (XQueryExtension(dpy, PEX_NAME_STRING, &dummy, &dummy, &dummy))
+	if (XQueryExtension(dpy, PEX_NAME_STRING, &dummy, &dummy, &dummy))
-__INST(hasPEXExtension) = true;
+	    __INST(hasPEXExtension) = true;
-else
+	else
 #endif
-__INST(hasPEXExtension) = false;
+	  __INST(hasPEXExtension) = false;
 #ifdef XIE
-if (XQueryExtension(dpy, xieExtName, &dummy, &dummy, &dummy))
+	if (XQueryExtension(dpy, xieExtName, &dummy, &dummy, &dummy))
-__INST(hasImageExtension) = true;
+	    __INST(hasImageExtension) = true;
-else
+	else
 #endif
-__INST(hasImageExtension) = false;
+	  __INST(hasImageExtension) = false;
 #ifdef XI
-if (XQueryExtension(dpy, "XInputExtension", &dummy, &dummy, &dummy))
+	if (XQueryExtension(dpy, "XInputExtension", &dummy, &dummy, &dummy))
-__INST(hasInputExtension) = true;
+	    __INST(hasInputExtension) = true;
-else
+	else
 #endif
-__INST(hasInputExtension) = false;
+	  __INST(hasInputExtension) = false;
-/*
+	/*
-* look for RGB visual
+	 * look for RGB visual
-*/
+	 */
-nvi = 0;
+	nvi = 0;
-viproto.screen = scr;
+	viproto.screen = scr;
-vip = XGetVisualInfo (dpy, VisualScreenMask, &viproto, &nvi);
+	vip = XGetVisualInfo (dpy, VisualScreenMask, &viproto, &nvi);
-maxRGBDepth = 0;
+	maxRGBDepth = 0;
-for (i = 0; i < nvi; i++) {
+	for (i = 0; i < nvi; i++) {
-switch (vip[i].class) {
+	    switch (vip[i].class) {
-case TrueColor:
+		case TrueColor:
-if (vip[i].depth > maxRGBDepth) {
+		    if (vip[i].depth > maxRGBDepth) {
-maxRGBDepth = vip[i].depth;
+			maxRGBDepth = vip[i].depth;
-rgbRedMask = vip[i].red_mask;
+			rgbRedMask = vip[i].red_mask;
-rgbGreenMask = vip[i].green_mask;
+			rgbGreenMask = vip[i].green_mask;
-rgbBlueMask = vip[i].blue_mask;
+			rgbBlueMask = vip[i].blue_mask;
-rgbVisualID = vip[i].visualid;
+			rgbVisualID = vip[i].visualid;
-}
+		    }
-break;
+		    break;
-}
+	    }
-}
+	}
-if (vip) XFree ((char *) vip);
+	if (vip) XFree ((char *) vip);
-if (maxRGBDepth) {
+	if (maxRGBDepth) {
-__INST(rgbVisual) = __MKOBJ(rgbVisualID); __STORESELF(rgbVisual);
+	    __INST(rgbVisual) = __MKOBJ(rgbVisualID); __STORESELF(rgbVisual);
-}
+	}
-visual = DefaultVisualOfScreen(DefaultScreenOfDisplay(dpy));
+	visual = DefaultVisualOfScreen(DefaultScreenOfDisplay(dpy));
-__INST(monitorType) = @symbol(unknown);
+	__INST(monitorType) = @symbol(unknown);
-__INST(hasColors) = true;
+	__INST(hasColors) = true;
-__INST(hasGreyscales) = true;
+	__INST(hasGreyscales) = true;
-switch (visual->class) {
+	switch (visual->class) {
-case StaticGray:
+	    case StaticGray:
-__INST(visualType) = @symbol(StaticGray);
+		__INST(visualType) = @symbol(StaticGray);
-__INST(hasColors) = false;
+		__INST(hasColors) = false;
-__INST(monitorType) = @symbol(monochrome);
+		__INST(monitorType) = @symbol(monochrome);
-break;
+		break;
-case GrayScale:
+	    case GrayScale:
-__INST(visualType) = @symbol(GrayScale);
+		__INST(visualType) = @symbol(GrayScale);
-__INST(hasColors) = false;
+		__INST(hasColors) = false;
-__INST(monitorType) = @symbol(monochrome);
+		__INST(monitorType) = @symbol(monochrome);
-break;
+		break;
-case StaticColor:
+	    case StaticColor:
-__INST(visualType) = @symbol(StaticColor);
+		__INST(visualType) = @symbol(StaticColor);
-break;
+		break;
-case PseudoColor:
+	    case PseudoColor:
-__INST(visualType) = @symbol(PseudoColor);
+		__INST(visualType) = @symbol(PseudoColor);
-break;
+		break;
-case TrueColor:
+	    case TrueColor:
-__INST(visualType) = @symbol(TrueColor);
+		__INST(visualType) = @symbol(TrueColor);
-break;
+		break;
-case DirectColor:
+	    case DirectColor:
-__INST(visualType) = @symbol(DirectColor);
+		__INST(visualType) = @symbol(DirectColor);
-break;
+		break;
-}
+	}
-if (DisplayCells(dpy, scr) == 2) {
+	if (DisplayCells(dpy, scr) == 2) {
-__INST(hasColors) = false;
+	    __INST(hasColors) = false;
-__INST(hasGreyscales) = false;
+	    __INST(hasGreyscales) = false;
-__INST(monitorType) = @symbol(monochrome);
+	    __INST(monitorType) = @symbol(monochrome);
-}
+	}
-__INST(bitsPerRGB) = __MKSMALLINT(visual->bits_per_rgb);
+	__INST(bitsPerRGB) = __MKSMALLINT(visual->bits_per_rgb);
-__INST(redMask)   = __MKSMALLINT(visual->red_mask);
+	__INST(redMask)   = __MKSMALLINT(visual->red_mask);
-__INST(greenMask) = __MKSMALLINT(visual->green_mask);
+	__INST(greenMask) = __MKSMALLINT(visual->green_mask);
-__INST(blueMask)  = __MKSMALLINT(visual->blue_mask);
+	__INST(blueMask)  = __MKSMALLINT(visual->blue_mask);
-switch (visual->class) {
+	switch (visual->class) {
-case TrueColor:
+	    case TrueColor:
-/* extract number of bits and shift counts */
+		/* extract number of bits and shift counts */
-mask = visual->red_mask;
+		mask = visual->red_mask;
-shift = 0;
+		shift = 0;
-while (mask && ((mask & 1) == 0)) {
+		while (mask && ((mask & 1) == 0)) {
-mask >>= 1;
+		    mask >>= 1;
-shift++;
+		    shift++;
-}
+		}
-__INST(redShift) = __MKSMALLINT(shift);
+		__INST(redShift) = __MKSMALLINT(shift);
-nBits = 0;
+		nBits = 0;
-while (mask) {
+		while (mask) {
-mask >>= 1;
+		    mask >>= 1;
-nBits++;
+		    nBits++;
-}
+		}
-__INST(bitsRed) = __MKSMALLINT(nBits);
+		__INST(bitsRed) = __MKSMALLINT(nBits);
-mask = visual->green_mask;
+		mask = visual->green_mask;
-shift = 0;
+		shift = 0;
-while (mask && ((mask & 1) == 0)) {
+		while (mask && ((mask & 1) == 0)) {
-mask >>= 1;
+		    mask >>= 1;
-shift++;
+		    shift++;
-}
+		}
-__INST(greenShift) = __MKSMALLINT(shift);
+		__INST(greenShift) = __MKSMALLINT(shift);
-nBits = 0;
+		nBits = 0;
-while (mask) {
+		while (mask) {
-mask >>= 1;
+		    mask >>= 1;
-nBits++;
+		    nBits++;
-}
+		}
-__INST(bitsGreen) = __MKSMALLINT(nBits);
+		__INST(bitsGreen) = __MKSMALLINT(nBits);
-mask = visual->blue_mask;
+		mask = visual->blue_mask;
-shift = 0;
+		shift = 0;
-while (mask && ((mask & 1) == 0)) {
+		while (mask && ((mask & 1) == 0)) {
-mask >>= 1;
+		    mask >>= 1;
-shift++;
+		    shift++;
-}
+		}
-__INST(blueShift) = __MKSMALLINT(shift);
+		__INST(blueShift) = __MKSMALLINT(shift);
-nBits = 0;
+		nBits = 0;
-while (mask) {
+		while (mask) {
-mask >>= 1;
+		    mask >>= 1;
-nBits++;
+		    nBits++;
-}
+		}
-__INST(bitsBlue) = __MKSMALLINT(nBits);
+		__INST(bitsBlue) = __MKSMALLINT(nBits);
-break;
+		break;
-}
+	}
 #ifndef XA_PRIMARY
-__INST(primaryAtom) = __MKATOMOBJ( XInternAtom(dpy, "PRIMARY", True) );
+	__INST(primaryAtom) = __MKATOMOBJ( XInternAtom(dpy, "PRIMARY", True) );
 #else
-__INST(primaryAtom) = __MKATOMOBJ( XA_PRIMARY );
+	__INST(primaryAtom) = __MKATOMOBJ( XA_PRIMARY );
 #endif
 #ifndef XA_SECONDARY
-__INST(secondaryAtom) = __MKATOMOBJ( XInternAtom(dpy, "SECONDARY", True) );
+	__INST(secondaryAtom) = __MKATOMOBJ( XInternAtom(dpy, "SECONDARY", True) );
 #else
-__INST(secondaryAtom) = __MKATOMOBJ( XA_SECONDARY );
+	__INST(secondaryAtom) = __MKATOMOBJ( XA_SECONDARY );
 #endif
 #ifndef XA_CUT_BUFFER0
-__INST(cutBuffer0Atom) = __MKATOMOBJ( XInternAtom(dpy, "CUT_BUFFER0", True) );
+	__INST(cutBuffer0Atom) = __MKATOMOBJ( XInternAtom(dpy, "CUT_BUFFER0", True) );
 #else
-__INST(cutBuffer0Atom) = __MKATOMOBJ( XA_CUT_BUFFER0 );
+	__INST(cutBuffer0Atom) = __MKATOMOBJ( XA_CUT_BUFFER0 );
 #endif
 #ifndef XA_STRING
-__INST(stringAtom) = __MKATOMOBJ( XInternAtom(dpy, "STRING", True) );
+	__INST(stringAtom) = __MKATOMOBJ( XInternAtom(dpy, "STRING", True) );
 #else
-__INST(stringAtom) = __MKATOMOBJ( XA_STRING );
+	__INST(stringAtom) = __MKATOMOBJ( XA_STRING );
 #endif
 #ifndef XA_LENGTH
-__INST(lengthAtom) = __MKATOMOBJ( XInternAtom(dpy, "LENGTH", True) );
+	__INST(lengthAtom) = __MKATOMOBJ( XInternAtom(dpy, "LENGTH", True) );
 #else
-__INST(lengthAtom) = __MKATOMOBJ( XA_LENGTH );
+	__INST(lengthAtom) = __MKATOMOBJ( XA_LENGTH );
 #endif
-END_INTERRUPTSBLOCKED
+	END_INTERRUPTSBLOCKED
 }
 %}.
 !
 initializeSpecialFlags
 w = getRootWindow(myDpy, screen);
 #else
 w = RootWindow(dpy, screen);
 #endif
 XQueryPointer(dpy, w, &rootRet, &childRet,
-&rootX, &rootY,
+			  &rootX, &rootY,
-&winX, &winY,
+			  &winX, &winY,
-&mask);
+			  &mask);
 END_INTERRUPTSBLOCKED
 RETURN (__MKSMALLINT(mask));
 %}
 "
 %{  /* NOCONTEXT */
 Atom prop;
 if (ISCONNECTED) {
-if (__isString(aStringOrSymbol)
+	if (__isString(aStringOrSymbol)
-|| __isSymbol(aStringOrSymbol)) {
+	 || __isSymbol(aStringOrSymbol)) {
-prop = XInternAtom(myDpy, _stringVal(aStringOrSymbol),
+	    prop = XInternAtom(myDpy, _stringVal(aStringOrSymbol),
-(create == true) ? False : True);
+				      (create == true) ? False : True);
-if (prop == None) {
+	    if (prop == None) {
-RETURN (nil);
+		RETURN (nil);
-}
+	    }
-RETURN ( __MKATOMOBJ(prop) );
+	    RETURN ( __MKATOMOBJ(prop) );
-}
+	}
 }
 %}.
 self primitiveFailed.
 ^ nil
 %{  /* NOCONTEXT */
 OBJ str;
 char *name;
 if (ISCONNECTED) {
-if (__isAtomID(anAtomID)) {
+	if (__isAtomID(anAtomID)) {
-name = XGetAtomName(myDpy, _AtomVal(anAtomID));
+	    name = XGetAtomName(myDpy, _AtomVal(anAtomID));
-if (name == 0) {
+	    if (name == 0) {
-RETURN (nil);
+		RETURN (nil);
-}
+	    }
-str = __MKSTRING(name COMMA_CON);
+	    str = __MKSTRING(name COMMA_CON);
-XFree(name);
+	    XFree(name);
-RETURN ( str );
+	    RETURN ( str );
-}
+	}
 }
 %}.
 self primitiveFailed.
 ^ nil
 "access the displays resource database for a default value
 of name in a resource class.
 This is highly X specific and  currently not used.
 Notice:
-we do not plan to use X's resources for ST/X's defaults,
+	we do not plan to use X's resources for ST/X's defaults,
-styles or resources. This would make porting of applications
+	styles or resources. This would make porting of applications
-to different platforms much more difficult (Windows has no resource
+	to different platforms much more difficult (Windows has no resource
-database). If you stay within ST/X's resource files, these can be
+	database). If you stay within ST/X's resource files, these can be
-easily transported to other platforms.
+	easily transported to other platforms.
 This method is provided for special applications which want to access
 existing X resources and are not planned to be ever ported to other
 platforms."
 char *rslt;
 if ((__isString(name) || __isSymbol(name))
 && (__isString(cls) || __isSymbol(cls))
 && ISCONNECTED) {
-BEGIN_INTERRUPTSBLOCKED
+	BEGIN_INTERRUPTSBLOCKED
-rslt = XGetDefault(myDpy, (char *)_stringVal(cls),
+	rslt = XGetDefault(myDpy, (char *)_stringVal(cls),
-(char *)_stringVal(name));
+				  (char *)_stringVal(name));
-END_INTERRUPTSBLOCKED
+	END_INTERRUPTSBLOCKED
-RETURN (rslt ? __MKSTRING(rslt COMMA_CON) : nil );
+	RETURN (rslt ? __MKSTRING(rslt COMMA_CON) : nil );
 }
 %}.
 self primitiveFailed.
 ^ nil
 "if your ~/.Xdefaults contains an entry such as:
-OpenWindows.Beep:       notices
+	OpenWindows.Beep:       notices
 the following returns 'notices'.
-Display getResource:'Beep' class:'OpenWindows'
+	 Display getResource:'Beep' class:'OpenWindows'
 if your ~/.Xdefaults contains an entry such as:
-*.beNiceToColormap:       false
+	*.beNiceToColormap:       false
 the following return 'false'.
-Display getResource:'beNiceToColormap' class:'any'
+	 Display getResource:'beNiceToColormap' class:'any'
-Display getResource:'beNiceToColormap' class:''
+	 Display getResource:'beNiceToColormap' class:''
 "
 ! !
 !XWorkstation methodsFor:'retrieving pixels'!
 XImage *img;
 int ret;
 int xpos, ypos;
 if (__isExternalAddress(aDrawableId) && __bothSmallInteger(x, y)) {
-win = _WindowVal(aDrawableId);
+	win = _WindowVal(aDrawableId);
-xpos = __intVal(x);
+	xpos = __intVal(x);
-ypos = __intVal(y);
+	ypos = __intVal(y);
-if ((xpos < 0) || (ypos < 0)) {
+	if ((xpos < 0) || (ypos < 0)) {
-RETURN ( __MKSMALLINT(0) );
+	    RETURN ( __MKSMALLINT(0) );
-}
+	}
-img = XGetImage(myDpy, win, xpos, ypos, 1, 1, (unsigned)~0, ZPixmap);
+	img = XGetImage(myDpy, win, xpos, ypos, 1, 1, (unsigned)~0, ZPixmap);
-if (img != 0) {
+	if (img != 0) {
-ret = XGetPixel(img, 0, 0);
+	    ret = XGetPixel(img, 0, 0);
-XDestroyImage(img);
+	    XDestroyImage(img);
-RETURN (  __MKSMALLINT(ret) );
+	    RETURN (  __MKSMALLINT(ret) );
-}
+	}
 }
 %}.
 ^ nil
 !
 ! !
 !XWorkstation class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.144 1996-06-14 11:19:42 cg Exp $'
+^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.145 1996-06-14 11:28:18 cg Exp $'
 ! !
 XWorkstation initialize!

changeset 850	42948798db7f
parent 847	f7c402bc5983
child 857	df5125310d86