Pratt 1.5.6

data/pkgs/tile-0.8.2/tests/sbtest.tcl

@@ -0,0 +1,79 @@
+#
+# side-by-side interactive test of Tk vs. Tile scrollbars.
+#
+
+lappend auto_path .
+
+package require Tk
+package require tile
+
+proc sbstub {sb cmd number {units units}} {
+    # puts [info level 0]
+    sbstub.$cmd $sb $number $units
+}
+proc sbstub.moveto {sb number _} {
+    $sb set $number [expr {$number + 0.5}]
+    # puts "[$sb get]"
+}
+proc sbstub.scroll {sb number units} {
+    if {$units eq "pages"} {
+    	set delta 0.2
+    } else {
+	set delta 0.05
+    }
+    set current [$sb get]
+    set new0 [expr {[lindex $current 0] + $delta*$number}] 
+    set new1 [expr {[lindex $current 1] + $delta*$number}]
+    $sb set $new0 $new1 ;
+    # puts "$current - $new0 $new1 - [$sb get]"
+}
+
+wm geometry . 400x200
+
+pack [scrollbar .hsb -orient horizontal -command [list sbstub .hsb]] \
+    -side top -expand false -fill x
+pack [tscrollbar .thsb -orient horizontal -command [list sbstub .thsb]]  \
+    -side top -expand false -fill x
+pack [scrollbar .vsb -orient vertical -command [list sbstub .vsb]] \
+    -side left -expand false -fill y
+pack [tscrollbar .tvsb -orient vertical -command [list sbstub .tvsb]] \
+    -side left -expand false -fill y
+
+pack [set c [frame .client]] -expand true -fill both
+
+grid \
+	[label $c.li -text "Element:" -anchor w] \
+	[entry $c.i -textvariable ::identified] \
+	-sticky ew
+
+grid \
+	[label $c.lf -text "Fraction:" -anchor w] \
+	[entry $c.f -textvariable ::fraction] \
+	-sticky ew
+
+grid \
+	[label $c.lr -text "Range:" -anchor w] \
+	[entry $c.r -textvariable ::range] \
+	-sticky ew
+
+grid columnconfigure $c 1 -weight 1
+
+bind Test <ButtonPress-1>  { sbdebug %W %x %y }
+bind Test <B1-Motion>      { sbdebug %W %x %y }
+bind Test <B2-Motion>      { sbdebug %W %x %y }
+
+proc sbdebug {W x y} {
+    set ::identified [$W identify $x $y] 
+    set ::fraction [$W fraction $x $y]
+    set ::range [$W get]
+}
+
+foreach w {.vsb .hsb .tvsb .thsb} {
+    bindtags $w [linsert [bindtags $w] 0 Test]
+}
+
+.vsb set 0 0.5
+.hsb set 0 0.5
+.tvsb set 0 0.5
+.thsb set 0 0.5
+

data/pkgs/tile-0.8.2/tests/scrollbar.test

@@ -0,0 +1,77 @@
+#
+# scrollbar.test,v 1.9 2007/11/18 17:09:35 jenglish Exp
+#
+
+package require Tk
+package require tcltest ; namespace import -force tcltest::*
+loadTestedCommands
+
+lappend auto_path .
+package require tile
+
+testConstraint coreScrollbar [expr {[tk windowingsystem] eq "aqua"}]
+
+test scrollbar-swapout-1 "Use core scrollbars on OSX..." -constraints {
+    coreScrollbar
+} -body {
+    ttk::scrollbar .sb -command "yadda"
+    list [winfo class .sb] [.sb cget -command]
+} -result [list Scrollbar yadda] -cleanup { 
+    destroy .sb 
+}
+
+test scrollbar-swapout-2 "... unless -style is specified ..." -constraints {
+    coreScrollbar
+} -body {
+    ttk::style layout Vertical.Custom.TScrollbar \
+    	[ttk::style layout Vertical.TScrollbar] ; # See #1833339
+    ttk::scrollbar .sb -command "yadda" -style Custom.TScrollbar 
+    list [winfo class .sb] [.sb cget -command] [.sb cget -style]
+} -result [list TScrollbar yadda Custom.TScrollbar] -cleanup {
+    destroy .sb
+}
+
+test scrollbar-swapout-3 "... or -class." -constraints {
+    coreScrollbar
+} -body {
+    ttk::scrollbar .sb -command "yadda" -class Custom.TScrollbar 
+    list [winfo class .sb] [.sb cget -command]
+} -result [list Custom.TScrollbar yadda] -cleanup {
+    destroy .sb
+}
+
+
+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
+

data/pkgs/tile-0.8.2/tests/sgtest.tcl

@@ -0,0 +1,52 @@
+#
+# sgtest.tcl,v 1.1 2006/08/05 23:18:30 jenglish Exp
+#
+# Interactive test driver for sizegrip widget.
+#
+
+package require Tk
+package require tile
+
+source [file join [file dirname [info script]] testutils.tcl]
+
+variable setgrid 0
+proc setsetgrid {w} { $w configure -setgrid $::setgrid }
+
+variable wmgeometry
+bind . <Configure> { set ::wmgeometry [wm geometry .] }
+
+set tb [ttk::frame .toolbar]
+pack \
+    [ttk::checkbutton $tb.cb -text "Setgrid?" \
+	-command [list setsetgrid .tt] -variable setgrid] \
+    [ttk::button $tb.tl -text "+50+50" \
+	-command [list wm geometry . +50+50]] \
+    [ttk::button $tb.br -text "-50-50" \
+	-command [list wm geometry . -50-50]] \
+    [ttk::button $tb.cg -text "Reset geometry" \
+    	-command [list wm geometry . {}]] \
+    -side left -anchor w -padx 3 -pady 3
+pack \
+    [ttk::label $tb.geometry -width 20 -textvariable wmgeometry] \
+    -side right
+
+ttk::sizegrip .grip
+ttk::scrollbar .vsb -orient vertical -command [list .tt yview]
+ttk::scrollbar .hsb -orient horizontal -command [list .tt xview]
+text .tt -setgrid $setgrid -wrap none \
+    -xscrollcommand [list .hsb set] -yscrollcommand [list .vsb set] \
+    -highlightthickness 0
+
+.tt insert end [read [set fp [open [info script]]]] ; close $fp
+
+grid .toolbar -row 0 -columnspan 2 -sticky nsew
+grid .tt   -row 1 -column 0 -sticky nsew
+grid .vsb  -row 1 -column 1 -sticky nse
+grid .hsb  -row 2 -column 0 -sticky sew
+grid .grip -row 2 -column 1 -sticky senw ;# -sticky se
+grid columnconfigure . 0 -weight 1
+grid rowconfigure . 1 -weight 1
+
+bind all <KeyPress-Escape> [list destroy .]
+
+#*EOF*

data/pkgs/tile-0.8.2/tests/testutils.tcl

@@ -0,0 +1,20 @@
+#
+# testutils.tcl,v 1.2 2006/11/24 19:42:28 jenglish Exp
+#
+# Miscellaneous utilities for interactive tests.
+#
+
+
+# Global binding: <Alt-KeyPress-t> cycles the current theme.
+#
+variable currentTheme alt
+proc CycleTheme {} {
+    variable currentTheme
+    set themes [tile::availableThemes]
+    set i [expr {([lsearch $themes $currentTheme] + 1) % [llength $themes]}]
+    tile::setTheme [set currentTheme [lindex $themes $i]]
+    puts "Theme: $currentTheme"
+}
+bind all <Alt-KeyPress-t> { CycleTheme }
+
+lappend auto_path /usr/local/lib

data/pkgs/tile-0.8.2/tests/tile.test

@@ -0,0 +1,674 @@
+
+package require Tk
+package require tcltest ; namespace import -force tcltest::*
+loadTestedCommands
+
+lappend auto_path .
+package require tile
+
+proc skip args {}
+proc ok {} { return }
+
+variable widgetClasses {
+    button checkbutton radiobutton menubutton label entry
+    frame labelframe scrollbar
+    notebook progressbar combobox separator
+    panedwindow treeview sizegrip
+    scale
+}
+
+proc bgerror {error} {
+    variable bgerror $error
+    variable bgerrorInfo $::errorInfo
+    variable bgerrorCode $::errorCode
+}
+
+# Self-destruct tests.
+# Do these early, so any memory corruption has a longer time to cause a crash.
+#
+proc selfdestruct {w args} {
+    destroy $w
+}
+test ttk-6.1 "Self-destructing checkbutton" -body {
+    pack [ttk::checkbutton .sd -text "Self-destruction" -variable ::sd]
+    trace variable sd w [list selfdestruct .sd]
+    update
+    .sd invoke
+} -returnCodes 1
+test ttk-6.2 "Checkbutton self-destructed" -body {
+    winfo exists .sd
+} -result 0
+
+test ttk-6.3 "Test package cleanup" -body {
+    interp create foo
+    foo eval { if {[catch {package require Tk}]} { load {} Tk } }
+    foo eval [package ifneeded tile [package provide tile]]
+    foo eval { destroy . }
+    interp delete foo
+}
+
+test ttk-6.4 "Defeat evil intentions" -body {
+    trace variable OUCH r { kill.b }
+    proc kill.b {args} { destroy .b }
+    pack [ttk::checkbutton .b]
+    .b configure -variable OUCH
+    # At this point, .b should be gone.
+    .b invoke
+    list [set OUCH] [winfo exists .b]
+    # Mostly we just care that we haven't crashed the interpreter.
+    #
+} -returnCodes error -match glob -result "*"
+
+test ttk-6.5 "Clean up -textvariable traces" -body {
+    foreach class {ttk::button ttk::checkbutton ttk::radiobutton} {
+	$class .b1 -textvariable V
+	set V "asdf"
+	destroy .b1
+	set V ""
+    }
+}
+
+test ttk-6.6 "Bad color spec in styles" -body {
+    pack [ttk::button .b1 -text Hi!]
+    ttk::style configure TButton -foreground badColor
+    event generate .b1 <Expose>
+    update
+    ttk::style configure TButton -foreground black
+    destroy .b1
+    set ::bgerror
+} -result {unknown color name "badColor"}
+
+test ttk-6.7 "Basic destruction test" -body {
+    foreach widget $widgetClasses {
+	ttk::$widget .w
+	pack .w
+	destroy .w
+    }
+}
+
+test ttk-6.8 "Button command removes itself" -body {
+    ttk::button .b -command ".b configure -command {}; set ::A {it worked}"
+    .b invoke
+    destroy .b
+    set ::A
+} -result {it worked}
+
+test ttk-6.9 "Bad font spec in styles" -setup {
+    ttk::style theme create badfont -settings {
+    	ttk::style configure . -font {Helvetica 12 Bogus}
+    }
+    ttk::style theme use badfont
+} -cleanup {
+    ttk::style theme use default
+} -body {
+    pack [ttk::label .l -text Hi! -font {}]
+
+# SEE ALSO: #1583038 - "-font {}" makes test suite pass
+# but does not fix the underlying problem.
+
+    event generate .l <Expose>
+    update
+    destroy .l
+    set ::bgerror
+} -result {unknown font style "Bogus"}
+
+#
+# Basic tests.
+#
+
+test ttk-1.1 "Create button" -body {
+    pack [ttk::button .t] -expand true -fill both
+    update
+}
+
+test ttk-1.2 "Check style" -body {
+    .t cget -style
+} -result {}
+
+
+test ttk-1.4 "Restore default style" -body {
+    .t cget -style
+} -result ""
+
+proc checkstate {w} {
+    foreach statespec {
+	{!active !disabled}
+	{!active disabled}
+	{active !disabled}
+	{active disabled}
+    	active
+	disabled
+    } {
+    	lappend result [$w instate $statespec]
+    }
+    set result
+}
+
+# NB: this will fail if the top-level window pops up underneath the cursor
+test ttk-2.0 "Check state" -body {
+    checkstate .t
+} -result [list 1 0 0 0 0 0]
+
+test ttk-2.1 "Change state" -body {
+    .t state active
+} -result !active
+
+test ttk-2.2 "Check state again" -body {
+    checkstate .t
+} -result [list 0 0 1 0 1 0]
+
+test ttk-2.3 "Change state again" -body {
+    .t state {!active disabled}
+} -result {active !disabled}
+
+test ttk-2.4 "Check state again" -body {
+    checkstate .t
+} -result [list 0 1 0 0 0 1]
+
+test ttk-2.5 "Change state again" -body {
+    .t state !disabled
+} -result {disabled}
+
+test ttk-2.6 "instate scripts, false" -body {
+    set x 0
+    .t instate disabled { set x 1 }
+    set x
+} -result 0
+
+test ttk-2.7 "instate scripts, true" -body {
+    set x 0
+    .t instate !disabled { set x 1 }
+    set x
+} -result 1
+
+
+# misc. error detection
+test ttk-3.0 "Bad option" -body {
+    ttk::button .bad -badoption foo
+} -returnCodes 1 -result {unknown option "-badoption"} -match glob
+
+test ttk-3.1 "Make sure widget command not created" -body {
+    .bad state disabled
+} -returnCodes 1 -result {invalid command name ".bad"} -match glob
+
+test ttk-3.2 "Propagate errors from variable traces" -body {
+    set A 0
+    trace add variable A write {error "failure" ;# }
+    ttk::checkbutton .cb -variable A
+    .cb invoke
+} -cleanup {
+    unset ::A ; destroy .cb
+} -returnCodes error -result {can't set "A": failure}
+
+test ttk-3.3 "Constructor failure with cursor" -constraints KNOWNBUG -body {
+    # This raises an X error.
+    # See also: test 15.1
+    # Also: ttk::sizegrip .g -style BadStyle
+
+    ttk::button .b -cursor bottom_right_corner -style BadStyle
+
+} -returnCodes 1 -result "Layout BadStyle not found"
+
+# Test resource allocation
+# (@@@ "-font" is a compatibility option now, so tests 4.1-4.3
+# don't really test anything useful at the moment.)
+#
+
+test ttk-4.0 "Setup" -body {
+    catch { destroy .t }
+    pack [ttk::label .t -text "Button 1"]
+    testConstraint fontOption [expr ![catch { set prevFont [.t cget -font] }]]
+    ok
+}
+
+test ttk-4.1 "Change font" -constraints fontOption -body {
+    .t configure -font "Helvetica 18 bold"
+}
+test ttk-4.2 "Check font" -constraints fontOption -body {
+    .t cget -font
+} -result "Helvetica 18 bold"
+
+test ttk-4.3 "Restore font" -constraints fontOption -body {
+    .t configure -font $prevFont
+}
+
+test ttk-4.4 "Bad resource specifications" -body {
+    ttk::style theme settings alt {
+	ttk::style configure TButton -font {Bad font}
+	# @@@ it would be best to raise an error at this point,
+	# @@@ but that's not really feasible in the current framework.
+    }
+    pack [ttk::button .tb1 -text "Ouch"]
+    ttk::style theme use alt
+    update;
+    # As long as we haven't crashed, everything's OK
+    ttk::style theme settings alt {
+    	ttk::style configure TButton -font TkDefaultFont
+    }
+    ttk::style theme use default
+    destroy .tb1
+}
+
+#
+# checkbutton tests
+#
+test ttk-5.1 "Checkbutton check" -body {
+    pack [ttk::checkbutton .cb -text "TCheckbutton" -variable cb]
+}
+test ttk-5.2 "Checkbutton invoke" -body {
+    .cb invoke
+    list [set ::cb] [.cb instate selected]
+} -result [list 1 1]
+test ttk-5.3 "Checkbutton reinvoke" -body {
+    .cb invoke
+    list [set ::cb] [.cb instate selected]
+} -result [list 0 0]
+
+test ttk-5.4 "Checkbutton variable" -body {
+    set result []
+    set ::cb 1
+    lappend result [.cb instate selected]
+    set ::cb 0
+    lappend result [.cb instate selected]
+} -result {1 0}
+
+test ttk-5.5 "Unset checkbutton variable" -body {
+    set result []
+    unset ::cb
+    lappend result [.cb instate alternate] [info exists ::cb]
+    set ::cb 1
+    lappend result [.cb instate alternate] [info exists ::cb]
+} -result {1 0 0 1}
+
+# See #1257319
+test ttk-5.6 "Checkbutton default variable" -body {
+    destroy .cb ; unset -nocomplain {} ; set result [list]
+    ttk::checkbutton .cb -onvalue on -offvalue off
+    lappend result [.cb cget -variable] [info exists .cb] [.cb state]
+    .cb invoke
+    lappend result [info exists .cb] [set .cb] [.cb state]
+    .cb invoke
+    lappend result [info exists .cb] [set .cb] [.cb state]
+} -result [list .cb 0 alternate   1 on selected  1 off {}]
+
+#
+# radiobutton tests
+#
+test ttk-7.1 "Radiobutton check" -body {
+    pack \
+    	[ttk::radiobutton .rb1 -text "One" -variable choice -value 1] \
+	[ttk::radiobutton .rb2 -text "Two" -variable choice -value 2] \
+	[ttk::radiobutton .rb3 -text "Three" -variable choice -value 3] \
+	;
+}
+test ttk-7.2 "Radiobutton invoke" -body {
+    .rb1 invoke
+    set ::choice
+} -result 1
+
+test ttk-7.3 "Radiobutton state" -body {
+    .rb1 instate selected
+} -result 1
+
+test ttk-7.4 "Other radiobutton invoke" -body {
+    .rb2 invoke
+    set ::choice
+} -result 2
+
+test ttk-7.5 "Other radiobutton state" -body {
+    .rb2 instate selected
+} -result 1
+
+test ttk-7.6 "First radiobutton state" -body {
+    .rb1 instate selected
+} -result 0
+
+test ttk-7.7 "Unset radiobutton variable" -body {
+    unset ::choice
+    list [info exists ::choice] [.rb1 instate alternate] [.rb2 instate alternate]
+} -result {0 1 1}
+
+test ttk-7.8 "Reset radiobutton variable" -body {
+    set ::choice 2
+    list [info exists ::choice] [.rb1 instate alternate] [.rb2 instate alternate]
+} -result {1 0 0}
+
+#
+# -compound tests:
+#
+variable iconData \
+{R0lGODlhIAAgAKIAANnZ2YQAAP8AAISEhP///////////////yH5BAEAAAAALAAAAAAgACAA
+AAP/CLoMGLqKoMvtGIqiqxEYCLrcioGiyxwIusyBgaLLLRiBoMsQKLrcjYGgu4Giy+2CAkFX
+A0WX2wXFIOgGii7trkCEohsDCACBoktEKLpKhISiGwAIECiqSKooukiqKKoxgACBooukKiIo
+SKooujGDECi6iqQqsopEV2MQAkV3kXQZRXdjEAJFl5F0FUWXY3ACRZcFSRdFlyVwJlB0WZB0
+UXRZAmcCRZeRdBVFl2NwAkV3kXQZRXdjcAJFV5FURVaR6GoMDgSKLpKqiKAgqaLoxgwOBIoq
+kiqKLpIqimrM4ECg6BIRiq4SIaHoxgyCBoou7a5AhKIbMzgAAIGiy+2CTWJmBhAAAkWX2wXF
+zCDoBooud2PMDIKuRqDocgtGzMwg6O4Eii5z4Kgi6DIMhqLoagQGjiqCLvPgYOgqji6CLrfi
+6DIj6HI7jq4i6DIkADs=}
+
+variable compoundStrings {text image center top bottom left right none}
+
+if {0} {
+    proc now {} { set ::now [clock clicks -milliseconds] }
+    proc tick {} { puts -nonewline stderr "+" ; flush stderr }
+    proc tock {} {
+	set then $::now; set ::now [clock clicks -milliseconds]
+	puts stderr " [expr {$::now - $then}] ms"
+    }
+} else {
+    proc now {} {} ; proc tick {} {} ; proc tock {} {}
+}
+
+now ; tick
+test ttk-8.0 "Setup for 8.X" -body {
+    ttk::button .ctb
+    image create photo icon -data $::iconData;
+    pack .ctb
+}
+tock
+
+now
+test ttk-8.1 "Test -compound options" -body {
+    # Exhaustively test each combination.
+    # Main goal is to make sure no code paths crash.
+    foreach image {icon ""} {
+        foreach text {"Hi!" ""} {
+	    foreach compound $::compoundStrings {
+		.ctb configure -image $image -text $text -compound $compound
+		update; tick
+	    }
+	}
+    }
+}
+tock
+
+test ttk-8.2 "Test -compound options with regular button" -body {
+    button .rtb
+    pack .rtb
+
+    foreach image {"" icon} {
+        foreach text {"Hi!" ""} {
+	    foreach compound [lrange $::compoundStrings 2 end] {
+		.rtb configure -image $image -text $text -compound $compound
+		update; tick
+	    }
+	}
+    }
+}
+tock
+
+test ttk-8.3 "Rerun test 8.1" -body {
+    foreach image {icon ""} {
+        foreach text {"Hi!" ""} {
+	    foreach compound $::compoundStrings {
+		.ctb configure -image $image -text $text -compound $compound
+		update; tick
+	    }
+	}
+    }
+}
+tock
+
+test ttk-8.4 "ImageChanged" -body {
+    ttk::button .b -image icon
+    icon blank
+} -cleanup { destroy .b }
+
+#------------------------------------------------------------------------
+
+test ttk-9.1 "Traces on nonexistant namespaces" -body {
+    ttk::checkbutton .tcb -variable foo::bar
+} -returnCodes 1 -result "*parent namespace doesn't exist*" -match glob
+
+test ttk-9.2 "Traces on nonexistant namespaces II" -body {
+    ttk::checkbutton .tcb -variable X
+    .tcb configure -variable foo::bar
+} -returnCodes 1 -result "*parent namespace doesn't exist*" -match glob
+
+test ttk-9.3 "Restore saved options on configure error" -body {
+    .tcb cget -variable
+} -result X
+
+test ttk-9.4 "Textvariable tests" -body {
+    set tcbLabel "Testing..."
+    .tcb configure -textvariable tcbLabel
+    .tcb cget -text
+} -result "Testing..."
+
+# Changing -text has no effect if there is a linked -textvariable.
+# Compatible with core widget.
+test ttk-9.5 "Change -text" -body {
+    .tcb configure -text "Changed -text"
+    .tcb cget -text
+} -result "Testing..."
+
+# Unset -textvariable clears the text.
+# NOTE: this is different from core widgets, which automagically reinitalize
+# the -textvariable to the last value of -text.
+#
+test ttk-9.6 "Unset -textvariable" -body {
+    unset tcbLabel
+    list [info exists tcbLabel] [.tcb cget -text]
+} -result [list 0 ""]
+
+test ttk-9.7 "Unset textvariable, comparison" -body {
+#
+# NB: the tile label behaves differently from the standard label here;
+# NB: this is on purpose: I believe the standard behaviour is the Wrong Thing
+#
+    unset -nocomplain V1  V2
+    label .l -text Foo ; ttk::label .tl -text Foo
+
+    .l configure -textvariable V1 ; .tl configure -textvariable V2
+    list [set V1] [info exists V2]
+} -cleanup { destroy .l .tl } -result [list Foo 0]
+
+test ttk-9.8 "-textvariable overrides -text" -body {
+    ttk::label .tl -textvariable TV
+    set TV Foo
+    .tl configure -text Bar
+    .tl cget -text
+} -cleanup { destroy .tl } -result "Foo"
+
+#
+# Frame widget tests:
+#
+
+test ttk-10.1 "ttk::frame -class resource" -body {
+    ttk::frame .f -class Foo
+} -result .f
+
+test ttk-10.2 "Check widget class" -body {
+    winfo class .f
+} -result Foo
+
+test ttk-10.3 "Check class resource" -body {
+    .f cget -class
+} -result Foo
+
+test ttk-10.4 "Try to modify class resource" -body {
+    .f configure -class Bar
+} -returnCodes 1 -match glob -result "*read-only option*"
+
+test ttk-10.5 "Check class resource again" -body {
+    .f cget -class
+} -result Foo
+
+test ttk-11.1 "-state test, setup" -body {
+    ttk::button .b
+    .b instate disabled
+} -result 0
+
+test ttk-11.2 "-state test, disable" -body {
+    .b configure -state disabled
+    .b instate disabled
+} -result 1
+
+test ttk-11.3 "-state test, reenable" -body {
+    .b configure -state normal
+    .b instate disabled
+} -result 0
+
+test ttk-11.4 "-state test, unrecognized -state value" -body {
+    .b configure -state bogus
+    .b state
+} -result [list]
+
+test ttk-11.5 "-state test, 'active'" -body {
+    .b configure -state active
+    .b state
+} -result [list active] -cleanup  { .b state !active }
+
+test ttk-11.6 "-state test, 'readonly'" -body {
+    .b configure -state readonly
+    .b state
+} -result [list readonly] -cleanup { .b state !readonly }
+
+test ttk-11.7 "-state test, cleanup" -body {
+    destroy .b
+}
+
+test ttk-12.1 "-cursor option" -body {
+    ttk::button .b
+    .b cget -cursor
+} -result {}
+
+test ttk-12.2 "-cursor option" -body {
+    .b configure -cursor arrow
+    .b cget -cursor
+} -result arrow
+
+test ttk-12.3 "-borderwidth frame option" -body {
+    destroy .t
+    toplevel .t
+    raise .t
+    pack [set t [ttk::frame .t.f]] -expand true -fill x ;
+    pack [ttk::label $t.l -text "ASDF QWERTY"] -expand true -fill both
+    foreach theme {default alt} {
+	ttk::style theme use $theme
+	foreach relief {flat raised sunken ridge groove solid} {
+	    $t configure -relief $relief
+	    for {set i 5} {$i >= 0} {incr i -1} {
+		$t configure -borderwidth $i
+		update
+	    }
+	}
+    }
+}
+
+test ttk-12.4 "-borderwidth frame option" -body {
+    .t.f configure -relief raised
+    .t.f configure -borderwidth 1
+    ttk::style theme use alt
+    update
+}
+
+
+test ttk-13.1 "Custom styles -- bad -style option" -body {
+    ttk::button .tb1 -style badstyle
+} -returnCodes 1 -result "*badstyle not found*" -match glob
+
+test ttk-13.4 "Custom styles -- bad -style option" -body {
+    ttk::button .tb1
+    .tb1 configure -style badstyle
+} -cleanup {
+    destroy .tb1
+} -returnCodes 1 -result "*badstyle not found*" -match glob
+
+test ttk-13.5 "Custom layouts -- missing element definition" -body {
+    ttk::style layout badstyle {
+    	NoSuchElement
+    }
+    ttk::button .tb1 -style badstyle
+} -cleanup {
+    destroy .tb1
+} -result .tb1
+# @@@ Should: signal an error, possibly a background error.
+
+#
+# See #793909
+#
+
+test ttk-14.1 "-variable in nonexistant namespace" -body {
+    ttk::checkbutton .tw -variable ::nsn::foo
+} -returnCodes 1 -result {can't trace *: parent namespace doesn't exist} \
+  -match glob -cleanup { destroy .tw }
+
+test ttk-14.2 "-textvariable in nonexistant namespace" -body {
+    ttk::label .tw -textvariable ::nsn::foo
+} -returnCodes 1 -result {can't trace *: parent namespace doesn't exist} \
+  -match glob -cleanup { destroy .tw }
+
+test ttk-14.3 "-textvariable in nonexistant namespace" -body {
+    ttk::entry .tw -textvariable ::nsn::foo
+} -returnCodes 1 -result {can't trace *: parent namespace doesn't exist} \
+  -match glob -cleanup { destroy .tw }
+
+test ttk-15.1 "style element create: insufficient args" -body {
+     ttk::style element create
+} -returnCodes 1 -result "wrong # args: should be \"ttk::style element create name type ?options...?\""
+test ttk-15.2 "style element create: insufficient args" -body {
+     ttk::style element create plain.background
+} -returnCodes 1 -result "wrong # args: should be \"ttk::style element create name type ?options...?\""
+test ttk-15.3 "style element create: insufficient args" -body {
+     ttk::style element create plain.background from
+} -returnCodes 1 -result "wrong # args: should be \"theme ?element?\""
+test ttk-15.4 "style element create: valid" -body {
+     ttk::style element create plain.background from default
+} -returnCodes 0 -result ""
+
+# GetLayout tests:
+test ttk-getlayout-1 "GetLayout - setup" -body {
+    set theme1 alt
+    set theme2 clam
+    ttk::style theme settings $theme2 {
+    	ttk::style layout BadLayout { background }
+    }
+    ttk::setTheme $theme1
+    return
+}
+
+foreach wc $widgetClasses {
+
+if {$wc eq "sizegrip"} { continue } ;# see
+
+test ttk-getlayout-2-$wc "GetLayout - bad layout, widget constructor" -body {
+    ttk::$wc .g -style BadLayout
+} -returnCodes error -match regexp -result \
+    "Layout (Vertical.|Horizontal.)?BadLayout not found"
+
+# See #1603506
+test ttk-getlayout-2a-$wc "GetLayout - update after failure" -body { update }
+
+test ttk-getlayout-3-$wc "GetLayout - bad layout, widget configure" -body {
+    pack [ttk::$wc .g]
+    .g configure -style BadLayout
+} -returnCodes error -match regexp -result \
+    "Layout (Vertical.|Horizontal.)?BadLayout not found"
+
+# See #1603506
+test ttk-getlayout-3a-$wc "GetLayout - update after failure" -body { update }
+
+test ttk-getlayout-4-$wc "GetLayout - bad layout, put the rug down" -body {
+    ttk::setTheme $theme2
+    .g configure -style BadLayout
+    .g cget -style
+} -result BadLayout
+
+test ttk-getlayout-5-$wc "GetLayout - bad layout, yank the rug out" -body {
+    ttk::setTheme $theme1
+    pack .g
+    update
+    .g cget -style
+} -result BadLayout
+
+test ttk-getlayout-6-$wc "GetLayout - cleanup" -body {
+    destroy .g
+}
+
+} ;# foreach wc $widgetClasses ...
+
+eval destroy [winfo children .]
+tcltest::cleanupTests
+
+#*EOF*