X-Git-Url: http://git.maemo.org/git/?p=pkg-perl;a=blobdiff_plain;f=deb-src%2Flibwx-perl%2Flibwx-perl-0.96%2FXS%2FSpinCtrl.xs;fp=deb-src%2Flibwx-perl%2Flibwx-perl-0.96%2FXS%2FSpinCtrl.xs;h=bd55fd77d78ec7709246afb9a037b2165c21edd1;hp=0000000000000000000000000000000000000000;hb=338ce2df3c50fea0b4148c5ef073e0a101744b67;hpb=3ffacac381f8f5d701cefbffd60f4a9235ea6e06 diff --git a/deb-src/libwx-perl/libwx-perl-0.96/XS/SpinCtrl.xs b/deb-src/libwx-perl/libwx-perl-0.96/XS/SpinCtrl.xs new file mode 100755 index 0000000..bd55fd7 --- /dev/null +++ b/deb-src/libwx-perl/libwx-perl-0.96/XS/SpinCtrl.xs @@ -0,0 +1,91 @@ +############################################################################# +## Name: XS/SpinCtrl.xs +## Purpose: XS for Wx::SpinCtrl +## Author: Mattia Barbon +## Modified by: +## Created: 08/11/2000 +## RCS-ID: $Id: SpinCtrl.xs 2057 2007-06-18 23:03:00Z mbarbon $ +## Copyright: (c) 2000-2003, 2006 Mattia Barbon +## Licence: This program is free software; you can redistribute it and/or +## modify it under the same terms as Perl itself +############################################################################# + +#include + +MODULE=Wx PACKAGE=Wx::SpinCtrl + +void +new( ... ) + PPCODE: + BEGIN_OVERLOAD() + MATCH_VOIDM_REDISP( newDefault ) + MATCH_ANY_REDISP( newFull ) + END_OVERLOAD( "Wx::SpinCtrl::new" ) + +wxSpinCtrl* +newDefault( CLASS ) + PlClassName CLASS + CODE: + RETVAL = new wxSpinCtrl(); + wxPli_create_evthandler( aTHX_ RETVAL, CLASS ); + OUTPUT: RETVAL + +wxSpinCtrl* +newFull( CLASS, parent, id = wxID_ANY, value = wxEmptyString, pos = wxDefaultPosition, size = wxDefaultSize, style = wxSP_ARROW_KEYS, min = 0, max = 100, initial = 0, name = wxT("spinCtrl") ) + PlClassName CLASS + wxWindow* parent + wxWindowID id + wxString value + wxPoint pos + wxSize size + long style + int min + int max + int initial + wxString name + CODE: + RETVAL = new wxSpinCtrl( parent, id, value, pos, size, + style, min, max, initial, name ); + wxPli_create_evthandler( aTHX_ RETVAL, CLASS ); + OUTPUT: + RETVAL + +bool +wxSpinCtrl::Create( parent, id = wxID_ANY, value = wxEmptyString, pos = wxDefaultPosition, size = wxDefaultSize, style = wxSP_ARROW_KEYS, min = 0, max = 100, initial = 0, name = wxT("spinCtrl") ) + wxWindow* parent + wxWindowID id + wxString value + wxPoint pos + wxSize size + long style + int min + int max + int initial + wxString name + +int +wxSpinCtrl::GetMin() + +int +wxSpinCtrl::GetMax() + +int +wxSpinCtrl::GetValue() + +void +wxSpinCtrl::SetRange( min, max ) + int min + int max + +void +wxSpinCtrl::SetValue( text ) + wxString text + +#if !defined(__WXGTK__) + +void +wxSpinCtrl::SetSelection( from, to ) + long from + long to + +#endif