1# This file is a Tcl script to test out various known bugs that will 2# cause Tk to crash. This file ends with .tcl instead of .test to make 3# sure it isn't run when you type "source all". We currently are not 4# shipping this file with the rest of the source release. 5# 6# Copyright (c) 1996 Sun Microsystems, Inc. 7# 8# See the file "license.terms" for information on usage and redistribution 9# of this file, and for a DISCLAIMER OF ALL WARRANTIES. 10# 11# RCS: @(#) $Id$ 12 13if {[info procs test] != "test"} { 14 source defs 15} 16 17test crash-1.0 {imgPhoto} { 18 image create photo p1 19 image create photo p2 20 catch {image create photo p2 -file bogus} 21 p1 copy p2 22 label .l -image p1 23 destroy .l 24 set foo "" 25} {} 26 27test crash-1.1 {color} { 28 . configure -bg rgb:345 29 set foo "" 30} {} 31 32 33 34 35 36 37 38 39 40 41 42 43 44