Tk Source Code

} ListboxOptionTables;

/*
 * A data structure of the following type is kept for each listbox widget
 * managed by this file:
 */

typedef struct Listbox {
    Tk_Window tkwin;		/* Window that embodies the listbox. NULL
				 * means that the window has been destroyed
				 * but the data structures haven't yet been
				 * cleaned up. */
    Display *display;		/* Display containing widget. Used, among
				 * other things, so that resources can be
				 * freed even after tkwin has gone away. */
    Tcl_Interp *interp;		/* Interpreter associated with listbox. */
    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 */
    int column;                 /* >=0 display column number, <0 all columns */
    Tk_Window masterwin;        /* Controlling master listbox widget */
    struct Listbox *masterListbox; /* Master listbox handle */
    Tcl_HashTable *dependentsTable; /* Dependent listbox widgets */
    Tcl_HashTable *selection;	/* Tracks selection */
    Tcl_HashTable *itemAttrTable;
				/* Tracks item attributes */

    /*
     * Information used when displaying widget:
     */

#define REDRAW_PENDING		1
#define UPDATE_V_SCROLLBAR	2
#define UPDATE_H_SCROLLBAR	4
#define GOT_FOCUS		8
#define MAXWIDTH_IS_STALE	16
#define LISTBOX_DELETED		32


/*
 * Access (any) other Listbox widget instance data
 */
#define LISTBOX_CLIENTDATA(otherListboxTkwin) ((otherListboxTkwin) ? (((struct TkWindow *) (otherListboxTkwin))->instanceData) : NULL)

/*
 * The following enum is used to define a type for the -state option of the
 * Listbox widget. These values are used as indices into the string table
 * below.
 */

enum state {

    {TK_OPTION_SYNONYM, "-bd", NULL, NULL,
	 NULL, 0, -1, 0, "-borderwidth", 0},
    {TK_OPTION_SYNONYM, "-bg", NULL, NULL,
	 NULL, 0, -1, 0, "-background", 0},
    {TK_OPTION_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
	 DEF_LISTBOX_BORDER_WIDTH, -1, Tk_Offset(Listbox, borderWidth),
	 0, 0, 0},
    {TK_OPTION_INT, "-column", "column", "Column",
	 DEF_LISTBOX_COLUMN, -1, Tk_Offset(Listbox, column), 0, 0, 0},
    {TK_OPTION_CURSOR, "-cursor", "cursor", "Cursor",
	 DEF_LISTBOX_CURSOR, -1, Tk_Offset(Listbox, cursor),
	 TK_OPTION_NULL_OK, 0, 0},
    {TK_OPTION_COLOR, "-disabledforeground", "disabledForeground",
	 "DisabledForeground", DEF_LISTBOX_DISABLED_FG, -1,
	 Tk_Offset(Listbox, dfgColorPtr), TK_OPTION_NULL_OK, 0, 0},
    {TK_OPTION_BOOLEAN, "-exportselection", "exportSelection",

	 DEF_LISTBOX_HIGHLIGHT, -1, Tk_Offset(Listbox, highlightColorPtr),
	 0, 0, 0},
    {TK_OPTION_PIXELS, "-highlightthickness", "highlightThickness",
	 "HighlightThickness", DEF_LISTBOX_HIGHLIGHT_WIDTH, -1,
	 Tk_Offset(Listbox, highlightWidth), 0, 0, 0},
    {TK_OPTION_JUSTIFY, "-justify", "justify", "Justify",
	DEF_LISTBOX_JUSTIFY, -1, Tk_Offset(Listbox, justify), 0, 0, 0},
    {TK_OPTION_WINDOW, "-master", NULL, NULL,
	 DEF_LISTBOX_MASTER, -1, Tk_Offset(Listbox, masterwin),
	 TK_OPTION_NULL_OK, 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",
	 DEF_LISTBOX_SELECT_COLOR, -1, Tk_Offset(Listbox, selBorder),
	 0, DEF_LISTBOX_SELECT_MONO, 0},
    {TK_OPTION_PIXELS, "-selectborderwidth", "selectBorderWidth",
	 "BorderWidth", DEF_LISTBOX_SELECT_BD, -1,

    listPtr->fullLines		 = 1;
    listPtr->xScrollUnit	 = 1;
    listPtr->exportSelection	 = 1;
    listPtr->cursor		 = NULL;
    listPtr->state		 = STATE_NORMAL;
    listPtr->gray		 = None;
    listPtr->justify             = TK_JUSTIFY_LEFT;
    listPtr->masterwin           = NULL;
    listPtr->masterListbox       = NULL;
    listPtr->dependentsTable     = NULL;

    /*
     * Keep a hold of the associated tkwin until we destroy the listbox,
     * otherwise Tk might free it while we still need it.
     */

    Tcl_Preserve(listPtr->tkwin);

     */

    if ((listPtr->state == STATE_DISABLED)
	    && (selCmdIndex != SELECTION_INCLUDES)) {
	return TCL_OK;
    }

    if (listPtr->masterListbox) {
	return ListboxSelectionSubCmd(interp, listPtr->masterListbox, objc, objv);
    }
    
    switch (selCmdIndex) {
    case SELECTION_ANCHOR:
	if (objc != 4) {
	    Tcl_WrongNumArgs(interp, 3, objv, "index");
	    return TCL_ERROR;
	}
	if (first >= listPtr->nElements) {

	case TK_SCROLL_UNITS:
	    index = listPtr->topIndex + count;
	    break;
	case TK_SCROLL_ERROR:
	default:
	    return TCL_ERROR;
	}
	if (listPtr->masterListbox) {
	    ChangeListboxView(listPtr->masterListbox, index);
	} else {
	    ChangeListboxView(listPtr, index);
	}
    }
    return TCL_OK;
}

/*
 *----------------------------------------------------------------------
 *

DestroyListbox(
    void *memPtr)		/* Info about listbox widget. */
{
    register Listbox *listPtr = memPtr;
    Tcl_HashEntry *entry;
    Tcl_HashSearch search;

    /*
     * Unlink master and dependent
     */
    if (listPtr->dependentsTable) {
	Tcl_HashEntry *hPtr;
	Tcl_HashSearch search;
	Listbox *otherListbox;
	
	hPtr = Tcl_FirstHashEntry(listPtr->dependentsTable, &search);
	while (hPtr) {
	    otherListbox = (Listbox*) Tcl_GetHashValue(hPtr);
	    otherListbox->masterwin = NULL;
	    otherListbox->masterListbox = NULL;
	    hPtr = Tcl_NextHashEntry(&search);
	}
	Tcl_DeleteHashTable(listPtr->dependentsTable);
    } else if (listPtr->masterListbox && listPtr->masterListbox->dependentsTable) {
	Tcl_HashEntry *hPtr = Tcl_FindHashEntry(listPtr->masterListbox->dependentsTable, (char*) listPtr->tkwin);
	if (hPtr) Tcl_DeleteHashEntry(hPtr);
	listPtr->masterListbox = NULL;
	listPtr->masterwin = NULL;
    }
	
    /*
     * If we have an internal list object, free it.
     */

    if (listPtr->listObj != NULL) {
	Tcl_DecrRefCount(listPtr->listObj);
	listPtr->listObj = NULL;

	} else if (listPtr->listObj == NULL) {
	    listPtr->listObj = Tcl_NewObj();
	}
	Tcl_IncrRefCount(listPtr->listObj);
	if (oldListObj != NULL) {
	    Tcl_DecrRefCount(oldListObj);
	}

	/* (re)Register this listbox with Master listbox widget */
	if (listPtr->masterwin) {
	    Listbox *otherListboxPtr = LISTBOX_CLIENTDATA(listPtr->masterwin);
	    Tcl_HashEntry *hPtr;
	    if (listPtr->masterListbox && listPtr->masterListbox != otherListboxPtr) {
		// Clean up old reference
		hPtr = Tcl_FindHashEntry(listPtr->masterListbox->dependentsTable, (char*) listPtr->tkwin);
		if (hPtr) Tcl_DeleteHashEntry(hPtr);
	    }
	    if (otherListboxPtr) {
		int isNew;
		if (otherListboxPtr->dependentsTable == NULL) {
		    otherListboxPtr->dependentsTable = ckalloc(sizeof(Tcl_HashTable));
		    Tcl_InitHashTable(otherListboxPtr->dependentsTable, TCL_ONE_WORD_KEYS);
		}
		hPtr = Tcl_CreateHashEntry(otherListboxPtr->dependentsTable, (char*) listPtr->tkwin, &isNew);
		Listbox *priorPtr = Tcl_GetHashValue(hPtr);
		if (isNew || priorPtr != listPtr) {
		    Tcl_SetHashValue(hPtr, listPtr);
		    // Trigger update?
		}
	    }
	    listPtr->masterListbox = otherListboxPtr;
	} else if (listPtr->masterListbox) {
	    Tcl_HashEntry *hPtr;
	    // Clean up old reference
	    hPtr = Tcl_FindHashEntry(listPtr->masterListbox->dependentsTable, (char*) listPtr->tkwin);
	    if (hPtr) Tcl_DeleteHashEntry(hPtr);
	}
	break;
    }
    if (!error) {
	Tk_FreeSavedOptions(&savedOptions);
    }

    /*

	}

	/*
	 * Draw the actual text of this item.
	 */

        Tcl_ListObjIndex(listPtr->interp, listPtr->listObj, i, &curElement);
	if (curElement && listPtr->column >= 0) {
	    Tcl_Obj *colObj = NULL;
	    int result = Tcl_ListObjIndex(listPtr->interp, curElement,
					  listPtr->column, &colObj);
	    if (result == TCL_OK) {
		curElement = colObj;
	    } else {
		printf("result=%d colObj=%p interp=%s\n",result,colObj,Tcl_GetStringResult(listPtr->interp));
	    }
	}
	stringLen = 0;
        stringRep = curElement ? Tcl_GetStringFromObj(curElement, &stringLen) :"";
        textWidth = Tk_TextWidth(listPtr->tkfont, stringRep, stringLen);

	Tk_GetFontMetrics(listPtr->tkfont, &fm);
	y += fm.ascent + listPtr->selBorderWidth;

        if (listPtr->justify == TK_JUSTIFY_LEFT) {
            x = (listPtr->inset + listPtr->selBorderWidth) - listPtr->xOffset;

	     * Compute the pixel width of the current element.
	     */

	    result = Tcl_ListObjIndex(listPtr->interp, listPtr->listObj, i,
		    &element);
	    if (result != TCL_OK) {
		continue;
	    }
	    if (listPtr->column >= 0) {
		Tcl_Obj *colObj = NULL;
		int result = Tcl_ListObjIndex(listPtr->interp, element,
					      listPtr->column, &colObj);
		if (result != TCL_OK || colObj == NULL) {
		    continue;
		}
		element = colObj;
	    }
	    text = Tcl_GetStringFromObj(element, &textLength);
	    Tk_GetFontMetrics(listPtr->tkfont, &fm);
	    pixelWidth = Tk_TextWidth(listPtr->tkfont, text, textLength);
	    if (pixelWidth > listPtr->maxWidth) {
		listPtr->maxWidth = pixelWidth;
	    }

		if (firstRedisplay < 0) {
		    firstRedisplay = i;
		}
	    }
	}
    }

    /* 
     * If we are the master, propagate the update to all the 
     * dependent widgets.  If not, let the master do it.
     */
    if (listPtr->masterwin == NULL) {
	if (firstRedisplay >= 0) {
	    EventuallyRedrawRange(listPtr, first, last);
	}
	if ((oldCount == 0) && (listPtr->numSelected > 0)
	    && (listPtr->exportSelection)
	    && (!Tcl_IsSafe(listPtr->interp))) {
	    Tk_OwnSelection(listPtr->tkwin, XA_PRIMARY,
			    ListboxLostSelection, listPtr);
	}
	if (listPtr->dependentsTable) {
	    Tcl_HashEntry *hPtr;
	    Tcl_HashSearch search;
	    Listbox *otherListbox;
	
	    hPtr = Tcl_FirstHashEntry(listPtr->dependentsTable, &search);
	    while (hPtr) {
		otherListbox = (Listbox*) Tcl_GetHashValue(hPtr);
		ListboxSelect(otherListbox, first, last, select);
		hPtr = Tcl_NextHashEntry(&search);
	    }
	}
    }
    return TCL_OK;
}

/*
 *----------------------------------------------------------------------
 *

    if ((listPtr->flags & REDRAW_PENDING)
	    || (listPtr->flags & LISTBOX_DELETED)
	    || !Tk_IsMapped(listPtr->tkwin)) {
	return;
    }
    listPtr->flags |= REDRAW_PENDING;
    Tcl_DoWhenIdle(DisplayListbox, listPtr);

    /* The master commands all dependents to Display also */
    if (listPtr->dependentsTable) {
	Tcl_HashEntry *hPtr;
	Tcl_HashSearch search;
	Listbox *otherListbox;
	
	hPtr = Tcl_FirstHashEntry(listPtr->dependentsTable, &search);
	while (hPtr) {
	    otherListbox = (Listbox*) Tcl_GetHashValue(hPtr);
	    //if (otherListbox->listobj)
	    // something doen with listobj and listvarname
	    otherListbox->nElements = listPtr->nElements;
	    otherListbox->topIndex = listPtr->topIndex;
	    otherListbox->active = listPtr->active;
	    otherListbox->numSelected = listPtr->numSelected;
	    otherListbox->selectAnchor = listPtr->selectAnchor;
	    otherListbox->flags = listPtr->flags;
	    otherListbox->fullLines = listPtr->fullLines;
	    otherListbox->partialLine = listPtr->partialLine;

	    /* Schedule redraw of other listbox */
	    Tcl_DoWhenIdle(DisplayListbox, otherListbox);
	    
	    hPtr = Tcl_NextHashEntry(&search);
	}
    }
}

/*
 *----------------------------------------------------------------------
 *
 * ListboxUpdateVScrollbar --
 *

{
    char firstStr[TCL_DOUBLE_SPACE], lastStr[TCL_DOUBLE_SPACE];
    double first, last;
    int result;
    Tcl_Interp *interp;
    Tcl_DString buf;

    if (listPtr->yScrollCmd == NULL ||
	listPtr->masterwin) { // let master do this
	return;
    }
    if (listPtr->nElements == 0) {
	first = 0.0;
	last = 1.0;
    } else {
	first = listPtr->topIndex / (double) listPtr->nElements;

 * Defaults for listboxes:
 */

#define DEF_LISTBOX_ACTIVE_STYLE	"dotbox"
#define DEF_LISTBOX_BG_COLOR		TEXT_BG
#define DEF_LISTBOX_BG_MONO		WHITE
#define DEF_LISTBOX_BORDER_WIDTH	"1"
#define DEF_LISTBOX_COLUMN              "-1"
#define DEF_LISTBOX_CURSOR		""
#define DEF_LISTBOX_DISABLED_FG		DISABLED
#define DEF_LISTBOX_EXPORT_SELECTION	"1"
#define DEF_LISTBOX_FONT		"TkTextFont"
#define DEF_LISTBOX_FG			NORMAL_FG
#define DEF_LISTBOX_HEIGHT		"10"
#define DEF_LISTBOX_HIGHLIGHT_BG	NORMAL_BG
#define DEF_LISTBOX_HIGHLIGHT		BLACK
#define DEF_LISTBOX_HIGHLIGHT_WIDTH	"0"
#define DEF_LISTBOX_JUSTIFY		"left"
#define DEF_LISTBOX_MASTER              ((char*) NULL)
#define DEF_LISTBOX_RELIEF		"solid"
#define DEF_LISTBOX_SCROLL_COMMAND	""
#define DEF_LISTBOX_LIST_VARIABLE	""
#define DEF_LISTBOX_SELECT_COLOR	SELECT_BG
#define DEF_LISTBOX_SELECT_MONO		BLACK
#define DEF_LISTBOX_SELECT_BD		"0"
#define DEF_LISTBOX_SELECT_FG_COLOR	SELECT_FG

 * Defaults for listboxes:
 */

#define DEF_LISTBOX_ACTIVE_STYLE	"dotbox"
#define DEF_LISTBOX_BG_COLOR		WHITE
#define DEF_LISTBOX_BG_MONO		WHITE
#define DEF_LISTBOX_BORDER_WIDTH	"1"
#define DEF_LISTBOX_COLUMN              "-1"
#define DEF_LISTBOX_CURSOR		""
#define DEF_LISTBOX_DISABLED_FG		DISABLED
#define DEF_LISTBOX_EXPORT_SELECTION	"1"
#define DEF_LISTBOX_FONT		"TkDefaultFont"
#define DEF_LISTBOX_FG			BLACK
#define DEF_LISTBOX_HEIGHT		"10"
#define DEF_LISTBOX_HIGHLIGHT_BG	NORMAL_BG
#define DEF_LISTBOX_HIGHLIGHT		BLACK
#define DEF_LISTBOX_HIGHLIGHT_WIDTH	"1"
#define DEF_LISTBOX_JUSTIFY		"left"
#define DEF_LISTBOX_MASTER              ((char*) NULL)
#define DEF_LISTBOX_RELIEF		"sunken"
#define DEF_LISTBOX_SCROLL_COMMAND	""
#define DEF_LISTBOX_LIST_VARIABLE	""
#define DEF_LISTBOX_SELECT_COLOR	SELECT_BG
#define DEF_LISTBOX_SELECT_MONO		BLACK
#define DEF_LISTBOX_SELECT_BD		"0"
#define DEF_LISTBOX_SELECT_FG_COLOR	BLACK

 * Defaults for listboxes:
 */

#define DEF_LISTBOX_ACTIVE_STYLE	"underline"
#define DEF_LISTBOX_BG_COLOR		"SystemWindow"
#define DEF_LISTBOX_BG_MONO		WHITE
#define DEF_LISTBOX_BORDER_WIDTH	"1"
#define DEF_LISTBOX_COLUMN              "-1"
#define DEF_LISTBOX_CURSOR		""
#define DEF_LISTBOX_DISABLED_FG		DISABLED
#define DEF_LISTBOX_EXPORT_SELECTION	"1"
#define DEF_LISTBOX_FONT		"TkDefaultFont"
#define DEF_LISTBOX_FG			NORMAL_FG
#define DEF_LISTBOX_HEIGHT		"10"
#define DEF_LISTBOX_HIGHLIGHT_BG	NORMAL_BG
#define DEF_LISTBOX_HIGHLIGHT		HIGHLIGHT
#define DEF_LISTBOX_HIGHLIGHT_WIDTH	"1"
#define DEF_LISTBOX_JUSTIFY		"left"
#define DEF_LISTBOX_MASTER              ((char*) NULL)
#define DEF_LISTBOX_RELIEF		"sunken"
#define DEF_LISTBOX_SCROLL_COMMAND	""
#define DEF_LISTBOX_LIST_VARIABLE	""
#define DEF_LISTBOX_SELECT_COLOR	SELECT_BG
#define DEF_LISTBOX_SELECT_MONO		BLACK
#define DEF_LISTBOX_SELECT_BD		"0"
#define DEF_LISTBOX_SELECT_FG_COLOR	SELECT_FG