diff options
author | Bill Fenner <fenner@FreeBSD.org> | 1997-09-11 03:55:02 +0000 |
---|---|---|
committer | Bill Fenner <fenner@FreeBSD.org> | 1997-09-11 03:55:02 +0000 |
commit | c6ac4c37007ebfb6c8e561d4bc20f135175d05a1 (patch) | |
tree | 01ee2b56d87765282e8bd43ce9d2ebcf143ab2cf /multimedia/vic/files/patch-ae | |
parent | xtetris port no longer exists (and cannot) (diff) |
Make port work with tcl/tk 8.0
Notes
Notes:
svn path=/head/; revision=7856
Diffstat (limited to '')
-rw-r--r-- | multimedia/vic/files/patch-ae | 136 |
1 files changed, 136 insertions, 0 deletions
diff --git a/multimedia/vic/files/patch-ae b/multimedia/vic/files/patch-ae new file mode 100644 index 000000000000..8424b66fc784 --- /dev/null +++ b/multimedia/vic/files/patch-ae @@ -0,0 +1,136 @@ +--- tkStripchart.c.orig Tue Sep 9 11:00:42 1997 ++++ tkStripchart.c Tue Sep 9 10:52:30 1997 +@@ -148,7 +148,7 @@ + int scrollrequired; + int guarantee_draw; + int grow_up; +- XFontStruct *fontPtr; /* Information about text font, or NULL. */ ++ Tk_Font tkfont; /* Information about text font, or NULL. */ + XColor *textColorPtr; /* Color for drawing text. */ + GC textGC; /* GC for drawing text. */ + XColor *tickColorPtr; /* Color for drawing ticks. */ +@@ -257,7 +257,7 @@ + {TK_CONFIG_SYNONYM, "-fg", "stripcolor", 0, + 0, 0, 0}, + {TK_CONFIG_FONT, "-font", "font", "Font", +- DEF_STRIPCHART_FONT, Tk_Offset(Stripchart, fontPtr), ++ DEF_STRIPCHART_FONT, Tk_Offset(Stripchart, tkfont), + 0}, + {TK_CONFIG_BOOLEAN, "-guaranteedrawing", "guaranteedrawing", + "Guaranteedrawing", DEF_GUARANTEE_DRAW, +@@ -570,8 +570,8 @@ + if (StripchartPtr->value != NULL) + free(StripchartPtr->value); + +- if (StripchartPtr->fontPtr != NULL) +- Tk_FreeFontStruct(StripchartPtr->fontPtr); ++ if (StripchartPtr->tkfont != NULL) ++ Tk_FreeFont(StripchartPtr->tkfont); + + if (StripchartPtr->textColorPtr != NULL) + Tk_FreeColor(StripchartPtr->textColorPtr); +@@ -631,7 +631,7 @@ + + Tk_SetBackgroundFromBorder(StripchartPtr->tkwin, StripchartPtr->border); + +- gcValues.font = StripchartPtr->fontPtr->fid; ++ gcValues.font = Tk_FontId(StripchartPtr->tkfont); + gcValues.foreground = StripchartPtr->textColorPtr->pixel; + newGC = Tk_GetGC(StripchartPtr->tkwin, GCForeground|GCFont, &gcValues); + if (StripchartPtr->textGC != None && StripchartPtr->tkwin) { +@@ -692,8 +692,11 @@ + { + int tt = hasatitle(StripchartPtr); + int bd = StripchartPtr->borderWidth; +- int lineHeight = StripchartPtr->fontPtr->ascent + +- StripchartPtr->fontPtr->descent; ++ Tk_FontMetrics fm; ++ int lineHeight; ++ ++ Tk_GetFontMetrics(StripchartPtr->tkfont, &fm); ++ lineHeight = fm.ascent + fm.descent; + + Tk_GeometryRequest(StripchartPtr->tkwin, + 2 * (bd + PADDING) + StripchartPtr->num_strips * +@@ -726,11 +729,13 @@ + /* + * Variable declarations used in the title drawing routines + */ +- XFontStruct *fp = StripchartPtr->fontPtr; +- XCharStruct bbox; +- int x, dummy; +- int lineHeight = StripchartPtr->fontPtr->ascent + +- StripchartPtr->fontPtr->descent; ++ Tk_Font tkf = StripchartPtr->tkfont; ++ int x; ++ Tk_FontMetrics fm; ++ int lineHeight; ++ ++ Tk_GetFontMetrics(tkf, &fm); ++ lineHeight = fm.ascent + fm.descent; + + StripchartPtr->displaybits &= ~REDRAW_PENDING; + if ((StripchartPtr->tkwin == NULL) || !Tk_IsMapped(tkwin)) +@@ -747,18 +752,17 @@ + * space. Otherwise left justified and clipped on the right. + */ + if (tt && StripchartPtr->displaybits & DISPLAY_TITLE) { +- XTextExtents(fp, StripchartPtr->title, +- strlen(StripchartPtr->title), +- &dummy, &dummy, &dummy, &bbox); +- if (bbox.lbearing + bbox.rbearing < Tk_Width(tkwin) - 2 * bd) +- x = (Tk_Width(tkwin) - bbox.lbearing - bbox.rbearing)/2; ++ int width = Tk_TextWidth(tkf, StripchartPtr->title, ++ strlen(StripchartPtr->title)); ++ if (width < Tk_Width(tkwin) - 2 * bd) ++ x = (Tk_Width(tkwin) - width)/2; + else + x = bd + PADDING; + + XClearArea(Tk_Display(tkwin), Tk_WindowId(tkwin), bd, bd, + Tk_Width(tkwin) - 2 * bd, lineHeight + PADDING, False); + XDrawString(Tk_Display(tkwin), Tk_WindowId(tkwin), +- StripchartPtr->textGC, x, fp->max_bounds.ascent + bd, ++ StripchartPtr->textGC, x, fm.ascent + bd, /*XXX no max_bounds */ + StripchartPtr->title, strlen(StripchartPtr->title)); + } + /* +@@ -1057,7 +1061,8 @@ + DrawStripi(Stripchart* SPtr, int i) + { + Tk_Window tkwin = SPtr->tkwin; +- int lineHeight = SPtr->fontPtr->ascent + SPtr->fontPtr->descent; ++ Tk_FontMetrics fm; ++ int lineHeight; + int x = SPtr->borderWidth + PADDING + (i - 1) * SPtr->strip_width; + int y = SPtr->borderWidth + PADDING + + hasatitle(SPtr) * (lineHeight + PADDING); +@@ -1066,6 +1071,9 @@ + double maxv = SPtr->max_value; + double minv = SPtr->min_value; + ++ Tk_GetFontMetrics(SPtr->tkfont, &fm); ++ lineHeight = fm.ascent + fm.descent; ++ + if (i < 1 || i > SPtr->num_strips) + return; + +@@ -1136,7 +1144,8 @@ + ScrollStrips(Stripchart* SPtr) + { + Tk_Window tkwin = SPtr->tkwin; +- int lineHeight = SPtr->fontPtr->ascent + SPtr->fontPtr->descent; ++ Tk_FontMetrics fm; ++ int lineHeight; + int src_x = SPtr->borderWidth + PADDING + SPtr->strip_width; + int src_y = SPtr->borderWidth + PADDING + + hasatitle(SPtr) * (lineHeight + PADDING); +@@ -1144,6 +1153,8 @@ + int dest_y = src_y; + int w = (SPtr->num_strips - 1) * SPtr->strip_width; + int h = SPtr->max_height; ++ ++ Tk_GetFontMetrics(SPtr->tkfont, &fm); + + XCopyArea(Tk_Display(tkwin), Tk_WindowId(tkwin), Tk_WindowId(tkwin), + Tk_GetGC(tkwin, 0, NULL), src_x, src_y, w, h, dest_x, dest_y); |