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

   1 #############################################################################
   2 ## Name:        ext/docview/XS/FileHistory.xs
   3 ## Purpose:     XS for wxFileHistory (Document/View Framework)
   4 ## Author:      Simon Flack
   5 ## Modified by:
   6 ## Created:     11/09/2002
   7 ## RCS-ID:      $Id: FileHistory.xs 2285 2007-11-11 21:31:54Z mbarbon $
   8 ## Copyright:   (c) 2002, 2004, 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 MODULE=Wx PACKAGE=Wx::FileHistory
  14
  15 wxFileHistory *
  16 wxFileHistory::new( maxFiles = 9 )
  17     int maxFiles
  18   CODE:
  19     RETVAL=new wxPliFileHistory(CLASS, maxFiles );
  20   OUTPUT:
  21     RETVAL
  22
  23 void
  24 wxFileHistory::AddFileToHistory( file )
  25     wxString file
  26
  27 void
  28 wxFileHistory::RemoveFileFromHistory( i )
  29     int i
  30
  31 int
  32 wxFileHistory::GetMaxFiles()
  33
  34 void
  35 wxFileHistory::UseMenu( menu )
  36     wxMenu* menu
  37
  38 void
  39 wxFileHistory::RemoveMenu( menu )
  40     wxMenu* menu
  41
  42 ## Work out the config stuff
  43
  44 void
  45 wxFileHistory::Load( config )
  46     wxConfigBase* config
  47   C_ARGS: *config
  48
  49 void
  50 wxFileHistory::Save( config )
  51     wxConfigBase* config
  52   C_ARGS: *config
  53
  54 void
  55 wxFileHistory::AddFilesToMenu( ... )
  56   CASE: items == 1
  57     CODE:
  58       THIS->AddFilesToMenu();
  59   CASE: items == 2
  60     INPUT:
  61       wxMenu* menu = NO_INIT
  62     CODE:
  63       THIS->AddFilesToMenu( menu );
  64   CASE:
  65     CODE:
  66       croak( "Usage: Wx::FileHistory::AddfilesToMenu(THIS [, menu ] )" );
  67
  68 wxString
  69 wxFileHistory::GetHistoryFile( i )
  70     int i
  71
  72 int
  73 wxFileHistory::GetCount()
  74
  75 #if WXPERL_W_VERSION_LT( 2, 5, 1 )
  76
  77 int
  78 wxFileHistory::GetNoHistoryFiles()
  79
  80 #endif
  81
  82 SV*
  83 wxFileHistory::GetMenus()
  84   CODE:
  85     AV* aMenus = wxPli_objlist_2_av( aTHX_ THIS->GetMenus() );
  86     RETVAL = newRV_noinc( (SV*)aMenus  );
  87   OUTPUT: RETVAL
  88
  89 #if WXPERL_W_VERSION_GE( 2, 8, 3 )
  90
  91 void
  92 wxFileHistory::SetBaseId( baseId )
  93     wxWindowID baseId
  94
  95 wxWindowID
  96 wxFileHistory::GetBaseId()
  97
  98 #endif