summaryrefslogtreecommitdiffstats
path: root/tests/packgrid.test
diff options
context:
space:
mode:
authorpspjuth <pspjuth@noemail.net>2009-09-18 22:34:59 (GMT)
committerpspjuth <pspjuth@noemail.net>2009-09-18 22:34:59 (GMT)
commit59cac4b3c46f93f1e6a6bfa9ffb66e064fec062f (patch)
tree9ddd43380dafb315f6433dbdd5f411d9fa1d7f79 /tests/packgrid.test
parenta0ab2a5726d3f5a4bd62e047e66d070e18585994 (diff)
downloadtk-59cac4b3c46f93f1e6a6bfa9ffb66e064fec062f.zip
tk-59cac4b3c46f93f1e6a6bfa9ffb66e064fec062f.tar.gz
tk-59cac4b3c46f93f1e6a6bfa9ffb66e064fec062f.tar.bz2
Bug fix in grid/pack collision detect.
Faulty slave was not properly blocked from slave list. [Bug 2859912] FossilOrigin-Name: d063f43d92bd3972a22e6eb751e0ebc2cc38b2a9
Diffstat (limited to 'tests/packgrid.test')
-rw-r--r--tests/packgrid.test32
1 files changed, 31 insertions, 1 deletions
diff --git a/tests/packgrid.test b/tests/packgrid.test
index cbbb6f0..66d4e4c 100644
--- a/tests/packgrid.test
+++ b/tests/packgrid.test
@@ -5,7 +5,7 @@
# Copyright (c) 2008 Peter Spjuth
# All rights reserved.
#
-# RCS: @(#) $Id: packgrid.test,v 1.1 2009/08/19 23:02:00 pspjuth Exp $
+# RCS: @(#) $Id: packgrid.test,v 1.2 2009/09/18 22:35:00 pspjuth Exp $
#
package require tcltest 2.2
@@ -97,6 +97,36 @@ test packgrid-1.6 {pack and grid in same master} -setup {
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