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

   1 #############################################################################
   2 ## Name:        ext/socket/XS/SocketEvent.xs
   3 ## Purpose:     XS for Wx::SocketEvent
   4 ## Author:      Graciliano M. P.
   5 ## Created:     05/03/2003
   6 ## RCS-ID:      $Id: SocketEvent.xs 2057 2007-06-18 23:03:00Z mbarbon $
   7 ## Copyright:   (c) 2003 Graciliano M. P.
   8 ## Licence:     This program is free software; you can redistribute it and/or
   9 ##              modify it under the same terms as Perl itself
  10 #############################################################################
  11
  12 MODULE=Wx PACKAGE=Wx::SocketEvent
  13
  14 wxSocketEvent*
  15 wxSocketEvent::new(id = 0)
  16     int id
  17   CODE:
  18     RETVAL = new wxSocketEvent( id ) ;
  19   OUTPUT: RETVAL
  20
  21 wxSocketBase*
  22 wxSocketEvent::GetSocket()
  23
  24 long
  25 wxSocketEvent::GetSocketEvent()
  26
  27