Scrollbox in Tk - #45850 (Graphische Oberflächen)

fraggs

2006-09-22 11:37

User since
2006-09-11
179 Artikel
BenutzerIn

OK so ich muss ein GUI machen fuer ein interface mit ner datenbank. wollte heute mit anfangen zumindestens ein layout hinzubekommen doch stosse nach 20 minuten schon auf probleme.

1. dieser code ist nun selbst getippt ... doch er gibt mir ein problem das die MainLoop nicht definiert waere !

Code: (dl )

use strict;
use warnings;

use TK;

my $main   = MainWindow->new();

my $box    = $main->Scrolled('Listbox',
                             -scrollbars => 'oe',
                             -height     => 5,
                           )
                     ->pack(-side        => 'left',
                            -fill        => 'both',
                            -expand      => 1,
                           );
$box->insert('end', $_) for qw(Eins Zwei Drei Vier Fünf Sechs Sieben Acht Neun Zehn);

MainLoop();

dieser code stammt aus dem wiki aber den habe ich nicht copy und paste sondern so abgeschrieben.

nun wenn ich das ausfuehere gibt er mir eine error

Quote
Undefined subroutine &main::MainLoop called at gui1.pl line 18.

allerdings wenn ich den code vom wiki copy und past mache gehts. dies ist der copy und paste code vom wiki

Code: (dl )

use strict;
use warnings;

use Tk;

my $main   = MainWindow->new();

my $box    = $main->Scrolled('Listbox',
                             -scrollbars => 'oe',
                             -height     => 5,
                           )
                     ->pack(-side        => 'left',
                            -fill        => 'both',
                            -expand      => 1,
                           );
$box->insert('end', $_) for qw(Eins Zwei Drei Vier Fünf Sechs Sieben Acht Neun Zehn);

MainLoop();

bin ich bloed oder kann ich den fehler einfach nicht sehn ... warum geht mein getippter nicht und der copied ist geht\n\n

mmm twix