XWorkstation.st
changeset 6005 5537b03814b2
parent 5998 04c91c9d90f4
child 6009 220e00e49540
--- a/XWorkstation.st	Mon Feb 04 18:31:22 2013 +0100
+++ b/XWorkstation.st	Mon Feb 04 19:14:28 2013 +0100
@@ -389,9 +389,9 @@
     }
 
     if (@global(DeviceWorkstation:ErrorPrinting) == true) {
-	console_fprintf(stderr, "XWorkstation [error]: x-error caught maj=%d (0x%x) min=%d (0x%x) resource=%x\n",
+	console_fprintf(stderr, "XWorkstation [error]: x-error caught maj=%d (0x%x) min=%d (0x%x) resource=%"_lx_"\n",
 			event->request_code, event->request_code,
-			event->minor_code, event->minor_code, event->resourceid);
+			event->minor_code, event->minor_code, (INT)(event->resourceid));
 	console_fprintf(stderr, "XWorkstation [error]: x-error message is [%d] '%s'\n",
 			event->error_code, lastErrorMsg);
     }
@@ -453,7 +453,7 @@
 	return;
     }
     if (@global(DeviceWorkstation:ErrorPrinting) == true) {
-	console_fprintf(stderr, "XWorkstation [error]: X11 request timeout dpy=%x\n", displayDeviceInst);
+	console_fprintf(stderr, "XWorkstation [error]: X11 request timeout dpy=%"_lx_"\n", (INT)displayDeviceInst);
     }
     __OINST(displayDeviceInst, hasConnectionBroken) = true;
 
@@ -10014,7 +10014,7 @@
 	}
 	LEAVE_XLIB();
 
-	DPRINTF(("changeProp win=%x prop=%x type=%x\n", window, prop, type));
+	DPRINTF(("changeProp win=%"_lx_" prop=%"_lx_" type=%"_lx_"\n", (INT)window, (INT)prop, (INT)type));
     }
 %}.
     ^ retval
@@ -10390,7 +10390,7 @@
 	if (numBytes > __byteArraySize(imageBits)) {
 	    /* imageBits too small */
 	    console_fprintf(stderr, "Workstation [warning]: byteArray too small in primGetBits\n");
-	    console_fprintf(stderr, "  bytes need:%d given:%d\n", numBytes, __byteArraySize(imageBits));
+	    console_fprintf(stderr, "  bytes need:%d given:%d\n", numBytes, (int)__byteArraySize(imageBits));
 	    console_fprintf(stderr, "  pad:%d depth:%d imgBytesPerLine:%d\n",
 				image->bitmap_pad, image->depth, image->bytes_per_line);
 	    goto fail;
@@ -10850,12 +10850,12 @@
 	    ev.xselection.property = __AtomVal(propertyID);
 
 
-	DPRINTF(("sending SelectionNotify sel=%x prop=%x target=%x requestor=%x to %x\n",
-		ev.xselection.selection,
-		ev.xselection.property,
-		ev.xselection.target,
-		ev.xselection.requestor,
-		requestor));
+	DPRINTF(("sending SelectionNotify sel=%"_lx_" prop=%"_lx_" target=%"_lx_" requestor=%"_lx_" to %"_lx_"\n",
+		(INT)ev.xselection.selection,
+		(INT)ev.xselection.property,
+		(INT)ev.xselection.target,
+		(INT)ev.xselection.requestor,
+		(INT)requestor));
 
 	ENTER_XLIB();
 	result = XSendEvent(dpy, requestor, False, 0 , &ev);
@@ -10918,7 +10918,7 @@
 	} else
 	    goto err;
 
-	DPRINTF(("setOwner prop=%x win=%x\n", __AtomVal(selectionAtomID), win));
+	DPRINTF(("setOwner prop=%"_lx_" win=%"_lx_"\n", (INT)__AtomVal(selectionAtomID), (INT)win));
 	ENTER_XLIB();
 	XSetSelectionOwner(dpy, __AtomVal(selectionAtomID), win, time);
 	RETURN (self);
@@ -12767,11 +12767,11 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.558 2013-01-30 15:58:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.559 2013-02-04 18:14:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.558 2013-01-30 15:58:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.559 2013-02-04 18:14:28 cg Exp $'
 !
 
 version_SVN