diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tkTreeStyle.c | 62 |
1 files changed, 40 insertions, 22 deletions
diff --git a/generic/tkTreeStyle.c b/generic/tkTreeStyle.c index 1e9a597..a0efa37 100644 --- a/generic/tkTreeStyle.c +++ b/generic/tkTreeStyle.c @@ -1,3 +1,13 @@ +/* + * tkTreeStyle.c -- + * + * This module implements styles for treectrl widgets. + * + * Copyright (c) 2002-2004 Tim Baker + * + * RCS: @(#) $Id: tkTreeStyle.c,v 1.14 2004/07/30 21:13:53 treectrl Exp $ + */ + #include "tkTreeCtrl.h" #include "tkTreeElem.h" @@ -2583,10 +2593,14 @@ int TreeElementCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { TreeCtrl *tree = (TreeCtrl *) clientData; - static CONST char *commandNames[] = { "cget", "configure", "create", "delete", - "names", "type", (char *) NULL }; - enum { COMMAND_CGET, COMMAND_CONFIGURE, COMMAND_CREATE, COMMAND_DELETE, - COMMAND_NAMES, COMMAND_TYPE }; + static CONST char *commandNames[] = { + "cget", "configure", "create", "delete", "names", "type", + (char *) NULL + }; + enum { + COMMAND_CGET, COMMAND_CONFIGURE, COMMAND_CREATE, COMMAND_DELETE, + COMMAND_NAMES, COMMAND_TYPE + }; int index; if (objc < 3) @@ -2845,12 +2859,14 @@ static int StyleLayoutCmd(ClientData clientData, Tcl_Interp *interp, int objc, Element *elem; ElementLink *eLink; int i, index; - static CONST char *optionNames[] = { "-padx", "-pady", "-ipadx", - "-ipady", "-expand", "-union", "-detach", "-iexpand", - "-squeeze", (char *) NULL }; - enum { OPTION_PADX, OPTION_PADY, OPTION_iPADX, OPTION_iPADY, - OPTION_EXPAND, - OPTION_UNION, OPTION_DETACH, OPTION_iEXPAND, OPTION_SQUEEZE }; + static CONST char *optionNames[] = { + "-padx", "-pady", "-ipadx", "-ipady", "-expand", "-union", "-detach", + "-iexpand", "-squeeze", (char *) NULL + }; + enum { + OPTION_PADX, OPTION_PADY, OPTION_iPADX, OPTION_iPADY, OPTION_EXPAND, + OPTION_UNION, OPTION_DETACH, OPTION_iEXPAND, OPTION_SQUEEZE + }; if (objc < 5) { @@ -2936,23 +2952,23 @@ static int StyleLayoutCmd(ClientData clientData, Tcl_Interp *interp, int objc, { case OPTION_PADX: { - objPtr = TreeCtrl_NewPadAmountObj(eLink->ePadX); - break; + objPtr = TreeCtrl_NewPadAmountObj(eLink->ePadX); + break; } case OPTION_PADY: { - objPtr = TreeCtrl_NewPadAmountObj(eLink->ePadY); - break; + objPtr = TreeCtrl_NewPadAmountObj(eLink->ePadY); + break; } case OPTION_iPADX: { - objPtr = TreeCtrl_NewPadAmountObj(eLink->iPadX); - break; + objPtr = TreeCtrl_NewPadAmountObj(eLink->iPadX); + break; } case OPTION_iPADY: { - objPtr = TreeCtrl_NewPadAmountObj(eLink->iPadY); - break; + objPtr = TreeCtrl_NewPadAmountObj(eLink->iPadY); + break; } case OPTION_DETACH: { @@ -3239,9 +3255,11 @@ int TreeStyleCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { TreeCtrl *tree = (TreeCtrl *) clientData; - static CONST char *commandNames[] = { "cget", "configure", "create", "delete", - "elements", "layout", "names", (char *) NULL }; - enum { COMMAND_CGET, COMMAND_CONFIGURE, COMMAND_CREATE, COMMAND_DELETE, + static CONST char *commandNames[] = { + "cget", "configure", "create", "delete", "elements", "layout", + "names", (char *) NULL }; + enum { + COMMAND_CGET, COMMAND_CONFIGURE, COMMAND_CREATE, COMMAND_DELETE, COMMAND_ELEMENTS, COMMAND_LAYOUT, COMMAND_NAMES }; int index; @@ -3378,7 +3396,7 @@ int TreeStyleCmd(ClientData clientData, Tcl_Interp *interp, int objc, if (objc < 4 || objc > 5) { - Tcl_WrongNumArgs(interp, 3, objv, "name ?element element...?"); + Tcl_WrongNumArgs(interp, 3, objv, "name ?elementList?"); return TCL_ERROR; } if (TreeStyle_FromObj(tree, objv[3], (TreeStyle *) &style) != TCL_OK) |