Fix compilation warning with -DDEBUG_FONTSEL

tcltk · Feb 13, 2024 · ed7e89f · ed7e89f
1 parent 35a1e14
commit ed7e89f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 6 deletions.
diff --git a/library/ttk/fonts.tcl b/library/ttk/fonts.tcl
@@ -45,9 +45,6 @@
 #	There does not appear to be any recommendations for fixed-width fonts.
 #
 # X11:
-#	Need a way to tell if Xft is enabled or not.
-#	For now, assume patch #971980 applied.
-#
 #	"Classic" look used Helvetica bold for everything except
 #	for entry widgets, which use Helvetica medium.
 #	Most other toolkits use medium weight for all UI elements,

diff --git a/unix/tkUnixRFont.c b/unix/tkUnixRFont.c
@@ -498,7 +498,7 @@ TkpGetFontFromAttributes(
 
 #ifdef DEBUG_FONTSEL
     printf("TkpGetFontFromAttributes %s-%d %d %d\n", faPtr->family,
-	    faPtr->size, faPtr->weight, faPtr->slant);
+	    (int)faPtr->size, faPtr->weight, faPtr->slant);
 #endif /* DEBUG_FONTSEL */
     pattern = XftPatternCreate();
     if (faPtr->family) {
@@ -941,7 +941,7 @@ Tk_DrawChars(
 
     if (fontPtr->ftDraw == 0) {
 #ifdef DEBUG_FONTSEL
-	printf("Switch to drawable 0x%x\n", drawable);
+	printf("Switch to drawable 0x%lx\n", drawable);
 #endif /* DEBUG_FONTSEL */
 	fontPtr->ftDraw = XftDrawCreate(display, drawable,
 		DefaultVisual(display, fontPtr->screen),
@@ -1200,7 +1200,7 @@ TkDrawAngledChars(
 
     if (fontPtr->ftDraw == 0) {
 #ifdef DEBUG_FONTSEL
-	printf("Switch to drawable 0x%x\n", drawable);
+	printf("Switch to drawable 0x%lx\n", drawable);
 #endif /* DEBUG_FONTSEL */
 	fontPtr->ftDraw = XftDrawCreate(display, drawable,
 		DefaultVisual(display, fontPtr->screen),