diff options
| author | treectrl <treectrl> | 2002-12-28 21:44:30 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2002-12-28 21:44:30 (GMT) |
| commit | f38cd8c8e963b920a3398c62707fc27a0482bf88 (patch) | |
| tree | cffa96baa437f67e21df0c6d6bf6a26d506ed71c /generic/tkTreeDrag.c | |
| parent | f844134830c3d567696ece29d23a9de20bd4fab2 (diff) | |
| download | tktreectrl-f38cd8c8e963b920a3398c62707fc27a0482bf88.zip tktreectrl-f38cd8c8e963b920a3398c62707fc27a0482bf88.tar.gz tktreectrl-f38cd8c8e963b920a3398c62707fc27a0482bf88.tar.bz2 | |
More checks for required number of arguments.
Diffstat (limited to 'generic/tkTreeDrag.c')
| -rw-r--r-- | generic/tkTreeDrag.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/generic/tkTreeDrag.c b/generic/tkTreeDrag.c index f6cc1e9..db905cd 100644 --- a/generic/tkTreeDrag.c +++ b/generic/tkTreeDrag.c @@ -341,6 +341,11 @@ int DragImageCmd(ClientData clientData, Tcl_Interp *interp, int objc, /* T dragimage clear */ case COMMAND_CLEAR: { + if (objc != 3) + { + Tcl_WrongNumArgs(interp, 3, objv, (char *) NULL); + return TCL_ERROR; + } if (dragImage->elem != NULL) { DragElem *elem = dragImage->elem; |