1 #############################################################################
2 ## Name: XS/TaskBarIcon.xs
3 ## Purpose: XS for Wx::TaskBarIcon
4 ## Author: Mattia Barbon
7 ## RCS-ID: $Id: TaskBarIcon.xs 2285 2007-11-11 21:31:54Z mbarbon $
8 ## Copyright: (c) 2001, 2004-2005, 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::TaskBarIcon
15 #if defined(__WXMSW__) || \
16 ( WXPERL_W_VERSION_GE( 2, 5, 2 ) && defined( wxHAS_TASK_BAR_ICON ) )
18 #include <wx/taskbar.h>
24 wxTaskBarIcon::Destroy()
32 wxTaskBarIcon::IsIconInstalled()
35 wxTaskBarIcon::SetIcon( icon, tooltip = wxEmptyString )
39 RETVAL = THIS->SetIcon( *icon, tooltip );
44 wxTaskBarIcon::RemoveIcon()
47 wxTaskBarIcon::PopupMenu( menu )
50 MODULE=Wx PACKAGE=Wx::TaskBarIconEvent
53 wxTaskBarIconEvent::new( evtType, tbIcon )