1 #############################################################################
2 ## Name: XS/SpinCtrl.xs
3 ## Purpose: XS for Wx::SpinCtrl
4 ## Author: Mattia Barbon
7 ## RCS-ID: $Id: SpinCtrl.xs 2057 2007-06-18 23:03:00Z mbarbon $
8 ## Copyright: (c) 2000-2003, 2006 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 #include <wx/spinctrl.h>
15 MODULE=Wx PACKAGE=Wx::SpinCtrl
21 MATCH_VOIDM_REDISP( newDefault )
22 MATCH_ANY_REDISP( newFull )
23 END_OVERLOAD( "Wx::SpinCtrl::new" )
29 RETVAL = new wxSpinCtrl();
30 wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
34 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") )
47 RETVAL = new wxSpinCtrl( parent, id, value, pos, size,
48 style, min, max, initial, name );
49 wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
54 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") )
73 wxSpinCtrl::GetValue()
76 wxSpinCtrl::SetRange( min, max )
81 wxSpinCtrl::SetValue( text )
84 #if !defined(__WXGTK__)
87 wxSpinCtrl::SetSelection( from, to )