BWidget 1.6: ScrolledWindow fails when widget is destroyed

From: Rolf Schroedter (me_at_privacy.net)
Date: 10/30/03 

Date: Thu, 30 Oct 2003 10:08:37 +0100

I have a problem woith ScrolledWindow with changing widgets.
When any of the widgets is destroyed BWidget 1.6 doesn't display
anything anymore.
BWidget 1.5 was okay in that respect.

Is this a bug or am I missing something ?

Platform is windows, did not test other platforms.

##################### file foo.tcl ########################
catch {console show}

lappend auto_path library
puts [format "BWidget %s" [package require -exact BWidget 1.6]]

set X(Win) [ScrolledWindow .sw -scrollbar both -auto both]
pack $X(Win) -fill both -expand yes

for {set i 0} {$i < 5} {incr i} {
     set txt [text .text$i]
     $txt insert end [format "This is text window %d\nname=%s" $i $txt]
     set X(Text:$i) $txt
}
proc show {i} {
     global X

     catch {$X(Win) setwidget $X(Text:$i)}

     set i [expr {($i+1) % 5}]
     after 1000 [list show $i]
}

after 6000 {destroy $X(Text:2); puts "destroy window 2"}
show 0

---------------------------------------------------------------
Rolf Schroedter, German Aerospace Center

Remove .nospam to reply: mailto:Rolf.Schroedter@dlr.de.nospam