perl-win32-gui-cvscommit

[Robert M. <rob...@us...>]

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;
}