summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorhobbs <hobbs>1999-09-22 06:53:07 (GMT)
committerhobbs <hobbs>1999-09-22 06:53:07 (GMT)
commit34e1f07231357ed71ef318a9d7c0bd880432f529 (patch)
tree70b025d7d49df577a1cdea2a30d1bca75f4e6260 /generic
parentc87e8a004b0f429eae82f59f102168a67926445d (diff)
downloadtk-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.c17
-rw-r--r--generic/tkCursor.c5
-rw-r--r--generic/tkFont.c4
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