1 /////////////////////////////////////////////////////////////////////////////
3 // Purpose: c++ wrapper for wxFrame
4 // Author: Mattia Barbon
7 // RCS-ID: $Id: frame.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 /////////////////////////////////////////////////////////////////////////////
13 class wxPliFrame:public wxFrame
15 WXPLI_DECLARE_DYNAMIC_CLASS( wxPliFrame );
16 WXPLI_DECLARE_V_CBACK();
18 WXPLI_DEFAULT_CONSTRUCTOR( wxPliFrame, "Wx::Frame", true );
19 WXPLI_CONSTRUCTOR_7( wxPliFrame, "Wx::Frame", true,
20 wxWindow*, wxWindowID, const wxString&,
21 const wxPoint&, const wxSize&, long,
24 virtual wxStatusBar* OnCreateStatusBar( int, long, wxWindowID,
26 virtual wxToolBar* OnCreateToolBar( long, wxWindowID, const wxString& );
29 inline wxStatusBar* wxPliFrame::OnCreateStatusBar( int number, long style,
31 const wxString& name )
34 if( wxPliVirtualCallback_FindCallback( aTHX_ &m_callback,
35 "OnCreateStatusBar" ) )
37 SV* ret = wxPliVirtualCallback_CallCallback
38 ( aTHX_ &m_callback, G_SCALAR, "illP",
39 number, style, id, &name );
41 (wxStatusBar*)wxPli_sv_2_object( aTHX_ ret, "Wx::StatusBar" );
46 return wxFrame::OnCreateStatusBar( number, style, id, name );
49 inline wxToolBar* wxPliFrame::OnCreateToolBar( long style, wxWindowID id,
50 const wxString& name )
53 if( wxPliVirtualCallback_FindCallback( aTHX_ &m_callback,
56 SV* ret = wxPliVirtualCallback_CallCallback
57 ( aTHX_ &m_callback, G_SCALAR, "llP", style, id, &name );
59 (wxToolBar*)wxPli_sv_2_object( aTHX_ ret, "Wx::ToolBar" );
64 return wxFrame::OnCreateToolBar( style, id, name );
67 WXPLI_IMPLEMENT_DYNAMIC_CLASS( wxPliFrame, wxFrame );
69 // Local variables: //