diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-01 20:30:35 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-01 20:30:35 (GMT) |
commit | d52dd6d1f39463186ea3f591128b7335f73e9615 (patch) | |
tree | 0e4a7f6e82b13f2ac33f5b45e47a513e95c77c9c /generic/ttk | |
parent | 1c045c9af99ef4e4a27f4391091dfde1b39d07b5 (diff) | |
parent | 280afa1e07cb7f084bfd041f2035deb5c5761420 (diff) | |
download | tk-d52dd6d1f39463186ea3f591128b7335f73e9615.zip tk-d52dd6d1f39463186ea3f591128b7335f73e9615.tar.gz tk-d52dd6d1f39463186ea3f591128b7335f73e9615.tar.bz2 |
Use Tcl_NewBooleanObj() where appropriate
Diffstat (limited to 'generic/ttk')
-rw-r--r-- | generic/ttk/ttkEntry.c | 2 | ||||
-rw-r--r-- | generic/ttk/ttkTreeview.c | 4 | ||||
-rw-r--r-- | generic/ttk/ttkWidget.c | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/generic/ttk/ttkEntry.c b/generic/ttk/ttkEntry.c index 25add27..e9afaf1 100644 --- a/generic/ttk/ttkEntry.c +++ b/generic/ttk/ttkEntry.c @@ -1645,7 +1645,7 @@ static int EntrySelectionPresentCommand( return TCL_ERROR; } Tcl_SetObjResult(interp, - Tcl_NewWideIntObj(entryPtr->entry.selectFirst >= 0)); + Tcl_NewBooleanObj(entryPtr->entry.selectFirst >= 0)); return TCL_OK; } diff --git a/generic/ttk/ttkTreeview.c b/generic/ttk/ttkTreeview.c index 5cb34f1..44976ad 100644 --- a/generic/ttk/ttkTreeview.c +++ b/generic/ttk/ttkTreeview.c @@ -2716,7 +2716,7 @@ static int TreeviewExistsCommand( } entryPtr = Tcl_FindHashEntry(&tv->tree.items, Tcl_GetString(objv[2])); - Tcl_SetObjResult(interp, Tcl_NewWideIntObj(entryPtr != 0)); + Tcl_SetObjResult(interp, Tcl_NewBooleanObj(entryPtr != 0)); return TCL_OK; } @@ -4036,7 +4036,7 @@ static int TreeviewTagHasCommand( return TCL_ERROR; } Tcl_SetObjResult(interp, - Tcl_NewWideIntObj(Ttk_TagSetContains(item->tagset, tag))); + Tcl_NewBooleanObj(Ttk_TagSetContains(item->tagset, tag))); return TCL_OK; } else { Tcl_WrongNumArgs(interp, 3, objv, "tagName ?item?"); diff --git a/generic/ttk/ttkWidget.c b/generic/ttk/ttkWidget.c index 9339aa9..f556edf 100644 --- a/generic/ttk/ttkWidget.c +++ b/generic/ttk/ttkWidget.c @@ -734,7 +734,7 @@ int TtkWidgetInstateCommand( if (objc == 3) { Tcl_SetObjResult(interp, - Tcl_NewWideIntObj(Ttk_StateMatches(state,&spec))); + Tcl_NewBooleanObj(Ttk_StateMatches(state,&spec))); } else if (objc == 4) { if (Ttk_StateMatches(state,&spec)) { status = Tcl_EvalObjEx(interp, objv[3], 0); |