| Subject: | Wrap wx*::ShowModal functions. |
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