diff options
author | jenglish <jenglish@noemail.net> | 2006-12-09 20:53:34 (GMT) |
---|---|---|
committer | jenglish <jenglish@noemail.net> | 2006-12-09 20:53:34 (GMT) |
commit | 205ba94997a4173230bd23fa84c596cabafce4e8 (patch) | |
tree | 7942f315ad17189194fd68ddf9fbae2a126b28ab /tests/ttk | |
parent | 31614307b6314aad239ec92161bf1af038f736d6 (diff) | |
download | tk-205ba94997a4173230bd23fa84c596cabafce4e8.zip tk-205ba94997a4173230bd23fa84c596cabafce4e8.tar.gz tk-205ba94997a4173230bd23fa84c596cabafce4e8.tar.bz2 |
Merged duplicate functionality between image element factory,
image element, and -image option processing. Image element
factory now takes an imageSpec argument instead of a separate
image name and -map option.
FossilOrigin-Name: e3da608e98ed94e4ae349bfd0e23b71010d0fda5
Diffstat (limited to 'tests/ttk')
-rw-r--r-- | tests/ttk/image.test | 27 |
1 files changed, 2 insertions, 25 deletions
diff --git a/tests/ttk/image.test b/tests/ttk/image.test index b1f66bd..e9c1248 100644 --- a/tests/ttk/image.test +++ b/tests/ttk/image.test @@ -1,37 +1,14 @@ # -# $Id: image.test,v 1.1 2006/10/31 01:42:27 hobbs Exp $ +# $Id: image.test,v 1.2 2006/12/09 20:53:35 jenglish Exp $ # package require Tk 8.5 package require tcltest ; namespace import -force tcltest::* loadTestedCommands -# catch background errors: -# -if {[info procs bgerror] == "bgerror"} { rename bgerror {} } -array set BGerror { caught 0 message {} } -proc bgerror {message} { - variable BGerror - set BGerror(caught) 1 - set BGerror(message) $message -} -proc caughtbgerror {} { - variable BGerror - if {!$BGerror(caught)} { - error "No bgerror caught" - } - set BGerror(caught) 0 - return $BGerror(message) -} - test image-1.1 "Bad image element" -body { ttk::style element create BadImage image badimage - ttk::style layout BadImage { BadImage } - ttk::label .l -style BadImage - pack .l ; update - destroy .l - caughtbgerror -} -result {image "badimage" doesn't exist} +} -returnCodes error -result {image "badimage" doesn't exist} test image-1.2 "Duplicate element" -setup { image create photo test.element -width 10 -height 10 |