Heray-Was-Here
Server : Apache
System : Linux vps103298.mylogin.co 4.18.0-513.11.1.el8_9.x86_64 #1 SMP Wed Jan 17 02:00:40 EST 2024 x86_64
User : calvet ( 273824)
PHP Version : 7.4.33
Disable Function : NONE
Directory :  /proc/self/root/proc/self/root/usr/share/doc/perl-Tk/demos/widget_lib/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //proc/self/root/proc/self/root/usr/share/doc/perl-Tk/demos/widget_lib/image1.pl
# image1.pl

use vars qw/$TOP/;

sub image1 {

    # This demonstration script displays two image widgets.

    my($demo) = @_;
    $TOP = $MW->WidgetDemo(
        -name     => $demo,
        -text     => 'This demonstration displays two images, each in a separate label widget.',
        -title    => 'Image Demonstration #1',
        -iconname => 'image1',
    );

    my(@pl) = qw/-side top -padx .5m -pady .5m/;
    $TOP->Photo('image1a', -file => Tk->findINC('demos/images/earth.gif'));
    $TOP->Label(-image => 'image1a')->pack(@pl);

    $TOP->Photo('image1b', -file => Tk->findINC('demos/images/earthris.gif'));
    $TOP->Label(-image => 'image1b')->pack(@pl);

} # end image1

1;

Hry