util/src/TclTk/tk8.6.12/tests/oldpack.test

   1 # This file is a Tcl script to test out the old syntax of Tk's
   2 # "pack" command (before release 3.3).  It is organized in the
   3 # standard fashion for Tcl tests.
   4 #
   5 # Copyright (c) 1991-1994 The Regents of the University of California.
   6 # Copyright (c) 1994 Sun Microsystems, Inc.
   7 # Copyright (c) 1998-1999 by Scriptics Corporation.
   8 # All rights reserved.
   9
  10 package require tcltest 2.2
  11 eval tcltest::configure $argv
  12 tcltest::loadTestedCommands
  13 namespace import -force tcltest::test
  14
  15 # First, test a single window packed in various ways in a parent
  16
  17 destroy .pack
  18 frame .pack
  19 place .pack -width 100 -height 100
  20 frame .pack.red -width 10 -height 20
  21 label .pack.red.l -text R -bd 2 -relief raised
  22 place .pack.red.l -relwidth 1.0 -relheight 1.0
  23 frame .pack.green -width 30 -height 40
  24 label .pack.green.l -text G -bd 2 -relief raised
  25 place .pack.green.l -relwidth 1.0 -relheight 1.0
  26 frame .pack.blue -width 40 -height 40
  27 label .pack.blue.l -text B -bd 2 -relief raised
  28 place .pack.blue.l -relwidth 1.0 -relheight 1.0
  29 frame .pack.violet -width 80 -height 20
  30 label .pack.violet.l -text P -bd 2 -relief raised
  31 place .pack.violet.l -relwidth 1.0 -relheight 1.0
  32
  33 test oldpack-1.1 {basic positioning} -body {
  34     pack ap .pack .pack.red top
  35     update
  36     winfo geometry .pack.red
  37 } -result 10x20+45+0
  38 test oldpack-1.2 {basic positioning} -body {
  39     pack append .pack .pack.red bottom
  40     update
  41     winfo geometry .pack.red
  42 } -result 10x20+45+80
  43 test oldpack-1.3 {basic positioning} -body {
  44     pack append .pack .pack.red left
  45     update
  46     winfo geometry .pack.red
  47 } -result 10x20+0+40
  48 test oldpack-1.4 {basic positioning} -body {
  49     pack append .pack .pack.red right
  50     update
  51     winfo geometry .pack.red
  52 } -result 10x20+90+40
  53
  54 # Try adding padding around the window and make sure that the
  55 # window gets a larger frame.
  56
  57 test oldpack-2.1 {padding} -body {
  58     pack append .pack .pack.red {t padx 20}
  59     update
  60     winfo geometry .pack.red
  61 } -result 10x20+45+0
  62 test oldpack-2.2 {padding} -body {
  63     pack append .pack .pack.red {top pady 20}
  64     update
  65     winfo geometry .pack.red
  66 } -result 10x20+45+10
  67 test oldpack-2.3 {padding} -body {
  68     pack append .pack .pack.red {l padx 20}
  69     update
  70     winfo geometry .pack.red
  71 } -result 10x20+10+40
  72 test oldpack-2.4 {padding} -body {
  73     pack append .pack .pack.red {left pady 20}
  74     update
  75     winfo geometry .pack.red
  76 } -result 10x20+0+40
  77
  78 # Position the window at different positions in its frame to
  79 # make sure they all work.  Try two differenet frame locations,
  80 # to make sure that frame offsets are being added in correctly.
  81
  82 test oldpack-3.1 {framing} -body {
  83     pack append .pack .pack.red {b padx 20 pady 30}
  84     update
  85     winfo geometry .pack.red
  86 } -result 10x20+45+65
  87 test oldpack-3.2 {framing} -body {
  88     pack append .pack .pack.red {bottom padx 20 pady 30 fr n}
  89     update
  90     winfo geometry .pack.red
  91 } -result 10x20+45+50
  92 test oldpack-3.3 {framing} -body {
  93     pack append .pack .pack.red {bottom padx 20 pady 30 frame ne}
  94     update
  95     winfo geometry .pack.red
  96 } -result 10x20+90+50
  97 test oldpack-3.4 {framing} -body {
  98     pack append .pack .pack.red {bottom padx 20 pady 30 frame e}
  99     update
 100     winfo geometry .pack.red
 101 } -result 10x20+90+65
 102 test oldpack-3.5 {framing} -body {
 103     pack append .pack .pack.red {bottom padx 20 pady 30 frame se}
 104     update
 105     winfo geometry .pack.red
 106 } -result 10x20+90+80
 107 test oldpack-3.6 {framing} -body {
 108     pack append .pack .pack.red {bottom padx 20 pady 30 frame s}
 109     update
 110     winfo geometry .pack.red
 111 } -result 10x20+45+80
 112 test oldpack-3.7 {framing} -body {
 113     pack append .pack .pack.red {bottom padx 20 pady 30 frame sw}
 114     update
 115     winfo geometry .pack.red
 116 } -result 10x20+0+80
 117 test oldpack-3.8 {framing} -body {
 118     pack append .pack .pack.red {bottom padx 20 pady 30 frame w}
 119     update
 120     winfo geometry .pack.red
 121 } -result 10x20+0+65
 122 test oldpack-3.9 {framing} -body {
 123     pack append .pack .pack.red {bottom padx 20 pady 30 frame nw}
 124     update
 125     winfo geometry .pack.red
 126 } -result 10x20+0+50
 127 test oldpack-3.10 {framing} -body {
 128     pack append .pack .pack.red {bottom padx 20 pady 30 frame c}
 129     update
 130     winfo geometry .pack.red
 131 } -result 10x20+45+65
 132 test oldpack-3.11 {framing} -body {
 133     pack append .pack .pack.red {r padx 20 pady 30}
 134     update
 135     winfo geometry .pack.red
 136 } -result 10x20+80+40
 137 test oldpack-3.12 {framing} -body {
 138     pack append .pack .pack.red {right padx 20 pady 30 frame n}
 139     update
 140     winfo geometry .pack.red
 141 } -result 10x20+80+0
 142 test oldpack-3.13 {framing} -body {
 143     pack append .pack .pack.red {right padx 20 pady 30 frame ne}
 144     update
 145     winfo geometry .pack.red
 146 } -result 10x20+90+0
 147 test oldpack-3.14 {framing} -body {
 148     pack append .pack .pack.red {right padx 20 pady 30 frame e}
 149     update
 150     winfo geometry .pack.red
 151 } -result 10x20+90+40
 152 test oldpack-3.15 {framing} -body {
 153     pack append .pack .pack.red {right padx 20 pady 30 frame se}
 154     update
 155     winfo geometry .pack.red
 156 } -result 10x20+90+80
 157 test oldpack-3.16 {framing} -body {
 158     pack append .pack .pack.red {right padx 20 pady 30 frame s}
 159     update
 160     winfo geometry .pack.red
 161 } -result 10x20+80+80
 162 test oldpack-3.17 {framing} -body {
 163     pack append .pack .pack.red {right padx 20 pady 30 frame sw}
 164     update
 165     winfo geometry .pack.red
 166 } -result 10x20+70+80
 167 test oldpack-3.18 {framing} -body {
 168     pack append .pack .pack.red {right padx 20 pady 30 frame w}
 169     update
 170     winfo geometry .pack.red
 171 } -result 10x20+70+40
 172 test oldpack-3.19 {framing} -body {
 173     pack append .pack .pack.red {right padx 20 pady 30 frame nw}
 174     update
 175     winfo geometry .pack.red
 176 } -result 10x20+70+0
 177 test oldpack-3.20 {framing} -body {
 178     pack append .pack .pack.red {right padx 20 pady 30 frame center}
 179     update
 180     winfo geometry .pack.red
 181 } -result 10x20+80+40
 182
 183 # Try out various filling combinations in a couple of different
 184 # frame locations.
 185
 186 test oldpack-4.1 {filling} -body {
 187     pack append .pack .pack.red {bottom padx 20 pady 30 fillx}
 188     update
 189     winfo geometry .pack.red
 190 } -result 100x20+0+65
 191 test oldpack-4.2 {filling} -body {
 192     pack append .pack .pack.red {bottom padx 20 pady 30 filly}
 193     update
 194     winfo geometry .pack.red
 195 } -result 10x50+45+50
 196 test oldpack-4.3 {filling} -body {
 197     pack append .pack .pack.red {bottom padx 20 pady 30 fill}
 198     update
 199     winfo geometry .pack.red
 200 } -result 100x50+0+50
 201 test oldpack-4.4 {filling} -body {
 202     pack append .pack .pack.red {right padx 20 pady 30 fillx}
 203     update
 204     winfo geometry .pack.red
 205 } -result 30x20+70+40
 206 test oldpack-4.5 {filling} -body {
 207     pack append .pack .pack.red {right padx 20 pady 30 filly}
 208     update
 209     winfo geometry .pack.red
 210 } -result 10x100+80+0
 211 test oldpack-4.6 {filling} -body {
 212     pack append .pack .pack.red {right padx 20 pady 30 fill}
 213     update
 214     winfo geometry .pack.red
 215 } -result 30x100+70+0
 216
 217 # Multiple windows:  make sure that space is properly subtracted
 218 # from the cavity as windows are positioned inwards from all
 219 # different sides.  Also make sure that windows get unmapped if
 220 # there isn't enough space for them.
 221
 222 pack append .pack .pack.red top .pack.green top .pack.blue top \
 223     .pack.violet top
 224 update
 225 test oldpack-5.1 {multiple windows} -body {
 226     winfo geometry .pack.red
 227 } -result 10x20+45+0
 228 test oldpack-5.2 {multiple windows} -body {
 229     winfo geometry .pack.green
 230 } -result 30x40+35+20
 231 test oldpack-5.3 {multiple windows} -body {
 232     winfo geometry .pack.blue
 233 } -result 40x40+30+60
 234 test oldpack-5.4 {multiple windows} -body {
 235     winfo ismapped .pack.violet
 236 } -result 0
 237
 238 pack b .pack.blue .pack.violet top
 239 update
 240 test oldpack-5.5 {multiple windows} -body {
 241     winfo ismapped .pack.violet
 242 } -result 1
 243 test oldpack-5.6 {multiple windows} -body {
 244     winfo geometry .pack.violet
 245 } -result 80x20+10+60
 246 test oldpack-5.7 {multiple windows} -body {
 247     winfo geometry .pack.blue
 248 } -result 40x20+30+80
 249
 250 pack after .pack.blue .pack.red top
 251 update
 252 test oldpack-5.8 {multiple windows} -body {
 253     winfo geometry .pack.green
 254 } -result 30x40+35+0
 255 test oldpack-5.9 {multiple windows} -body {
 256     winfo geometry .pack.violet
 257 } -result 80x20+10+40
 258 test oldpack-5.10 {multiple windows} -body {
 259     winfo geometry .pack.blue
 260 } -result 40x40+30+60
 261 test oldpack-5.11 {multiple windows} -body {
 262     winfo ismapped .pack.red
 263 } -result 0
 264
 265 pack before .pack.green .pack.red right .pack.blue left
 266 update
 267 test oldpack-5.12 {multiple windows} -body {
 268     winfo ismapped .pack.red
 269 } -result 1
 270 test oldpack-5.13 {multiple windows} -body {
 271     winfo geometry .pack.red
 272 } -result 10x20+90+40
 273 test oldpack-5.14 {multiple windows} -body {
 274     winfo geometry .pack.blue
 275 } -result 40x40+0+30
 276 test oldpack-5.15 {multiple windows} -body {
 277     winfo geometry .pack.green
 278 } -result 30x40+50+0
 279 test oldpack-5.16 {multiple windows} -body {
 280     winfo geometry .pack.violet
 281 } -result 50x20+40+40
 282
 283 pack append .pack .pack.violet left .pack.green bottom .pack.red bottom \
 284     .pack.blue bottom
 285 update
 286 test oldpack-5.17 {multiple windows} -body {
 287     winfo geometry .pack.violet
 288 } -result 80x20+0+40
 289 test oldpack-5.18 {multiple windows} -body {
 290     winfo geometry .pack.green
 291 } -result 20x40+80+60
 292 test oldpack-5.19 {multiple windows} -body {
 293     winfo geometry .pack.red
 294 } -result 10x20+85+40
 295 test oldpack-5.20 {multiple windows} -body {
 296     winfo geometry .pack.blue
 297 } -result 20x40+80+0
 298
 299 pack after .pack.blue .pack.blue top .pack.red right .pack.green right \
 300     .pack.violet right
 301 update
 302 test oldpack-5.21 {multiple windows} -body {
 303     winfo geometry .pack.blue
 304 } -result 40x40+30+0
 305 test oldpack-5.22 {multiple windows} -body {
 306     winfo geometry .pack.red
 307 } -result 10x20+90+60
 308 test oldpack-5.23 {multiple windows} -body {
 309     winfo geometry .pack.green
 310 } -result 30x40+60+50
 311 test oldpack-5.24 {multiple windows} -body {
 312     winfo geometry .pack.violet
 313 } -result 60x20+0+60
 314
 315 pack after .pack.blue .pack.red left .pack.green left .pack.violet left
 316 update
 317 test oldpack-5.25 {multiple windows} -body {
 318     winfo geometry .pack.blue
 319 } -result 40x40+30+0
 320 test oldpack-5.26 {multiple windows} -body {
 321     winfo geometry .pack.red
 322 } -result 10x20+0+60
 323 test oldpack-5.27 {multiple windows} -body {
 324     winfo geometry .pack.green
 325 } -result 30x40+10+50
 326 test oldpack-5.28 {multiple windows} -body {
 327     winfo geometry .pack.violet
 328 } -result 60x20+40+60
 329
 330 pack append .pack .pack.violet left .pack.green left .pack.blue left \
 331     .pack.red left
 332 update
 333 test oldpack-5.29 {multiple windows} -body {
 334     winfo geometry .pack.violet
 335 } -result 80x20+0+40
 336 test oldpack-5.30 {multiple windows} -body {
 337     winfo geometry .pack.green
 338 } -result 20x40+80+30
 339 test oldpack-5.31 {multiple windows} -body {
 340     winfo ismapped .pack.blue
 341 } -result 0
 342 test oldpack-5.32 {multiple windows} -body {
 343     winfo ismapped .pack.red
 344 } -result 0
 345
 346
 347 # Test the ability of the packer to propagate geometry information
 348 # to its parent.  Make sure it computes the parent's needs both in
 349 # the direction of packing (width for "left" and "right" windows,
 350 # for example), and perpendicular to the pack direction (height for
 351 # "left" and "right" windows).
 352
 353 pack append .pack .pack.red top .pack.green top .pack.blue top \
 354     .pack.violet top
 355 update
 356 test oldpack-6.1 {geometry propagation} -body {
 357     winfo reqwidth .pack} -result 80
 358 test oldpack-6.2 {geometry propagation} -body {
 359     winfo reqheight .pack} -result 120
 360 destroy .pack.violet
 361 update
 362 test oldpack-6.3 {geometry propagation} -body {
 363     winfo reqwidth .pack} -result 40
 364 test oldpack-6.4 {geometry propagation} -body {
 365     winfo reqheight .pack} -result 100
 366 frame .pack.violet -width 80 -height 20 -bg violet
 367 label .pack.violet.l -text P -bd 2 -relief raised
 368 place .pack.violet.l -relwidth 1.0 -relheight 1.0
 369 pack append .pack .pack.red left .pack.green right .pack.blue bottom \
 370     .pack.violet top
 371 update
 372 test oldpack-6.5 {geometry propagation} -body {
 373     winfo reqwidth .pack} -result 120
 374 test oldpack-6.6 {geometry propagation} -body {
 375     winfo reqheight .pack} -result 60
 376 pack append .pack .pack.violet top .pack.green top .pack.blue left \
 377     .pack.red left
 378 update
 379 test oldpack-6.7 {geometry propagation} -body {
 380     winfo reqwidth .pack} -result 80
 381 test oldpack-6.8 {geometry propagation} -body {
 382     winfo reqheight .pack} -result 100
 383
 384 # Test the "expand" option, and make sure space is evenly divided
 385 # when several windows request expansion.
 386
 387 pack append .pack .pack.violet top .pack.green {left e} \
 388     .pack.blue {left expand} .pack.red {left expand}
 389 update
 390 test oldpack-7.1 {multiple expanded windows} -body {
 391     pack append .pack .pack.violet top .pack.green {left e} \
 392         .pack.blue {left expand} .pack.red {left expand}
 393     update
 394     list [winfo geometry .pack.green] [winfo geometry .pack.blue] \
 395         [winfo geometry .pack.red]
 396 } -result {30x40+3+40 40x40+39+40 10x20+86+50}
 397 test oldpack-7.2 {multiple expanded windows} -body {
 398     pack append .pack .pack.green left .pack.violet {bottom expand} \
 399         .pack.blue {bottom expand} .pack.red {bottom expand}
 400     update
 401     list [winfo geometry .pack.violet] [winfo geometry .pack.blue] \
 402         [winfo geometry .pack.red]
 403 } -result {70x20+30+77 40x40+45+30 10x20+60+3}
 404 test oldpack-7.3 {multiple expanded windows} -body {
 405     foreach i [winfo child .pack] {
 406     pack unpack $i
 407     }
 408     pack append .pack .pack.green {left e fill} .pack.red {left expand fill} \
 409         .pack.blue {top fill}
 410     update
 411     list [winfo geometry .pack.green] [winfo geometry .pack.red] \
 412         [winfo geometry .pack.blue]
 413 } -result {40x100+0+0 20x100+40+0 40x40+60+0}
 414 test oldpack-7.4 {multiple expanded windows} -body {
 415     foreach i [winfo child .pack] {
 416     pack unpack $i
 417     }
 418     pack append .pack .pack.red {top expand} .pack.violet {top expand} \
 419         .pack.blue {right fill}
 420     update
 421     list [winfo geometry .pack.red] [winfo geometry .pack.violet] \
 422         [winfo geometry .pack.blue]
 423 } -result {10x20+45+5 80x20+10+35 40x40+60+60}
 424 test oldpack-7.5 {multiple expanded windows} -body {
 425     foreach i [winfo child .pack] {
 426     pack unpack $i
 427     }
 428     pack append .pack .pack.green {right frame s} .pack.red {top expand}
 429     update
 430     list [winfo geometry .pack.green] [winfo geometry .pack.red]
 431 } -result {30x40+70+60 10x20+30+40}
 432 test oldpack-7.6 {multiple expanded windows} -body {
 433     foreach i [winfo child .pack] {
 434     pack unpack $i
 435     }
 436     pack append .pack .pack.violet {bottom frame e} .pack.red {right expand}
 437     update
 438     list [winfo geometry .pack.violet] [winfo geometry .pack.red]
 439 } -result {80x20+20+80 10x20+45+30}
 440
 441 # Need more bizarre tests with combinations of expanded windows and
 442 # windows in opposing directions!  Also, include padding in expanded
 443 # (and unexpanded) windows.
 444
 445 # Syntax errors on pack commands
 446
 447 test oldpack-8.1 {syntax errors} -body {
 448     pack
 449 } -returnCodes error -result {wrong # args: should be "pack option arg ?arg ...?"}
 450 test oldpack-8.2 {syntax errors} -body {
 451     pack append
 452 } -returnCodes error -result {wrong # args: should be "pack option arg ?arg ...?"}
 453 test oldpack-8.3 {syntax errors} -body {
 454     pack gorp foo
 455 } -returnCodes error -result {bad option "gorp": must be configure, content, forget, info, propagate, or slaves}
 456 test oldpack-8.4 {syntax errors} -body {
 457     pack a .pack
 458 } -returnCodes error -result {bad option "a": must be configure, content, forget, info, propagate, or slaves}
 459 test oldpack-8.5 {syntax errors} -body {
 460     pack after foobar
 461 } -returnCodes error -result {bad window path name "foobar"}
 462 test oldpack-8.6 {syntax errors} -setup {
 463     destroy .pack.yellow
 464 } -body {
 465     frame .pack.yellow -bg yellow
 466     pack after .pack.yellow
 467 } -cleanup {
 468     destroy .pack.yellow
 469 } -returnCodes error -result {window ".pack.yellow" isn't packed}
 470 test oldpack-8.7 {syntax errors} -body {
 471     pack append foobar
 472 } -returnCodes error -result {bad window path name "foobar"}
 473 test oldpack-8.8 {syntax errors} -body {
 474     pack before foobar
 475 } -returnCodes error -result {bad window path name "foobar"}
 476 test oldpack-8.9 {syntax errors} -setup {
 477     destroy .pack.yellow
 478 } -body {
 479     frame .pack.yellow -bg yellow
 480     pack before .pack.yellow
 481 } -cleanup {
 482     destroy .pack.yellow
 483 } -returnCodes error -result {window ".pack.yellow" isn't packed}
 484 test oldpack-8.10 {syntax errors} -body {
 485     pack info .pack help
 486 } -returnCodes error -result {wrong # args: should be "pack info window"}
 487 test oldpack-8.11 {syntax errors} -body {
 488     pack info foobar
 489 } -returnCodes error -result {bad window path name "foobar"}
 490 test oldpack-8.12 {syntax errors} -body {
 491     pack append .pack .pack.blue
 492 } -returnCodes error -result {wrong # args: window ".pack.blue" should be followed by options}
 493 test oldpack-8.13 {syntax errors} -body {
 494     pack append . .pack.blue top
 495 } -returnCodes error -result {can't pack .pack.blue inside .}
 496 test oldpack-8.14 {syntax errors} -body {
 497     pack append .pack .pack.blue f
 498 } -returnCodes error -result {bad option "f": should be top, bottom, left, right, expand, fill, fillx, filly, padx, pady, or frame}
 499 test oldpack-8.15 {syntax errors} -body {
 500     pack append .pack .pack.blue pad
 501 } -returnCodes error -result {bad option "pad": should be top, bottom, left, right, expand, fill, fillx, filly, padx, pady, or frame}
 502 test oldpack-8.16 {syntax errors} -body {
 503     pack append .pack .pack.blue {frame south}
 504 } -returnCodes error -result {bad anchor "south": must be n, ne, e, se, s, sw, w, nw, or center}
 505 test oldpack-8.17 {syntax errors} -body {
 506     pack append .pack .pack.blue {padx -2}
 507 } -returnCodes error -result {bad pad value "-2": must be positive screen distance}
 508 test oldpack-8.18 {syntax errors} -body {
 509     pack append .pack .pack.blue {padx}
 510 } -returnCodes error -result {wrong # args: "padx" option must be followed by screen distance}
 511 test oldpack-8.19 {syntax errors} -body {
 512     pack append .pack .pack.blue {pady -2}
 513 } -returnCodes error -result {bad pad value "-2": must be positive screen distance}
 514 test oldpack-8.20 {syntax errors} -body {
 515     pack append .pack .pack.blue {pady}
 516 } -returnCodes error -result {wrong # args: "pady" option must be followed by screen distance}
 517 test oldpack-8.21 {syntax errors} -body {
 518     pack append .pack .pack.blue "\{abc"
 519 } -returnCodes error -result {unmatched open brace in list}
 520 test oldpack-8.22 {syntax errors} -body {
 521     pack append .pack .pack.blue frame
 522 } -returnCodes error -result {wrong # args: "frame" option must be followed by anchor point}
 523
 524 # Test "pack info" command output.
 525
 526 test oldpack-9.1 {information output} -body {
 527     pack append .pack .pack.blue {top fillx frame n} \
 528     .pack.red {bottom filly frame s} .pack.green {left fill frame w} \
 529     .pack.violet {right expand frame e}
 530     list [pack content .pack] [pack info .pack.blue] [pack info .pack.red] \
 531         [pack info .pack.green] [pack info .pack.violet]
 532 } -result {{.pack.blue .pack.red .pack.green .pack.violet} {-in .pack -anchor n -expand 0 -fill x -ipadx 0 -ipady 0 -padx 0 -pady 0 -side top} {-in .pack -anchor s -expand 0 -fill y -ipadx 0 -ipady 0 -padx 0 -pady 0 -side bottom} {-in .pack -anchor w -expand 0 -fill both -ipadx 0 -ipady 0 -padx 0 -pady 0 -side left} {-in .pack -anchor e -expand 1 -fill none -ipadx 0 -ipady 0 -padx 0 -pady 0 -side right}}
 533 test oldpack-9.2 {information output} -body {
 534     pack append .pack .pack.blue {padx 10 frame nw} \
 535     .pack.red {pady 20 frame ne} .pack.green {frame se} \
 536     .pack.violet {frame sw}
 537     list [pack content .pack] [pack info .pack.blue] [pack info .pack.red] \
 538         [pack info .pack.green] [pack info .pack.violet]
 539 } -result {{.pack.blue .pack.red .pack.green .pack.violet} {-in .pack -anchor nw -expand 0 -fill none -ipadx 0 -ipady 0 -padx 5 -pady 0 -side top} {-in .pack -anchor ne -expand 0 -fill none -ipadx 0 -ipady 0 -padx 0 -pady 10 -side top} {-in .pack -anchor se -expand 0 -fill none -ipadx 0 -ipady 0 -padx 0 -pady 0 -side top} {-in .pack -anchor sw -expand 0 -fill none -ipadx 0 -ipady 0 -padx 0 -pady 0 -side top}}
 540 test oldpack-9.3 {information output} -body {
 541     pack append .pack .pack.blue {frame center} .pack.red {frame center} \
 542     .pack.green {frame c} .pack.violet {frame c}
 543     list [pack content .pack] [pack info .pack.blue] [pack info .pack.red] \
 544         [pack info .pack.green] [pack info .pack.violet]
 545 } -result {{.pack.blue .pack.red .pack.green .pack.violet} {-in .pack -anchor center -expand 0 -fill none -ipadx 0 -ipady 0 -padx 0 -pady 0 -side top} {-in .pack -anchor center -expand 0 -fill none -ipadx 0 -ipady 0 -padx 0 -pady 0 -side top} {-in .pack -anchor center -expand 0 -fill none -ipadx 0 -ipady 0 -padx 0 -pady 0 -side top} {-in .pack -anchor center -expand 0 -fill none -ipadx 0 -ipady 0 -padx 0 -pady 0 -side top}}
 546
 547 destroy .pack
 548
 549 # cleanup
 550 cleanupTests
 551 return
 552