Re: more than one DynaTabFrame

[Khen1950fx]

A slighty different way:

#!/usr/bin/perl

use strict;
use warnings;
use Tk::DynaTabFrame;

my $mw = MainWindow->new();

my $dtf = $mw->DynaTabFrame(
        -font => 'Sans 8',
        -tabclose => 1,
        )
        ->pack(-side => 'top', 
              -expand => 0, 
              -fill => 'both');      
my $buttons1 = $mw->Frame()
        ->pack(-side => 'top', 
              -fill => 'x',
              -expand => 0,
              -pady => 0);
my $buttons2 = $mw->Frame()
        ->pack(-side => 'top',
              -fill => 'x',
              -expand => 0,
              -pady => 0);        
$buttons1->Button
    (-text => '  ')->pack;
$buttons2->Button
    (-text => 'A')->pack;
    
Tk::MainLoop();