blob: f91659af61dd319bfed0cc4951c59d1e2a42eedc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
#
# $Id: scrollbar.test,v 1.1 2006/10/31 01:42:27 hobbs Exp $
#
package require Tk 8.5
package require tcltest ; namespace import -force tcltest::*
loadTestedCommands
test scrollbar-1.0 "Setup" -body {
ttk::scrollbar .tsb
} -result .tsb
test scrollbar-1.1 "Set method" -body {
.tsb set 0.2 0.4
.tsb get
} -result [list 0.2 0.4]
test scrollbar-1.2 "Set orientation" -body {
.tsb configure -orient vertical
set w [winfo reqwidth .tsb] ; set h [winfo reqheight .tsb]
expr {$h > $w}
} -result 1
test scrollbar-1.3 "Change orientation" -body {
.tsb configure -orient horizontal
set w [winfo reqwidth .tsb] ; set h [winfo reqheight .tsb]
expr {$h < $w}
} -result 1
#
# Scale tests:
#
test scale-1.0 "Self-destruction" -body {
trace variable v w { destroy .s ;# }
ttk::scale .s -variable v
pack .s ; update
.s set 1 ; update
} -returnCodes 1 -match glob -result "*"
tcltest::cleanupTests
|
