summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorericm <ericm>1999-11-19 15:48:18 (GMT)
committerericm <ericm>1999-11-19 15:48:18 (GMT)
commit1c7268724fdcf2d1928feb5d8bf0082e3f36c92d (patch)
tree14cfd7bb23fe2a6acde310d4bef8210705d45706
parent6f906133169e26bf4333e2e773d55de720475336 (diff)
downloadtk-1c7268724fdcf2d1928feb5d8bf0082e3f36c92d.zip
tk-1c7268724fdcf2d1928feb5d8bf0082e3f36c92d.tar.gz
tk-1c7268724fdcf2d1928feb5d8bf0082e3f36c92d.tar.bz2
* tests/listbox.test: Added tests for itemcget and itemconfigure.
* doc/listbox.n: Added documentation for -listvar option and for itemconfigure and itemcget commands. * generic/tkListbox.c: Added support for itemconfigure/itemcget listbox subcommands (addresses rfe #936)
-rw-r--r--doc/listbox.n49
-rw-r--r--generic/tkListbox.c560
-rw-r--r--tests/listbox.test172
3 files changed, 691 insertions, 90 deletions
diff --git a/doc/listbox.n b/doc/listbox.n
index a22e86b..850d474 100644
--- a/doc/listbox.n
+++ b/doc/listbox.n
@@ -5,7 +5,7 @@
'\" See the file "license.terms" for information on usage and redistribution
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
'\"
-'\" RCS: @(#) $Id: listbox.n,v 1.2 1998/09/14 18:22:57 stanton Exp $
+'\" RCS: @(#) $Id: listbox.n,v 1.3 1999/11/19 15:48:18 ericm Exp $
'\"
.so man.macros
.TH listbox n 8.0 Tk "Tk Built-In Commands"
@@ -17,7 +17,7 @@ listbox \- Create and manipulate listbox widgets
\fBlistbox\fR \fIpathName \fR?\fIoptions\fR?
.SO
\-background \-foreground \-relief \-takefocus
-\-borderwidth \-height \-selectbackground \-width
+\-borderwidth \-height \-listvar \-selectbackground \-width
\-cursor \-highlightbackground \-selectborderwidth \-xscrollcommand
\-exportselection \-highlightcolor \-selectforeground \-yscrollcommand
\-font \-highlightthickness \-setgrid
@@ -27,6 +27,13 @@ listbox \- Create and manipulate listbox widgets
Specifies the desired height for the window, in lines.
If zero or less, then the desired height for the window is made just
large enough to hold all the elements in the listbox.
+.OP \-listvar listVariable Variable
+Specifies the name of a variable. The value of the variable is a list
+to be displayed inside the widget; if the variable value changes
+then the widget will automatically update itself to reflect the new value.
+Attempts to assign a bad list value to a variable in use as a listvar
+will cause an error. Attempts to unset a variable in use as a listvar
+will fail but will not generate an error.
.OP \-selectmode selectMode SelectMode
Specifies one of several styles for manipulating the selection.
The value of the option may be arbitrary, but the default bindings
@@ -208,6 +215,44 @@ element given by \fIindex\fR. If \fIindex\fR is specified as
\fBend\fR then the new elements are added to the end of the
list. Returns an empty string.
.TP
+\fIpathName \fBitemcget \fIindex \foption
+Returns the current value of the item configuration option given
+by \fIoption\fR. \fIOption\fR may have any of the values accepted
+by the \fBlistbox itemconfigure\fR command.
+.TP
+\fIpathName \fBitemconfigure \fIindex ?\fIoption\fR? ?\fIvalue? ?option value ...\fR?
+Query or modify the configuration options of an item in the listbox.
+If no \fIoption\fR is specified, returns a list describing all of
+the available options for the item (see \fBTk_ConfigureInfo\fR for
+information on the format of this list). If \fIoption\fR is specified
+with no \fIvalue\fR, then the command returns a list describing the
+one named option (this list will be identical to the corresponding
+sublist of the value returned if no \fIoption\fR is specified). If
+one or more \fIoption\-value\fR pairs are specified, then the command
+modifies the given widget option(s) to have the given value(s); in
+this case the command returns an empty string. The following options
+are currently supported for items:
+.RS
+.TP
+\fB\-background \fIcolor\fR
+\fIColor\fR specifies the background color to use when displaying the
+item. It may have any of the forms accepted by \fBTk_GetColor\fR.
+.TP
+\fB\-foreground \fIcolor\fR
+\fIColor\fR specifies the foreground color to use when displaying the
+item. It may have any of the forms accepted by \fBTk_GetColor\fR.
+.TP
+\fB\-selectbackground \fIcolor\fR
+\fIcolor\fR specifies the background color to use when displaying the
+item while it is selected. It may have any of the forms accepted by
+\fBTk_GetColor\fR.
+.TP
+\fB\-selectforeground \fIcolor\fR
+\fIcolor\fR specifies the foreground color to use when displaying the
+item while it is selected. It may have any of the forms accepted by
+\fBTk_GetColor\fR.
+.RE
+.TP
\fIpathName \fBnearest \fIy\fR
Given a y-coordinate within the listbox window, this command returns
the index of the (visible) listbox element nearest to that y-coordinate.
diff --git a/generic/tkListbox.c b/generic/tkListbox.c
index 913757c..4b56229 100644
--- a/generic/tkListbox.c
+++ b/generic/tkListbox.c
@@ -11,13 +11,21 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkListbox.c,v 1.9 1999/11/18 02:24:41 ericm Exp $
+ * RCS: @(#) $Id: tkListbox.c,v 1.10 1999/11/19 15:48:19 ericm Exp $
*/
#include "tkPort.h"
#include "default.h"
#include "tkInt.h"
+typedef struct {
+ Tk_OptionTable listboxOptionTable; /* Table defining configuration options
+ * available for the listbox */
+ Tk_OptionTable itemAttrOptionTable; /* Table definining configuration
+ * options available for listbox
+ * items */
+} ListboxOptionTables;
+
/*
* A data structure of the following type is kept for each listbox
* widget managed by this file:
@@ -35,11 +43,15 @@ typedef struct {
Tcl_Command widgetCmd; /* Token for listbox's widget command. */
Tk_OptionTable optionTable; /* Table that defines configuration options
* available for this widget. */
+ Tk_OptionTable itemAttrOptionTable; /* Table that defines configuration
+ * options available for listbox
+ * items */
char *listVarName; /* List variable name */
Tcl_Obj *listObj; /* Pointer to the list object being used */
int nElements; /* Holds the current count of elements */
Tcl_HashTable *selection; /* Tracks selection */
-
+ Tcl_HashTable *itemAttrTable; /* Tracks item attributes */
+
/*
* Information used when displaying widget:
*/
@@ -148,6 +160,17 @@ typedef struct {
} Listbox;
/*
+ * ItemAttr structures are used to store item configuration information for
+ * the items in a listbox
+ */
+typedef struct {
+ Tk_3DBorder border; /* Used for drawing background around text */
+ Tk_3DBorder selBorder; /* Used for selected text */
+ XColor *fgColor; /* Text color in normal mode. */
+ XColor *selFgColor; /* Text color in selected mode. */
+} ItemAttr;
+
+/*
* Flag bits for listboxes:
*
* REDRAW_PENDING: Non-zero means a DoWhenIdle handler
@@ -169,9 +192,9 @@ typedef struct {
#define MAXWIDTH_IS_STALE 16
/*
- * Information used for argv parsing:
+ * The optionSpecs table defines the valid configuration options for the
+ * listbox widget
*/
-
static Tk_OptionSpec optionSpecs[] = {
{TK_OPTION_BORDER, "-background", "background", "Background",
DEF_LISTBOX_BG_COLOR, -1, Tk_Offset(Listbox, normalBorder),
@@ -208,13 +231,13 @@ static Tk_OptionSpec optionSpecs[] = {
Tk_Offset(Listbox, highlightWidth), 0, 0, 0},
{TK_OPTION_RELIEF, "-relief", "relief", "Relief",
DEF_LISTBOX_RELIEF, -1, Tk_Offset(Listbox, relief), 0, 0, 0},
- {TK_OPTION_BORDER, "-selectbackground", "selectBackground", "Foreground",
+ {TK_OPTION_BORDER, "-selectbackground", "selectBackground", "Background",
DEF_LISTBOX_SELECT_COLOR, -1, Tk_Offset(Listbox, selBorder),
0, (ClientData) DEF_LISTBOX_SELECT_MONO, 0},
{TK_OPTION_PIXELS, "-selectborderwidth", "selectBorderWidth",
"BorderWidth", DEF_LISTBOX_SELECT_BD, -1,
Tk_Offset(Listbox, selBorderWidth), 0, 0, 0},
- {TK_OPTION_COLOR, "-selectforeground", "selectForeground", "Background",
+ {TK_OPTION_COLOR, "-selectforeground", "selectForeground", "Foreground",
DEF_LISTBOX_SELECT_FG_COLOR, -1, Tk_Offset(Listbox, selFgColorPtr),
0, (ClientData) DEF_LISTBOX_SELECT_FG_MONO, 0},
{TK_OPTION_STRING, "-selectmode", "selectMode", "SelectMode",
@@ -233,7 +256,7 @@ static Tk_OptionSpec optionSpecs[] = {
{TK_OPTION_STRING, "-yscrollcommand", "yScrollCommand", "ScrollCommand",
DEF_LISTBOX_SCROLL_COMMAND, -1, Tk_Offset(Listbox, yScrollCmd),
TK_OPTION_NULL_OK, 0, 0},
- {TK_OPTION_STRING, "-listvariable", "listVariable", "ListVariable",
+ {TK_OPTION_STRING, "-listvariable", "listVariable", "Variable",
DEF_LISTBOX_LIST_VARIABLE, -1, Tk_Offset(Listbox, listVarName),
TK_OPTION_NULL_OK, 0, 0},
{TK_OPTION_END, (char *) NULL, (char *) NULL, (char *) NULL,
@@ -241,23 +264,48 @@ static Tk_OptionSpec optionSpecs[] = {
};
/*
+ * The itemAttrOptionSpecs table defines the valid configuration options for
+ * listbox items
+ */
+static Tk_OptionSpec itemAttrOptionSpecs[] = {
+ {TK_OPTION_BORDER, "-background", "background", "Background",
+ (char *)NULL, -1, Tk_Offset(ItemAttr, border),
+ TK_OPTION_NULL_OK, (ClientData) DEF_LISTBOX_BG_MONO, 0},
+ {TK_OPTION_SYNONYM, "-bg", (char *) NULL, (char *) NULL,
+ (char *) NULL, 0, -1, 0, (ClientData) "-background", 0},
+ {TK_OPTION_SYNONYM, "-fg", "foreground", (char *) NULL,
+ (char *) NULL, 0, -1, 0, (ClientData) "-foreground", 0},
+ {TK_OPTION_COLOR, "-foreground", "foreground", "Foreground",
+ (char *) NULL, -1, Tk_Offset(ItemAttr, fgColor),
+ TK_OPTION_NULL_OK, 0, 0},
+ {TK_OPTION_BORDER, "-selectbackground", "selectBackground", "Background",
+ (char *) NULL, -1, Tk_Offset(ItemAttr, selBorder),
+ TK_OPTION_NULL_OK, (ClientData) DEF_LISTBOX_SELECT_MONO, 0},
+ {TK_OPTION_COLOR, "-selectforeground", "selectForeground", "Foreground",
+ (char *) NULL, -1, Tk_Offset(ItemAttr, selFgColor),
+ TK_OPTION_NULL_OK, (ClientData) DEF_LISTBOX_SELECT_FG_MONO, 0},
+ {TK_OPTION_END, (char *) NULL, (char *) NULL, (char *) NULL,
+ (char *) NULL, 0, -1, 0, 0, 0}
+};
+
+/*
* The following tables define the listbox widget commands (and sub-
* commands) and map the indexes into the string tables into
* enumerated types used to dispatch the listbox widget command.
*/
-
static char *commandNames[] = {
"activate", "bbox", "cget", "configure", "curselection", "delete", "get",
- "index", "insert", "nearest", "scan", "see", "selection", "size", "xview",
- "yview",
+ "index", "insert", "itemcget", "itemconfigure", "nearest", "scan",
+ "see", "selection", "size", "xview", "yview",
(char *) NULL
};
enum command {
COMMAND_ACTIVATE, COMMAND_BBOX, COMMAND_CGET, COMMAND_CONFIGURE,
- COMMAND_CURSELECTION, COMMAND_DELETE, COMMAND_GET, COMMAND_INDEX,
- COMMAND_INSERT, COMMAND_NEAREST, COMMAND_SCAN, COMMAND_SEE,
- COMMAND_SELECTION, COMMAND_SIZE, COMMAND_XVIEW, COMMAND_YVIEW
+ COMMAND_CURSELECTION, COMMAND_DELETE, COMMAND_GET, COMMAND_INDEX,
+ COMMAND_INSERT, COMMAND_ITEMCGET, COMMAND_ITEMCONFIGURE,
+ COMMAND_NEAREST, COMMAND_SCAN, COMMAND_SEE, COMMAND_SELECTION,
+ COMMAND_SIZE, COMMAND_XVIEW, COMMAND_YVIEW
};
static char *selCommandNames[] = {
@@ -285,10 +333,7 @@ enum indices {
};
-/*
- * Forward declarations for procedures defined later in this file:
- */
-
+/* Declarations for procedures defined later in this file */
static void ChangeListboxOffset _ANSI_ARGS_((Listbox *listPtr,
int offset));
static void ChangeListboxView _ANSI_ARGS_((Listbox *listPtr,
@@ -296,9 +341,14 @@ static void ChangeListboxView _ANSI_ARGS_((Listbox *listPtr,
static int ConfigureListbox _ANSI_ARGS_((Tcl_Interp *interp,
Listbox *listPtr, int objc, Tcl_Obj *CONST objv[],
int flags));
+static int ConfigureListboxItem _ANSI_ARGS_ ((Tcl_Interp *interp,
+ Listbox *listPtr, ItemAttr *attrs, int objc,
+ Tcl_Obj *CONST objv[]));
static int ListboxDeleteSubCmd _ANSI_ARGS_((Listbox *listPtr,
int first, int last));
static void DestroyListbox _ANSI_ARGS_((char *memPtr));
+static void DestroyListboxOptionTables _ANSI_ARGS_ (
+ (ClientData clientData, Tcl_Interp *interp));
static void DisplayListbox _ANSI_ARGS_((ClientData clientData));
static int GetListboxIndex _ANSI_ARGS_((Tcl_Interp *interp,
Listbox *listPtr, Tcl_Obj *index, int endIsSize,
@@ -322,8 +372,10 @@ static void ListboxScanTo _ANSI_ARGS_((Listbox *listPtr,
int x, int y));
static int ListboxSelect _ANSI_ARGS_((Listbox *listPtr,
int first, int last, int select));
-static void ListboxUpdateHScrollbar _ANSI_ARGS_((Listbox *listPtr));
-static void ListboxUpdateVScrollbar _ANSI_ARGS_((Listbox *listPtr));
+static void ListboxUpdateHScrollbar _ANSI_ARGS_(
+ (Listbox *listPtr));
+static void ListboxUpdateVScrollbar _ANSI_ARGS_(
+ (Listbox *listPtr));
static int ListboxWidgetObjCmd _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, int objc,
Tcl_Obj *CONST objv[]));
@@ -338,6 +390,8 @@ static int ListboxXviewSubCmd _ANSI_ARGS_ ((Tcl_Interp *interp,
static int ListboxYviewSubCmd _ANSI_ARGS_ ((Tcl_Interp *interp,
Listbox *listPtr, int objc,
Tcl_Obj *CONST objv[]));
+static ItemAttr * ListboxGetItemAttributes _ANSI_ARGS_ (
+ (Tcl_Interp *interp, Listbox *listPtr, int index));
static void ListboxWorldChanged _ANSI_ARGS_((
ClientData instanceData));
static int NearestListboxElement _ANSI_ARGS_((Listbox *listPtr,
@@ -345,6 +399,8 @@ static int NearestListboxElement _ANSI_ARGS_((Listbox *listPtr,
static char * ListboxListVarProc _ANSI_ARGS_ ((ClientData clientData,
Tcl_Interp *interp, char *name1, char *name2,
int flags));
+static void MigrateHashEntries _ANSI_ARGS_ ((Tcl_HashTable *table,
+ int first, int last, int offset));
/*
* The structure below defines button class behavior by means of procedures
* that can be invoked from generic window code.
@@ -384,24 +440,34 @@ Tk_ListboxObjCmd(clientData, interp, objc, objv)
{
register Listbox *listPtr;
Tk_Window tkwin;
- Tk_OptionTable optionTable;
-
- optionTable = (Tk_OptionTable) clientData;
- if (optionTable == NULL) {
+ ListboxOptionTables *optionTables;
+
+ optionTables = (ListboxOptionTables *)clientData;
+ if (optionTables == NULL) {
Tcl_CmdInfo info;
char *name;
/*
- * We haven't created the option table for this widget class
- * yet. Do it now and save the table as the clientData for
- * the command, so we'll have access to it in future
- * invocations of the command.
+ * We haven't created the option tables for this widget class yet.
+ * Do it now and save the a pointer to them as the ClientData for
+ * the command, so future invocations will have access to it.
*/
-
- optionTable = Tk_CreateOptionTable(interp, optionSpecs);
+ optionTables =
+ (ListboxOptionTables *) ckalloc(sizeof(ListboxOptionTables));
+ /* Set up an exit handler to free the optionTables struct */
+ Tcl_SetAssocData(interp, "ListboxOptionTables",
+ DestroyListboxOptionTables, (ClientData) optionTables);
+
+ /* Create the listbox option table and the listbox item option table */
+ optionTables->listboxOptionTable =
+ Tk_CreateOptionTable(interp, optionSpecs);
+ optionTables->itemAttrOptionTable =
+ Tk_CreateOptionTable(interp, itemAttrOptionSpecs);
+
+ /* Store a pointer to the tables as the ClientData for the command */
name = Tcl_GetString(objv[0]);
Tcl_GetCommandInfo(interp, name, &info);
- info.objClientData = (ClientData) optionTable;
+ info.objClientData = (ClientData) optionTables;
Tcl_SetCommandInfo(interp, name, &info);
}
@@ -421,7 +487,6 @@ Tk_ListboxObjCmd(clientData, interp, objc, objv)
* by ConfigureListbox, or that ConfigureListbox requires to be
* initialized already (e.g. resource pointers).
*/
-
listPtr = (Listbox *) ckalloc(sizeof(Listbox));
listPtr->tkwin = tkwin;
listPtr->display = Tk_Display(tkwin);
@@ -429,12 +494,16 @@ Tk_ListboxObjCmd(clientData, interp, objc, objv)
listPtr->widgetCmd = Tcl_CreateObjCommand(interp,
Tk_PathName(listPtr->tkwin), ListboxWidgetObjCmd,
(ClientData) listPtr, ListboxCmdDeletedProc);
- listPtr->optionTable = optionTable;
+ listPtr->optionTable = optionTables->listboxOptionTable;
+ listPtr->itemAttrOptionTable = optionTables->itemAttrOptionTable;
listPtr->listVarName = NULL;
listPtr->listObj = NULL;
listPtr->selection =
(Tcl_HashTable *) ckalloc(sizeof(Tcl_HashTable));
Tcl_InitHashTable(listPtr->selection, TCL_ONE_WORD_KEYS);
+ listPtr->itemAttrTable =
+ (Tcl_HashTable *) ckalloc(sizeof(Tcl_HashTable));
+ Tcl_InitHashTable(listPtr->itemAttrTable, TCL_ONE_WORD_KEYS);
listPtr->nElements = 0;
listPtr->normalBorder = NULL;
listPtr->borderWidth = 0;
@@ -482,8 +551,8 @@ Tk_ListboxObjCmd(clientData, interp, objc, objv)
ListboxEventProc, (ClientData) listPtr);
Tk_CreateSelHandler(listPtr->tkwin, XA_PRIMARY, XA_STRING,
ListboxFetchSelection, (ClientData) listPtr, XA_STRING);
- if (Tk_InitOptions(interp, (char *)listPtr, optionTable,
- tkwin) != TCL_OK) {
+ if (Tk_InitOptions(interp, (char *)listPtr,
+ optionTables->listboxOptionTable, tkwin) != TCL_OK) {
Tk_DestroyWindow(listPtr->tkwin);
return TCL_ERROR;
}
@@ -566,6 +635,7 @@ ListboxWidgetObjCmd(clientData, interp, objc, objv)
result = TCL_OK;
break;
}
+
case COMMAND_BBOX: {
if (objc != 3) {
Tcl_WrongNumArgs(interp, 2, objv, "index");
@@ -580,6 +650,7 @@ ListboxWidgetObjCmd(clientData, interp, objc, objv)
result = ListboxBboxSubCmd(interp, listPtr, index);
break;
}
+
case COMMAND_CGET: {
Tcl_Obj *objPtr;
if (objc != 3) {
@@ -643,6 +714,7 @@ ListboxWidgetObjCmd(clientData, interp, objc, objv)
result = TCL_OK;
break;
}
+
case COMMAND_DELETE: {
int first, last;
if ((objc < 3) || (objc > 4)) {
@@ -679,6 +751,7 @@ ListboxWidgetObjCmd(clientData, interp, objc, objv)
}
break;
}
+
case COMMAND_GET: {
int first, last;
Tcl_Obj **elemPtrs;
@@ -723,6 +796,7 @@ ListboxWidgetObjCmd(clientData, interp, objc, objv)
result = TCL_OK;
break;
}
+
case COMMAND_INDEX:{
char buf[TCL_INTEGER_SPACE];
if (objc != 3) {
@@ -739,6 +813,7 @@ ListboxWidgetObjCmd(clientData, interp, objc, objv)
result = TCL_OK;
break;
}
+
case COMMAND_INSERT: {
if (objc < 3) {
Tcl_WrongNumArgs(interp, 2, objv,
@@ -754,6 +829,85 @@ ListboxWidgetObjCmd(clientData, interp, objc, objv)
result = ListboxInsertSubCmd(listPtr, index, objc-3, objv+3);
break;
}
+
+ case COMMAND_ITEMCGET: {
+ Tcl_Obj *objPtr;
+ ItemAttr *attrPtr;
+ if (objc != 4) {
+ Tcl_WrongNumArgs(interp, 2, objv, "index option");
+ result = TCL_ERROR;
+ break;
+ }
+
+ result = GetListboxIndex(interp, listPtr, objv[2], 0, &index);
+ if (result != TCL_OK) {
+ break;
+ }
+
+ if (index < 0 || index >= listPtr->nElements) {
+ Tcl_AppendResult(interp, "item number \"",
+ Tcl_GetString(objv[2]), "\" out of range",
+ (char *)NULL);
+ result = TCL_ERROR;
+ break;
+ }
+
+ attrPtr = ListboxGetItemAttributes(interp, listPtr, index);
+
+ objPtr = Tk_GetOptionValue(interp, (char *)attrPtr,
+ listPtr->itemAttrOptionTable, objv[3], listPtr->tkwin);
+ if (objPtr == NULL) {
+ result = TCL_ERROR;
+ break;
+ }
+ Tcl_SetObjResult(interp, objPtr);
+ result = TCL_OK;
+ break;
+ }
+
+ case COMMAND_ITEMCONFIGURE: {
+ Tcl_Obj *objPtr;
+ ItemAttr *attrPtr;
+ if (objc < 3) {
+ Tcl_WrongNumArgs(interp, 2, objv,
+ "index ?option? ?value? ?option value ...?");
+ result = TCL_ERROR;
+ break;
+ }
+
+ result = GetListboxIndex(interp, listPtr, objv[2], 0, &index);
+ if (result != TCL_OK) {
+ break;
+ }
+
+ if (index < 0 || index >= listPtr->nElements) {
+ Tcl_AppendResult(interp, "item number \"",
+ Tcl_GetString(objv[2]), "\" out of range",
+ (char *)NULL);
+ result = TCL_ERROR;
+ break;
+ }
+
+ attrPtr = ListboxGetItemAttributes(interp, listPtr, index);
+ if (objc <= 4) {
+ objPtr = Tk_GetOptionInfo(interp, (char *)attrPtr,
+ listPtr->itemAttrOptionTable,
+ (objc == 4) ? objv[3] : (Tcl_Obj *) NULL,
+ listPtr->tkwin);
+ if (objPtr == NULL) {
+ result = TCL_ERROR;
+ break;
+ } else {
+ Tcl_SetObjResult(interp, objPtr);
+ result = TCL_OK;
+ }
+ } else {
+ result = ConfigureListboxItem(interp, listPtr, attrPtr,
+ objc-3, objv+3);
+ }
+ break;
+ }
+
case COMMAND_NEAREST: {
char buf[TCL_INTEGER_SPACE];
int y;
@@ -773,6 +927,7 @@ ListboxWidgetObjCmd(clientData, interp, objc, objv)
result = TCL_OK;
break;
}
+
case COMMAND_SCAN: {
int x, y, scanCmdIndex;
@@ -809,6 +964,7 @@ ListboxWidgetObjCmd(clientData, interp, objc, objv)
result = TCL_OK;
break;
}
+
case COMMAND_SEE: {
int diff;
if (objc != 3) {
@@ -848,10 +1004,12 @@ ListboxWidgetObjCmd(clientData, interp, objc, objv)
result = TCL_OK;
break;
}
+
case COMMAND_SELECTION: {
result = ListboxSelectionSubCmd(interp, listPtr, objc, objv);
break;
}
+
case COMMAND_SIZE: {
char buf[TCL_INTEGER_SPACE];
if (objc != 2) {
@@ -864,10 +1022,12 @@ ListboxWidgetObjCmd(clientData, interp, objc, objv)
result = TCL_OK;
break;
}
+
case COMMAND_XVIEW: {
result = ListboxXviewSubCmd(interp, listPtr, objc, objv);
break;
}
+
case COMMAND_YVIEW: {
result = ListboxYviewSubCmd(interp, listPtr, objc, objv);
break;
@@ -1173,6 +1333,50 @@ ListboxYviewSubCmd(interp, listPtr, objc, objv)
/*
*----------------------------------------------------------------------
*
+ * ListboxGetItemAttributes --
+ *
+ * Returns a pointer to the ItemAttr record for a given index,
+ * creating one if it does not already exist.
+ *
+ * Results:
+ * Pointer to an ItemAttr record.
+ *
+ * Side effects:
+ * Memory may be allocated for the ItemAttr record.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static ItemAttr *
+ListboxGetItemAttributes(interp, listPtr, index)
+ Tcl_Interp *interp; /* Pointer to the calling Tcl interpreter */
+ Listbox *listPtr; /* Information about the listbox */
+ int index; /* Index of the item to retrieve attributes
+ * for */
+{
+ int new;
+ Tcl_HashEntry *entry;
+ ItemAttr *attrs;
+
+ entry = Tcl_CreateHashEntry(listPtr->itemAttrTable, (char *)index,
+ &new);
+ if (new) {
+ attrs = (ItemAttr *) ckalloc(sizeof(ItemAttr));
+ attrs->border = NULL;
+ attrs->selBorder = NULL;
+ attrs->fgColor = NULL;
+ attrs->selFgColor = NULL;
+ Tk_InitOptions(interp, (char *)attrs, listPtr->itemAttrOptionTable,
+ listPtr->tkwin);
+ Tcl_SetHashValue(entry, (ClientData) attrs);
+ }
+ attrs = (ItemAttr *)Tcl_GetHashValue(entry);
+ return attrs;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
* DestroyListbox --
*
* This procedure is invoked by Tcl_EventuallyFree or Tcl_Release
@@ -1193,14 +1397,15 @@ DestroyListbox(memPtr)
char *memPtr; /* Info about listbox widget. */
{
register Listbox *listPtr = (Listbox *) memPtr;
-
+ Tcl_HashEntry *entry;
+ Tcl_HashSearch search;
+
/* If we have an internal list object, free it */
if (listPtr->listObj != NULL) {
Tcl_DecrRefCount(listPtr->listObj);
listPtr->listObj = NULL;
}
-
if (listPtr->listVarName != NULL) {
Tcl_UntraceVar(listPtr->interp, listPtr->listVarName,
TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
@@ -1210,7 +1415,15 @@ DestroyListbox(memPtr)
/* Free the selection hash table */
Tcl_DeleteHashTable(listPtr->selection);
ckfree((char *)listPtr->selection);
-
+
+ /* Free the item attribute hash table */
+ for (entry = Tcl_FirstHashEntry(listPtr->itemAttrTable, &search);
+ entry != NULL; entry = Tcl_NextHashEntry(&search)) {
+ ckfree((char *)Tcl_GetHashValue(entry));
+ }
+ Tcl_DeleteHashTable(listPtr->itemAttrTable);
+ ckfree((char *)listPtr->itemAttrTable);
+
/*
* Free up all the stuff that requires special handling, then
* let Tk_FreeOptions handle all the standard option-related
@@ -1231,6 +1444,33 @@ DestroyListbox(memPtr)
/*
*----------------------------------------------------------------------
*
+ * DestroyListboxOptionTables --
+ *
+ * This procedure is registered as an exit callback when the listbox
+ * command is first called. It cleans up the OptionTables structure
+ * allocated by that command.
+ *
+ * Results:
+ * None.
+ *
+ * Side effects:
+ * Frees memory.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+DestroyListboxOptionTables(clientData, interp)
+ ClientData clientData; /* Pointer to the OptionTables struct */
+ Tcl_Interp *interp; /* Pointer to the calling interp */
+{
+ ckfree((char *)clientData);
+ return;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
* ConfigureListbox --
*
* This procedure is called to process an objv/objc list, plus
@@ -1364,6 +1604,49 @@ ConfigureListbox(interp, listPtr, objc, objv, flags)
}
/*
+ *----------------------------------------------------------------------
+ *
+ * ConfigureListboxItem --
+ *
+ * This procedure is called to process an objv/objc list, plus
+ * the Tk option database, in order to configure (or reconfigure)
+ * a listbox item.
+ *
+ * Results:
+ * The return value is a standard Tcl result. If TCL_ERROR is
+ * returned, then the interp's result contains an error message.
+ *
+ * Side effects:
+ * Configuration information, such as colors, border width,
+ * etc. get set for a listbox item; old resources get freed,
+ * if there were any.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+ConfigureListboxItem(interp, listPtr, attrs, objc, objv)
+ Tcl_Interp *interp; /* Used for error reporting. */
+ register Listbox *listPtr; /* Information about widget; may or may
+ * not already have values for some fields. */
+ ItemAttr *attrs; /* Information about the item to configure */
+ int objc; /* Number of valid entries in argv. */
+ Tcl_Obj *CONST objv[]; /* Arguments. */
+{
+ Tk_SavedOptions savedOptions;
+
+ if (Tk_SetOptions(interp, (char *)attrs,
+ listPtr->itemAttrOptionTable, objc, objv, listPtr->tkwin,
+ &savedOptions, (int *)NULL) != TCL_OK) {
+ Tk_RestoreSavedOptions(&savedOptions);
+ return TCL_ERROR;
+ }
+ Tk_FreeSavedOptions(&savedOptions);
+ ListboxWorldChanged((ClientData) listPtr);
+ return TCL_OK;
+}
+
+/*
*---------------------------------------------------------------------------
*
* ListboxWorldChanged --
@@ -1447,8 +1730,13 @@ DisplayListbox(clientData)
int i, limit, x, y, width, prevSelected;
Tk_FontMetrics fm;
Tcl_Obj *curElement;
+ Tcl_HashEntry *entry;
char *stringRep;
int stringLen;
+ ItemAttr *attrs;
+ Tk_3DBorder selectedBg;
+ XGCValues gcValues;
+ unsigned long mask;
int left, right; /* Non-zero values here indicate
* that the left or right edge of
* the listbox is off-screen. */
@@ -1486,12 +1774,7 @@ DisplayListbox(clientData)
Tk_Fill3DRectangle(tkwin, pixmap, listPtr->normalBorder, 0, 0,
Tk_Width(tkwin), Tk_Height(tkwin), 0, TK_RELIEF_FLAT);
- /*
- * Iterate through all of the elements of the listbox, displaying each
- * in turn. Selected elements use a different GC and have a raised
- * background.
- */
-
+ /* Display each item in the listbox */
limit = listPtr->topIndex + listPtr->fullLines + listPtr->partialLine - 1;
if (limit >= listPtr->nElements) {
limit = listPtr->nElements-1;
@@ -1511,10 +1794,39 @@ DisplayListbox(clientData)
y = ((i - listPtr->topIndex) * listPtr->lineHeight)
+ listPtr->inset;
gc = listPtr->textGC;
+ /*
+ * Lookup this item in the item attributes table, to see if it has
+ * special foreground/background colors
+ */
+ entry = Tcl_FindHashEntry(listPtr->itemAttrTable, (char *)i);
+
+ /* If the item is selected, it is drawn differently */
if (Tcl_FindHashEntry(listPtr->selection, (char *)i) != NULL) {
gc = listPtr->selTextGC;
width = Tk_Width(tkwin) - 2*listPtr->inset;
- Tk_Fill3DRectangle(tkwin, pixmap, listPtr->selBorder, x, y,
+ selectedBg = listPtr->selBorder;
+
+ /* If there is attribute information for this item,
+ * adjust the drawing accordingly */
+ if (entry != NULL) {
+ attrs = (ItemAttr *)Tcl_GetHashValue(entry);
+ /* The default GC has the settings from the widget at large */
+ gcValues.foreground = listPtr->selFgColorPtr->pixel;
+ gcValues.font = Tk_FontId(listPtr->tkfont);
+ gcValues.graphics_exposures = False;
+ mask = GCForeground | GCFont | GCGraphicsExposures;
+
+ if (attrs->selBorder != NULL) {
+ selectedBg = attrs->selBorder;
+ }
+
+ if (attrs->selFgColor != NULL) {
+ gcValues.foreground = attrs->selFgColor->pixel;
+ gc = Tk_GetGC(listPtr->tkwin, mask, &gcValues);
+ }
+ }
+
+ Tk_Fill3DRectangle(tkwin, pixmap, selectedBg, x, y,
width, listPtr->lineHeight, 0, TK_RELIEF_FLAT);
/*
@@ -1532,34 +1844,59 @@ DisplayListbox(clientData)
* corners are off-screen.
*/
+ /* Draw left bevel */
if (left == 0) {
- Tk_3DVerticalBevel(tkwin, pixmap, listPtr->selBorder,
+ Tk_3DVerticalBevel(tkwin, pixmap, selectedBg,
x, y, listPtr->selBorderWidth, listPtr->lineHeight,
1, TK_RELIEF_RAISED);
}
+ /* Draw right bevel */
if (right == 0) {
- Tk_3DVerticalBevel(tkwin, pixmap, listPtr->selBorder,
+ Tk_3DVerticalBevel(tkwin, pixmap, selectedBg,
x + width - listPtr->selBorderWidth, y,
listPtr->selBorderWidth, listPtr->lineHeight,
0, TK_RELIEF_RAISED);
}
+ /* Draw top bevel */
if (!prevSelected) {
- Tk_3DHorizontalBevel(tkwin, pixmap, listPtr->selBorder,
+ Tk_3DHorizontalBevel(tkwin, pixmap, selectedBg,
x-left, y, width+left+right, listPtr->selBorderWidth,
1, 1, 1, TK_RELIEF_RAISED);
}
+ /* Draw bottom bevel */
if (i + 1 == listPtr->nElements ||
Tcl_FindHashEntry(listPtr->selection,
(char *)(i + 1)) == NULL ) {
- Tk_3DHorizontalBevel(tkwin, pixmap, listPtr->selBorder, x-left,
+ Tk_3DHorizontalBevel(tkwin, pixmap, selectedBg, x-left,
y + listPtr->lineHeight - listPtr->selBorderWidth,
width+left+right, listPtr->selBorderWidth, 0, 0, 0,
TK_RELIEF_RAISED);
}
prevSelected = 1;
} else {
+ /* If there is an item attributes record for this item,
+ * draw the background box and set the foreground color
+ * accordingly */
+ if (entry != NULL) {
+ attrs = (ItemAttr *)Tcl_GetHashValue(entry);
+ gcValues.foreground = listPtr->fgColorPtr->pixel;
+ gcValues.font = Tk_FontId(listPtr->tkfont);
+ gcValues.graphics_exposures = False;
+ mask = GCForeground | GCFont | GCGraphicsExposures;
+ if (attrs->border != NULL) {
+ width = Tk_Width(tkwin) - 2*listPtr->inset;
+ Tk_Fill3DRectangle(tkwin, pixmap, attrs->border, x, y,
+ width, listPtr->lineHeight, 0, TK_RELIEF_FLAT);
+ }
+ if (attrs->fgColor != NULL) {
+ gcValues.foreground = attrs->fgColor->pixel;
+ gc = Tk_GetGC(listPtr->tkwin, mask, &gcValues);
+ }
+ }
prevSelected = 0;
}
+
+ /* Draw the actual text of this item */
Tk_GetFontMetrics(listPtr->tkfont, &fm);
y += fm.ascent + listPtr->selBorderWidth;
x = listPtr->inset + listPtr->selBorderWidth - listPtr->xOffset;
@@ -1568,10 +1905,7 @@ DisplayListbox(clientData)
Tk_DrawChars(listPtr->display, pixmap, gc, listPtr->tkfont,
stringRep, stringLen, x, y);
- /*
- * If this is the active element, underline it.
- */
-
+ /* If this is the active element, underline it. */
if ((i == listPtr->active) && (listPtr->flags & GOT_FOCUS)) {
Tk_UnderlineChars(listPtr->display, pixmap, gc, listPtr->tkfont,
stringRep, x, y, 0, stringLen);
@@ -1656,7 +1990,7 @@ ListboxComputeGeometry(listPtr, fontChanged, maxIsStale, updateGrid)
}
listPtr->maxWidth = 0;
for (i = 0; i < listPtr->nElements; i++) {
- /* Compute the pixel width of the requested element */
+ /* Compute the pixel width of the current element */
result = Tcl_ListObjIndex(listPtr->interp, listPtr->listObj, i,
&element);
if (result != TCL_OK) {
@@ -1733,8 +2067,7 @@ ListboxInsertSubCmd(listPtr, index, objc, objv)
int i, oldMaxWidth;
Tcl_Obj *newListObj;
int pixelWidth;
- int new, result;
- Tcl_HashEntry *entry;
+ int result;
char *stringRep;
int length;
@@ -1751,18 +2084,12 @@ ListboxInsertSubCmd(listPtr, index, objc, objv)
}
}
- /* First, foreach selected item with index >= insertIndex, relocate the
- * selection marker by objc counts. Start from the END of the list, so
- * that we don't get accidental collisions en route
- */
- for (i = listPtr->nElements - 1; i >= index; i--) {
- entry = Tcl_FindHashEntry(listPtr->selection, (char *)i);
- if (entry != NULL) {
- Tcl_DeleteHashEntry(entry);
- Tcl_CreateHashEntry(listPtr->selection, (char *)(i + objc), &new);
- }
- }
-
+ /* Adjust selection and attribute information for every index after
+ * the first index */
+ MigrateHashEntries(listPtr->selection, index, listPtr->nElements-1, objc);
+ MigrateHashEntries(listPtr->itemAttrTable, index, listPtr->nElements-1,
+ objc);
+
/* If the object is shared, duplicate it before writing to it */
if (Tcl_IsShared(listPtr->listObj)) {
newListObj = Tcl_DuplicateObj(listPtr->listObj);
@@ -1850,7 +2177,6 @@ ListboxDeleteSubCmd(listPtr, first, last)
Tcl_Obj *element;
int length;
char *stringRep;
- int new;
int result;
int pixelWidth;
Tcl_HashEntry *entry;
@@ -1887,6 +2213,11 @@ ListboxDeleteSubCmd(listPtr, first, last)
Tcl_DeleteHashEntry(entry);
}
+ entry = Tcl_FindHashEntry(listPtr->itemAttrTable, (char *)i);
+ if (entry != NULL) {
+ Tcl_DeleteHashEntry(entry);
+ }
+
/* Check width of the element. We only have to check if widthChanged
* has not already been set to 1, because we only need one maxWidth
* element to disappear for us to have to recompute the width
@@ -1901,16 +2232,12 @@ ListboxDeleteSubCmd(listPtr, first, last)
}
}
- /* Next, for every index greater than the lastIndex, if there is selection
- * information for that index, relocate it down by count steps */
- for (i = last + 1; i < listPtr->nElements; i++) {
- entry = Tcl_FindHashEntry(listPtr->selection, (char *)i);
- if (entry != NULL) {
- Tcl_DeleteHashEntry(entry);
- Tcl_CreateHashEntry(listPtr->selection, (char *)(i - count), &new);
- }
- }
-
+ /* Adjust selection and attribute info for indices after lastIndex */
+ MigrateHashEntries(listPtr->selection, last+1,
+ listPtr->nElements-1, count*-1);
+ MigrateHashEntries(listPtr->itemAttrTable, last+1,
+ listPtr->nElements-1, count*-1);
+
/* Delete the requested elements */
if (Tcl_IsShared(listPtr->listObj)) {
newListObj = Tcl_DuplicateObj(listPtr->listObj);
@@ -2471,7 +2798,9 @@ ListboxSelect(listPtr, first, last, select)
}
} else {
if (select) {
- Tcl_CreateHashEntry(listPtr->selection, (char *)i, &new);
+ entry = Tcl_CreateHashEntry(listPtr->selection,
+ (char *)i, &new);
+ Tcl_SetHashValue(entry, (ClientData) NULL);
listPtr->numSelected++;
if (firstRedisplay < 0) {
firstRedisplay = i;
@@ -2629,7 +2958,6 @@ ListboxLostSelection(clientData)
*----------------------------------------------------------------------
*/
- /* ARGSUSED */
static void
EventuallyRedrawRange(listPtr, first, last)
register Listbox *listPtr; /* Information about widget. */
@@ -2840,15 +3168,23 @@ ListboxListVarProc(clientData, interp, name1, name2, flags)
}
/*
- * If the list length has decreased, then we should clean up the selection
- * from elements past the end of the new list
+ * If the list length has decreased, then we should clean up selection and
+ * attributes information for elements past the end of the new list
*/
oldLength = listPtr->nElements;
Tcl_ListObjLength(listPtr->interp, listPtr->listObj, &listPtr->nElements);
if (listPtr->nElements < oldLength) {
for (i = listPtr->nElements; i < oldLength; i++) {
+ /* Clean up selection */
entry = Tcl_FindHashEntry(listPtr->selection, (char *)i);
if (entry != NULL) {
+ listPtr->numSelected--;
+ Tcl_DeleteHashEntry(entry);
+ }
+
+ /* Clean up attributes */
+ entry = Tcl_FindHashEntry(listPtr->itemAttrTable, (char *)i);
+ if (entry != NULL) {
Tcl_DeleteHashEntry(entry);
}
}
@@ -2867,3 +3203,63 @@ ListboxListVarProc(clientData, interp, name1, name2, flags)
return (char*)NULL;
}
+/*
+ *----------------------------------------------------------------------
+ *
+ * MigrateHashEntries --
+ *
+ * Given a hash table with entries keyed by a single integer value,
+ * move all entries in a given range by a fixed amount, so that
+ * if in the original table there was an entry with key n and
+ * the offset was i, in the new table that entry would have key n + i.
+ *
+ * Results:
+ * None.
+ *
+ * Side effects:
+ * Rekeys some hash table entries.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static void
+MigrateHashEntries(table, first, last, offset)
+ Tcl_HashTable *table;
+ int first;
+ int last;
+ int offset;
+{
+ int i, new;
+ Tcl_HashEntry *entry;
+ ClientData clientData;
+
+ if (offset == 0) {
+ return;
+ }
+ /* It's more efficient to do one if/else and nest the for loops inside,
+ * although we could avoid some code duplication if we nested the if/else
+ * inside the for loops */
+ if (offset > 0) {
+ for (i = last; i >= first; i--) {
+ entry = Tcl_FindHashEntry(table, (char *)i);
+ if (entry != NULL) {
+ clientData = Tcl_GetHashValue(entry);
+ Tcl_DeleteHashEntry(entry);
+ entry = Tcl_CreateHashEntry(table, (char *)(i + offset), &new);
+ Tcl_SetHashValue(entry, clientData);
+ }
+ }
+ } else {
+ for (i = first; i <= last; i++) {
+ entry = Tcl_FindHashEntry(table, (char *)i);
+ if (entry != NULL) {
+ clientData = Tcl_GetHashValue(entry);
+ Tcl_DeleteHashEntry(entry);
+ entry = Tcl_CreateHashEntry(table, (char *)(i + offset), &new);
+ Tcl_SetHashValue(entry, clientData);
+ }
+ }
+ }
+ return;
+}
+
diff --git a/tests/listbox.test b/tests/listbox.test
index 76df7ef..e41d9af 100644
--- a/tests/listbox.test
+++ b/tests/listbox.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: listbox.test,v 1.8 1999/11/18 02:24:41 ericm Exp $
+# RCS: @(#) $Id: listbox.test,v 1.9 1999/11/19 15:48:19 ericm Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -741,19 +741,19 @@ test listbox-3.132 {ListboxWidgetCmd procedure, "xview" option} {
} {0.55 0.65}
test listbox-3.133 {ListboxWidgetCmd procedure, "xview" option} {
list [catch {.l whoknows} msg] $msg
-} {1 {bad option "whoknows": must be activate, bbox, cget, configure, curselection, delete, get, index, insert, nearest, scan, see, selection, size, xview, or yview}}
+} {1 {bad option "whoknows": must be activate, bbox, cget, configure, curselection, delete, get, index, insert, itemcget, itemconfigure, nearest, scan, see, selection, size, xview, or yview}}
test listbox-3.134 {ListboxWidgetCmd procedure, "xview" option} {
list [catch {.l c} msg] $msg
-} {1 {ambiguous option "c": must be activate, bbox, cget, configure, curselection, delete, get, index, insert, nearest, scan, see, selection, size, xview, or yview}}
+} {1 {ambiguous option "c": must be activate, bbox, cget, configure, curselection, delete, get, index, insert, itemcget, itemconfigure, nearest, scan, see, selection, size, xview, or yview}}
test listbox-3.135 {ListboxWidgetCmd procedure, "xview" option} {
list [catch {.l in} msg] $msg
-} {1 {ambiguous option "in": must be activate, bbox, cget, configure, curselection, delete, get, index, insert, nearest, scan, see, selection, size, xview, or yview}}
+} {1 {ambiguous option "in": must be activate, bbox, cget, configure, curselection, delete, get, index, insert, itemcget, itemconfigure, nearest, scan, see, selection, size, xview, or yview}}
test listbox-3.136 {ListboxWidgetCmd procedure, "xview" option} {
list [catch {.l s} msg] $msg
-} {1 {ambiguous option "s": must be activate, bbox, cget, configure, curselection, delete, get, index, insert, nearest, scan, see, selection, size, xview, or yview}}
+} {1 {ambiguous option "s": must be activate, bbox, cget, configure, curselection, delete, get, index, insert, itemcget, itemconfigure, nearest, scan, see, selection, size, xview, or yview}}
test listbox-3.137 {ListboxWidgetCmd procedure, "xview" option} {
list [catch {.l se} msg] $msg
-} {1 {ambiguous option "se": must be activate, bbox, cget, configure, curselection, delete, get, index, insert, nearest, scan, see, selection, size, xview, or yview}}
+} {1 {ambiguous option "se": must be activate, bbox, cget, configure, curselection, delete, get, index, insert, itemcget, itemconfigure, nearest, scan, see, selection, size, xview, or yview}}
# No tests for DestroyListbox: I can't come up with anything to test
# in this procedure.
@@ -1849,6 +1849,42 @@ test listbox-21.11 {ListboxListVarProc, bad list} {
catch {set x {this is a " bad list}} result
set result
} {can't set "x": invalid listvar value}
+test listbox-21.12 {ListboxListVarProc, cleanup item attributes} {
+ catch {destroy .l}
+ set x [list a b c d e f g]
+ listbox .l -listvar x
+ .l itemconfigure end -fg red
+ set x [list a b c d]
+ set x [list 0 1 2 3 4 5 6]
+ .l itemcget end -fg
+} {}
+test listbox-21.12 {ListboxListVarProc, cleanup item attributes} {
+ catch {destroy .l}
+ set x [list a b c d e f g]
+ listbox .l -listvar x
+ .l itemconfigure end -fg red
+ set x [list a b c d]
+ set x [list 0 1 2 3 4 5 6]
+ .l itemcget end -fg
+} {}
+test listbox-21.13 {listbox item configurations and listvar based deletions} {
+ catch {destroy .l}
+ catch {unset x}
+ listbox .l -listvar x
+ .l insert end a b c
+ .l itemconfigure 1 -fg red
+ set x [list b c]
+ .l itemcget 1 -fg
+} red
+test listbox-21.14 {listbox item configurations and listvar based inserts} {
+ catch {destroy .l}
+ catch {unset x}
+ listbox .l -listvar x
+ .l insert end a b c
+ .l itemconfigure 0 -fg red
+ set x [list 1 2 3 4 a b c]
+ .l itemcget 0 -fg
+} red
# UpdateHScrollbar
test listbox-22.1 {UpdateHScrollbar} {
@@ -1864,6 +1900,130 @@ test listbox-22.1 {UpdateHScrollbar} {
set log
} [list {x 0 1} {x 0 1} {x 0 0.5}]
+# ConfigureListboxItem
+test listbox-23.1 {ConfigureListboxItem} {
+ catch {destroy .l}
+ listbox .l
+ catch {.l itemconfigure 0} result
+ set result
+} {item number "0" out of range}
+test listbox-23.2 {ConfigureListboxItem} {
+ catch {destroy .l}
+ listbox .l
+ .l insert end a b c d
+ .l itemconfigure 0
+} [list {-background background Background {} {}} \
+ {-bg -background} \
+ {-fg -foreground} \
+ {-foreground foreground Foreground {} {}} \
+ {-selectbackground selectBackground Background {} {}} \
+ {-selectforeground selectForeground Foreground {} {}}]
+test listbox-23.3 {ConfigureListboxItem, itemco shortcut} {
+ catch {destroy .l}
+ listbox .l
+ .l insert end a b c d
+ .l itemco 0 -background
+} {-background background Background {} {}}
+test listbox-23.4 {ConfigureListboxItem, wrong num args} {
+ catch {destroy .l}
+ listbox .l
+ .l insert end a
+ catch {.l itemco} result
+ set result
+} {wrong # args: should be ".l itemconfigure index ?option? ?value? ?option value ...?"}
+test listbox-23.5 {ConfigureListboxItem, multiple calls} {
+ catch {destroy .l}
+ listbox .l
+ set i 0
+ foreach color {red orange yellow green blue darkblue violet} {
+ .l insert end $color
+ .l itemconfigure $i -bg $color
+ incr i
+ }
+ pack .l
+ update
+ list [.l itemcget 0 -bg] [.l itemcget 1 -bg] [.l itemcget 2 -bg] \
+ [.l itemcget 3 -bg] [.l itemcget 4 -bg] [.l itemcget 5 -bg] \
+ [.l itemcget 6 -bg]
+} {red orange yellow green blue darkblue violet}
+catch {destroy .l}
+listbox .l
+.l insert end a b c d
+set i 6
+foreach test {
+ {-background #ff0000 #ff0000 non-existent
+ {unknown color name "non-existent"}}
+ {-bg #ff0000 #ff0000 non-existent {unknown color name "non-existent"}}
+ {-fg #110022 #110022 bogus {unknown color name "bogus"}}
+ {-foreground #110022 #110022 bogus {unknown color name "bogus"}}
+ {-selectbackground #110022 #110022 bogus {unknown color name "bogus"}}
+ {-selectforeground #654321 #654321 bogus {unknown color name "bogus"}}
+} {
+ set name [lindex $test 0]
+ test listbox-23.$i {configuration options} {
+ .l itemconfigure 0 $name [lindex $test 1]
+ list [lindex [.l itemconfigure 0 $name] 4] [.l itemcget 0 $name]
+ } [list [lindex $test 2] [lindex $test 2]]
+ incr i
+ if {[lindex $test 3] != ""} {
+ test listbox-1.$i {configuration options} {
+ list [catch {.l configure $name [lindex $test 3]} msg] $msg
+ } [list 1 [lindex $test 4]]
+ }
+ .l configure $name [lindex [.l configure $name] 3]
+ incr i
+}
+
+# ListboxWidgetObjCmd, itemcget
+test listbox-24.1 {itemcget} {
+ catch {destroy .l}
+ listbox .l
+ .l insert end a b c d
+ .l itemcget 0 -fg
+} {}
+test listbox-24.2 {itemcget} {
+ catch {destroy .l}
+ listbox .l
+ .l insert end a b c d
+ .l itemconfigure 0 -fg red
+ .l itemcget 0 -fg
+} red
+test listbox-24.3 {itemcget} {
+ catch {destroy .l}
+ listbox .l
+ .l insert end a b c d
+ catch {.l itemcget 0} result
+ set result
+} {wrong # args: should be ".l itemcget index option"}
+test listbox-24.3 {itemcget, itemcg shortcut} {
+ catch {destroy .l}
+ listbox .l
+ .l insert end a b c d
+ catch {.l itemcg 0} result
+ set result
+} {wrong # args: should be ".l itemcget index option"}
+
+# General item configuration issues
+test listbox-25.1 {listbox item configurations and widget based deletions} {
+ catch {destroy .l}
+ listbox .l
+ .l insert end a
+ .l itemconfigure 0 -fg red
+ .l delete 0 end
+ .l insert end a
+ .l itemcget 0 -fg
+} {}
+test listbox-25.2 {listbox item configurations and widget based inserts} {
+ catch {destroy .l}
+ listbox .l
+ .l insert end a b c
+ .l itemconfigure 0 -fg red
+ .l insert 0 1 2 3 4
+ list [.l itemcget 0 -fg] [.l itemcget 4 -fg]
+} [list {} red]
+
+
+
resetGridInfo
catch {destroy .l2}
catch {destroy .t}