Artifact
be29d523e94d8c8fd0e46e0a95038d76d46ad4ea:
Attachment "panes.tcl" to
ticket [564691ffff]
added by
pkienzle
2002-06-05 10:42:27.
#!/bin/sh
# the next line starts using wish \
exec wish "$0" "$@"
package require BWidget
PanedWindow .test -side left
set p1 [.test add]
set p2 [.test add]
ScrolledWindow $p1.textbox
if {0} {
# works no matter where sash is dragged
set text [text $p1.textbox.text ]
} else {
# fails when sash is dragged to top of the "2"
set text [text .text]
}
$p1.textbox setwidget $text
pack $p1.textbox
$text insert 0.0 "1\n2\n3\n4"
button $p2.b -text hello -command { puts "hello" }
pack $p2.b
pack .test -fill both -expand yes