TIP #437: Tk panedwindow options for proxy window

1 files changed, 61 insertions, 34 deletions

diff --git a/tests/panedwindow.test b/tests/panedwindow.test
index 4bc59a8..666ed9c 100644
--- a/tests/panedwindow.test
+++ b/tests/panedwindow.test
@@ -98,168 +98,195 @@ test panedwindow-1.17 {configuration options: -orient (good)} -body {
 test panedwindow-1.18 {configuration options: -orient (bad)} -body {
     .p configure -orient badValue
 } -returnCodes error -result {bad orient "badValue": must be horizontal or vertical}
-test panedwindow-1.19 {configuration options: -relief (good)} -body {
+test panedwindow-1.19 {configuration options: -proxybackground (good)} -body {
+    .p configure -proxybackground "#f0a0a0"
+    list [lindex [.p configure -proxybackground] 4] [.p cget -proxybackground]
+} -cleanup {
+    .p configure -proxybackground [lindex [.p configure -proxybackground] 3]
+} -result {{#f0a0a0} #f0a0a0}
+test panedwindow-1.20 {configuration options: -proxybackground (bad)} -body {
+    .p configure -proxybackground badValue
+} -returnCodes error -result {unknown color name "badValue"}
+test panedwindow-1.21 {configuration options: -proxyborderwidth (good)} -body {
+    .p configure -proxyborderwidth 1.3
+    list [lindex [.p configure -proxyborderwidth] 4] [.p cget -proxyborderwidth]
+} -cleanup {
+    .p configure -proxyborderwidth [lindex [.p configure -proxyborderwidth] 3]
+} -result {1.3 1.3}
+test panedwindow-1.22 {configuration options: -proxyborderwidth (bad)} -body {
+    .p configure -proxyborderwidth badValue
+} -returnCodes error -result {bad screen distance "badValue"}
+test panedwindow-1.23 {configuration options: -proxyrelief (good)} -body {
+    .p configure -proxyrelief groove
+    list [lindex [.p configure -proxyrelief] 4] [.p cget -proxyrelief]
+} -cleanup {
+    .p configure -proxyrelief [lindex [.p configure -proxyrelief] 3]
+} -result {groove groove}
+test panedwindow-1.24 {configuration options: -proxyrelief (bad)} -body {
+    .p configure -proxyrelief 1.5
+} -returnCodes error -result {bad relief "1.5": must be flat, groove, raised, ridge, solid, or sunken}
+test panedwindow-1.25 {configuration options: -relief (good)} -body {
     .p configure -relief groove
     list [lindex [.p configure -relief] 4] [.p cget -relief]
 } -cleanup {
     .p configure -relief [lindex [.p configure -relief] 3]
 } -result {groove groove}
-test panedwindow-1.20 {configuration options: -relief (bad)} -body {
+test panedwindow-1.26 {configuration options: -relief (bad)} -body {
     .p configure -relief 1.5
 } -returnCodes error -result {bad relief "1.5": must be flat, groove, raised, ridge, solid, or sunken}
-test panedwindow-1.21 {configuration options: -sashcursor (good)} -body {
+test panedwindow-1.27 {configuration options: -sashcursor (good)} -body {
     .p configure -sashcursor arrow
     list [lindex [.p configure -sashcursor] 4] [.p cget -sashcursor]
 } -cleanup {
     .p configure -sashcursor [lindex [.p configure -sashcursor] 3]
 } -result {arrow arrow}
-test panedwindow-1.22 {configuration options: -sashcursor (bad)} -body {
+test panedwindow-1.28 {configuration options: -sashcursor (bad)} -body {
     .p configure -sashcursor badValue
 } -returnCodes error -result {bad cursor spec "badValue"}
-test panedwindow-1.23 {configuration options: -sashpad (good)} -body {
+test panedwindow-1.29 {configuration options: -sashpad (good)} -body {
     .p configure -sashpad 1.3
     list [lindex [.p configure -sashpad] 4] [.p cget -sashpad]
 } -cleanup {
     .p configure -sashpad [lindex [.p configure -sashpad] 3]
 } -result {1 1}
-test panedwindow-1.24 {configuration options: -sashpad (bad)} -body {
+test panedwindow-1.30 {configuration options: -sashpad (bad)} -body {
     .p configure -sashpad badValue
 } -returnCodes error -result {bad screen distance "badValue"}
-test panedwindow-1.25 {configuration options: -sashrelief (good)} -body {
+test panedwindow-1.31 {configuration options: -sashrelief (good)} -body {
     .p configure -sashrelief groove
     list [lindex [.p configure -sashrelief] 4] [.p cget -sashrelief]
 } -cleanup {
     .p configure -sashrelief [lindex [.p configure -sashrelief] 3]
 } -result {groove groove}
-test panedwindow-1.26 {configuration options: -sashrelief (bad)} -body {
+test panedwindow-1.32 {configuration options: -sashrelief (bad)} -body {
     .p configure -sashrelief 1.5
 } -returnCodes error -result {bad relief "1.5": must be flat, groove, raised, ridge, solid, or sunken}
-test panedwindow-1.27 {configuration options: -sashwidth (good)} -body {
+test panedwindow-1.33 {configuration options: -sashwidth (good)} -body {
     .p configure -sashwidth 10
     list [lindex [.p configure -sashwidth] 4] [.p cget -sashwidth]
 } -cleanup {
     .p configure -sashwidth [lindex [.p configure -sashwidth] 3]
 } -result {10 10}
-test panedwindow-1.28 {configuration options: -sashwidth (bad)} -body {
+test panedwindow-1.34 {configuration options: -sashwidth (bad)} -body {
     .p configure -sashwidth badValue
 } -returnCodes error -result {bad screen distance "badValue"}
-test panedwindow-1.29 {configuration options: -showhandle (good)} -body {
+test panedwindow-1.35 {configuration options: -showhandle (good)} -body {
     .p configure -showhandle true
     list [lindex [.p configure -showhandle] 4] [.p cget -showhandle]
 } -cleanup {
     .p configure -showhandle [lindex [.p configure -showhandle] 3]
 } -result {1 1}
-test panedwindow-1.30 {configuration options: -showhandle (bad)} -body {
+test panedwindow-1.36 {configuration options: -showhandle (bad)} -body {
     .p configure -showhandle foo
 } -returnCodes error -result {expected boolean value but got "foo"}
-test panedwindow-1.31 {configuration options: -width (good)} -body {
+test panedwindow-1.37 {configuration options: -width (good)} -body {
     .p configure -width 402
     list [lindex [.p configure -width] 4] [.p cget -width]
 } -cleanup {
     .p configure -width [lindex [.p configure -width] 3]
 } -result {402 402}
-test panedwindow-1.32 {configuration options: -width (bad)} -body {
+test panedwindow-1.38 {configuration options: -width (bad)} -body {
     .p configure -width badValue
 } -returnCodes error -result {bad screen distance "badValue"}
 
-test panedwindow-1.33 {configuration options: -after (good)} -body {
+test panedwindow-1.39 {configuration options: -after (good)} -body {
     .p paneconfigure .b -after .c
     list [lindex [.p paneconfigure .b -after] 4] \
         [.p panecget .b -after]
 } -cleanup {
     .p paneconfig .b -after [lindex [.p paneconfig .b -after] 3]
 } -result {.c .c}
-test panedwindow-1.34 {configuration options: -after (bad)} -body {
+test panedwindow-1.40 {configuration options: -after (bad)} -body {
     .p paneconfigure .b -after badValue
 } -returnCodes error -result {bad window path name "badValue"}
-test panedwindow-1.35 {configuration options: -before (good)} -body {
+test panedwindow-1.41 {configuration options: -before (good)} -body {
     .p paneconfigure .b -before .c
     list [lindex [.p paneconfigure .b -before] 4] \
         [.p panecget .b -before]
 } -cleanup {
     .p paneconfig .b -before [lindex [.p paneconfig .b -before] 3]
 } -result {.c .c}
-test panedwindow-1.36 {configuration options: -before (bad)} -body {
+test panedwindow-1.42 {configuration options: -before (bad)} -body {
     .p paneconfigure .b -before badValue
 } -returnCodes error -result {bad window path name "badValue"}
-test panedwindow-1.37 {configuration options: -height (good)} -body {
+test panedwindow-1.43 {configuration options: -height (good)} -body {
     .p paneconfigure .b -height 10
     list [lindex [.p paneconfigure .b -height] 4] \
         [.p panecget .b -height]
 } -cleanup {
     .p paneconfig .b -height [lindex [.p paneconfig .b -height] 3]
 } -result {10 10}
-test panedwindow-1.38 {configuration options: -height (bad)} -body {
+test panedwindow-1.44 {configuration options: -height (bad)} -body {
     .p paneconfigure .b -height badValue
 } -returnCodes error -result {bad screen distance "badValue"}
-test panedwindow-1.39 {configuration options: -hide (good)} -body {
+test panedwindow-1.45 {configuration options: -hide (good)} -body {
     .p paneconfigure .b -hide false
     list [lindex [.p paneconfigure .b -hide] 4] \
         [.p panecget .b -hide]
 } -cleanup {
     .p paneconfig .b -hide [lindex [.p paneconfig .b -hide] 3]
 } -result {0 0}
-test panedwindow-1.40 {configuration options: -hide (bad)} -body {
+test panedwindow-1.46 {configuration options: -hide (bad)} -body {
     .p paneconfigure .b -hide foo
 } -returnCodes error -result {expected boolean value but got "foo"}
-test panedwindow-1.41 {configuration options: -minsize (good)} -body {
+test panedwindow-1.47 {configuration options: -minsize (good)} -body {
     .p paneconfigure .b -minsize 10
     list [lindex [.p paneconfigure .b -minsize] 4] \
         [.p panecget .b -minsize]
 } -cleanup {
     .p paneconfig .b -minsize [lindex [.p paneconfig .b -minsize] 3]
 } -result {10 10}
-test panedwindow-1.42 {configuration options: -minsize (bad)} -body {
+test panedwindow-1.48 {configuration options: -minsize (bad)} -body {
     .p paneconfigure .b -minsize badValue
 } -returnCodes error -result {bad screen distance "badValue"}
-test panedwindow-1.43 {configuration options: -padx (good)} -body {
+test panedwindow-1.49 {configuration options: -padx (good)} -body {
     .p paneconfigure .b -padx 1.3
     list [lindex [.p paneconfigure .b -padx] 4] \
         [.p panecget .b -padx]
 } -cleanup {
     .p paneconfig .b -padx [lindex [.p paneconfig .b -padx] 3]
 } -result {1 1}
-test panedwindow-1.44 {configuration options: -padx (bad)} -body {
+test panedwindow-1.50 {configuration options: -padx (bad)} -body {
     .p paneconfigure .b -padx badValue
 } -returnCodes error -result {bad screen distance "badValue"}
-test panedwindow-1.45 {configuration options: -pady (good)} -body {
+test panedwindow-1.51 {configuration options: -pady (good)} -body {
     .p paneconfigure .b -pady 1.3
     list [lindex [.p paneconfigure .b -pady] 4] \
         [.p panecget .b -pady]
 } -cleanup {
     .p paneconfig .b -pady [lindex [.p paneconfig .b -pady] 3]
 } -result {1 1}
-test panedwindow-1.46 {configuration options: -pady (bad)} -body {
+test panedwindow-1.52 {configuration options: -pady (bad)} -body {
     .p paneconfigure .b -pady badValue
 } -returnCodes error -result {bad screen distance "badValue"}
-test panedwindow-1.47 {configuration options: -sticky (good)} -body {
+test panedwindow-1.53 {configuration options: -sticky (good)} -body {
     .p paneconfigure .b -sticky nsew
     list [lindex [.p paneconfigure .b -sticky] 4] \
         [.p panecget .b -sticky]
 } -cleanup {
     .p paneconfig .b -sticky [lindex [.p paneconfig .b -sticky] 3]
 } -result {nesw nesw}
-test panedwindow-1.48 {configuration options: -sticky (bad)} -body {
+test panedwindow-1.54 {configuration options: -sticky (bad)} -body {
     .p paneconfigure .b -sticky abcd
 } -returnCodes error -result {bad stickyness value "abcd": must be a string containing zero or more of n, e, s, and w}
-test panedwindow-1.49 {configuration options: -stretch (good)} -body {
+test panedwindow-1.55 {configuration options: -stretch (good)} -body {
     .p paneconfigure .b -stretch alw
     list [lindex [.p paneconfigure .b -stretch] 4] \
         [.p panecget .b -stretch]
 } -cleanup {
     .p paneconfig .b -stretch [lindex [.p paneconfig .b -stretch] 3]
 } -result {always always}
-test panedwindow-1.50 {configuration options: -stretch (bad)} -body {
+test panedwindow-1.56 {configuration options: -stretch (bad)} -body {
     .p paneconfigure .b -stretch foo
 } -returnCodes error -result {bad stretch "foo": must be always, first, last, middle, or never}
-test panedwindow-1.51 {configuration options: -width (good)} -body {
+test panedwindow-1.57 {configuration options: -width (good)} -body {
     .p paneconfigure .b -width 10
     list [lindex [.p paneconfigure .b -width] 4] \
         [.p panecget .b -width]
 } -cleanup {
     .p paneconfig .b -width [lindex [.p paneconfig .b -width] 3]
 } -result {10 10}
-test panedwindow-1.52 {configuration options: -width (bad)} -body {
+test panedwindow-1.58 {configuration options: -width (bad)} -body {
     .p paneconfigure .b -width badValue
 } -returnCodes error -result {bad screen distance "badValue"}
 deleteWindows