r27397 - in /branches/upstream/libwx-perl-dialog-perl/current: Changes META.yml eg/01_prompt.pl lib/Wx/Perl/Dialog.pm lib/Wx/Perl/Dialog/Frame.pm lib/Wx/Perl/Dialog/Simple.pm lib/Wx/Perl/Dialog/SingleChoice.pm
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Fri Nov 28 20:22:15 UTC 2008
Author: gregoa
Date: Fri Nov 28 20:22:12 2008
New Revision: 27397
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27397
Log:
[svn-upgrade] Integrating new upstream version, libwx-perl-dialog-perl (0.03)
Modified:
branches/upstream/libwx-perl-dialog-perl/current/Changes
branches/upstream/libwx-perl-dialog-perl/current/META.yml
branches/upstream/libwx-perl-dialog-perl/current/eg/01_prompt.pl
branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog.pm
branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog/Frame.pm
branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog/Simple.pm
branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog/SingleChoice.pm
Modified: branches/upstream/libwx-perl-dialog-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwx-perl-dialog-perl/current/Changes?rev=27397&op=diff
==============================================================================
--- branches/upstream/libwx-perl-dialog-perl/current/Changes (original)
+++ branches/upstream/libwx-perl-dialog-perl/current/Changes Fri Nov 28 20:22:12 2008
@@ -1,3 +1,6 @@
+v0.03 2008.11.23
+ Add support to wxTextCtrl, add wxStaticLine (KAARE)
+
v0.02 2008.11.04
Add several new dialogs
Modified: branches/upstream/libwx-perl-dialog-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwx-perl-dialog-perl/current/META.yml?rev=27397&op=diff
==============================================================================
--- branches/upstream/libwx-perl-dialog-perl/current/META.yml (original)
+++ branches/upstream/libwx-perl-dialog-perl/current/META.yml Fri Nov 28 20:22:12 2008
@@ -1,6 +1,6 @@
---
name: Wx-Perl-Dialog
-version: 0.02
+version: 0.03
author:
- Gabor Szabo
abstract: Abstract dialog class for simple dialog creation
@@ -27,17 +27,17 @@
provides:
Wx::Perl::Dialog:
file: lib/Wx/Perl/Dialog.pm
- version: 0.02
+ version: 0.03
Wx::Perl::Dialog::Frame:
file: lib/Wx/Perl/Dialog/Frame.pm
- version: 0.02
+ version: 0.03
Wx::Perl::Dialog::Simple:
file: lib/Wx/Perl/Dialog/Simple.pm
- version: 0.02
+ version: 0.03
Wx::Perl::Dialog::SingleChoice:
file: lib/Wx/Perl/Dialog/SingleChoice.pm
- version: 0.02
-generated_by: Module::Build version 0.2808
+ version: 0.03
+generated_by: Module::Build version 0.280801
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
version: 1.2
Modified: branches/upstream/libwx-perl-dialog-perl/current/eg/01_prompt.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwx-perl-dialog-perl/current/eg/01_prompt.pl?rev=27397&op=diff
==============================================================================
--- branches/upstream/libwx-perl-dialog-perl/current/eg/01_prompt.pl (original)
+++ branches/upstream/libwx-perl-dialog-perl/current/eg/01_prompt.pl Fri Nov 28 20:22:12 2008
@@ -9,3 +9,4 @@
my $how = entry(title => "Asking Foo", prompt => "How are you today?");
message(text => $how);
+
Modified: branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog.pm?rev=27397&op=diff
==============================================================================
--- branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog.pm (original)
+++ branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog.pm Fri Nov 28 20:22:12 2008
@@ -4,7 +4,7 @@
use strict;
use warnings;
-our $VERSION = '0.02';
+our $VERSION = '0.03';
use Wx ':everything';
@@ -36,8 +36,14 @@
return if not $dialog->show_modal;
+ my $data = $dialog->get_data;
Where $win is the Wx::Frame of your application.
+
+=head1 B<WARNING>
+
+This is still an alpha version of the code. It is used mainly by L<Padre> and its
+plugins. The API can change without any warning.
=head1 DESCRIPTION
@@ -235,7 +241,12 @@
$widget = $class->new( $dialog, -1, $arg, $title, Wx::wxDefaultPosition, $width );
$widget->SetPath(Cwd::cwd());
} elsif ($class eq 'Wx::TextCtrl') {
- $widget = $class->new( $dialog, -1, $arg, Wx::wxDefaultPosition, $width );
+ my @rest;
+ if (@params) {
+ $width->[1] = $params[0];
+ push @rest, Wx::wxTE_MULTILINE;
+ }
+ $widget = $class->new( $dialog, -1, $arg, Wx::wxDefaultPosition, $width, @rest );
} elsif ($class eq 'Wx::CheckBox') {
my $default = shift @params;
$widget = $class->new( $dialog, -1, $arg, Wx::wxDefaultPosition, $width, @params );
@@ -245,6 +256,8 @@
} elsif ($class eq 'Wx::Choice') {
$widget = $class->new( $dialog, -1, Wx::wxDefaultPosition, $width, $arg, @params );
$widget->SetSelection(0);
+ } elsif ($class eq 'Wx::StaticLine') {
+ $widget = $class->new( $dialog, -1, Wx::wxDefaultPosition, $width, $arg, @params );
} elsif ($class eq 'Wx::Treebook') {
my $height = @$arg * 27; # should be height of font
$widget = $class->new( $dialog, -1, Wx::wxDefaultPosition, [$args{width}[$j], $height] );
Modified: branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog/Frame.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog/Frame.pm?rev=27397&op=diff
==============================================================================
--- branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog/Frame.pm (original)
+++ branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog/Frame.pm Fri Nov 28 20:22:12 2008
@@ -10,7 +10,7 @@
use Wx::Perl::Dialog::Frame ();
use base 'Wx::Frame';
-our $VERSION = '0.02';
+our $VERSION = '0.03';
sub new {
my ($class) = @_;
Modified: branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog/Simple.pm?rev=27397&op=diff
==============================================================================
--- branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog/Simple.pm (original)
+++ branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog/Simple.pm Fri Nov 28 20:22:12 2008
@@ -7,7 +7,7 @@
use base 'Exporter';
use File::Spec;
-our $VERSION = '0.02';
+our $VERSION = '0.03';
$| = 1;
Modified: branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog/SingleChoice.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog/SingleChoice.pm?rev=27397&op=diff
==============================================================================
--- branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog/SingleChoice.pm (original)
+++ branches/upstream/libwx-perl-dialog-perl/current/lib/Wx/Perl/Dialog/SingleChoice.pm Fri Nov 28 20:22:12 2008
@@ -6,7 +6,7 @@
use Wx qw(:everything);
use Wx::Event qw(:everything);
-our $VERSION = '0.02';
+our $VERSION = '0.03';
$| = 1;
More information about the Pkg-perl-cvs-commits
mailing list