#####____________________Tk und Perl - Checkbutton, Radiobutton und Listbox___________________

Damit sich dieser Kurs etwas kürzer und kompakter haltet nehme ich jetzt gleich 3 Steuerelemente auf einmal durch. Und zwar Checkbutton, Radiobutton und Listbox...........

 #! /usr/bin/perl -w

use strict;
use Tk;

my $main = MainWindow->new;

my $check1=$main->Checkbutton(-text => "Kontrollkästchen 1")->pack;
my $check2=$main->Checkbutton(-text => "Kontrollkästchen 2")->pack;

my $radio1=$main->Radiobutton(-text => "Optionsfeld 1" )->pack;
my $radio2=$main->Radiobutton(-text => "Optionsfeld 2")->pack;

my $liste=$main->Listbox(-relief => 'sunken',
                         -width => -1, # Shrink to fit
                         -height => 5,
                         -setgrid => 1);
my @elemente = qw(Teil1 Teil2 Teil3 Teil4 Teil5);
foreach (@elemente) {
    $liste->insert('end', $_);
    }
$liste->pack;

MainLoop;

So siehts aus :

Checkbutton, Radiobutton und Listbox

Hier nun erst mal wie sie die einzelnen Methoden einsetzen können. Sie merken jetzt schon das sich die Kapitel im Prinzip jetzt immer wieder wiederholen.