diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-01-08 21:02:55 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-01-08 21:02:55 (GMT) |
| commit | dbbb38af9cefef9e9e1a03c97945ee59063aa782 (patch) | |
| tree | deefc089aa3327ebd4daa943b47c0d8f34af6bc7 /tkimg/tests/xpm.test | |
| parent | 54ae0375ebd9242bdf2eeceacee4c5b2de914bc1 (diff) | |
| download | blt-dbbb38af9cefef9e9e1a03c97945ee59063aa782.zip blt-dbbb38af9cefef9e9e1a03c97945ee59063aa782.tar.gz blt-dbbb38af9cefef9e9e1a03c97945ee59063aa782.tar.bz2 | |
update tkimg 1.4.7
Diffstat (limited to 'tkimg/tests/xpm.test')
| -rwxr-xr-x | tkimg/tests/xpm.test | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/tkimg/tests/xpm.test b/tkimg/tests/xpm.test deleted file mode 100755 index 8e8de2b..0000000 --- a/tkimg/tests/xpm.test +++ /dev/null @@ -1,49 +0,0 @@ -# This file is a Tcl script to test out GIF reading and writing.
-# It is organized in the standard fashion for Tcl tests.
-#
-
-if {[string compare test [info procs test]] == 1} {
- source defs
-}
-
-catch {image delete i}
-
-set xpmdata \
-{/* XPM */
-static char * InlineData[] = {
-"16 12 3 1",
-" s None c None",
-". c #000000",
-"# c #f0ff80",
-" .... ",
-" .####. ",
-" .######. ",
-"............. ",
-".###########. ",
-".###########. ",
-".###########. ",
-".###########. ",
-".###########. ",
-".###########. ",
-".###########. ",
-"............. "};}
-
-test xpm-1.1 {} {
- image create photo i -file folder.xpm
- i data -format xpm
-} $xpmdata
-test xpm-1.2 {} {
- catch {image delete i}
- image create photo i -data $xpmdata
- set data [i data -format xpm]
-} $xpmdata
-test xpm-1.3 {} {
- i blank
- i put $data
- set data [i data -format xpm]
-} $xpmdata
-test xpm-1.4 {} {
- i blank
- i put $data -format xpm
- set data [i data -format xpm]
-} $xpmdata
|