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

   1 #############################################################################
   2 ## Name:        XS/ToolTip.xs
   3 ## Purpose:     XS for Wx::ToolTip
   4 ## Author:      Mattia Barbon
   5 ## Modified by:
   6 ## Created:     29/10/2000
   7 ## RCS-ID:      $Id: ToolTip.xs 2285 2007-11-11 21:31:54Z mbarbon $
   8 ## Copyright:   (c) 2000-2002, 2004, 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 #if wxPERL_USE_TOOLTIPS
  14
  15 #include <wx/tooltip.h>
  16
  17 MODULE=Wx PACKAGE=Wx::ToolTip
  18
  19 void
  20 Enable( enable )
  21     bool enable
  22   CODE:
  23     wxToolTip::Enable( enable );
  24
  25 void
  26 SetDelay( msecs )
  27     long msecs
  28   CODE:
  29     wxToolTip::SetDelay( msecs );
  30
  31 #if WXPERL_W_VERSION_GE( 2, 9, 0 )
  32
  33 void
  34 SetAutoPop( msecs )
  35     long msecs
  36   CODE:
  37     wxToolTip::SetAutoPop( msecs );
  38
  39 void
  40 SetReshow( msecs )
  41     long msecs
  42   CODE:
  43     wxToolTip::SetReshow( msecs );
  44
  45 #endif
  46
  47 wxToolTip*
  48 wxToolTip::new( string )
  49     wxString string
  50
  51 void
  52 wxToolTip::SetTip( tip )
  53     wxString tip
  54
  55 wxString
  56 wxToolTip::GetTip()
  57
  58 wxWindow*
  59 wxToolTip::GetWindow()
  60
  61 #endif