hg/stx-libview: comparison XWorkstation.st

equal deleted inserted replaced

-:f581795812b9
+:d18f375ac80d
 #endif
 extern OBJ __GLOBAL_GET_BY_NAME(char *);
 # define __HANDLE_VAL(type, externalAddress) \
-((type)__externalAddressVal(externalAddress))
+	((type)__externalAddressVal(externalAddress))
 # define __HANDLE_NEW(ptr, __cls)                    \
-({                                           \
+	({                                           \
-OBJ handle = __MKEXTERNALADDRESS(ptr);   \
+	    OBJ handle = __MKEXTERNALADDRESS(ptr);   \
-OBJ clsObj = __GLOBAL_GET_BY_NAME(__cls);\
+	    OBJ clsObj = __GLOBAL_GET_BY_NAME(__cls);\
-__InstPtr(handle)->o_class = clsObj;     \
+	    __InstPtr(handle)->o_class = clsObj;     \
-__STORE(handle, clsObj);                 \
+	    __STORE(handle, clsObj);                 \
-handle;                                  \
+	    handle;                                  \
-})
+	})
 /*
 * this define suppresses XAllocColor/XFreeColor on
 * TrueColor systems - I am not certain, if this is
 * always legal to do (it works with XFree servers).
 * This exception will shutDown the connection.
 * Q: is this a good idea for the local display ?
 */
 #define __ENTER_XLIB(whichTimeout)   \
 { \
-__blockingPrimitiveTimoutHandler__ = (VOIDFUNC)__XTimeoutErrorHandler; \
+	__blockingPrimitiveTimoutHandler__ = (voidFUNC)__XTimeoutErrorHandler; \
-__blockingPrimitiveTimeoutArg__ = self; \
+	__blockingPrimitiveTimeoutArg__ = self; \
-__blockingPrimitiveTimeout__ = whichTimeout; \
+	__blockingPrimitiveTimeout__ = whichTimeout; \
 } {
 #define LEAVE_XLIB()   \
 { \
-__blockingPrimitiveTimoutHandler__ = (VOIDFUNC)0; \
+	__blockingPrimitiveTimoutHandler__ = (voidFUNC)0; \
-__blockingPrimitiveTimeoutArg__ = nil; \
+	__blockingPrimitiveTimeoutArg__ = nil; \
-__blockingPrimitiveTimeout__ = 0; \
+	__blockingPrimitiveTimeout__ = 0; \
 } }
 #define ENTER_XLIB()   __ENTER_XLIB(__intVal(__INST(xlibTimeout)) * 1000)
 #define ENTER_XLIB2()  __ENTER_XLIB(__intVal(__INST(xlibTimeoutForWindowCreation)) * 1000)
 # ifdef __GNUC__
 VOLATILE
 # endif
 static void
 dummyToForceLoading() {
-XCreateSimpleWindow(0, 0, 0, 0, 0, 0, 0, 0, 0);
+	XCreateSimpleWindow(0, 0, 0, 0, 0, 0, 0, 0, 0);
-XCloseDisplay(0);
+	XCloseDisplay(0);
-XCreateImage(0, 0, 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0);
+	XCreateImage(0, 0, 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0);
-XSetWindowColormap(0, 0, 0);
+	XSetWindowColormap(0, 0, 0);
-XQueryColors(0,0,0,0);
+	XQueryColors(0,0,0,0);
 # ifdef SHM
-XShmAttach(0, 0);
+	XShmAttach(0, 0);
-XShmCreateImage(0, 0, 0, 0, 0, 0, 0 ,0);
+	XShmCreateImage(0, 0, 0, 0, 0, 0, 0 ,0);
-XShmDetach(0, 0);
+	XShmDetach(0, 0);
-XShmPutImage(0, 0, 0, 0 , 0,0,0,0,0,0,0);
+	XShmPutImage(0, 0, 0, 0 , 0,0,0,0,0,0,0);
-shmctl(0,0,0);
+	shmctl(0,0,0);
-fgetc(0);
+	fgetc(0);
 # endif  // SHM
 }
 #endif // !ELF
 static char* requestNames[] = {
 {
 XGetErrorText(dpy, event->error_code, lastErrorMsg, 127);
 lastErrorMsg[127] = '\0';
 if (lastErrorMsg[0] == '\0') {
-sprintf(lastErrorMsg, "code: %d", event->error_code);
+	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.
+	 * this is a BadWindow error for X_DestroyWindow.
-* ignore it here, since it results from the GC freeing windows
+	 * ignore it here, since it results from the GC freeing windows
-* in non bottom-up window order.
+	 * in non bottom-up window order.
-*/
+	 */
-return 0;
+	return 0;
 }
 if (@global(DeviceWorkstation:ErrorPrinting) == true) {
-char *requestName = "?";
+	char *requestName = "?";
-if (event->request_code < (sizeof(requestNames)/sizeof(char *))) {
+	if (event->request_code < (sizeof(requestNames)/sizeof(char *))) {
-requestName = requestNames[event->request_code];
+	    requestName = requestNames[event->request_code];
-}
+	}
-console_fprintf(stderr, "XWorkstation [error]: x-error caught maj=%d (0x%x) \"%s\", min=%d (0x%x), resource=%"_lx_"\n",
+	console_fprintf(stderr, "XWorkstation [error]: x-error caught maj=%d (0x%x) \"%s\", min=%d (0x%x), resource=%"_lx_"\n",
-event->request_code, event->request_code, requestName,
+			event->request_code, event->request_code, requestName,
-event->minor_code, event->minor_code, (INT)(event->resourceid));
+			event->minor_code, event->minor_code, (INT)(event->resourceid));
-console_fprintf(stderr, "XWorkstation [error]: x-error message is [%d] '%s'\n",
+	console_fprintf(stderr, "XWorkstation [error]: x-error message is [%d] '%s'\n",
-event->error_code, lastErrorMsg);
+			event->error_code, lastErrorMsg);
 }
 #if 0
 // cg: should no longer be needed - librun no longer sends an errorInterrupt while running on C-stack
 #ifdef XFT
 if ((strncmp(lastErrorMsg, "RenderBadPicture", 16) == 0)) {
-/*
+	/*
-* this is a RenderBadPicture error from XFT drawing.
+	 * this is a RenderBadPicture error from XFT drawing.
-* ignore it for now, as this is due to an incomplete implementation
+	 * ignore it for now, as this is due to an incomplete implementation
-*/
+	 */
-console_fprintf(stderr, "XWorkstation [info]: x-error ignored\n");
+	console_fprintf(stderr, "XWorkstation [info]: x-error ignored\n");
-return 0;
+	return 0;
 }
 #endif
 #endif
 __errorInterruptWithIDAndParameter__(@symbol(DisplayError), __MKEXTERNALADDRESS(dpy));
 return 0;
 */
 int
 __XIOErrorHandler__(Display *dpy)
 {
 if (@global(DeviceWorkstation:ErrorPrinting) == true) {
-console_fprintf(stderr, "XWorkstation [error]: I/O error\n");
+	console_fprintf(stderr, "XWorkstation [error]: I/O error\n");
 }
 __immediateErrorInterruptWithIDAndParameter__(@symbol(DisplayIOError),
-__MKEXTERNALADDRESS(dpy));
+						  __MKEXTERNALADDRESS(dpy));
 #if 0
 /*
 * don't do this.
 * This error is called asynchronously, and the wrong process may be terminated
 */
 void
 __XTimeoutErrorHandler(OBJ displayDeviceInst)
 {
 if ((displayDeviceInst == @global(MainDisplay))
-|| (displayDeviceInst == @global(DeviceWorkstation:DefaultScreen))) {
+	|| (displayDeviceInst == @global(DeviceWorkstation:DefaultScreen))) {
-console_fprintf(stderr, "XWorkstation [error]: keep display connection for master display after X11 timeout (no shutdown)\n");
+	console_fprintf(stderr, "XWorkstation [error]: keep display connection for master display after X11 timeout (no shutdown)\n");
-return;
+	return;
 }
 if (@global(DeviceWorkstation:ErrorPrinting) == true) {
-console_fprintf(stderr, "XWorkstation [error]: X11 request timeout dpy=%"_lx_"\n", (INT)displayDeviceInst);
+	console_fprintf(stderr, "XWorkstation [error]: X11 request timeout dpy=%"_lx_"\n", (INT)displayDeviceInst);
 }
 __OINST(displayDeviceInst, hasConnectionBroken) = true;
 __PROTECT__(displayDeviceInst);
 __immediateErrorInterruptWithIDAndParameter__(@symbol(DisplayIOTimeoutError), displayDeviceInst);
 /*
 * if we return from the error interrupt ...
 */
 if (__OINST(displayDeviceInst, displayId) != nil) {
-__internalError("unhandled X11 display timeout error");
+	__internalError("unhandled X11 display timeout error");
-/*
+	/*
-* the current process failed to do an X11 request.
+	 * the current process failed to do an X11 request.
-* Terminate it!
+	 * Terminate it!
-*/
+	 */
-__terminateProcess(0);      /* soft terminate */
+	__terminateProcess(0);      /* soft terminate */
-__terminateProcess(1);      /* hard terminate */
+	__terminateProcess(1);      /* hard terminate */
 }
 }
 #endif // __INCREMENTAL_COMPILE__
 %}
 the other device to the currentScreen query.
 Therefore, 'normal' applications do not have to care for all of this, as the currentScreen
 query is answered by the launcher when opening its applications.
 Timeouts:
-sometimes, X-connections are lost and, as the Xlib is blocking and synchronous by
+	sometimes, X-connections are lost and, as the Xlib is blocking and synchronous by
-default, this would lead to a locked ST/X system.
+	default, this would lead to a locked ST/X system.
-Therefore, this class defines a timeOut, whenever doing an Xlib call.
+	Therefore, this class defines a timeOut, whenever doing an Xlib call.
-The default for this timeout is 30seconds.
+	The default for this timeout is 30seconds.
-This may be a problem with windowmanagers which show a rubber-band rectangle
+	This may be a problem with windowmanagers which show a rubber-band rectangle
-when creating windows.
+	when creating windows.
-If the user does not specify the rectangle within 30 seconds, the device assumes
+	If the user does not specify the rectangle within 30 seconds, the device assumes
-a timeout and closes the connection.
+	a timeout and closes the connection.
-As a (kludgy) workaround, a second timeout value is used for window-creation.
+	As a (kludgy) workaround, a second timeout value is used for window-creation.
-This secondary timeout value defaults to 60*5 seconds (5 minutes).
+	This secondary timeout value defaults to 60*5 seconds (5 minutes).
 See more documentation in my superclass, DeviceWorkstation.
 [author:]
-Claus Gittinger
+	Claus Gittinger
 "
 ! !
 !XWorkstation class methodsFor:'initialization'!
 %{
 int screen = __intVal(__INST(screen));
 Pixmap newBitmap;
 if (__bothSmallInteger(w, h) && ISCONNECTED) {
-Display *dpy = myDpy;
+	Display *dpy = myDpy;
-ENTER_XLIB();
+	ENTER_XLIB();
-newBitmap = XCreatePixmap(dpy, RootWindow(dpy, screen),
+	newBitmap = XCreatePixmap(dpy, RootWindow(dpy, screen),
-__intVal(w), __intVal(h), 1);
+				       __intVal(w), __intVal(h), 1);
-LEAVE_XLIB();
+	LEAVE_XLIB();
 #ifdef COUNT_RESOURCES
-if (newBitmap)
+	if (newBitmap)
-__cnt_bitmap++;
+	    __cnt_bitmap++;
 #endif
-RETURN ( (newBitmap != (Pixmap)0) ? __MKEXTERNALADDRESS(newBitmap) : nil );
+	RETURN ( (newBitmap != (Pixmap)0) ? __MKEXTERNALADDRESS(newBitmap) : nil );
 }
 %}.
 self primitiveFailedOrClosedConnection.
 ^ nil
 !
 unsigned char fastBits[10000];
 OBJ num, *op;
 int bytesPerRow;
 if (! ISCONNECTED) {
-RETURN (nil);
+	RETURN (nil);
 }
 dpy = myDpy;
 if (firstCall) {
-for (index=0; index < 256; index++) {
+	for (index=0; index < 256; index++) {
-int t = 0;
+	    int t = 0;
-if (index & 128) t |=   1;
+	    if (index & 128) t |=   1;
-if (index &  64) t |=   2;
+	    if (index &  64) t |=   2;
-if (index &  32) t |=   4;
+	    if (index &  32) t |=   4;
-if (index &  16) t |=   8;
+	    if (index &  16) t |=   8;
-if (index &   8) t |=  16;
+	    if (index &   8) t |=  16;
-if (index &   4) t |=  32;
+	    if (index &   4) t |=  32;
-if (index &   2) t |=  64;
+	    if (index &   2) t |=  64;
-if (index &   1) t |= 128;
+	    if (index &   1) t |= 128;
-reverseBitTable[index] = t;
+	    reverseBitTable[index] = t;
-}
+	}
-firstCall = 0;
+	firstCall = 0;
 }
 if (__bothSmallInteger(w, h) && _isNonNilObject(anArray)) {
-newBitmap = (Pixmap)0;
+	newBitmap = (Pixmap)0;
-b_width = __intVal(w);
+	b_width = __intVal(w);
-b_height = __intVal(h);
+	b_height = __intVal(h);
-bytesPerRow = (b_width + 7) / 8;
+	bytesPerRow = (b_width + 7) / 8;
-nBytes = b_height * bytesPerRow;
+	nBytes = b_height * bytesPerRow;
-if (nBytes < sizeof(fastBits)) {
+	if (nBytes < sizeof(fastBits)) {
-cp = b_bits = fastBits;
+	    cp = b_bits = fastBits;
-allocatedBits = 0;
+	    allocatedBits = 0;
-} else {
+	} else {
-cp = b_bits = allocatedBits = (unsigned char *) malloc(nBytes);
+	    cp = b_bits = allocatedBits = (unsigned char *) malloc(nBytes);
-if (! cp) goto fail;
+	    if (! cp) goto fail;
-}
+	}
-if (__isArrayLike(anArray)) {
+	if (__isArrayLike(anArray)) {
-index = 1;
+	    index = 1;
-op = &(__ArrayInstPtr(anArray)->a_element[index - 1]);
+	    op = &(__ArrayInstPtr(anArray)->a_element[index - 1]);
-for (row = b_height; row; row--) {
+	    for (row = b_height; row; row--) {
-for (col = bytesPerRow; col; col--) {
+		for (col = bytesPerRow; col; col--) {
-num = *op++;
+		    num = *op++;
-if (__isSmallInteger(num)) {
+		    if (__isSmallInteger(num)) {
-bits = __intVal(num);
+			bits = __intVal(num);
-} else {
+		    } else {
-bits = __longIntVal(num);
+			bits = __longIntVal(num);
-if (bits == 0) {
+			if (bits == 0) {
-goto fail;
+			    goto fail;
-}
+			}
-}
+		    }
-*cp++ = reverseBitTable[bits & 0xFF];
+		    *cp++ = reverseBitTable[bits & 0xFF];
-}
+		}
-}
+	    }
-} else {
+	} else {
-if (__isByteArrayLike(anArray)) {
+	    if (__isByteArrayLike(anArray)) {
-pBits = __ByteArrayInstPtr(anArray)->ba_element;
+		pBits = __ByteArrayInstPtr(anArray)->ba_element;
-for (col = b_height*bytesPerRow; col; col--) {
+		for (col = b_height*bytesPerRow; col; col--) {
-*cp++ = reverseBitTable[*pBits++];
+		    *cp++ = reverseBitTable[*pBits++];
-}
+		}
-} else {
+	    } else {
-goto fail;
+		goto fail;
-}
+	    }
-}
+	}
-ENTER_XLIB();
+	ENTER_XLIB();
-newBitmap = XCreateBitmapFromData(dpy, RootWindow(dpy, screen),
+	newBitmap = XCreateBitmapFromData(dpy, RootWindow(dpy, screen),
-(char *)b_bits,
+					       (char *)b_bits,
-b_width, b_height);
+					       b_width, b_height);
-LEAVE_XLIB();
+	LEAVE_XLIB();
 #ifdef COUNT_RESOURCES
-if (newBitmap)
+	if (newBitmap)
-__cnt_bitmap++;
+	    __cnt_bitmap++;
 #endif
 fail: ;
-if (allocatedBits)
+	if (allocatedBits)
-free(allocatedBits);
+	    free(allocatedBits);
-RETURN ( newBitmap ? __MKEXTERNALADDRESS(newBitmap) : nil );
+	RETURN ( newBitmap ? __MKEXTERNALADDRESS(newBitmap) : nil );
 }
 %}.
 ^ nil
 !
 |msgType dropColl dropCollSize anyFile anyDir anyText anyOther
 dropType dropTypeCode strings sz idx val|
 (msgType := self atomIDOf:#DndProtocol) notNil ifTrue:[
-"/ DND can drop files, file, dir, links, dirLink and text
+	"/ DND can drop files, file, dir, links, dirLink and text
-"/ check for this.
+	"/ check for this.
-dropObjects isCollection ifFalse:[
+	dropObjects isCollection ifFalse:[
-dropColl := Array with:dropObjects
+	    dropColl := Array with:dropObjects
-] ifTrue:[
+	] ifTrue:[
-dropColl := dropObjects
+	    dropColl := dropObjects
-].
+	].
-anyFile := anyDir := anyText := anyOther := false.
+	anyFile := anyDir := anyText := anyOther := false.
-dropColl do:[:aDropObject |
+	dropColl do:[:aDropObject |
-aDropObject isFileObject ifTrue:[
+	    aDropObject isFileObject ifTrue:[
-aDropObject theObject isDirectory ifTrue:[
+		aDropObject theObject isDirectory ifTrue:[
-anyDir := true
+		    anyDir := true
-] ifFalse:[
+		] ifFalse:[
-anyFile := true
+		    anyFile := true
-]
+		]
-] ifFalse:[
+	    ] ifFalse:[
-aDropObject isTextObject ifTrue:[
+		aDropObject isTextObject ifTrue:[
-anyText := true
+		    anyText := true
-] ifFalse:[
+		] ifFalse:[
-anyOther := true
+		    anyOther := true
-]
+		]
-]
+	    ]
-].
+	].
-anyOther ifTrue:[
+	anyOther ifTrue:[
-"/ DND does not support this ...
+	    "/ DND does not support this ...
-Logger info:'DND can only drop files or text'.
+	    Logger info:'DND can only drop files or text'.
-^ false
+	    ^ false
-].
+	].
-anyText ifTrue:[
+	anyText ifTrue:[
-(anyFile or:[anyDir]) ifTrue:[
+	    (anyFile or:[anyDir]) ifTrue:[
-"/ DND does not support mixed types
+		"/ DND does not support mixed types
-Logger info:'DND cannot drop both files and text'.
+		Logger info:'DND cannot drop both files and text'.
-^ false
+		^ false
-]
+	    ]
-].
+	].
-dropCollSize := dropColl size.
+	dropCollSize := dropColl size.
-anyFile ifTrue:[
+	anyFile ifTrue:[
-dropType := #DndFiles.
+	    dropType := #DndFiles.
-dropCollSize == 1 ifTrue:[
+	    dropCollSize == 1 ifTrue:[
-dropType := #DndFile
+		dropType := #DndFile
-]
+	    ]
-] ifFalse:[
+	] ifFalse:[
-anyDir ifTrue:[
+	    anyDir ifTrue:[
-dropType := #DndFiles.
+		dropType := #DndFiles.
-dropCollSize == 1 ifTrue:[
+		dropCollSize == 1 ifTrue:[
-dropType := #DndDir
+		    dropType := #DndDir
-]
+		]
-] ifFalse:[
+	    ] ifFalse:[
-anyText ifTrue:[
+		anyText ifTrue:[
-dropCollSize == 1 ifTrue:[
+		    dropCollSize == 1 ifTrue:[
-dropType := #DndText
+			dropType := #DndText
-] ifFalse:[
+		    ] ifFalse:[
-"/ can only drop a single text object
+			"/ can only drop a single text object
-Logger info:'DND can only drop a single text'.
+			Logger info:'DND can only drop a single text'.
-^ false
+			^ false
-]
+		    ]
-] ifFalse:[
+		] ifFalse:[
-"/ mhmh ...
+		    "/ mhmh ...
-Logger info:'DND cannot drop this'.
+		    Logger info:'DND cannot drop this'.
-^ false
+		    ^ false
-]
+		]
-]
+	    ]
-].
+	].
-dropTypeCode := self dndDropTypes indexOf:dropType.
+	dropTypeCode := self dndDropTypes indexOf:dropType.
-dropTypeCode == 0 ifTrue:[
+	dropTypeCode == 0 ifTrue:[
-Logger info:'DND cannot drop this'.
+	    Logger info:'DND cannot drop this'.
-^ false
+	    ^ false
-].
+	].
-dropTypeCode := dropTypeCode - 1.
+	dropTypeCode := dropTypeCode - 1.
-"/ place the selection inTo the DndSelection property
+	"/ place the selection inTo the DndSelection property
-"/ of the rootView ...
+	"/ of the rootView ...
-"/ ... need a single string, with 0-terminated parts.
+	"/ ... need a single string, with 0-terminated parts.
-strings := OrderedCollection new.
+	strings := OrderedCollection new.
-sz := 0.
+	sz := 0.
-dropColl do:[:anObject |
+	dropColl do:[:anObject |
-|s o|
+	    |s o|
-o := anObject theObject.
+	    o := anObject theObject.
-anObject isFileObject ifTrue:[
+	    anObject isFileObject ifTrue:[
-o := o pathName
+		o := o pathName
-].
+	    ].
-s := o asString.
+	    s := o asString.
-strings add:s.
+	    strings add:s.
-sz := sz + (s size) + 1.
+	    sz := sz + (s size) + 1.
-].
+	].
-val := String new:sz.
+	val := String new:sz.
-idx := 1.
+	idx := 1.
-strings do:[:aString |
+	strings do:[:aString |
-|sz|
+	    |sz|
-sz := aString size.
+	    sz := aString size.
-val replaceFrom:idx to:(idx + sz - 1) with:aString startingAt:1.
+	    val replaceFrom:idx to:(idx + sz - 1) with:aString startingAt:1.
-idx := idx + sz.
+	    idx := idx + sz.
-val at:idx put:(Character value:0).
+	    val at:idx put:(Character value:0).
-idx := idx + 1
+	    idx := idx + 1
-].
+	].
-self
+	self
-setProperty:(self atomIDOf:#DndSelection)
+	    setProperty:(self atomIDOf:#DndSelection)
-type:(self atomIDOf:#STRING)
+	    type:(self atomIDOf:#STRING)
-value:val
+	    value:val
-for:rootId.
+	    for:rootId.
-^ self
+	^ self
-sendClientEvent:msgType
+	    sendClientEvent:msgType
-format:32
+	    format:32
-to:destinationId
+	    to:destinationId
-propagate:true
+	    propagate:true
-eventMask:nil
+	    eventMask:nil
-window:destinationId
+	    window:destinationId
-data1:dropTypeCode
+	    data1:dropTypeCode
-data2:0
+	    data2:0
-data3:destinationId
+	    data3:destinationId
-data4:nil
+	    data4:nil
-data5:nil.
+	    data5:nil.
 ].
 ^ false
 "Created: 6.4.1997 / 13:39:37 / cg"
 "clear (fill with background) a rectangle. If any coordinate is not integer, an error is triggered."
 <context: #return>
 operationsUntilFlush notNil ifTrue:[
-operationsUntilFlush <= 0 ifTrue:[
+	operationsUntilFlush <= 0 ifTrue:[
-self flush.
+	    self flush.
-] ifFalse:[
+	] ifFalse:[
-operationsUntilFlush := operationsUntilFlush - 1.
+	    operationsUntilFlush := operationsUntilFlush - 1.
-].
+	].
 ].
 %{
 int w, h;
 if (ISCONNECTED
 && __isExternalAddress(aDrawableId)
 && __bothSmallInteger(x, y)
 && __bothSmallInteger(width, height)) {
-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)) {
+	if ((w >= 0) && (h >= 0)) {
-ENTER_XLIB();
+	    ENTER_XLIB();
-XClearArea(myDpy,
+	    XClearArea(myDpy,
-__DrawableVal(aDrawableId),
+			   __DrawableVal(aDrawableId),
-__intVal(x), __intVal(y), w, h, 0);
+			   __intVal(x), __intVal(y), w, h, 0);
-LEAVE_XLIB();
+	    LEAVE_XLIB();
-}
+	}
-RETURN ( self );
+	RETURN ( self );
 }
 %}.
 "badGC, badDrawable or coordinates not integer"
 self primitiveFailedOrClosedConnection
 !
 "/ see def's in DragAndDropTypes.h
 dropType := (self dndDropTypes) at:dropType+1 ifAbsent:#DndNotDnd.
 property := self
-getProperty:(self atomIDOf:#DndSelection)
+	getProperty:(self atomIDOf:#DndSelection)
-from:rootId
+	from:rootId
-delete:false.
+	delete:false.
 propertyType := property key.
 dropValue := property value.
 "/ preconvert into a collection
 "/ redefined dropMessage methods in applications.
 "/ Conversion is done for some well known types
 "/ in the default dropMessage handling of SimpleView.
 dropType == #DndFiles ifTrue:[
-"/ actually, a list of fileNames
+	"/ actually, a list of fileNames
-propertyType ~~ stringAtom ifTrue:[
+	propertyType ~~ stringAtom ifTrue:[
-Logger info:'expected a string propertyValue in drop'.
+	    Logger info:'expected a string propertyValue in drop'.
-^ self
+	    ^ self
-].
+	].
-names := OrderedCollection new.
+	names := OrderedCollection new.
-i1 := 1.
+	i1 := 1.
-[i1 ~~ 0] whileTrue:[
+	[i1 ~~ 0] whileTrue:[
-i2 := dropValue indexOf:(Character value:0) startingAt:i1.
+	    i2 := dropValue indexOf:(Character value:0) startingAt:i1.
-i2 ~~ 0 ifTrue:[
+	    i2 ~~ 0 ifTrue:[
-names add:(dropValue copyFrom:i1 to:(i2-1)).
+		names add:(dropValue copyFrom:i1 to:(i2-1)).
-i1 := i2 + 1.
+		i1 := i2 + 1.
-] ifFalse:[
+	    ] ifFalse:[
-i1 := i2
+		i1 := i2
-].
+	    ].
-].
+	].
-dropValue := names.
+	dropValue := names.
-dropValue := dropValue collect:[:nm | nm asFilename].
+	dropValue := dropValue collect:[:nm | nm asFilename].
-dropType := #files.
+	dropType := #files.
 ] ifFalse:[ (dropType == #DndFile) ifTrue:[
-propertyType ~~ stringAtom ifTrue:[
+	propertyType ~~ stringAtom ifTrue:[
-Logger info:'expected a string propertyValue in drop'.
+	    Logger info:'expected a string propertyValue in drop'.
-^ self
+	    ^ self
-].
+	].
-dropValue := dropValue asFilename.
+	dropValue := dropValue asFilename.
-dropType := #file.
+	dropType := #file.
 ] ifFalse:[ (dropType == #DndDir) ifTrue:[
-propertyType ~~ stringAtom ifTrue:[
+	propertyType ~~ stringAtom ifTrue:[
-Logger info:'expected a string propertyValue in drop'.
+	    Logger info:'expected a string propertyValue in drop'.
-^ self
+	    ^ self
-].
+	].
-dropValue := dropValue asFilename.
+	dropValue := dropValue asFilename.
-dropType := #directory.
+	dropType := #directory.
 ] ifFalse:[ (dropType == #DndText) ifTrue:[
-propertyType ~~ stringAtom ifTrue:[
+	propertyType ~~ stringAtom ifTrue:[
-Logger info:'expected a string propertyValue in drop'.
+	    Logger info:'expected a string propertyValue in drop'.
-^ self
+	    ^ self
-].
+	].
-dropType := #text.
+	dropType := #text.
 ] ifFalse:[ (dropType == #DndExe) ifTrue:[
-propertyType ~~ stringAtom ifTrue:[
+	propertyType ~~ stringAtom ifTrue:[
-Logger info:'expected a string propertyValue in drop'.
+	    Logger info:'expected a string propertyValue in drop'.
-^ self
+	    ^ self
-].
+	].
-dropType := #executable.
+	dropType := #executable.
 ] ifFalse:[ (dropType == #DndLink) ifTrue:[
-propertyType ~~ stringAtom ifTrue:[
+	propertyType ~~ stringAtom ifTrue:[
-Logger info:'expected a string propertyValue in drop'.
+	    Logger info:'expected a string propertyValue in drop'.
-^ self
+	    ^ self
-].
+	].
-dropType := #link.
+	dropType := #link.
 ] ifFalse:[ (dropType == #DndRawData) ifTrue:[
-dropType := #rawData.
+	dropType := #rawData.
 ] ifFalse:[
-Logger info:'unsupported dropType: %1 data: %2 ' with:dropType with:dropValue.
+	Logger info:'unsupported dropType: %1 data: %2 ' with:dropType with:dropValue.
-dropType := #unknown.
+	dropType := #unknown.
 ]]]]]]].
 sensor := targetView sensor.
 "not posted, if there is no sensor ..."
 sensor notNil ifTrue:[
-sensor dropMessage:dropType data:dropValue view:targetView position:nil handle:nil
+	sensor dropMessage:dropType data:dropValue view:targetView position:nil handle:nil
 ].
 "Created: 4.4.1997 / 17:59:37 / cg"
 !
 in advance, since the X-server is free to return whatever it thinks is a good padding."
 |rawInfo info|
 ((w <= 0) or:[h <= 0]) ifTrue:[
-self primitiveFailed.
+	self primitiveFailed.
-^ nil
+	^ nil
 ].
 rawInfo := Array new:8.
-"1 -> bit order"
+		  "1 -> bit order"
-"2 -> depth"
+		  "2 -> depth"
-"3 -> bytes_per_line"
+		  "3 -> bytes_per_line"
-"4 -> byte_order"
+		  "4 -> byte_order"
-"5 -> format"
+		  "5 -> format"
-"6 -> bitmap_unit"
+		  "6 -> bitmap_unit"
-"7 -> bitmap_pad"
+		  "7 -> bitmap_pad"
-"8 -> bits_per_pixel"
+		  "8 -> bits_per_pixel"
 "/ had to extract the getPixel call into a separate method, to specify
 "/ unlimitedStack (some implementations use alloca and require huge amounts
 "/ of temporary stack space
 (self primGetBitsFrom:aDrawableId x:srcx y:srcy width:w height:h into:imageBits infoInto:rawInfo) ifTrue:[
-info := IdentityDictionary new.
+	info := IdentityDictionary new.
-info at:#bitOrder put:(rawInfo at:1).
+	info at:#bitOrder put:(rawInfo at:1).
-info at:#depth put:(rawInfo at:2).
+	info at:#depth put:(rawInfo at:2).
-info at:#bytesPerLine put:(rawInfo at:3).
+	info at:#bytesPerLine put:(rawInfo at:3).
-info at:#byteOrder put:(rawInfo at:4).
+	info at:#byteOrder put:(rawInfo at:4).
-info at:#format put:(rawInfo at:5).
+	info at:#format put:(rawInfo at:5).
-info at:#bitmapUnit put:(rawInfo at:6).
+	info at:#bitmapUnit put:(rawInfo at:6).
-info at:#bitmapPad put:(rawInfo at:7).
+	info at:#bitmapPad put:(rawInfo at:7).
-info at:#bitsPerPixel put:(rawInfo at:8).
+	info at:#bitsPerPixel put:(rawInfo at:8).
-^ info
+	^ info
 ].
 "
 some error occurred - either args are not smallintegers, imageBits is not a ByteArray
 or is too small to hold the bits
 "
 |buffer bufferAsString|
 buffer := self perform:bufferGetSelector.
 (aTargetAtomID == (self atomIDOf:#'ST_OBJECT')) ifTrue:[
-"/ 'st-object' printCR.
+	"/ 'st-object' printCR.
-"send the selection in binaryStore format"
+	"send the selection in binaryStore format"
-"require libboss to be loaded"
+	"require libboss to be loaded"
-(Smalltalk isClassLibraryLoaded:'libstx_libboss') ifFalse:[
+	(Smalltalk isClassLibraryLoaded:'libstx_libboss') ifFalse:[
-Logger error:'cannot use binary store for copy buffer (libboss missing)'.
+	    Logger error:'cannot use binary store for copy buffer (libboss missing)'.
-^ nil -> nil.
+	    ^ nil -> nil.
-].
+	].
-[
+	[
-^ aTargetAtomID -> (buffer binaryStoreBytes).
+	    ^ aTargetAtomID -> (buffer binaryStoreBytes).
-] on:Error do:[:ex|
+	] on:Error do:[:ex|
-Logger info:'error on binary store of copy buffer: %1' with: ex description.
+	    Logger info:'error on binary store of copy buffer: %1' with: ex description.
-^ nil -> nil.
+	    ^ nil -> nil.
-].
+	].
 ].
 bufferAsString := self class bufferAsString:buffer.
 (aTargetAtomID == (self atomIDOf:#STRING)
 or:[aTargetAtomID == (self atomIDOf:#'text/plain')]
 ) ifTrue:[
-"/ 'string' printCR.
+	"/ 'string' printCR.
-"the other view wants the selection as string"
+	"the other view wants the selection as string"
-^ aTargetAtomID -> (bufferAsString asSingleByteStringReplaceInvalidWith:$#).
+	^ aTargetAtomID -> (bufferAsString asSingleByteStringReplaceInvalidWith:$#).
 ].
 (aTargetAtomID == (self atomIDOf:#UTF8_STRING)
 or:[aTargetAtomID == (self atomIDOf:#'text/plain;codeset=utf-8')]
 ) ifTrue:[
-"/ 'utf string' printCR.
+	"/ 'utf string' printCR.
-"the other view wants the selection as utf8 string"
+	"the other view wants the selection as utf8 string"
-^ aTargetAtomID -> (bufferAsString utf8Encoded).
+	^ aTargetAtomID -> (bufferAsString utf8Encoded).
 ].
 aTargetAtomID == (self atomIDOf:#LENGTH) ifTrue:[
-"the other one wants to know the size of our selection.
+	"the other one wants to know the size of our selection.
-LENGTH is deprecated, since we do not know how the selection is
+	 LENGTH is deprecated, since we do not know how the selection is
-going to be converted. The client must not rely on the length returned"
+	 going to be converted. The client must not rely on the length returned"
-^ (self atomIDOf:#INTEGER) -> (bufferAsString size).
+	^ (self atomIDOf:#INTEGER) -> (bufferAsString size).
 ].
 "we do not support the requestet target type"
 ^ nil -> nil.
 id := xftDrawId.
 xftDrawId := nil.
 %{
 #ifdef XFT
 if (__isExternalAddress(id)) {
-XftDraw *address = (XftDraw *)__externalAddressVal(id);
+	XftDraw *address = (XftDraw *)__externalAddressVal(id);
-if (address) {
+	if (address) {
-XftDrawDestroy(address);
+	    XftDrawDestroy(address);
-__externalAddressVal(id) = 0;
+	    __externalAddressVal(id) = 0;
-}
+	}
 }
 #endif
 %}.
 ! !
 <context: #return>
 |displayId|
 font isXftFont ifTrue:[
-self displayDeviceXftString:aString from:index1 to:index2 x:x y:y opaque:opaque.
+	self displayDeviceXftString:aString from:index1 to:index2 x:x y:y opaque:opaque.
-^ self.
+	^ self.
 ].
 device flushIfAppropriate.
 displayId := device displayIdOrErrorIfBroken.
 && __isExternalAddress(__INST(gcId))
 && __isExternalAddress(__INST(drawableId))
 && __isNonNilObject(aString)
 && __bothSmallInteger(index1, index2)
 && __bothSmallInteger(x, y)) {
-int lMax = __intVal(@global(XWorkstation:MaxStringLength));
+	int lMax = __intVal(@global(XWorkstation:MaxStringLength));
-Display *dpy = __DisplayVal(displayId);
+	Display *dpy = __DisplayVal(displayId);
-gc = __GCVal(__INST(gcId));
+	gc = __GCVal(__INST(gcId));
-win = __WindowVal(__INST(drawableId));
+	win = __WindowVal(__INST(drawableId));
-i1 = __intVal(index1) - 1;
+	i1 = __intVal(index1) - 1;
-if (i1 >= 0) {
+	if (i1 >= 0) {
-OBJ cls;
+	    OBJ cls;
-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 (__isStringLike(aString)) {
+	    if (__isStringLike(aString)) {
-n = __stringSize(aString);
+		n = __stringSize(aString);
-if (i2 < n) {
+		if (i2 < n) {
-cp += i1;
+		    cp += i1;
-if (l > lMax) l = lMax;
+		    if (l > lMax) l = lMax;
-__ENTER_XLIB(1000 * __intVal(@global(XWorkstation:DefaultXLibTimeout)));
+		    __ENTER_XLIB(1000 * __intVal(@global(XWorkstation:DefaultXLibTimeout)));
-if (opaque == true)
+		    if (opaque == true)
-XDrawImageString(dpy, win, gc, __intVal(x), __intVal(y), cp, l);
+			XDrawImageString(dpy, win, gc, __intVal(x), __intVal(y), cp, l);
-else
+		    else
-XDrawString(dpy, win, gc, __intVal(x), __intVal(y), cp, l);
+			XDrawString(dpy, win, gc, __intVal(x), __intVal(y), cp, l);
-LEAVE_XLIB();
+		    LEAVE_XLIB();
-RETURN ( self );
+		    RETURN ( self );
-}
+		}
-}
+	    }
-cls = __qClass(aString);
+	    cls = __qClass(aString);
-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 > lMax) l = lMax;
+		    if (l > lMax) l = lMax;
-__ENTER_XLIB(1000 * __intVal(@global(XWorkstation:DefaultXLibTimeout)));
+		    __ENTER_XLIB(1000 * __intVal(@global(XWorkstation:DefaultXLibTimeout)));
-if (opaque == true)
+		    if (opaque == true)
-XDrawImageString(dpy, win, gc, __intVal(x), __intVal(y), cp, l);
+			XDrawImageString(dpy, win, gc, __intVal(x), __intVal(y), cp, l);
-else
+		    else
-XDrawString(dpy, win, gc, __intVal(x), __intVal(y), cp, l);
+			XDrawString(dpy, win, gc, __intVal(x), __intVal(y), cp, l);
-LEAVE_XLIB();
+		    LEAVE_XLIB();
-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 > lMax) l = lMax;
+		    if (l > lMax) l = lMax;
 #if defined(MSBFIRST) || defined(__MSBFIRST)
-/*
+		    /*
-* chars already in correct order
+		     * chars already in correct order
-*/
+		     */
 #else
 # if ! (defined(LSBFIRST) || defined(__LSBFIRST))
-/*
+		    /*
-* 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)
 # endif  // ! (defined(LSBFIRST) || defined(__LSBFIRST))
-{
+		    {
-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;
-}
+		    }
 #endif  // ! (defined(MSBFIRST) || defined(__MSBFIRST))
-__ENTER_XLIB(1000 * __intVal(@global(XWorkstation:DefaultXLibTimeout)));
+		    __ENTER_XLIB(1000 * __intVal(@global(XWorkstation:DefaultXLibTimeout)));
-if (opaque == true)
+		    if (opaque == true)
-XDrawImageString16(dpy, win, gc, __intVal(x), __intVal(y), (XChar2b *)cp, l);
+			XDrawImageString16(dpy, win, gc, __intVal(x), __intVal(y), (XChar2b *)cp, l);
-else
+		    else
-XDrawString16(dpy, win, gc, __intVal(x), __intVal(y), (XChar2b *)cp, l);
+			XDrawString16(dpy, win, gc, __intVal(x), __intVal(y), (XChar2b *)cp, l);
-LEAVE_XLIB();
+		    LEAVE_XLIB();
-if (mustFree) {
+		    if (mustFree) {
-free(cp2);
+			free(cp2);
-}
+		    }
-RETURN ( self );
+		    RETURN ( self );
-}
+		}
-}
+	    }
-/* FOURBYTESTRINGS */
+	    /* FOURBYTESTRINGS */
-if (__isLongs(aString)) {
+	    if (__isLongs(aString)) {
-n = (__byteArraySize(aString) - nInstBytes) / 4;
+		n = (__byteArraySize(aString) - nInstBytes) / 4;
-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;
-int32 *ip;
+		    int32 *ip;
-int mustFree = 0;
+		    int mustFree = 0;
-cp += (i1 * 4);
+		    cp += (i1 * 4);
-if (l > lMax) l = lMax;
+		    if (l > lMax) l = lMax;
-/*
+		    /*
-* all codePoints <= 16rFFFF are draw; above 16bit range are drawn as 16rFFFF.
+		     * all codePoints <= 16rFFFF are draw; above 16bit range are drawn as 16rFFFF.
-*/
+		     */
-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++) {
-int32 codePoint = ((int32 *)cp)[i];
+			int32 codePoint = ((int32 *)cp)[i];
-if (codePoint > 0xFFFF) {
+			if (codePoint > 0xFFFF) {
-codePoint = 0xFFFF;
+			    codePoint = 0xFFFF;
-}
+			}
-cp2[i].byte1 = (codePoint >> 8) & 0xFF;
+			cp2[i].byte1 = (codePoint >> 8) & 0xFF;
-cp2[i].byte2 = codePoint & 0xFF;
+			cp2[i].byte2 = codePoint & 0xFF;
-}
+		    }
-__ENTER_XLIB(1000 * __intVal(@global(XWorkstation:DefaultXLibTimeout)));
+		    __ENTER_XLIB(1000 * __intVal(@global(XWorkstation:DefaultXLibTimeout)));
-if (opaque == true)
+		    if (opaque == true)
-XDrawImageString16(dpy, win, gc, __intVal(x), __intVal(y), (XChar2b *)cp2, l);
+			XDrawImageString16(dpy, win, gc, __intVal(x), __intVal(y), (XChar2b *)cp2, l);
-else
+		    else
-XDrawString16(dpy, win, gc, __intVal(x), __intVal(y), (XChar2b *)cp2, l);
+			XDrawString16(dpy, win, gc, __intVal(x), __intVal(y), (XChar2b *)cp2, l);
-LEAVE_XLIB();
+		    LEAVE_XLIB();
-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"
 displayId := device displayIdOrErrorIfBroken.
 "limit the string len, otherwise bad output is generated"
 stringLen := index2Arg - index1 + 1.
 stringLen > 1000 "8000" ifTrue:[
-index2 := index1 + 1000 "8000" - 1.
+	index2 := index1 + 1000 "8000" - 1.
 ]  ifFalse:[
-stringLen <= 0 ifTrue:[^ self].
+	stringLen <= 0 ifTrue:[^ self].
-index2 := index2Arg.
+	index2 := index2Arg.
 ].
 bytesPerCharacter := aString bytesPerCharacter.
 clipRect notNil ifTrue:[
-clipX := clipRect left.
+	clipX := clipRect left.
-clipY := clipRect top.
+	clipY := clipRect top.
-clipW := clipRect width.
+	clipW := clipRect width.
-clipH := clipRect height.
+	clipH := clipRect height.
 "/clipW > 32767 ifTrue:['clipW > 32767: ' errorPrint. clipW errorPrintCR. clipW := 32767].
 "/(clipX > 16384 or:[clipX < -16384]) ifTrue:['clipX > 16384: ' errorPrint. clipX errorPrintCR.].
-"/ YES YES YES: this MUST be transformed!!
+	"/ YES YES YES: this MUST be transformed!!
-"/ (see htmlView) fix the notebook, please.
+	"/ (see htmlView) fix the notebook, please.
 ].
 fgR := paint scaledRed.
 fgR notNil ifTrue:[
-fgG := paint scaledGreen.
+	fgG := paint scaledGreen.
-fgB := paint scaledBlue.
+	fgB := paint scaledBlue.
-fgA := paint scaledAlpha.
+	fgA := paint scaledAlpha.
 ] ifFalse:[
-"/ when drawing into a pixmap...
+	"/ when drawing into a pixmap...
-fgPixel := paint colorId.
+	fgPixel := paint colorId.
-fgPixel == 0 ifTrue:[
+	fgPixel == 0 ifTrue:[
-fgR := fgG := fgB := 0.
+	    fgR := fgG := fgB := 0.
-] ifFalse:[
+	] ifFalse:[
-fgR := fgG := fgB := 16rFFFF.
+	    fgR := fgG := fgB := 16rFFFF.
-].
+	].
-fgA := 16rFFFF.
+	fgA := 16rFFFF.
 ].
 opaque ifTrue:[
-bgPaint isColor ifTrue:[
+	bgPaint isColor ifTrue:[
-bgR := bgPaint scaledRed.
+	    bgR := bgPaint scaledRed.
-bgR notNil ifTrue:[
+	    bgR notNil ifTrue:[
-bgG := bgPaint scaledGreen.
+		bgG := bgPaint scaledGreen.
-bgB := bgPaint scaledBlue.
+		bgB := bgPaint scaledBlue.
-bgA := bgPaint scaledAlpha.
+		bgA := bgPaint scaledAlpha.
-] ifFalse:[
+	    ] ifFalse:[
-"/ when drawing into a pixmap...
+		"/ when drawing into a pixmap...
-bgPixel := bgPaint colorId.
+		bgPixel := bgPaint colorId.
-bgPixel == 0 ifTrue:[
+		bgPixel == 0 ifTrue:[
-bgR := bgG := bgB := 0.
+		    bgR := bgG := bgB := 0.
-] ifFalse:[
+		] ifFalse:[
-bgR := bgG := bgB := 16rFFFF.
+		    bgR := bgG := bgB := 16rFFFF.
-].
+		].
-bgA := 16rFFFF.
+		bgA := 16rFFFF.
-].
+	    ].
-] ifFalse:[
+	] ifFalse:[
-"images as background are not yet implemented"
+	    "images as background are not yet implemented"
-"/ #todo: fill background rectangle
+	    "/ #todo: fill background rectangle
-bgR := bgG := bgB := bgA := 16rFFFF.
+	    bgR := bgG := bgB := bgA := 16rFFFF.
-].
+	].
 ].
 screen := device screen.
 self isPixmap ifTrue:[
-pixmapDepth := depth.
+	pixmapDepth := depth.
 ].
 fontId := font getXftFontId.
 %{ /* STACK: 64000 */
 #ifdef XFT
 int __bytesPerCharacter;
 XftDraw *__xftDrawId;
 XftFont *__xftFont;
 if (!(__bothSmallInteger(drawX, drawY)
-&& __bothSmallInteger(index1, index2)
+	  && __bothSmallInteger(index1, index2)
-&& __isSmallInteger(bytesPerCharacter)
+	  && __isSmallInteger(bytesPerCharacter)
-&& (__isSmallInteger(fgPixel) || (__bothSmallInteger(fgR, fgG) && __bothSmallInteger(fgB, fgA)))
+	  && (__isSmallInteger(fgPixel) || (__bothSmallInteger(fgR, fgG) && __bothSmallInteger(fgB, fgA)))
-&& (opaque == false || __isSmallInteger(bgPixel) || (__bothSmallInteger(bgR, bgG) && __bothSmallInteger(bgB, bgA)))
+	  && (opaque == false || __isSmallInteger(bgPixel) || (__bothSmallInteger(bgR, bgG) && __bothSmallInteger(bgB, bgA)))
-&& __isNonNilObject(aString)
+	  && __isNonNilObject(aString)
-&& __isExternalAddress(displayId)
+	  && __isExternalAddress(displayId)
-&& __isExternalAddressLike(fontId)
+	  && __isExternalAddressLike(fontId)
 )) {
-error = @symbol(badArgument);
+	error = @symbol(badArgument);
-goto out;
+	goto out;
 }
 __xftFont = XFT_FONT(fontId);
 __bytesPerCharacter = __intVal(bytesPerCharacter);
 if (__INST(xftDrawId) != nil) {
-__xftDrawId = __externalAddressVal(__INST(xftDrawId));
+	__xftDrawId = __externalAddressVal(__INST(xftDrawId));
 } else {
-if (pixmapDepth != nil) {
+	if (pixmapDepth != nil) {
-int __pixmapDepth = __intVal(pixmapDepth);
+	    int __pixmapDepth = __intVal(pixmapDepth);
-if (__pixmapDepth == 1) {
+	    if (__pixmapDepth == 1) {
-__xftDrawId = XftDrawCreateBitmap(DISPLAY(displayId), DRAWABLE(__INST(drawableId)));
+		__xftDrawId = XftDrawCreateBitmap(DISPLAY(displayId), DRAWABLE(__INST(drawableId)));
-} else {
+	    } else {
-__xftDrawId = XftDrawCreateAlpha(DISPLAY(displayId), DRAWABLE(__INST(drawableId)), __pixmapDepth);
+		__xftDrawId = XftDrawCreateAlpha(DISPLAY(displayId), DRAWABLE(__INST(drawableId)), __pixmapDepth);
-}
+	    }
-} else {
+	} else {
-__xftDrawId = XftDrawCreate(DISPLAY(displayId),
+	    __xftDrawId = XftDrawCreate(DISPLAY(displayId),
-DRAWABLE(__INST(drawableId)),
+					   DRAWABLE(__INST(drawableId)),
-DefaultVisual(DISPLAY(displayId), SCREEN(screen)),
+					   DefaultVisual(DISPLAY(displayId), SCREEN(screen)),
-DefaultColormap(DISPLAY(displayId), SCREEN(screen)));
+					   DefaultColormap(DISPLAY(displayId), SCREEN(screen)));
-}
+	}
-__INST(xftDrawId) = newXftDrawId = XFT_DRAW_HANDLE_NEW(__xftDrawId);
+	__INST(xftDrawId) = newXftDrawId = XFT_DRAW_HANDLE_NEW(__xftDrawId);
-__STORE(self, newXftDrawId);
+	__STORE(self, newXftDrawId);
 }
 string = __stringVal(aString) + ((__intVal(index1) - 1 ) * __bytesPerCharacter);
 len = __intVal(index2) - __intVal(index1) + 1;
 if (clipX != nil) {
-clipRX.x = __intVal(clipX);
+	clipRX.x = __intVal(clipX);
-clipRX.y = __intVal(clipY);
+	clipRX.y = __intVal(clipY);
-clipRX.width = __intVal(clipW);
+	clipRX.width = __intVal(clipW);
-clipRX.height = __intVal(clipH);
+	clipRX.height = __intVal(clipH);
-XftDrawSetClipRectangles(__xftDrawId, 0, 0, &clipRX, 1);
+	XftDrawSetClipRectangles(__xftDrawId, 0, 0, &clipRX, 1);
 } else {
-XftDrawSetClip(__xftDrawId, 0);
+	XftDrawSetClip(__xftDrawId, 0);
 }
 if (opaque == true) {
-if (bgPixel != nil) {
+	if (bgPixel != nil) {
-color.pixel = (unsigned long)__intVal(bgPixel);
+	    color.pixel = (unsigned long)__intVal(bgPixel);
-}
+	}
-color.color.red = __intVal(bgR);
+	color.color.red = __intVal(bgR);
-color.color.green = __intVal(bgG);
+	color.color.green = __intVal(bgG);
-color.color.blue = __intVal(bgB);
+	color.color.blue = __intVal(bgB);
-color.color.alpha = __intVal(bgA);
+	color.color.alpha = __intVal(bgA);
-switch (__bytesPerCharacter) {
+	switch (__bytesPerCharacter) {
-case 1:
+	case 1:
-XftTextExtents8(DISPLAY(displayId), __xftFont, (FcChar8*)string, len, &extents);
+	    XftTextExtents8(DISPLAY(displayId), __xftFont, (FcChar8*)string, len, &extents);
-break;
+	    break;
-case 2:
+	case 2:
-XftTextExtents16(DISPLAY(displayId), __xftFont, (FcChar16*)string, len, &extents);
+	    XftTextExtents16(DISPLAY(displayId), __xftFont, (FcChar16*)string, len, &extents);
-break;
+	    break;
-case 4:
+	case 4:
-XftTextExtents32(DISPLAY(displayId), __xftFont, (FcChar32*)string, len, &extents);
+	    XftTextExtents32(DISPLAY(displayId), __xftFont, (FcChar32*)string, len, &extents);
-break;
+	    break;
-}
+	}
 if (extents.width < 0) printf("width: %d  < 0\n", extents.width);
-XftDrawRect(__xftDrawId, &color, __intVal(drawX) - extents.x, __intVal(drawY) - __xftFont->ascent, extents.width, __xftFont->height);
+	XftDrawRect(__xftDrawId, &color, __intVal(drawX) - extents.x, __intVal(drawY) - __xftFont->ascent, extents.width, __xftFont->height);
 }
 if (__isSmallInteger(fgPixel)) {
-color.pixel = (unsigned long)__intVal(fgPixel);
+	color.pixel = (unsigned long)__intVal(fgPixel);
 }
 color.color.red = __intVal(fgR);
 color.color.green = __intVal(fgG);
 color.color.blue = __intVal(fgB);
 color.color.alpha = __intVal(fgA);
 switch (__bytesPerCharacter) {
 case 1:
-XftDrawString8(__xftDrawId, &color,__xftFont,
+	XftDrawString8(__xftDrawId, &color,__xftFont,
-__intVal(drawX),
+			__intVal(drawX),
-__intVal(drawY),
+			__intVal(drawY),
-(FcChar8*)string,
+			(FcChar8*)string,
-len);
+			len);
-break;
+	break;
 case 2:
-XftDrawString16(__xftDrawId, &color, __xftFont,
+	XftDrawString16(__xftDrawId, &color, __xftFont,
-__intVal(drawX),
+			__intVal(drawX),
-__intVal(drawY),
+			__intVal(drawY),
-(FcChar16*)string,
+			(FcChar16*)string,
-len);
+			len);
-break;
+	break;
 case 4:
-XftDrawString32(__xftDrawId, &color, __xftFont,
+	XftDrawString32(__xftDrawId, &color, __xftFont,
-__intVal(drawX),
+			__intVal(drawX),
-__intVal(drawY),
+			__intVal(drawY),
-(FcChar32*)string,
+			(FcChar32*)string,
-len);
+			len);
-break;
+	break;
 default:
-error = @symbol(invalidStringSize);
+	error = @symbol(invalidStringSize);
-goto out;
+	goto out;
 }
 out:;
 #endif
 %}.
 error notNil ifTrue:[
-self primitiveFailed: error.
+	self primitiveFailed: error.
 ].
 ! !
 !XWorkstation::X11GraphicsContext methodsFor:'drawing'!
 "draw a filled rectangle; apply transformation if nonNil"
 |pX pY nW nH pO pC|
 gcId isNil ifTrue:[
-self initGC
+	self initGC
 ].
 transformation notNil ifTrue:[
-pO := transformation transformPoint:x@y.
+	pO := transformation transformPoint:x@y.
-pC := transformation transformPoint:(x+w-1)@(y+h-1).
+	pC := transformation transformPoint:(x+w-1)@(y+h-1).
-pX := pO x.
+	pX := pO x.
-pY := pO y.
+	pY := pO y.
-nW := pC x - pX + 1.
+	nW := pC x - pX + 1.
-nH := pC y - pY + 1.
+	nH := pC y - pY + 1.
-nW < 0 ifTrue:[
+	nW < 0 ifTrue:[
-nW := nW abs.
+	      nW := nW abs.
-pX := pX - nW.
+	      pX := pX - nW.
-].
+	].
-nH < 0 ifTrue:[
+	nH < 0 ifTrue:[
-nH := nH abs.
+	      nH := nH abs.
-pY := pY - nH.
+	      pY := pY - nH.
-].
+	].
 ] ifFalse:[
-pX := x.
+	pX := x.
-pY := y.
+	pY := y.
-nW := w.
+	nW := w.
-nH := h.
+	nH := h.
 ].
 pX := pX rounded.
 pY := pY rounded.
 nW := nW rounded.
 nH := nH rounded.
 device
-clearRectangleX:pX
+	clearRectangleX:pX
-y:pY
+		     y:pY
-width:nW
+		 width:nW
-height:nH
+		height:nH
-in:drawableId with:gcId
+		    in:drawableId with:gcId
 ! !
 !XWorkstation::X11GraphicsContext methodsFor:'view creation'!
 createBitmapFromArray:data width:width height:height

changeset 7509	d18f375ac80d
parent 7507	cb7c25da60d0
child 7542	9e125aa140f9
child 7591	bce664b396f0