Tue Feb 07 14:36:06 2017: Request 120139 was acted upon.
Transaction: Ticket created by st...@stccg.at
Queue: Wx
Subject: support wxScrolledWindow::ShowScrollbars for wxWidgets >= 2.9.0
Broken in: (no value)
Severity: (no value)
Owner: Nobody
Requestors: st...@stccg.at
Status: new
Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=120139 >
hi,
not sure where else to submit a patch for wxPerl?
anyway, i just added the missing binding for
wxScrolledWindow::ShowScrollbars on my dev system and wanted to share.
Steven
---
diff --git a/Constant.xs b/Constant.xs
index dfa80fb..f82c25b 100644
--- a/Constant.xs
+++ b/Constant.xs
@@ -2500,6 +2500,11 @@ static double constant( const char* name, int arg
)
// r( wxSB_SIZEGRIP );
r( wxSB_HORIZONTAL ); // scrollbar
r( wxSB_VERTICAL ); // scrollbar
+#if WXPERL_W_VERSION_GE( 2, 9, 0 )
+ r( wxSHOW_SB_ALWAYS ); // scrolledwindow
+ r( wxSHOW_SB_NEVER ); // scrolledwindow
+ r( wxSHOW_SB_DEFAULT ); // scrolledwindow
+#endif
#if WXPERL_W_VERSION_GE( 2, 5, 3 )
r( wxSB_NORMAL ); // statusbar
r( wxSB_FLAT ); // statusbar
diff --git a/XS/ScrolledWindow.xs b/XS/ScrolledWindow.xs
index 28d0992..d1d7a61 100644
--- a/XS/ScrolledWindow.xs
+++ b/XS/ScrolledWindow.xs
@@ -87,6 +87,15 @@ wxScrolledWindow::EnableScrolling( xScrolling,
yScrolling )
bool xScrolling
bool yScrolling
+#if WXPERL_W_VERSION_GE( 2, 9, 0 )
+
+void
+wxScrolledWindow::ShowScrollbars( horz, vert )
+ wxScrollbarVisibility horz
+ wxScrollbarVisibility vert
+
+#endif
+
void
wxScrolledWindow::GetScrollPixelsPerUnit()
PREINIT:
diff --git a/typemap b/typemap
index 5ea1e6b..715f5f5 100644
--- a/typemap
+++ b/typemap
@@ -64,6 +64,7 @@ wxUpdateUIMode T_ENUM
wxWindowVariant T_ENUM
wxImageResizeQuality T_ENUM
wxAlignment T_ENUM
+wxScrollbarVisibility T_ENUM
wxFindReplaceDialogStyles T_ENUM
wxFindReplaceFlags T_ENUM
