Artifact dfcdef56de3aa5dd7fd399e2cff657420c66c6f70a00f34d6cfeaa5381bf4f64:

• File tests/scrollbar.test — part of check-in [e054da38ad] at 2004-02-08 16:14:33 on branch master — Use <<ThemeChanged>> virtual event to notify widgets of theme change, instead of the [$w configure -style [$w cget -style]] hack. (user: jenglish size: 956)

#
# $Id: scrollbar.test,v 1.5 2004/02/02 16:21:12 jenglish Exp $
#

package require Tk
package require tcltest ; namespace import -force tcltest::*

lappend auto_path .
package require tile

test scrollbar-1.0 "Setup" -body {
    tscrollbar .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 ;# }
    tscale .s -variable v
    pack .s ; update
    .s set 1 ; update
} -returnCodes 1 -match glob -result "*"

tcltest::cleanupTests