git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/XS/StaticBitmap.xs

   1 #############################################################################
   2 ## Name:        XS/StaticBitmap.xs
   3 ## Purpose:     XS for Wx::StaticBitmap
   4 ## Author:      Mattia Barbon
   5 ## Modified by:
   6 ## Created:     08/11/2000
   7 ## RCS-ID:      $Id: StaticBitmap.xs 2057 2007-06-18 23:03:00Z mbarbon $
   8 ## Copyright:   (c) 2000-2003 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 #include "cpp/overload.h"
  14 #include <wx/statbmp.h>
  15
  16 MODULE=Wx PACKAGE=Wx::StaticBitmap
  17
  18 void
  19 wxStaticBitmap::new( ... )
  20   PPCODE:
  21     BEGIN_OVERLOAD()
  22         MATCH_REDISP( wxPliOvl_wwin_n_wico, newIcon )
  23         MATCH_REDISP( wxPliOvl_wwin_n_wbmp, newBitmap )
  24     END_OVERLOAD( Wx::StaticBitmap::new )
  25
  26 wxStaticBitmap*
  27 newBitmap( cls, parent, id, bitmap, pos = wxDefaultPosition, size = wxDefaultSize, style = 0, name = wxStaticBitmapNameStr )
  28     SV* cls
  29     wxWindow* parent
  30     wxWindowID id
  31     wxBitmap* bitmap
  32     wxPoint pos
  33     wxSize size
  34     long style
  35     wxString name
  36   PREINIT:
  37     const char* CLASS = wxPli_get_class( aTHX_ cls );
  38   CODE:
  39     RETVAL = new wxStaticBitmap( parent, id, *bitmap, pos, size,
  40          style, name );
  41     wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
  42   OUTPUT:
  43     RETVAL
  44
  45 #if !defined(__WXUNIVERSAL__) || defined(__WXPERL_FORCE__)
  46
  47 wxStaticBitmap*
  48 newIcon( cls, parent, id, icon, pos = wxDefaultPosition, size = wxDefaultSize, style = 0, name = wxStaticBitmapNameStr )
  49     SV* cls
  50     wxWindow* parent
  51     wxWindowID id
  52     wxIcon* icon
  53     wxPoint pos
  54     wxSize size
  55     long style
  56     wxString name
  57   PREINIT:
  58     const char* CLASS = wxPli_get_class( aTHX_ cls );
  59   CODE:
  60     RETVAL = new wxStaticBitmap( parent, id, *icon, pos, size,
  61          style, name );
  62     wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
  63   OUTPUT:
  64     RETVAL
  65
  66 #endif
  67
  68 wxBitmap*
  69 wxStaticBitmap::GetBitmap()
  70   CODE:
  71     RETVAL = new wxBitmap( THIS->GetBitmap() );
  72   OUTPUT:
  73     RETVAL
  74
  75 void
  76 wxStaticBitmap::SetBitmap( bitmap )
  77     wxBitmap* bitmap
  78   C_ARGS: *bitmap
  79
  80 #if !defined(__WXUNIVERSAL__) || defined(__WXPERL_FORCE__)
  81
  82 wxIcon*
  83 wxStaticBitmap::GetIcon()
  84   CODE:
  85     RETVAL = new wxIcon( THIS->GetIcon() );
  86   OUTPUT:
  87     RETVAL
  88
  89 void
  90 wxStaticBitmap::SetIcon( icon )
  91     wxIcon* icon
  92   C_ARGS: *icon
  93
  94 #endif