r27399 - in /trunk/libwx-perl-dialog-perl: Changes META.yml debian/changelog 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:23:17 UTC 2008
Author: gregoa
Date: Fri Nov 28 20:23:14 2008
New Revision: 27399
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27399
Log:
New upstream release.
Modified:
trunk/libwx-perl-dialog-perl/Changes
trunk/libwx-perl-dialog-perl/META.yml
trunk/libwx-perl-dialog-perl/debian/changelog
trunk/libwx-perl-dialog-perl/eg/01_prompt.pl
trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog.pm
trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog/Frame.pm
trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog/Simple.pm
trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog/SingleChoice.pm
Modified: trunk/libwx-perl-dialog-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwx-perl-dialog-perl/Changes?rev=27399&op=diff
==============================================================================
--- trunk/libwx-perl-dialog-perl/Changes (original)
+++ trunk/libwx-perl-dialog-perl/Changes Fri Nov 28 20:23:14 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: trunk/libwx-perl-dialog-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwx-perl-dialog-perl/META.yml?rev=27399&op=diff
==============================================================================
--- trunk/libwx-perl-dialog-perl/META.yml (original)
+++ trunk/libwx-perl-dialog-perl/META.yml Fri Nov 28 20:23:14 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: trunk/libwx-perl-dialog-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwx-perl-dialog-perl/debian/changelog?rev=27399&op=diff
==============================================================================
--- trunk/libwx-perl-dialog-perl/debian/changelog (original)
+++ trunk/libwx-perl-dialog-perl/debian/changelog Fri Nov 28 20:23:14 2008
@@ -1,3 +1,9 @@
+libwx-perl-dialog-perl (0.03-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Fri, 28 Nov 2008 21:22:34 +0100
+
libwx-perl-dialog-perl (0.02-1) unstable; urgency=low
* Initial Release. Closes: #505987 -- ITP
Modified: trunk/libwx-perl-dialog-perl/eg/01_prompt.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwx-perl-dialog-perl/eg/01_prompt.pl?rev=27399&op=diff
==============================================================================
--- trunk/libwx-perl-dialog-perl/eg/01_prompt.pl (original)
+++ trunk/libwx-perl-dialog-perl/eg/01_prompt.pl Fri Nov 28 20:23:14 2008
@@ -9,3 +9,4 @@
my $how = entry(title => "Asking Foo", prompt => "How are you today?");
message(text => $how);
+
Modified: trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog.pm?rev=27399&op=diff
==============================================================================
--- trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog.pm (original)
+++ trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog.pm Fri Nov 28 20:23:14 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: trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog/Frame.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog/Frame.pm?rev=27399&op=diff
==============================================================================
--- trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog/Frame.pm (original)
+++ trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog/Frame.pm Fri Nov 28 20:23:14 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: trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog/Simple.pm?rev=27399&op=diff
==============================================================================
--- trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog/Simple.pm (original)
+++ trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog/Simple.pm Fri Nov 28 20:23:14 2008
@@ -7,7 +7,7 @@
use base 'Exporter';
use File::Spec;
-our $VERSION = '0.02';
+our $VERSION = '0.03';
$| = 1;
Modified: trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog/SingleChoice.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog/SingleChoice.pm?rev=27399&op=diff
==============================================================================
--- trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog/SingleChoice.pm (original)
+++ trunk/libwx-perl-dialog-perl/lib/Wx/Perl/Dialog/SingleChoice.pm Fri Nov 28 20:23:14 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