diff options
author | hobbs <hobbs> | 1999-09-22 06:53:07 (GMT) |
---|---|---|
committer | hobbs <hobbs> | 1999-09-22 06:53:07 (GMT) |
commit | 34e1f07231357ed71ef318a9d7c0bd880432f529 (patch) | |
tree | 70b025d7d49df577a1cdea2a30d1bca75f4e6260 /generic | |
parent | c87e8a004b0f429eae82f59f102168a67926445d (diff) | |
download | tk-34e1f07231357ed71ef318a9d7c0bd880432f529.zip tk-34e1f07231357ed71ef318a9d7c0bd880432f529.tar.gz tk-34e1f07231357ed71ef318a9d7c0bd880432f529.tar.bz2 |
1999-09-21 Jeff Hobbs <hobbs@scriptics.com>
* generic/tkFont.c: fixed processing of font options and error
returned [Bug: 2075]
* win/tkWinWm.c: fixed bug in 'wm deiconify' that raised the
wrong toplevel, and changed it to not set focus on overridden
toplevels
* unix/aclocal.m4: added fix for FreeBSD-[1-2] recognition [Bug: 2070]
and fix to AIX-* to get ldAix right [Bug: 2624], fixed AIX
version check and several other config fixes for AIX
* mac/tkMacMenubutton.c:
* unix/tkUnixMenubu.c: fixed permanently stippled menubutton image
* win/tkWinButton.c: fixed possible pointer smash [Bug: 2733]
* win/tkWinMenu.c: fix for stack overrun in GetTextFace [Bug: 909]
* unix/tkUnixDraw.c: fixed header style for TkpDrawHighlightBorder
* generic/tkCanvas.c: fixed GC error (bg <> fg) in tkCanvas.c
(from code added to support TkpDrawHighlightBorder) [Bug: 2676]
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tkCanvas.c | 17 | ||||
-rw-r--r-- | generic/tkCursor.c | 5 | ||||
-rw-r--r-- | generic/tkFont.c | 4 |
3 files changed, 13 insertions, 13 deletions
diff --git a/generic/tkCanvas.c b/generic/tkCanvas.c index a184769..2d4fc31 100644 --- a/generic/tkCanvas.c +++ b/generic/tkCanvas.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkCanvas.c,v 1.7 1999/08/10 05:05:20 jingham Exp $ + * RCS: @(#) $Id: tkCanvas.c,v 1.7.4.1 1999/09/22 06:53:10 hobbs Exp $ */ #include "default.h" @@ -1840,18 +1840,17 @@ DisplayCanvas(clientData) } if (canvasPtr->highlightWidth != 0) { GC fgGC, bgGC; - - - bgGC = Tk_GCForColor(canvasPtr->highlightColorPtr, + + bgGC = Tk_GCForColor(canvasPtr->highlightBgColorPtr, Tk_WindowId(tkwin)); if (canvasPtr->textInfo.gotFocus) { - fgGC = Tk_GCForColor(canvasPtr->highlightBgColorPtr, + fgGC = Tk_GCForColor(canvasPtr->highlightColorPtr, Tk_WindowId(tkwin)); - TkpDrawHighlightBorder(tkwin, fgGC, bgGC, canvasPtr->highlightWidth, - Tk_WindowId(tkwin)); + TkpDrawHighlightBorder(tkwin, fgGC, bgGC, + canvasPtr->highlightWidth, Tk_WindowId(tkwin)); } else { - TkpDrawHighlightBorder(tkwin, bgGC, bgGC, canvasPtr->highlightWidth, - Tk_WindowId(tkwin)); + TkpDrawHighlightBorder(tkwin, bgGC, bgGC, + canvasPtr->highlightWidth, Tk_WindowId(tkwin)); } } } diff --git a/generic/tkCursor.c b/generic/tkCursor.c index 87b284d..adcf43e 100644 --- a/generic/tkCursor.c +++ b/generic/tkCursor.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkCursor.c,v 1.3 1999/04/16 01:51:13 stanton Exp $ + * RCS: @(#) $Id: tkCursor.c,v 1.3.6.1 1999/09/22 06:53:11 hobbs Exp $ */ #include "tkPort.h" @@ -658,6 +658,7 @@ Tk_GetCursorFromObj(tkwin, objPtr) Tcl_Obj *objPtr; /* The object from which to get pixels. */ { TkCursor *cursorPtr = GetCursorFromObj(tkwin, objPtr); + /* GetCursorFromObj should never return NULL */ return cursorPtr->cursor; } @@ -716,7 +717,7 @@ GetCursorFromObj(tkwin, objPtr) for (cursorPtr = (TkCursor *) Tcl_GetHashValue(hashPtr); cursorPtr != NULL; cursorPtr = cursorPtr->nextPtr) { - if (Tk_Display(tkwin) != cursorPtr->display) { + if (Tk_Display(tkwin) == cursorPtr->display) { objPtr->internalRep.twoPtrValue.ptr1 = (VOID *) cursorPtr; cursorPtr->objRefCount++; return cursorPtr; diff --git a/generic/tkFont.c b/generic/tkFont.c index a59c1b7..988dc6f 100644 --- a/generic/tkFont.c +++ b/generic/tkFont.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkFont.c,v 1.5 1999/06/02 18:15:54 stanton Exp $ + * RCS: @(#) $Id: tkFont.c,v 1.5.4.1 1999/09/22 06:53:11 hobbs Exp $ */ #include "tkPort.h" @@ -2837,7 +2837,7 @@ ConfigAttributesObj(interp, tkwin, objc, objv, faPtr) &index) != TCL_OK) { return TCL_ERROR; } - if (objc & 1) { + if ((i+2 >= objc) && (objc & 1)) { /* * This test occurs after Tcl_GetIndexFromObj() so that * "font create xyz -xyz" will return the error message |