|
2006-06-18
| ||
| 15:45 | • Ticket [931324ffff] Bwidget&TKAqua&Tabs--Mistake betwen tabs status still Open with 1 other change artifact: 8559c01702 user: das | |
|
2004-04-07
| ||
| 21:09 | • New ticket [931324ffff]. artifact: 0fcb07a254 user: germinator2000 | |
| Ticket UUID: | 931324 | |||
| Title: | Bwidget&TKAqua&Tabs--Mistake betwen tabs | |||
| Type: | Bug | Version: | None | |
| Submitter: | germinator2000 | Created on: | 2004-04-07 21:09:23 | |
| Subsystem: | 66. Aqua Window Operations | Assigned To: | das | |
| Priority: | 4 | Severity: | ||
| Status: | Open | Last Modified: | 2006-06-18 15:45:54 | |
| Resolution: | None | Closed By: | ||
| Closed on: | ||||
| Description: |
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---
| |||