perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 22
 Click for quality!



11.02.2012 / 22:33
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragScrollbar für einen Frame!!!
 Seitenanfang
Ich habe ein MainWindow mit einem Frame und es werden bei der Programmausführung viele widgets generiert, dass es so viele werden, dass ich einen Scrollbalken bräuchte. Ich weiß, dass es TK::Pane gibt und es damit realisiert wird aber ich bekomm das einfach nicht hin. Ich arbeite übrigens mit dem Grid Manager.

Vielleicht kann mir ja jemand ein kleines Beispiel schreiben. Ich wäre dafür sehr dankbar.

Gruß Mathias

Datum: 19.05.2005-10:22
Beitragre: Scrollbar für einen Frame!!!
 Seitenanfang 

#!/usr/bin/perl -w
use strict;
use Tk;
my $mw = new MainWindow;
my $fbutton = $mw->Scrolled('Frame', -relief => 'ridge', -borderwidth => '1m');
for (1..200) {
    $fbutton->Button(-text => "Button $_",         
      -command => sub { exit 0; }
    )->pack(-side => 'left');
}
my $btn1 = $fbutton->Button(-text    => 'Exit!',
    -command => sub { exit 0; });
$btn1->pack(-side => 'left');
$fbutton->pack();
MainLoop();

Aus der Manpage:
To stop a flood of ScrlWhatever widgets Perl/Tk introcuded the special constructor Scrolled.
Scrolled creates a widget of the given Class Whatever with attached scrollbar(s).

Gruss
Olaf

Datum: 19.05.2005-11:15
-






-
 -