#!/usr/bin/perl

use Tk;
use Tk::NoteBook;
use Tk::MListbox;

$mw = MainWindow->new();
$mw->geometry( "550x550" );
$book = $mw->NoteBook()->pack( -fill=>'both', -expand=>1 );

$tab1 = $book->add( "Sheet 1", -label=>"1" );
$tab2 = $book->add( "Sheet 2", -label=>"2" );
$tab3 = $book->add( "Sheet 3", -label=>"3" );


my @job_cols = ( [-text => 'Datum', -width => 10],
                 [-text => 'Firma', -width => 15],
                 [-text => 'Priorität', -width => 5] );
$mlb_job = $tab1->Scrolled('MListbox', 
                             -moveable => 1, -width => 165, -height => 27,
                             -scrollbars => 'e', 
                             -columns => [@job_cols] ); 

$mlb_job->place(     -x => 310, -y =>  10 );


my @_cols = ( [-text => 'Datum', -width => 10],
                 [-text => 'Firma', -width => 15],
                 [-text => 'Priorität', -width => 5] );
$_job = $tab2->Scrolled('MListbox', 
                             -moveable => 1, -width => 165, -height => 27,
                             -scrollbars => 'e', 
                             -columns => [@_cols] ); 

$_job->place(     -x => 310, -y =>  10 );

$tab1->Label( -textvariable=>\$starttime )->pack( -expand=>1 );
$tab2->Label( -textvariable=>\$raisetime )->pack( -expand=>1 );
$tab3->Button( -text=>'Quit', -command=>sub{ exit; } )->pack( -expand=>1 );

MainLoop;