diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-10-25 21:06:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-10-25 21:06:25 (GMT) |
| commit | 0d5336db012f45753abace489f18f0ca299c6961 (patch) | |
| tree | b1bf3280a9046df99226158978502eeb26f5b0a3 /generic/tkTest.c | |
| parent | e97381a6d921de403516d5b761539a450f4af83c (diff) | |
| parent | 1320b8a2a9c1269a345d44d673a7a35707fbbe9c (diff) | |
| download | tk-core-tip-626.zip tk-core-tip-626.tar.gz tk-core-tip-626.tar.bz2 | |
Merge 9.0core-tip-626
Diffstat (limited to 'generic/tkTest.c')
| -rw-r--r-- | generic/tkTest.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/generic/tkTest.c b/generic/tkTest.c index a0c68b1..518bd10 100644 --- a/generic/tkTest.c +++ b/generic/tkTest.c @@ -248,8 +248,8 @@ Tktest_Init( Tcl_CreateObjCommand2(interp, "testtext", TkpTesttextCmd, Tk_MainWindow(interp), NULL); Tcl_CreateObjCommand2(interp, "testphotostringmatch", - TestPhotoStringMatchCmd, Tk_MainWindow(interp), - NULL); + TestPhotoStringMatchCmd, Tk_MainWindow(interp), + NULL); #if defined(_WIN32) Tcl_CreateObjCommand2(interp, "testmetrics", TestmetricsObjCmd, @@ -1554,7 +1554,7 @@ ImageDisplay( } else { /* - * Drawing is not possible on the first call to DisplayImage. + * Drawing is not possible on the first call to DisplayImage. * Save the message, but do not log it until the actual display. */ @@ -2130,16 +2130,16 @@ TestPhotoStringMatchCmd( int width, height; if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "imageData"); - return TCL_ERROR; + Tcl_WrongNumArgs(interp, 1, objv, "imageData"); + return TCL_ERROR; } if (TkDebugPhotoStringMatchDef(interp, objv[1], dummy, &width, &height)) { - resultObj[0] = Tcl_NewWideIntObj(width); - resultObj[1] = Tcl_NewWideIntObj(height); - Tcl_SetObjResult(interp, Tcl_NewListObj(2, resultObj)); - return TCL_OK; + resultObj[0] = Tcl_NewWideIntObj(width); + resultObj[1] = Tcl_NewWideIntObj(height); + Tcl_SetObjResult(interp, Tcl_NewListObj(2, resultObj)); + return TCL_OK; } else { - return TCL_ERROR; + return TCL_ERROR; } } |
