diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-04 15:41:59 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-04 15:41:59 (GMT) |
commit | 42e3af0d0ae489a65f7f3ce98429a394c0926c32 (patch) | |
tree | 0149222f25fa8bd0c3a1cb50b3e71a5419cf6021 /generic/tkTextImage.c | |
parent | 3fa224a2450a99a43c66f5f85951bcadb65430c2 (diff) | |
parent | 2fd9fcf08d73f688888ef8784be0c5493b80d818 (diff) | |
download | tk-tip_415.zip tk-tip_415.tar.gz tk-tip_415.tar.bz2 |
merge trunktip_415
Diffstat (limited to 'generic/tkTextImage.c')
-rw-r--r-- | generic/tkTextImage.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/generic/tkTextImage.c b/generic/tkTextImage.c index 1770cb6..41dd448 100644 --- a/generic/tkTextImage.c +++ b/generic/tkTextImage.c @@ -138,8 +138,8 @@ TkTextImageCmd( Tcl_WrongNumArgs(interp, 2, objv, "option ?arg ...?"); return TCL_ERROR; } - if (Tcl_GetIndexFromObj(interp, objv[2], optionStrings, "option", 0, - &idx) != TCL_OK) { + if (Tcl_GetIndexFromObjStruct(interp, objv[2], optionStrings, + sizeof(char *), "option", 0, &idx) != TCL_OK) { return TCL_ERROR; } switch ((enum opts) idx) { @@ -786,6 +786,10 @@ TkTextImageIndex( Tcl_HashEntry *hPtr; TkTextSegment *eiPtr; + if (textPtr == NULL) { + return 0; + } + hPtr = Tcl_FindHashEntry(&textPtr->sharedTextPtr->imageTable, name); if (hPtr == NULL) { return 0; |