') : ()),
);
HTML-Widgets-SelectLayers-0.07/Changes 0000644 0001750 0001750 00000002044 10571426515 016162 0 ustar ivan ivan Revision history for Perl extension HTML::Widgets::SelectLayers.
0.07 Wed Feb 28 17:32:35 PST 2007
- Also overdue: add support for select-multiple
"form_elements" instead of the old form_* options.
- eliminate dubious fchanged javascript function
- check the type against undefined rather than the object itself
in copyelement
0.06 Wed Dec 20 01:50:00 PST 2006
- Also long overdue: add auto-sensing of form field types, pass
"form_elements" instead of the old form_* options.
0.05 Wed Aug 24 06:31:24 PDT 2005
- Long overdue: remove NN4 support.
- Add under_position option, based on a patch from Ricardo SIGNES
- set zIndex foo, hopefully selected layer will be active in IE
properly now
0.04 Fri Jan 30 23:23:28 2004
- fix for pre-5.8 versions. *sigh*
0.03 Fri Jan 30 20:51:14 2004
- add form_radio
0.02 Thu May 9 03:05:15 2002
- enable form_select
0.01 Thu Mar 7 04:36:46 2002
- original version; created by h2xs 1.21 with options
-A -X -n HTML::Widgets::SelectLayers
HTML-Widgets-SelectLayers-0.07/test.pl 0000644 0001750 0001750 00000000773 07443413001 016200 0 ustar ivan ivan # Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use Test;
BEGIN { plan tests => 1 };
use HTML::Widgets::SelectLayers;
ok(1); # If we made it this far, we're ok.
#########################
# Insert your test code below, the Test module is use()ed here so read
# its man page ( perldoc Test ) for help writing this test script.
HTML-Widgets-SelectLayers-0.07/homepage.pl 0000755 0001750 0001750 00000015140 10303075464 017011 0 ustar ivan ivan #!/usr/bin/perl -w
use strict;
use Tie::IxHash;
use HTML::Widgets::SelectLayers;
tie my %o, 'Tie::IxHash',
'download' => 'Download',
'installation' => 'Installation',
'compatibility' => 'Compatibility',
'documentation' => 'Documentation',
'cvs' => 'Anonymous CVS access',
;
my %html = (
'download' => 'Download HTML-Widgets-SelectLayers-0.05.tar.gz',
'installation' => '
perl Makefile.PL
make
make test
make install
',
'cvs' => '
Anonymous CVS access is available:
$ export CVSROOT=":pserver:anonymous@pouncequick.420.am:/home/cvs/cvsroot"
$ cvs login
(Logging in to anonymous@pouncequick.420.am
CVS password: anonymous
$ cvs checkout DBIx-DBSchema
as well as browsable via cvsweb.
',
'documentation' => join('',),
'compatibility' => '
This HTML generated by this module uses JavaScript, but nevertheless attempts
to be as cross-browser as possible. The 0.05 release drops Navigator 4
compatibility and has been tested under Mozilla Firefox 1.0.6, MSIE 6.0,
Konqueror 3.3.2, and Opera 8.0.2.
',
);
close DATA;
my $w = new HTML::Widgets::SelectLayers(
'options' => \%o,
'selected_layer' => 'download',
'layer_callback' => sub {
my $layer = shift;
"
". $html{$layer};
},
#'form_action' => '',
#'form_text' => [],
#'form_checkbox' => [],
);
print <html, "