ag/cpython-source-deps
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Import Tk 8.6.6 (as of svn r86089)

Browse Source
This commit is contained in:
Zachary Ware
2017-05-22 16:13:37 -05:00
parent d239d63057
commit b1c28856bb
899 changed files with 545127 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

250
tests/packgrid.test Normal file
View File

@@ -0,0 +1,250 @@
# This file is a Tcl script to test out interaction between Tk's "pack" and
# "grid" commands.
# It is organized in the standard fashion for Tcl tests.
#
# Copyright (c) 2008 Peter Spjuth
# All rights reserved.
package require tcltest 2.2
eval tcltest::configure $argv
tcltest::loadTestedCommands
namespace import -force tcltest::*
test packgrid-1.1 {pack and grid in same master} -setup {
grid propagate . true
pack propagate . true
label .p -text PACK
label .g -text GRID
} -body {
# Basic conflict
grid .g
pack .p
} -returnCodes error -cleanup {
destroy .p
destroy .g
} -result {cannot use geometry manager pack inside . which already has slaves managed by grid}
test packgrid-1.2 {pack and grid in same master} -setup {
grid propagate . true
pack propagate . true
label .p -text PACK
label .g -text GRID
} -body {
# Basic conflict
pack .p
grid .g
} -returnCodes error -cleanup {
destroy .p
destroy .g
} -result {cannot use geometry manager grid inside . which already has slaves managed by pack}
test packgrid-1.3 {pack and grid in same master} -setup {
grid propagate . false
pack propagate . true
label .p -text PACK
label .g -text GRID
} -body {
# Ok if one is non-propagating
grid .g
pack .p
} -cleanup {
destroy .p
destroy .g
} -result {}
test packgrid-1.4 {pack and grid in same master} -setup {
grid propagate . false
pack propagate . true
label .p -text PACK
label .g -text GRID
} -body {
# Ok if one is non-propagating
pack .p
grid .g
} -cleanup {
destroy .p
destroy .g
} -result {}
test packgrid-1.5 {pack and grid in same master} -setup {
grid propagate . true
pack propagate . false
label .p -text PACK
label .g -text GRID
} -body {
# Ok if one is non-propagating
grid .g
pack .p
} -cleanup {
destroy .p
destroy .g
} -result {}
test packgrid-1.6 {pack and grid in same master} -setup {
grid propagate . true
pack propagate . false
label .p -text PACK
label .g -text GRID
} -body {
# Ok if one is non-propagating
pack .p
grid .g
} -cleanup {
destroy .p
destroy .g
} -result {}
test packgrid-1.7 {pack and grid in same master} -setup {
grid propagate . true
pack propagate . true
label .p -text PACK
label .g -text GRID
} -body {
# Basic conflict should stop widget from being handled
grid .g
catch { pack .p }
pack slaves .
} -cleanup {
destroy .p
destroy .g
} -result {}
test packgrid-1.8 {pack and grid in same master} -setup {
grid propagate . true
pack propagate . true
label .p -text PACK
label .g -text GRID
} -body {
# Basic conflict should stop widget from being handled
pack .p
catch { grid .g }
grid slaves .
} -cleanup {
destroy .p
destroy .g
} -result {}
test packgrid-2.1 {pack and grid in same master, change propagation} -setup {
grid propagate . false
pack propagate . true
label .p -text PACK
label .g -text GRID
pack .p
grid .g
update
} -body {
grid propagate . true
} -returnCodes error -cleanup {
destroy .p
destroy .g
} -result {cannot use geometry manager grid inside . which already has slaves managed by pack}
test packgrid-2.2 {pack and grid in same master, change propagation} -setup {
grid propagate . true
pack propagate . false
label .p -text PACK
label .g -text GRID
pack .p
grid .g
update
} -body {
pack propagate . true
} -returnCodes error -cleanup {
destroy .p
update
destroy .g
} -result {cannot use geometry manager pack inside . which already has slaves managed by grid}
test packgrid-2.3 {pack and grid in same master, change propagation} -setup {
grid propagate . false
pack propagate . false
label .p -text PACK
label .g -text GRID
pack .p
grid .g
update
} -body {
grid propagate . true
update
pack propagate . true
} -returnCodes error -cleanup {
destroy .p
destroy .g
} -result {cannot use geometry manager pack inside . which already has slaves managed by grid}
test packgrid-2.4 {pack and grid in same master, change propagation} -setup {
grid propagate . false
pack propagate . false
label .p -text PACK
label .g -text GRID
pack .p
grid .g
update
} -body {
pack propagate . true
grid propagate . true
} -returnCodes error -cleanup {
destroy .p
destroy .g
} -result {cannot use geometry manager grid inside . which already has slaves managed by pack}
test packgrid-3.1 {stealing slave} -setup {
grid propagate . true
pack propagate . true
label .p -text PACK
label .g -text GRID
} -body {
# Ok to steal if the other one is emptied
grid .g
pack .g
} -cleanup {
destroy .p
destroy .g
} -result {}
test packgrid-3.2 {stealing slave} -setup {
grid propagate . true
pack propagate . true
label .p -text PACK
label .g -text GRID
} -body {
# Ok to steal if the other one is emptied
pack .g
grid .g
} -cleanup {
destroy .p
destroy .g
} -result {}
test packgrid-3.3 {stealing slave} -setup {
grid propagate . true
pack propagate . true
label .p -text PACK
label .g -text GRID
} -body {
# Not ok to steal if the other one is not emptied
grid .g
grid .p
pack .g
} -returnCodes error -cleanup {
destroy .p
destroy .g
} -result {cannot use geometry manager pack inside . which already has slaves managed by grid}
test packgrid-3.4 {stealing slave} -setup {
grid propagate . true
pack propagate . true
label .p -text PACK
label .g -text GRID
} -body {
# Not ok to steal if the other one is not emptied
pack .g
pack .p
grid .g
} -returnCodes error -cleanup {
destroy .p
destroy .g
} -result {cannot use geometry manager grid inside . which already has slaves managed by pack}
cleanupTests
return