Splitframe wierdness 
Author Message
 Splitframe wierdness

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

------_=_NextPart_000_01C07A42.A8475050
Content-Type: text/plain;
        charset="iso-8859-1"

Hi All,
  I have been playing around with 3 listboxes in 2 vertical splitframes. The
right hand frame of the 1st splitframe is split so as to accomplish the 3 frames
adjustable with the 2 sliders.

I have noticed that the minimum size of the overall frame seems to get larger
with the 3rd listbox and that the height settings don't work as they normally
would in these tests. For example a height assignment of 1 or 2 would yield a
listbox height of 6 or 7 or so.

The test with 2 frames(1 splitframe) seems to work ok.

Maybe I'm doing something wrong?

 <<test_splitframe_3_vert.pl>>  <<test_splitframe_2pvert.pl>>  

------_=_NextPart_000_01C07A42.A8475050
Content-Type: application/octet-stream;
        name="test_splitframe_3_vert.pl"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
        filename="test_splitframe_3_vert.pl"

#!/pub/perl_5.6.0/bin/perl -w=0A=
#!/pub/bin/perl -w=0A=
require Tk::SplitFrame;=0A=
use Tk;=0A=
use strict;=0A=
=0A=
my $top =3D MainWindow->new();=0A=
#$top->geometry("40x1+300+300");=0A=
=0A=
$top->Label( -text =3D> "Some label that is much longer now")->grid( =
-sticky =3D> 'ew' );=0A=
=0A=
# Splitframe Notes: It seems that the widths and the heights sre driven =
by=0A=
# the sliderposition setting of the splitframe. Well this is the case =
anyway=0A=
# in this usage(-sticky nsew). The height is wierd as the Listboxes =
heights=0A=
# seem to relate somewhat to vertical sizing. It seems that the =
minimum=0A=
# vertical size is about a 12 or 14 if used without the splitframe.=0A=
my $fr1_l =3D $top->SplitFrame=0A=
   ( -orientation =3D> 'vertical',=0A=
     -trimcolor  =3D> 'red', # -height =3D> 1, # -height =3D> 10, =
-width =3D> 300,=0A=
     -sliderposition =3D> 100,=0A=
  )->grid(qw/-sticky nsew/);=0A=
=0A=
my $fr1_c1 =3D $fr1_l->Frame->grid( -sticky =3D> 'nsew' );=0A=
=0A=
my $fr1_m =3D $fr1_l->SplitFrame=0A=
   ( -orientation =3D> 'vertical',=0A=
     -trimcolor  =3D> 'red', # -height =3D> 1, # -width =3D> 300,=0A=
     -sliderposition =3D> 100,=0A=
  )->grid(qw/-sticky nsew/);=0A=
=0A=
my $fr1_c2 =3D $fr1_m->Frame->grid( -sticky =3D> 'nsew' );=0A=
my $fr1_c3 =3D $fr1_m->Frame->grid( -sticky =3D> 'nsew' );=0A=
=0A=
$fr1_c1->Label( -text =3D> "Source")->grid( -sticky =3D> 'ew' );=0A=
$fr1_c2->Label( -text =3D> "Destination")->grid( -sticky =3D> 'ew' =
);=0A=
$fr1_c3->Label( -text =3D> "Waaah")->grid( -sticky =3D> 'ew' );=0A=
=0A=
my $lb_server1 =3D $fr1_c1->Scrolled(qw/Listbox -height 1 -width 24=0A=
    -exportselection 0 -selectmode single -setgrid 1 -scrollbars =
se/)->grid(=0A=
   -sticky =3D> "nsew");=0A=
$lb_server1->insert('end', "lb1");=0A=
=0A=
my $lb_server2 =3D $fr1_c2->Scrolled(qw/Listbox -height 1 -width 24=0A=
    -exportselection 0 -selectmode single -setgrid 1 -scrollbars =
se/)->grid(=0A=
  -sticky =3D> "nsew");=0A=
$lb_server2->insert('end', "lb2");=0A=
=0A=
my $lb_server3 =3D $fr1_c3->Scrolled(qw/Listbox -height 1 -width 24=0A=
    -selectmode multiple -setgrid 1 -scrollbars se/)->grid(=0A=
  -sticky =3D> "nsew");=0A=
$lb_server3->insert('end', "lb3");=0A=
=0A=
$top->gridColumnconfigure(0, -weight =3D> 2);=0A=
$top->gridRowconfigure(1, -weight =3D> 1);=0A=
=0A=
$fr1_c1->gridColumnconfigure(0, -weight =3D> 2);=0A=
$fr1_c1->gridRowconfigure(1, -weight =3D> 1);=0A=
=0A=
$fr1_c2->gridColumnconfigure(0, -weight =3D> 2);=0A=
$fr1_c2->gridRowconfigure(1, -weight =3D> 1);=0A=
=0A=
$fr1_c3->gridColumnconfigure(0, -weight =3D> 2);=0A=
$fr1_c3->gridRowconfigure(1, -weight =3D> 1);=0A=
=0A=
MainLoop();=0A=
=0A=
1;=0A=

------_=_NextPart_000_01C07A42.A8475050
Content-Type: application/octet-stream;
        name="test_splitframe_2pvert.pl"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
        filename="test_splitframe_2pvert.pl"

#!/pub/perl_5.6.0/bin/perl -w=0A=
#!/pub/bin/perl -w=0A=
require Tk::SplitFrame;=0A=
use Tk;=0A=
use strict;=0A=
=0A=
my $top =3D MainWindow->new();=0A=
#$top->geometry("100x100+300+300");=0A=
=0A=
$top->Label( -text =3D> "Some label")->grid( -sticky =3D> 'ew' );=0A=
=0A=
my $fr1_l =3D $top->SplitFrame=0A=
   ( -orientation =3D> 'vertical',=0A=
     -trimcolor  =3D> 'red', # -height =3D> 10, -width =3D> 300,=0A=
     -sliderposition =3D> 100,=0A=
  )->grid(qw/-sticky nsew/);=0A=
=0A=
my $fr1_c1 =3D $fr1_l->Frame->grid( -sticky =3D> 'nsew' );=0A=
=0A=
my $fr1_c2 =3D $fr1_l->Frame->grid( -sticky =3D> 'nsew' );=0A=
=0A=
$fr1_c1->Label( -text =3D> "Source")->grid( -sticky =3D> 'ew' );=0A=
$fr1_c2->Label( -text =3D> "Destination")->grid( -sticky =3D> 'ew' =
);=0A=
=0A=
my $lb_server1 =3D $fr1_c1->Scrolled(qw/Listbox -height 1 -width 24=0A=
      -scrollbars se/)->grid(=0A=
   -sticky =3D> "nsew");=0A=
$lb_server1->insert('end', "lb1");=0A=
=0A=
my $lb_server2 =3D $fr1_c2->Scrolled(qw/Listbox -height 1 -width 24=0A=
      -scrollbars se/)->grid(=0A=
  -sticky =3D> "nsew");=0A=
$lb_server2->insert('end', "lb2");=0A=
=0A=
$top->gridColumnconfigure(0, -weight =3D> 2);=0A=
$top->gridRowconfigure(1, -weight =3D> 2);=0A=
=0A=
$fr1_c1->gridColumnconfigure(0, -weight =3D> 2);=0A=
$fr1_c1->gridRowconfigure(1, -weight =3D> 2);=0A=
=0A=
$fr1_c2->gridColumnconfigure(0, -weight =3D> 2);=0A=
$fr1_c2->gridRowconfigure(1, -weight =3D> 2);=0A=
=0A=
MainLoop();=0A=
=0A=
1;=0A=

------_=_NextPart_000_01C07A42.A8475050--
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server.  If you wish to unsubscribe from this mailing list, send the



Sat, 28 Jun 2003 22:24:43 GMT  
 Splitframe wierdness
Please forward me a (working) code sample

Damion  K. Wilson

*********** REPLY SEPARATOR  ***********


Quote:
>Hi All,
>  I have been playing around with 3 listboxes in 2 vertical splitframes.
The
>right hand frame of the 1st splitframe is split so as to accomplish the 3
frames
>adjustable with the 2 sliders.

>I have noticed that the minimum size of the overall frame seems to get
larger
>with the 3rd listbox and that the height settings don't work as they
normally
>would in these tests. For example a height assignment of 1 or 2 would
yield a
>listbox height of 6 or 7 or so.

>The test with 2 frames(1 splitframe) seems to work ok.

>Maybe I'm doing something wrong?

> <<test_splitframe_3_vert.pl>>  <<test_splitframe_2pvert.pl>>  

>-++**==--++**==--++**==--++**==--++**==--++**==--++**==
>This message was posted through the Stanford campus mailing list
>server.  If you wish to unsubscribe from this mailing list, send the


-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server.  If you wish to unsubscribe from this mailing list, send the



Sat, 28 Jun 2003 23:32:03 GMT  
 
 [ 2 post ] 

 Relevant Pages 

1. image & splitframe

2. Tk::SplitFrame

3. rand() wierdness in Solaris solved!

4. Zombie Wierdness Freakout

5. unicode wierdness with 5.6.1/Debian woody

6. top-of form wierdness?

7. chmod wierdness...

8. Array wierdness

9. Perl->odbc->sql server stored proc wierdness

10. mod_perl and function exporting wierdness

11. backticks & system() wierdness

12. Wierdness in writting .xs linking code

 

 
Powered by phpBB® Forum Software