URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [tags/] [start/] [insight/] [tk/] [tests/] [obj.test] - Blame information for rev 1765

Details | Compare with Previous | View Log


# This file is a Tcl script to test new object types in Tk.
# It is organized in the standard fashion for Tcl tests.
#
# Copyright (c) 1997 Sun Microsystems, Inc.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# SCCS: @(#) obj.test 1.2 97/11/17 11:20:18
 
if {[info procs test] != "test"} {
    source defs
}
 
foreach i [winfo children .] {
    destroy $i
}
wm geometry . {}
raise .
 
test obj-1.1 {TkGetPixelsFromObj} {
} {}
 
test obj-2.1 {FreePixelInternalRep} {
} {}
 
test obj-3.1 {DupPixelInternalRep} {
} {}
 
test obj-4.1 {SetPixelFromAny} {
} {}
 
 
 
eval destroy [winfo children .]
 
 

Line No.	Rev	Author	Line
1	578	markom	`# This file is a Tcl script to test new object types in Tk.`
2			`# It is organized in the standard fashion for Tcl tests.`
3			`#`
4			`# Copyright (c) 1997 Sun Microsystems, Inc.`
5			`#`
6			`# See the file "license.terms" for information on usage and redistribution`
7			`# of this file, and for a DISCLAIMER OF ALL WARRANTIES.`
8			`#`
9			`# SCCS: @(#) obj.test 1.2 97/11/17 11:20:18`
10
11			`if {[info procs test] != "test"} {`
12			`source defs`
13			`}`
14
15			`foreach i [winfo children .] {`
16			`destroy $i`
17			`}`
18			`wm geometry . {}`
19			`raise .`
20
21			`test obj-1.1 {TkGetPixelsFromObj} {`
22			`} {}`
23
24			`test obj-2.1 {FreePixelInternalRep} {`
25			`} {}`
26
27			`test obj-3.1 {DupPixelInternalRep} {`
28			`} {}`
29
30			`test obj-4.1 {SetPixelFromAny} {`
31			`} {}`
32
33
34
35			`eval destroy [winfo children .]`
36
37

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [tags/] [start/] [insight/] [tk/] [tests/] [obj.test] - Blame information for rev 1765