Sun Feb 05 03:23:08 2012: Request 74696 was acted upon.
Transaction: Ticket created by bokutin
Queue: Wx
Subject: Wrap wx*::ShowModal functions.
Broken in: 0.9903
Severity: Normal
Owner: Nobody
Requestors: boku...@cpan.org
Status: new
Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=74696 >
Hello.
I encounterd exception errors.
Error1:
my $dialog = Wx::PageSetupDialog->new($parent);
$dialog->ShowModal(); # error!
Error2:
my $dialog = Wx::PrintDialog->new($parent);
$dialog->ShowModal(); # error!
wxPageSetupDialog and wxPrintDialog defined own ShowModal functions.
https://github.com/wxWidgets/wxWidgets/blob/master/src/common/prntbase.cpp
These functions are not wxDialog::ShowModal.
So, wraps these functions.
foil bokutin % pwd
/Volumes/xpvm/cygwin/home/bokutin/svn/wxperl/release-0.9903
foil bokutin % svn info
Path: .
URL:
https://wxperl.svn.sourceforge.net/svnroot/wxperl/wxPerl/tags/release-0.9903
Repository Root: https://wxperl.svn.sourceforge.net/svnroot/wxperl
Repository UUID: 2e9104e8-d5c8-4c90-bb67-bfd1792b7337
Revision: 3133
Node Kind: directory
Schedule: normal
Last Changed Author: mdootson
Last Changed Rev: 3109
Last Changed Date: 2011-11-10 11:37:02 +0900 (木, 10 11 2011)
foil bokutin % svn diff
Index: ext/print/XS/PrintDialog.xs
===================================================================
--- ext/print/XS/PrintDialog.xs (revision 3133)
+++ ext/print/XS/PrintDialog.xs (working copy)
@@ -29,3 +29,6 @@
wxDC*
wxPrintDialog::GetPrintDC()
+
+int
+wxPrintDialog::ShowModal()
Index: ext/print/XS/PageSetupDialog.xs
===================================================================
--- ext/print/XS/PageSetupDialog.xs (revision 3133)
+++ ext/print/XS/PageSetupDialog.xs (working copy)
@@ -31,3 +31,5 @@
OUTPUT:
RETVAL
+int
+wxPageSetupDialog::ShowModal()
foil bokutin %
Cheers
Tomohiro Hosaka
