[Tcl-bugs] [ tktoolkit-Bugs-931324 ] Bwidget&TKAqua&Tabs--Mistake betwen tabs

[SourceForge.net <no...@so...>]

Bugs item #931324, was opened at 2004-04-07 17:09
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112997&aid=931324&group_id=12997

Category: 66. Aqua Window Operations
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Jerome Gagnon-Voyer (germinator2000)
Assigned to: Daniel A. Steffen (das)
Summary: Bwidget&TKAqua&Tabs--Mistake betwen tabs

Initial Comment:
Hi!

I have another big problem with TKAqua and Bwidget on Mac OS X.
The problem is with ScrolledFrame, ScrolledWindow and Tabs (I 
don't have this problem without scrolledframe&scrolledwindow).
See my example script.
After showing the tabs, if I switch to another application or another 
window (in the same program), the tabs get mistaken. Items from 
tabs1 go to tabs2, etc.
Sometimes, after a big delay (or after scrolling), the window get 
reloaded and the window is ok.
This is the biggest bug...

Another bug is, at the first time we click on Tab2, the ***Test label 
in tab 2*** start at the left at the window and get center AFTER. 
When we have a tab with like 20 items, we all see them moving!!

**Linux and Windows users don't have theses bugs.

---begin tabstest.tcl---

package require BWidget

proc test_tabs {} {
	NoteBook .nb
	.nb insert 0 tab1 -text "Tab 1"
	.nb insert 1 tab2 -text "Tab 2"
	
	
	set tab [.nb getframe tab1]
	ScrolledWindow $tab.sw
	ScrollableFrame $tab.sw.sf -constrainedwidth 1
	$tab.sw setwidget $tab.sw.sf
	pack $tab.sw -anchor n -side top -expand true -fill both
	set tab [$tab.sw.sf getframe]	
	label $tab.l1 -text "-- Just a test label --"
	pack $tab.l1 -side top
	label $tab.l2 -text "-- Just a test label --"
	pack $tab.l2 -side top
	 checkbutton $tab.l3 -text "Zoum" -variable prueba
 	checkbutton $tab.l4 -text "HOLY HOLY" -variable prueba
 	pack $tab.l3 -side top
 	pack $tab.l4 -side top

	
	set tab [.nb getframe tab2]
	ScrolledWindow $tab.sw
	ScrollableFrame $tab.sw.sf -constrainedwidth 1
	$tab.sw setwidget $tab.sw.sf
	pack $tab.sw -anchor n -side top -expand true -fill both
	set tab [$tab.sw.sf getframe]
	label $tab.l1 -text "***** TEST LABEL IN TAB 2 ****"
	pack $tab.l1 -side top
	label $tab.l2 -text "***** TEST LABEL IN TAB 2 ****"
	pack $tab.l2 -side top
		
	.nb compute_size
	.nb raise tab1
	pack .nb
}

test_tabs

---end tabstest.tcl---




----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112997&aid=931324&group_id=12997