The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#############################################################################
## Name:        XS/TaskBarIcon.xs
## Purpose:     XS for Wx::TaskBarIcon
## Author:      Mattia Barbon
## Modified by:
## Created:     03/12/2001
## RCS-ID:      $Id: TaskBarIcon.xs 2285 2007-11-11 21:31:54Z mbarbon $
## Copyright:   (c) 2001, 2004-2005, 2007 Mattia Barbon
## Licence:     This program is free software; you can redistribute it and/or
##              modify it under the same terms as Perl itself
#############################################################################

MODULE=Wx PACKAGE=Wx::TaskBarIcon

#if defined(__WXMSW__) || \
    ( WXPERL_W_VERSION_GE( 2, 5, 2 ) && defined( wxHAS_TASK_BAR_ICON ) )

#include <wx/taskbar.h>

wxTaskBarIcon*
wxTaskBarIcon::new()

void
wxTaskBarIcon::Destroy()
  CODE:
    delete THIS;

bool
wxTaskBarIcon::IsOk()

bool
wxTaskBarIcon::IsIconInstalled()

bool
wxTaskBarIcon::SetIcon( icon, tooltip = wxEmptyString )
    wxIcon* icon
    wxString tooltip
  CODE:
    RETVAL = THIS->SetIcon( *icon, tooltip );
  OUTPUT:
    RETVAL

bool
wxTaskBarIcon::RemoveIcon()

bool
wxTaskBarIcon::PopupMenu( menu )
    wxMenu* menu

MODULE=Wx PACKAGE=Wx::TaskBarIconEvent

wxTaskBarIconEvent*
wxTaskBarIconEvent::new( evtType, tbIcon )
    wxEventType evtType
    wxTaskBarIcon *tbIcon

#endif