diff options
author | treectrl <treectrl> | 2005-07-23 00:48:47 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2005-07-23 00:48:47 (GMT) |
commit | 99911bfc5d1d86fe58eb2d6240be4e89a466dbad (patch) | |
tree | b03baa108648e833cdf8607d8eee67cc2ba59916 /shellicon | |
parent | b9c49dbc80e07564e24720859f459d1689f48e74 (diff) | |
download | tktreectrl-99911bfc5d1d86fe58eb2d6240be4e89a466dbad.zip tktreectrl-99911bfc5d1d86fe58eb2d6240be4e89a466dbad.tar.gz tktreectrl-99911bfc5d1d86fe58eb2d6240be4e89a466dbad.tar.bz2 |
Tcl_PkgRequire same version of treectrl.
Fixed ActualProc using ElementText.
Diffstat (limited to 'shellicon')
-rw-r--r-- | shellicon/shellicon.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/shellicon/shellicon.c b/shellicon/shellicon.c index 0062638..b9c2a7f 100644 --- a/shellicon/shellicon.c +++ b/shellicon/shellicon.c @@ -7,7 +7,7 @@ * * Copyright (c) 2005 Tim Baker * - * RCS: @(#) $Id: shellicon.c,v 1.2 2005/07/12 02:48:12 treectrl Exp $ + * RCS: @(#) $Id: shellicon.c,v 1.3 2005/07/23 00:48:47 treectrl Exp $ */ #include "tkTreeCtrl.h" @@ -60,6 +60,10 @@ TreeCtrlStubs *stubs; stubs->PerStateInfo_Free(t,ty,in) #define PerStateInfo_FromObj(t,pr,ty,in) \ stubs->PerStateInfo_FromObj(t,pr,ty,in) +#define PerStateInfo_ForState(t,ty,in,st,ma) \ + stubs->PerStateInfo_ForState(t,ty,in,st,ma) +#define PerStateInfo_ObjForState(t,ty,in,st,ma) \ + stubs->PerStateInfo_ObjForState(t,ty,in,st,ma) #define PerStateInfo_Undefine(t,ty,in,st) \ stubs->PerStateInfo_Undefine(t,ty,in,st) #define pstBoolean \ @@ -630,8 +634,8 @@ static int UndefProcShellIcon(ElementArgs *args) static int ActualProcShellIcon(ElementArgs *args) { TreeCtrl *tree = args->tree; - ElementText *elemX = (ElementText *) args->elem; - ElementText *masterX = (ElementText *) args->elem->master; + ElementShellIcon *elemX = (ElementShellIcon *) args->elem; + ElementShellIcon *masterX = (ElementShellIcon *) args->elem->master; static CONST char *optionName[] = { "-draw", (char *) NULL }; @@ -720,7 +724,7 @@ DLLEXPORT int Shellicon_Init(Tcl_Interp *interp) #endif /* Load TkTreeCtrl */ - if (Tcl_PkgRequire(interp, "treectrl", "2.0.1", TRUE) == NULL) + if (Tcl_PkgRequire(interp, "treectrl", PACKAGE_PATCHLEVEL, TRUE) == NULL) return TCL_ERROR; /* Get the stubs table from TkTreeCtrl */ |