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

   1 #############################################################################
   2 ## Name:        XS/FontMapper.xs
   3 ## Purpose:     XS for Wx::FontMapper
   4 ## Author:      Mattia Barbon
   5 ## Modified by:
   6 ## Created:     13/09/2002
   7 ## RCS-ID:      $Id: FontMapper.xs 2299 2007-11-25 17:30:04Z mbarbon $
   8 ## Copyright:   (c) 2002-2003, 2006-2007 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 <wx/fontmap.h>
  14
  15 MODULE=Wx PACKAGE=Wx::FontMapper
  16
  17 wxFontMapper*
  18 Get()
  19   CODE:
  20     RETVAL = wxFontMapper::Get();
  21   OUTPUT: RETVAL
  22
  23 void
  24 wxFontMapper::GetAltForEncoding( encoding, facename = wxEmptyString, interactive = true )
  25     wxFontEncoding encoding
  26     wxString facename
  27     bool interactive
  28   PREINIT:
  29     wxFontEncoding retval;
  30     bool result;
  31   PPCODE:
  32     result = THIS->GetAltForEncoding( encoding, &retval, facename,
  33                                       interactive );
  34     EXTEND( SP, 2 );
  35     PUSHs( boolSV( result ) );
  36     PUSHs( sv_2mortal( newSViv( retval ) ) );
  37
  38 bool
  39 wxFontMapper::IsEncodingAvailable( encoding, facename = wxEmptyString )
  40     wxFontEncoding encoding
  41     wxString facename
  42
  43 wxFontEncoding
  44 wxFontMapper::CharsetToEncoding( charset, interactive = true )
  45     wxString charset
  46     bool interactive
  47
  48 wxString
  49 GetEncodingName( encoding )
  50     wxFontEncoding encoding
  51   CODE:
  52     RETVAL = wxFontMapper::GetEncodingName( encoding );
  53   OUTPUT: RETVAL
  54
  55 wxString
  56 GetEncodingDescription( encoding )
  57     wxFontEncoding encoding
  58   CODE:
  59     RETVAL = wxFontMapper::GetEncodingDescription( encoding );
  60   OUTPUT: RETVAL
  61
  62 #if WXPERL_W_VERSION_GE( 2, 7, 2 )
  63
  64 void
  65 GetAllEncodingNames( encoding )
  66     wxFontEncoding encoding
  67   PPCODE:
  68     const wxChar** encodings = wxFontMapper::GetAllEncodingNames( encoding );
  69     if( !encodings )
  70         return;
  71     while( *encodings )
  72     {
  73         XPUSHs( wxPli_wxChar_2_sv( aTHX_ *encodings, sv_newmortal() ) );
  74         ++encodings;
  75     }
  76
  77 #endif
  78
  79 wxFontEncoding
  80 wxFontMapper::GetEncoding( n )
  81     size_t n
  82   CODE:
  83     RETVAL = wxFontMapper::GetEncoding( n );
  84   OUTPUT: RETVAL
  85
  86 wxFontEncoding
  87 wxFontMapper::GetEncodingFromName( encoding )
  88     wxString encoding
  89   CODE:
  90     RETVAL = wxFontMapper::GetEncodingFromName( encoding );
  91   OUTPUT: RETVAL
  92
  93 size_t
  94 wxFontMapper::GetSupportedEncodingsCount()
  95   CODE:
  96     RETVAL = wxFontMapper::GetSupportedEncodingsCount();
  97   OUTPUT: RETVAL
  98
  99 void
 100 wxFontMapper::SetDialogParent( parent )
 101     wxWindow* parent
 102
 103 void
 104 wxFontMapper::SetDialogTitle( title )
 105     wxString title
 106
 107 #if WXPERL_W_VERSION_LT( 2, 7, 0 )
 108
 109 void
 110 wxFontMapper::SetConfig( config )
 111     wxConfigBase* config
 112
 113 #endif
 114
 115 void
 116 wxFontMapper::SetConfigPath( path )
 117     wxString path