summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--generic/tkImgPhoto.c29
-rw-r--r--tests/imgPhoto.test52
2 files changed, 23 insertions, 58 deletions
diff --git a/generic/tkImgPhoto.c b/generic/tkImgPhoto.c
index 3351cbb..bcf69a0 100644
--- a/generic/tkImgPhoto.c
+++ b/generic/tkImgPhoto.c
@@ -50,7 +50,6 @@ struct SubcommandOptions {
*
* OPT_ALPHA: Set if -alpha option allowed/specified.
* OPT_BACKGROUND: Set if -format option allowed/specified.
- * OPT_BOOLEAN: Set if -boolean option allowed/specified.
* OPT_COMPOSITE: Set if -compositingrule option allowed/spec'd.
* OPT_FORMAT: Set if -format option allowed/specified.
* OPT_FROM: Set if -from option allowed/specified.
@@ -64,16 +63,15 @@ struct SubcommandOptions {
#define OPT_ALPHA 1
#define OPT_BACKGROUND 2
-#define OPT_BOOLEAN 4
-#define OPT_COMPOSITE 8
-#define OPT_FORMAT 0x10
-#define OPT_FROM 0x20
-#define OPT_GRAYSCALE 0x40
-#define OPT_SHRINK 0x80
-#define OPT_SUBSAMPLE 0x100
-#define OPT_TO 0x200
-#define OPT_WITHALPHA 0x400
-#define OPT_ZOOM 0x800
+#define OPT_COMPOSITE 4
+#define OPT_FORMAT 8
+#define OPT_FROM 0x10
+#define OPT_GRAYSCALE 0x20
+#define OPT_SHRINK 0x40
+#define OPT_SUBSAMPLE 0x80
+#define OPT_TO 0x100
+#define OPT_WITHALPHA 0x200
+#define OPT_ZOOM 0x400
/*
* List of option names. The order here must match the order of declarations
@@ -83,7 +81,6 @@ struct SubcommandOptions {
static const char *const optionNames[] = {
"-alpha",
"-background",
- "-boolean",
"-compositingrule",
"-format",
"-from",
@@ -1098,12 +1095,12 @@ ImgPhotoCmd(
index = 4;
memset(&options, 0, sizeof(options));
if (ParseSubcommandOptions(&options, interp,
- OPT_ALPHA | OPT_BOOLEAN, &index, objc, objv) != TCL_OK) {
+ OPT_ALPHA, &index, objc, objv) != TCL_OK) {
return TCL_ERROR;
}
if (index < objc) {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
- "unknown option \"%s\": must be -alpha, or -boolean",
+ "unknown option \"%s\": must be -alpha",
Tcl_GetString(objv[index])));
Tcl_SetErrorCode(interp, "TK", "IMAGE", "PHOTO", "BAD_OPTION",
NULL);
@@ -1157,12 +1154,12 @@ ImgPhotoCmd(
index = 5;
memset(&options, 0, sizeof(options));
if (ParseSubcommandOptions(&options, interp,
- OPT_ALPHA | OPT_BOOLEAN, &index, objc, objv) != TCL_OK) {
+ OPT_ALPHA, &index, objc, objv) != TCL_OK) {
return TCL_ERROR;
}
if (index < objc) {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
- "unknown option \"%s\": must be -alpha, or -boolean",
+ "unknown option \"%s\": must be -alpha",
Tcl_GetString(objv[index])));
Tcl_SetErrorCode(interp, "TK", "IMAGE", "PHOTO", "BAD_OPTION",
NULL);
diff --git a/tests/imgPhoto.test b/tests/imgPhoto.test
index d1692a8..0b8f95b 100644
--- a/tests/imgPhoto.test
+++ b/tests/imgPhoto.test
@@ -188,15 +188,7 @@ test imgPhoto-1.12 {option -alpha, normal use} -setup {
} -cleanup {
imageCleanup
} -result {255}
-test imgPhoto-1.13 {option -boolean, normal use} -setup {
- image create photo photo1
-} -body {
- photo1 put "green" -to 0 0
- photo1 transparency set 0 0 1 -boolean
-} -cleanup {
- imageCleanup
-} -result {}
-test imgPhoto-1.14 {option -withalpha, normal use} -setup {
+test imgPhoto-1.13 {option -withalpha, normal use} -setup {
image create photo photo1
} -body {
photo1 put {{blue green}}
@@ -672,7 +664,7 @@ test imgPhoto-4.42 {ImgPhotoCmd procedure: transparency get option} -setup {
test imgPhoto-4.43 {ImgPhotoCmd procedure: transparency get option} -setup {
image create photo photo1
} -body {
- photo1 transparency get 0 0 0 -boolean
+ photo1 transparency get 0 0 0 -alpha
} -returnCodes error -cleanup {
image delete photo1
} -result {wrong # args: should be "photo1 transparency get x y ?-option?"}
@@ -763,7 +755,7 @@ test imgPhoto-4.54 {ImgPhotoCmd procedure: transparency set option} -setup {
test imgPhoto-4.55 {ImgPhotoCmd procedure: transparency set option} -setup {
image create photo photo1
} -body {
- photo1 transparency set 0 0 0 0 -boolean
+ photo1 transparency set 0 0 0 0 -alpha
} -returnCodes error -cleanup {
image delete photo1
} -result \
@@ -965,7 +957,7 @@ test imgPhoto-4.76 {ImgPhotoCmd, transparancy get: too many options} -setup {
image create photo photo1
} -body {
photo1 put white -to 0 0 1 1
- photo1 transparency get 0 0 -alpha -boolean
+ photo1 transparency get 0 0 -alpha -bogus
} -cleanup {
imageCleanup
} -returnCodes error -result \
@@ -978,12 +970,12 @@ test imgPhoto-4.77 {ImgPhotoCmd, transparency get: invalid option} -setup {
} -cleanup {
imageCleanup
} -returnCodes error -result \
- {unrecognized option "-bogus": must be -alpha, or -boolean}
+ {unrecognized option "-bogus": must be -alpha}
test imgPhoto-4.78 {ImgPhotoCmd, transparency get: normal use} -setup {
image create photo photo1
} -body {
photo1 put white -to 0 0 1 1
- set result [photo1 transparency get 0 0 -boolean]
+ set result [photo1 transparency get 0 0]
lappend result [photo1 transparency get 0 0 -alpha]
} -cleanup {
imageCleanup
@@ -1002,21 +994,7 @@ test imgPhoto-4.79 {ImgPhotoCmd, transparency get: no option} -constraints {
} -cleanup {
imageCleanup
} -result {0 1 0 0 0}
-test imgPhoto-4.80 {ImgPhotoCmd, transparency get: -boolean option\
-} -constraints {
- hasTranspTeapotPhoto
-} -setup {
- image create photo photo1 -file $transpTeapotPhotoFile
- set result {}
-} -body {
- set pixelCoords {{156 239} {76 207} {153 213} {139 43} {75 112}}
- foreach coord $pixelCoords {
- lappend result [photo1 transparency get {*}$coord -boolean]
- }
- set result
-} -cleanup {
- imageCleanup
-} -result {0 1 0 0 0}
+# test imgPhoto-4.80: deleted (was transparency get: -boolean)
test imgPhoto-4.81 {ImgPhotoCmd, transparency get: -alpha} -constraints {
hasTranspTeapotPhoto
} -setup {
@@ -1034,7 +1012,7 @@ test imgPhoto-4.81 {ImgPhotoCmd, transparency get: -alpha} -constraints {
test imgPhoto-4.82 {ImgPhotoCmd, transparency set: too many opts} -setup {
image create photo photo1
} -body {
- photo1 transparency set 0 0 -alpha -boolean 1
+ photo1 transparency set 0 0 -alpha -bogus 1
} -cleanup {
imageCleanup
} -returnCodes error -result \
@@ -1046,7 +1024,7 @@ test imgPhoto-4.83 {ImgPhotoCmd, transparency set: invalid opt} -setup {
} -cleanup {
imageCleanup
} -returnCodes error -result \
- {unrecognized option "-bogus": must be -alpha, or -boolean}
+ {unrecognized option "-bogus": must be -alpha}
test imgPhoto-4.84 {ImgPhotoCmd, transparency set: invalid newVal} -setup {
image create photo photo1 -data white
} -body {
@@ -1079,17 +1057,7 @@ test imgPhoto-4.87 {ImgPhotoCmd, transparency set: no opt} -setup {
} -cleanup {
imageCleanup
} -result {255 0}
-test imgPhoto-4.88 {ImgPhotoCmd, transparency set: -boolean} -setup {
- image create photo photo1
-} -body {
- photo1 put white -to 0 0 2 1
- photo1 transparency set 0 0 0 -boolean
- photo1 transparency set 1 0 1 -boolean
- list [photo1 transparency get 0 0 -alpha] \
- [photo1 transparency get 1 0 -alpha]
-} -cleanup {
- imageCleanup
-} -result {255 0}
+# deleted: test imgPhoto-4.88 {ImgPhotoCmd, transparency set: -boolean}
test imgPhoto-4.89 {ImgPhotoCmd, transparency set: -alpha} -setup {
image create photo photo1
} -body {
generated by cgit v0.12 at 2024-10-02 21:44:58 (GMT)