diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-07-16 12:36:40 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-07-16 12:36:40 (GMT) |
| commit | a96a4263f85fa276c74672a7e28251691f0c7680 (patch) | |
| tree | 83188d92aa77a52a178e0ae85ba5439c402f4eca /win/tkWinDialog.c | |
| parent | da1c30ff0d8a05251ef3ab0e9f6a5c5bae6f7b14 (diff) | |
| download | tk-a96a4263f85fa276c74672a7e28251691f0c7680.zip tk-a96a4263f85fa276c74672a7e28251691f0c7680.tar.gz tk-a96a4263f85fa276c74672a7e28251691f0c7680.tar.bz2 | |
Working towards adding all the Tcl_SetErrorCode calls that should be there.
** WORK IN PROGRESS **
Diffstat (limited to 'win/tkWinDialog.c')
| -rw-r--r-- | win/tkWinDialog.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/win/tkWinDialog.c b/win/tkWinDialog.c index 4d60105..b0c7f4d 100644 --- a/win/tkWinDialog.c +++ b/win/tkWinDialog.c @@ -424,13 +424,11 @@ Tk_ChooseColorObjCmd( /* * User has selected a color */ - char color[100]; - sprintf(color, "#%02x%02x%02x", + Tcl_SetObjResult(interp, Tcl_ObjPrintf("#%02x%02x%02x", GetRValue(chooseColor.rgbResult), GetGValue(chooseColor.rgbResult), - GetBValue(chooseColor.rgbResult)); - Tcl_AppendResult(interp, color, NULL); + GetBValue(chooseColor.rgbResult))); oldColor = chooseColor.rgbResult; result = TCL_OK; } |