diff options
author | pspjuth <pspjuth@noemail.net> | 2009-09-18 22:34:59 (GMT) |
---|---|---|
committer | pspjuth <pspjuth@noemail.net> | 2009-09-18 22:34:59 (GMT) |
commit | 59cac4b3c46f93f1e6a6bfa9ffb66e064fec062f (patch) | |
tree | 9ddd43380dafb315f6433dbdd5f411d9fa1d7f79 /tests/packgrid.test | |
parent | a0ab2a5726d3f5a4bd62e047e66d070e18585994 (diff) | |
download | tk-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.test | 32 |
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 |