develooper Front page | perl.wxperl.users | Postings from April 2017

[rt.cpan.org #120139] support wxScrolledWindow::ShowScrollbars forwxWidgets >= 2.9.0

From:
Mark Dootson via RT
Date:
April 17, 2017 10:55
Subject:
[rt.cpan.org #120139] support wxScrolledWindow::ShowScrollbars forwxWidgets >= 2.9.0
Message ID:
rt-4.0.18-27612-1492426528-1632.120139-15-0@rt.cpan.org
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: steve@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, steve@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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About