1 #############################################################################
2 ## Name: ext/docview/XS/FileHistory.xs
3 ## Purpose: XS for wxFileHistory (Document/View Framework)
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 #############################################################################
13 MODULE=Wx PACKAGE=Wx::FileHistory
16 wxFileHistory::new( maxFiles = 9 )
19 RETVAL=new wxPliFileHistory(CLASS, maxFiles );
24 wxFileHistory::AddFileToHistory( file )
28 wxFileHistory::RemoveFileFromHistory( i )
32 wxFileHistory::GetMaxFiles()
35 wxFileHistory::UseMenu( menu )
39 wxFileHistory::RemoveMenu( menu )
42 ## Work out the config stuff
45 wxFileHistory::Load( config )
50 wxFileHistory::Save( config )
55 wxFileHistory::AddFilesToMenu( ... )
58 THIS->AddFilesToMenu();
61 wxMenu* menu = NO_INIT
63 THIS->AddFilesToMenu( menu );
66 croak( "Usage: Wx::FileHistory::AddfilesToMenu(THIS [, menu ] )" );
69 wxFileHistory::GetHistoryFile( i )
73 wxFileHistory::GetCount()
75 #if WXPERL_W_VERSION_LT( 2, 5, 1 )
78 wxFileHistory::GetNoHistoryFiles()
83 wxFileHistory::GetMenus()
85 AV* aMenus = wxPli_objlist_2_av( aTHX_ THIS->GetMenus() );
86 RETVAL = newRV_noinc( (SV*)aMenus );
89 #if WXPERL_W_VERSION_GE( 2, 8, 3 )
92 wxFileHistory::SetBaseId( baseId )
96 wxFileHistory::GetBaseId()