git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/cpp/scrolledwindow.h

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        cpp/scrolledwindow.h
   3 // Purpose:     c++ wrapper for wxScrolledWindow
   4 // Author:      Mattia Barbon
   5 // Modified by:
   6 // Created:     02/12/2000
   7 // RCS-ID:      $Id: scrolledwindow.h 2057 2007-06-18 23:03:00Z mbarbon $
   8 // Copyright:   (c) 2000-2002, 2004 Mattia Barbon
   9 // Licence:     This program is free software; you can redistribute it and/or
  10 //              modify it under the same terms as Perl itself
  11 /////////////////////////////////////////////////////////////////////////////
  12
  13 class wxPliScrolledWindow:public wxScrolledWindow
  14 {
  15     WXPLI_DECLARE_DYNAMIC_CLASS( wxPliScrolledWindow );
  16     WXPLI_DECLARE_V_CBACK();
  17 public:
  18     WXPLI_DEFAULT_CONSTRUCTOR( wxPliScrolledWindow, "Wx::ScrolledWindow",
  19                                true );
  20     WXPLI_CONSTRUCTOR_6( wxPliScrolledWindow, "Wx::ScrolledWindow",
  21                          true, wxWindow*, wxWindowID, const wxPoint&,
  22                          const wxSize&, long, const wxString& );
  23
  24     void OnDraw( wxDC& dc );
  25 };
  26
  27 void wxPliScrolledWindow::OnDraw( wxDC& dc )
  28 {
  29     dTHX;
  30     if( wxPliVirtualCallback_FindCallback( aTHX_ &m_callback, "OnDraw" ) )
  31     {
  32         SV* val = wxPli_object_2_sv( aTHX_ newSViv( 0 ), &dc );
  33         wxPliVirtualCallback_CallCallback( aTHX_ &m_callback,
  34                                            G_SCALAR|G_DISCARD, "S", val );
  35         sv_setiv( SvRV( val ), 0 );
  36         SvREFCNT_dec( val );
  37     } else
  38         wxScrolledWindow::OnDraw( dc );
  39 }
  40
  41 WXPLI_IMPLEMENT_DYNAMIC_CLASS( wxPliScrolledWindow, wxScrolledWindow );
  42
  43 // Local variables: //
  44 // mode: c++ //
  45 // End: //