Mon Apr 17 06:55:27 2017: Request 120139 was acted upon.
Transaction: Correspondence added by MDOOTSON
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 >
Thanks. Added for 0.9931
On Tue Feb 07 14:36:06 2017, st...@stccg.at wrote:
> 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
