diff options
| author | treectrl <treectrl> | 2007-01-31 23:21:25 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2007-01-31 23:21:25 (GMT) |
| commit | cef1d3914524ef406f9594787b0d3c51898e8710 (patch) | |
| tree | 87a729455a920e84c0014df89a6bc581ae8fedd4 /generic | |
| parent | 4a29643950ae9cedca05adc2c7e3941f22b56bbf (diff) | |
| download | tktreectrl-cef1d3914524ef406f9594787b0d3c51898e8710.zip tktreectrl-cef1d3914524ef406f9594787b0d3c51898e8710.tar.gz tktreectrl-cef1d3914524ef406f9594787b0d3c51898e8710.tar.bz2 | |
Call FormatResult in two places.
Misc format changes.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tkTreeCtrl.c | 31 |
1 files changed, 17 insertions, 14 deletions
diff --git a/generic/tkTreeCtrl.c b/generic/tkTreeCtrl.c index 13852ba..10d37c6 100644 --- a/generic/tkTreeCtrl.c +++ b/generic/tkTreeCtrl.c @@ -7,7 +7,7 @@ * Copyright (c) 2002-2003 Christian Krone * Copyright (c) 2003-2005 ActiveState, a division of Sophos * - * RCS: @(#) $Id: tkTreeCtrl.c,v 1.103 2007/01/23 22:41:30 treectrl Exp $ + * RCS: @(#) $Id: tkTreeCtrl.c,v 1.104 2007/01/31 23:21:25 treectrl Exp $ */ #include "tkTreeCtrl.h" @@ -299,18 +299,24 @@ static Tk_OptionSpec debugSpecs[] = { (char *) NULL, -1, -1, 0, (ClientData) NULL, 0} }; -static int TreeWidgetCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); -static int TreeConfigure(Tcl_Interp *interp, TreeCtrl *tree, int objc, Tcl_Obj *CONST objv[], int createFlag); +static int TreeWidgetCmd(ClientData clientData, Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[]); +static int TreeConfigure(Tcl_Interp *interp, TreeCtrl *tree, int objc, + Tcl_Obj *CONST objv[], int createFlag); static void TreeEventProc(ClientData clientData, XEvent * eventPtr); static void TreeDestroy(char *memPtr); static void TreeCmdDeletedProc(ClientData clientData); static void TreeWorldChanged(ClientData instanceData); static void TreeComputeGeometry(TreeCtrl *tree); static int TreeStateCmd(TreeCtrl *tree, int objc, Tcl_Obj *CONST objv[]); -static int TreeSelectionCmd(Tcl_Interp *interp, TreeCtrl *tree, int objc, Tcl_Obj *CONST objv[]); -static int TreeXviewCmd(Tcl_Interp *interp, TreeCtrl *tree, int objc, Tcl_Obj *CONST objv[]); -static int TreeYviewCmd(Tcl_Interp *interp, TreeCtrl *tree, int objc, Tcl_Obj *CONST objv[]); -static int TreeDebugCmd(ClientData clientData, Tcl_Interp *interp, int objc,Tcl_Obj *CONST objv[]); +static int TreeSelectionCmd(Tcl_Interp *interp, TreeCtrl *tree, int objc, + Tcl_Obj *CONST objv[]); +static int TreeXviewCmd(Tcl_Interp *interp, TreeCtrl *tree, int objc, + Tcl_Obj *CONST objv[]); +static int TreeYviewCmd(Tcl_Interp *interp, TreeCtrl *tree, int objc, + Tcl_Obj *CONST objv[]); +static int TreeDebugCmd(ClientData clientData, Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[]); static Tk_ClassProcs treectrlClass = { sizeof(Tk_ClassProcs), /* size */ @@ -3058,11 +3064,9 @@ A_XviewCmd( if (objc == 2) { double fractions[2]; - char buf[TCL_DOUBLE_SPACE * 2]; Tree_GetScrollFractionsX(tree, fractions); - sprintf(buf, "%g %g", fractions[0], fractions[1]); - Tcl_SetResult(interp, buf, TCL_VOLATILE); + FormatResult(interp, "%g %g", fractions[0], fractions[1]); } else { int count, index = 0, indexMax, offset, type; double fraction; @@ -3164,11 +3168,9 @@ A_YviewCmd( if (objc == 2) { double fractions[2]; - char buf[TCL_DOUBLE_SPACE * 2]; Tree_GetScrollFractionsY(tree, fractions); - sprintf(buf, "%g %g", fractions[0], fractions[1]); - Tcl_SetResult(interp, buf, TCL_VOLATILE); + FormatResult(interp, "%g %g", fractions[0], fractions[1]); } else { int count, index = 0, indexMax, offset, type; double fraction; @@ -3300,7 +3302,8 @@ TreeYviewCmd( return A_YviewCmd(tree, objc, objv); } -void Tree_Debug( +void +Tree_Debug( TreeCtrl *tree /* Widget info. */ ) { |