[prev in list] [next in list] [prev in thread] [next in thread]
List: incrtcl-users
Subject: [Incrtcl-users] FW: Iwidgets tabnotebook problem
From: "Berthier, Vivian M" <vivian.berthier () eds ! com>
Date: 2009-04-16 18:01:46
Message-ID: FBB9B137487CE94EB8E98F5F8D742370039A47F1 () usahm206 ! amer ! corp ! eds ! com
[Download RAW message or body]
--===============7371601572558225082==
Content-class: urn:content-classes:message
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C9BEBD.6904D800"
This is a multi-part message in MIME format.
Somebody asked me to submit some code but it's complicated since there
are several classes involved. I will attempt to put some code snippets
below and maybe you can catch what I am doing wrong.
First notebook
iwidgets::panedwindow $base.pw \
-background $::theme(-background)
pack $base.pw -expand yes -fill both
$base.pw add message -margin 0
$base.pw add response -margin 0
set messageframe [$base.pw childsite message]
set responseframe [$base.pw childsite response]
set editorframe $messageframe.input
iwidgets::tabnotebook $editorframe \
-backdrop $::theme(-darkbackground) \
-background $::theme(-background) \
-tabbackground $::theme(-mediumbackground) \
-tabpos n
pack $editorframe -side top -expand yes -fill both
Then a second class is created and it is passed the first notebook such
as:
set thisEditor [::Message::$editor ::#auto $editorframe]
In that class I have a build_display method that builds a panedwindow
and in each pane it builds a notebook:
(f is $editorframe from above)
set cf [$f add -label "Display"]
set inputframe $cf.f
iwidgets::scrolledframe $inputframe \
-background $::theme(-background) \
-highlightthickness 0 \
-hscrollmode dynamic \
-vscrollmode dynamic \
-scrollmargin 0 \
-borderwidth 0
[$inputframe component vertsb] configure -borderwidth 1
[$inputframe component horizsb] configure -borderwidth 1
pack $inputframe -expand yes -fill both
set inputchildsite [$inputframe childsite]
# build paned window for old/new pricing message
set paneframe $inputchildsite
iwidgets::panedwindow $paneframe.pw \
-orient vertical \
-width 1400 \
-height 400 \
-sashindent 100 \
-background blue
pack $paneframe.pw -side top -expand yes -fill both
$paneframe.pw add oldprice -minimum 120 -margin 0
$paneframe.pw add newprice -minimum 120 -margin 0
set oldpriceframe [$paneframe.pw childsite oldprice]
set newpriceframe [$paneframe.pw childsite newprice]
set oldeditorframe $oldpriceframe.openprice
iwidgets::tabnotebook $oldeditorframe \
-backdrop $::theme(-darkbackground) \
-background $::theme(-background) \
-tabbackground $::theme(-mediumbackground) \
-tabpos n
pack $oldeditorframe -side top -expand yes -fill both
set editor "PricingMessage"
set _oldPM [::Message::$editor ::#auto $oldeditorframe "OLDRRI"]
set neweditorframe $newpriceframe.input
# build tabs for new pricing message side (class.tcl does this for the
reissue window as a whole)
iwidgets::tabnotebook $neweditorframe \
-backdrop $::theme(-darkbackground) \
-background $::theme(-background) \
-tabbackground $::theme(-mediumbackground) \
-tabpos n
pack $neweditorframe -side top -expand yes -fill both
set editor "PricingMessage"
set _newPM [::Message::$editor ::#auto $neweditorframe "NEWRRI"]
$paneframe.pw fraction 30 70
So when the application displays, the first notebook displays and within
its first tab, the panedwindow with the first tab of each notebook's
content displayed, but I have to move the sash of the panedwindow to be
able to see all the tabs of the imbeded notebooks. It is like it has to
re-display for me to be able to see all the tabs.
I've tried not having a paned window and just using a frame and putting
only one notebook into it (instead of two) and I still have the same
problem.
I tried putting an update idletasks after all the widgets were packed
but no use.
I'm really stumped. Any suggestions would be appreciated.
Thanks in advance
Vivian M. Berthier
Focused on bringing industry leading Air Services solutions to the
market
EDS Transportation Products
3450 Lakeside Drive
Miramar, Florida 33027
( (954) 433-6552
* mailto:vivian.berthier@eds.com
Vivian M. Berthier
> Focused on bringing industry leading Air Services solutions to the
> market
>
> EDS Transportation Products
> 3450 Lakeside Drive
Miramar, Florida 33027
* (954) 433-6552
* mailto:vivian.berthier@eds.com
> ______________________________________________
> From: Berthier, Vivian M
> Sent: Monday, March 30, 2009 4:59 PM
> To: incrtcl-users@lists.sourceforge.net
> Subject: Iwidgets tabnotebook problem
>
> I have an application where I use an iwidgets tabnotebook with several
> tabs. Inside the first tab, I put another tabnotebook. When the
> application displays the first notebook displays and within it the
> first page of the second notebook, however the tabs of the second
> notebook do not display.
> Seems to be a bug in the notebook widget. I would appreciate any
> suggestions.
> Thanks,
>
> Vivian M. Berthier
>
> Focused on bringing industry leading Air Services solutions to the
> market
>
> EDS Transportation Products
> 3450 Lakeside Drive
> Miramar, Florida 33027
> * (954) 433-6552
> * mailto:vivian.berthier@eds.com
>
>
[Attachment #3 (text/html)]
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<META NAME="Generator" CONTENT="MS Exchange Server version 6.5.7654.12">
<TITLE>FW: Iwidgets tabnotebook problem</TITLE>
</HEAD>
<BODY>
<!-- Converted from text/rtf format -->
<P><FONT SIZE=2 FACE="Courier New">Somebody asked me to submit some code but it's \
complicated since there are several classes involved. I will attempt to put some code \
snippets below and maybe you can catch what I am doing wrong.</FONT></P>
<P><FONT SIZE=2 FACE="Courier New">First notebook</FONT>
</P>
<P><FONT SIZE=2 FACE="Courier New"> \
iwidgets::panedwindow $base.pw \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-background $::theme(-background)</FONT>
<BR><FONT SIZE=2 FACE="Courier New"> pack \
$base.pw -expand yes -fill both</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New"> \
$base.pw add message -margin 0</FONT>
<BR><FONT SIZE=2 FACE="Courier New"> \
$base.pw add response -margin 0</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New"> set \
messageframe [$base.pw childsite message]</FONT>
<BR><FONT SIZE=2 FACE="Courier New"> set \
responseframe [$base.pw childsite response]</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New"> set \
editorframe $messageframe.input</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New"> \
iwidgets::tabnotebook $editorframe \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-backdrop $::theme(-darkbackground) \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-background $::theme(-background) \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-tabbackground $::theme(-mediumbackground) \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-tabpos n</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
</FONT>
<BR><FONT SIZE=2 FACE="Courier New"> pack \
$editorframe -side top -expand yes -fill both</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New">Then a second class is created and it is passed \
the first notebook such as:</FONT> </P>
<P> <FONT SIZE=2 FACE="Courier New">set \
thisEditor [::Message::$editor ::#auto $editorframe]</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New">In that class I have a build_display method that \
builds a panedwindow and in each pane it builds a notebook:</FONT>
<BR><FONT SIZE=2 FACE="Courier New">(f is $editorframe from above)</FONT>
</P>
<P><FONT SIZE=2 FACE="Courier New"> set cf \
[$f add -label "Display"]</FONT>
<BR><FONT SIZE=2 FACE="Courier New"> set \
inputframe $cf.f</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New"> \
iwidgets::scrolledframe $inputframe \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-background $::theme(-background) \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-highlightthickness 0 \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-hscrollmode dynamic \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-vscrollmode dynamic \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-scrollmargin 0 \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-borderwidth 0</FONT>
<BR><FONT SIZE=2 FACE="Courier New"> \
[$inputframe component vertsb] configure -borderwidth 1</FONT>
<BR><FONT SIZE=2 FACE="Courier New"> \
[$inputframe component horizsb] configure -borderwidth 1</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New"> pack \
$inputframe -expand yes -fill both</FONT>
<BR><FONT SIZE=2 FACE="Courier New"> set \
inputchildsite [$inputframe childsite]</FONT> </P>
<BR>
<P><FONT SIZE=2 FACE="Courier New"># build paned window for old/new pricing \
message</FONT>
<BR><FONT SIZE=2 FACE="Courier New"> set \
paneframe $inputchildsite</FONT>
<BR><FONT SIZE=2 FACE="Courier New"> \
iwidgets::panedwindow $paneframe.pw \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-orient vertical \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-width 1400 \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-height 400 \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-sashindent 100 \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-background blue</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New"> pack \
$paneframe.pw -side top -expand yes -fill both</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New"> \
$paneframe.pw add oldprice -minimum 120 -margin 0</FONT>
<BR><FONT SIZE=2 FACE="Courier New"> \
$paneframe.pw add newprice -minimum 120 -margin 0</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New"> set \
oldpriceframe [$paneframe.pw childsite oldprice]</FONT>
<BR><FONT SIZE=2 FACE="Courier New"> set \
newpriceframe [$paneframe.pw childsite newprice]</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New"> set \
oldeditorframe $oldpriceframe.openprice</FONT>
<BR><FONT SIZE=2 FACE="Courier New"> \
iwidgets::tabnotebook $oldeditorframe \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-backdrop $::theme(-darkbackground) \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-background $::theme(-background) \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-tabbackground $::theme(-mediumbackground) \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-tabpos n</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New"> pack \
$oldeditorframe -side top -expand yes -fill both</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New"> set \
editor "PricingMessage"</FONT>
<BR><FONT SIZE=2 FACE="Courier New"> set \
_oldPM [::Message::$editor ::#auto $oldeditorframe "OLDRRI"]</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New"> set \
neweditorframe $newpriceframe.input</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New"># build tabs for new pricing message side \
(class.tcl does this for the reissue window as a whole)</FONT>
<BR><FONT SIZE=2 FACE="Courier New"> \
iwidgets::tabnotebook $neweditorframe \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-backdrop $::theme(-darkbackground) \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-background $::theme(-background) \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-tabbackground $::theme(-mediumbackground) \</FONT>
<BR><FONT SIZE=2 FACE="Courier \
New"> \
-tabpos n</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New"> pack \
$neweditorframe -side top -expand yes -fill both</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New"> set \
editor "PricingMessage"</FONT>
<BR><FONT SIZE=2 FACE="Courier New"> set \
_newPM [::Message::$editor ::#auto $neweditorframe "NEWRRI"]</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New"> \
$paneframe.pw fraction 30 70</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New">So when the application displays, the first \
notebook displays and within its first tab, the panedwindow with the first tab of \
each notebook's content displayed, but I have to move the sash of the panedwindow to \
be able to see all the tabs of the imbeded notebooks. It is like it has to re-display \
for me to be able to see all the tabs.</FONT></P>
<P><FONT SIZE=2 FACE="Courier New">I've tried not having a paned window and just \
using a frame and putting only one notebook into it (instead of two) and I still have \
the same problem. </FONT></P>
<P><FONT SIZE=2 FACE="Courier New">I tried putting an update idletasks after all the \
widgets were packed but no use. </FONT>
<BR><FONT SIZE=2 FACE="Courier New">I'm really stumped. Any suggestions would be \
appreciated.</FONT>
<BR><FONT SIZE=2 FACE="Courier New">Thanks in advance</FONT>
</P>
<P><FONT SIZE=2 FACE="Courier New">Vivian M. Berthier</FONT>
</P>
<P><FONT SIZE=2 FACE="Courier New">Focused on bringing industry leading Air Services \
solutions to the market</FONT> </P>
<P><FONT SIZE=2 FACE="Courier New">EDS Transportation Products</FONT>
<BR><FONT SIZE=2 FACE="Courier New">3450 Lakeside Drive</FONT>
<BR><FONT SIZE=2 FACE="Courier New">Miramar, Florida 33027</FONT>
<BR><FONT SIZE=2 FACE="Courier New">( (954) 433-6552</FONT>
<BR><FONT SIZE=2 FACE="Courier New">* </FONT><A \
HREF="mailto:vivian.berthier@eds.com"><U><FONT COLOR="#0000FF" SIZE=2 FACE="Courier \
New">mailto:vivian.berthier@eds.com</FONT></U></A><FONT SIZE=2 FACE="Courier New"> \
</FONT> </P>
<BR>
<BR>
<P><I><FONT COLOR="#FF00FF" SIZE=2 FACE="Bookman Old Style">Vivian M. \
Berthier</FONT></I> </P>
<P><I><FONT SIZE=2 FACE="Albertus Medium">Focused on bringing industry leading Air \
Services solutions to the market</FONT></I> </P>
<P><FONT SIZE=2 FACE="Arial">EDS Transportation Products<BR>
</FONT><FONT SIZE=1 FACE="Arial">3450 Lakeside Drive</FONT>
<BR><FONT SIZE=1 FACE="Arial">Miramar, Florida 33027</FONT>
<BR><FONT COLOR="#FF00FF" SIZE=2 FACE="Wingdings">(</FONT><FONT SIZE=2 FACE="Comic \
Sans MS"></FONT> <FONT SIZE=1 FACE="Arial"> (954) 433-6552</FONT>
<BR><FONT COLOR="#FF00FF" SIZE=2 FACE="Wingdings">*<FONT FACE="Courier \
New"></FONT></FONT><U></U><U> </U><A HREF="mailto:vivian.berthier@eds.com"><U><FONT \
COLOR="#0000FF" SIZE=2 FACE="Comic Sans \
MS">mailto:vivian.berthier@eds.com</FONT></U><U></U></A><U></U><FONT COLOR="#FF00FF" \
SIZE=2 FACE="Times New Roman"></FONT> </P>
<BR>
<BR>
<UL>
<P><FONT SIZE=1 FACE="Tahoma">______________________________________________ </FONT>
<BR><B><FONT SIZE=1 FACE="Tahoma">From: </FONT></B> <FONT SIZE=1 \
FACE="Tahoma">Berthier, Vivian M </FONT>
<BR><B><FONT SIZE=1 FACE="Tahoma">Sent: </FONT></B> <FONT SIZE=1 \
FACE="Tahoma">Monday, March 30, 2009 4:59 PM</FONT>
<BR><B><FONT SIZE=1 FACE="Tahoma">To: </FONT></B> <FONT SIZE=1 \
FACE="Tahoma">incrtcl-users@lists.sourceforge.net</FONT>
<BR><B><FONT SIZE=1 FACE="Tahoma">Subject: </FONT></B> \
<FONT SIZE=1 FACE="Tahoma">Iwidgets tabnotebook problem</FONT> </P>
<P><FONT SIZE=2 FACE="Arial">I have an application where I use an iwidgets \
tabnotebook with several tabs. Inside the first tab, I put another \
tabnotebook. When the application displays the first notebook displays and \
within it the first page of the second notebook, however the tabs of the second \
notebook do not display.</FONT></P>
<P><FONT SIZE=2 FACE="Arial">Seems to be a bug in the notebook widget. I would \
appreciate any suggestions.</FONT>
<BR><FONT SIZE=2 FACE="Arial">Thanks,</FONT>
</P>
<P><I><FONT COLOR="#FF00FF" SIZE=2 FACE="Bookman Old Style">Vivian M. \
Berthier</FONT></I> </P>
<P><I><FONT SIZE=2 FACE="Albertus Medium">Focused on bringing industry leading Air \
Services solutions to the market</FONT></I> </P>
<P><FONT SIZE=2 FACE="Arial">EDS Transportation Products<BR>
</FONT><FONT SIZE=1 FACE="Arial">3450 Lakeside Drive</FONT>
<BR><FONT SIZE=1 FACE="Arial">Miramar, Florida 33027</FONT>
<BR><FONT COLOR="#FF00FF" SIZE=2 FACE="Wingdings">(</FONT><FONT SIZE=2 FACE="Comic \
Sans MS"></FONT> <FONT SIZE=1 FACE="Arial"> (954) 433-6552</FONT>
<BR><FONT COLOR="#FF00FF" SIZE=2 FACE="Wingdings">*<FONT FACE="Courier \
New"></FONT></FONT> <A HREF="mailto:vivian.berthier@eds.com"><U></U><U><FONT \
COLOR="#0000FF" SIZE=2 FACE="Comic Sans \
MS">mailto:vivian.berthier@eds.com</FONT></U></A><FONT COLOR="#FF00FF" SIZE=2 \
FACE="Times New Roman"></FONT> </P>
<BR>
</UL>
</BODY>
</HTML>
[Attachment #4 (--===============7371601572558225082==)]
------------------------------------------------------------------------------
Stay on top of everything new and different, both inside and
around Java (TM) technology - register by April 22, and save
$200 on the JavaOne (SM) conference, June 2-5, 2009, San Francisco.
300 plus technical and hands-on sessions. Register today.
Use priority code J9JMT32. http://p.sf.net/sfu/p
_______________________________________________
Incrtcl-users mailing list
Incrtcl-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/incrtcl-users
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic