[Perl-win32-gui-cvscommit] Win32-GUI/Win32-GUI-DropFiles/demos DropFilesDemo.pl,NONE,1.1

[Robert May]

Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-DropFiles/demos
In directory 
sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2364/Win32-GUI-DropFiles/demos

Added Files:
        DropFilesDemo.pl 
Log Message:
Add Win32::GUI::DropFiles

--- NEW FILE: DropFilesDemo.pl ---
#!perl -w
use strict;
use warnings;
# $Id: DropFilesDemo.pl,v 1.1 2006/04/25 21:38:19 robertemay Exp $
#
# Demonstration of Win32::GUI::DropFiles functionality
#
# Note that even though Win32::GUI::DropFiles supports
# Unicode filenames on WinNT and above, Win32::GUI::Listbox
# does not, so filenames with unicode characters will appear
# corrupted in this demo.

use Win32::GUI();
use Win32::GUI::DropFiles();

my $mw = Win32::GUI::Window->new(
        -title => "Win32::GUI::DropFiles Demonstration",
        -pos   => [100,100],
        -size  => [400,300],
        -onResize => \&mwResize,
);

$mw->AddLabel(
        -pos  => [10,10],
        -text => "Drag files onto the Listbox below:",
);

$mw->AddListbox(
        -name => 'LB',
        -pos => [10,30],
        -vscroll => 1,
        -acceptfiles => 1,
        -onDropFiles => \&gotDrop,
);

$mw->Show();
Win32::GUI::Dialog();
$mw->Hide();
exit(0);

sub gotDrop {
        my ($self, $dropObj) = @_;

        $self->Add($dropObj->GetDroppedFiles());

        return 0;
}

sub mwResize {
        my $self = shift;

        $self->LB->Resize(
                $self->ScaleWidth()-20,
                $self->ScaleHeight()-40,
        );

        return 1;
}