vcs.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/XS/ScrolledWindow.xs

   1 #############################################################################
   2 ## Name:        XS/ScrolledWindow.xs
   3 ## Purpose:     XS for Wx::ScrolledWindow
   4 ## Author:      Mattia Barbon
   5 ## Modified by:
   6 ## Created:     02/12/2000
   7 ## RCS-ID:      $Id: ScrolledWindow.xs 2285 2007-11-11 21:31:54Z mbarbon $
   8 ## Copyright:   (c) 2000-2003, 2005-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 #include <wx/scrolwin.h>
  14 #include <wx/dc.h>
  15 #include "cpp/scrolledwindow.h"
  16
  17 MODULE=Wx PACKAGE=Wx::ScrolledWindow
  18
  19 void
  20 new( ... )
  21   PPCODE:
  22     BEGIN_OVERLOAD()
  23         MATCH_VOIDM_REDISP( newDefault )
  24         MATCH_ANY_REDISP( newFull )
  25     END_OVERLOAD( "Wx::ScrolledWindow::new" )
  26
  27 wxScrolledWindow*
  28 newDefault( CLASS )
  29     PlClassName CLASS
  30   CODE:
  31     RETVAL = new wxPliScrolledWindow( CLASS );
  32     wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
  33   OUTPUT: RETVAL
  34
  35 wxScrolledWindow*
  36 newFull( CLASS, parent, id = wxID_ANY, pos = wxDefaultPosition, size = wxDefaultSize, style = wxHSCROLL|wxVSCROLL, name = wxPanelNameStr )
  37     PlClassName CLASS
  38     wxWindow* parent
  39     wxWindowID id
  40     wxPoint pos
  41     wxSize size
  42     long style
  43     wxString name
  44   CODE:
  45     RETVAL = new wxPliScrolledWindow( CLASS, parent, id, pos, size, style,
  46         name );
  47   OUTPUT:
  48     RETVAL
  49
  50 bool
  51 wxScrolledWindow::Create( parent, id = wxID_ANY, pos = wxDefaultPosition, size = wxDefaultSize, style = wxHSCROLL|wxVSCROLL, name = wxPanelNameStr )
  52     wxWindow* parent
  53     wxWindowID id
  54     wxPoint pos
  55     wxSize size
  56     long style
  57     wxString name
  58
  59 void
  60 wxScrolledWindow::CalcScrolledPosition( x, y )
  61     int x
  62     int y
  63   PREINIT:
  64     int xx;
  65     int yy;
  66   PPCODE:
  67     THIS->CalcScrolledPosition( x, y, &xx, &yy );
  68     EXTEND( SP, 2 );
  69     PUSHs( sv_2mortal( newSViv( xx ) ) );
  70     PUSHs( sv_2mortal( newSViv( yy ) ) );
  71
  72 void
  73 wxScrolledWindow::CalcUnscrolledPosition( x, y )
  74     int x
  75     int y
  76   PREINIT:
  77     int xx;
  78     int yy;
  79   PPCODE:
  80     THIS->CalcUnscrolledPosition( x, y, &xx, &yy );
  81     EXTEND( SP, 2 );
  82     PUSHs( sv_2mortal( newSViv( xx ) ) );
  83     PUSHs( sv_2mortal( newSViv( yy ) ) );
  84
  85 void
  86 wxScrolledWindow::EnableScrolling( xScrolling, yScrolling )
  87     bool xScrolling
  88     bool yScrolling
  89
  90 void
  91 wxScrolledWindow::GetScrollPixelsPerUnit()
  92   PREINIT:
  93     int xUnit;
  94     int yUnit;
  95   PPCODE:
  96     THIS->GetScrollPixelsPerUnit( &xUnit, &yUnit );
  97     EXTEND( SP, 2 );
  98     PUSHs( sv_2mortal( newSViv( xUnit ) ) );
  99     PUSHs( sv_2mortal( newSViv( yUnit ) ) );
 100
 101 void
 102 wxScrolledWindow::GetVirtualSize()
 103   PREINIT:
 104     int x;
 105     int y;
 106   PPCODE:
 107     THIS->GetVirtualSize( &x, &y );
 108     EXTEND( SP, 2 );
 109     PUSHs( sv_2mortal( newSViv( x ) ) );
 110     PUSHs( sv_2mortal( newSViv( y ) ) );
 111
 112 bool
 113 wxScrolledWindow::IsRetained()
 114
 115 void
 116 wxScrolledWindow::PrepareDC( dc )
 117     wxDC* dc
 118   CODE:
 119     THIS->PrepareDC( *dc );
 120
 121 void
 122 wxScrolledWindow::DoPrepareDC( dc )
 123     wxDC* dc
 124   C_ARGS: *dc
 125
 126 void
 127 wxScrolledWindow::Scroll( x, y )
 128     int x
 129     int y
 130
 131 void
 132 wxScrolledWindow::SetScrollbars( ppuX, ppuY, nX, nY, xPos = 0, yPos = 0, noRefresh = false )
 133     int ppuX
 134     int ppuY
 135     int nX
 136     int nY
 137     int xPos
 138     int yPos
 139     bool noRefresh
 140
 141 void
 142 wxScrolledWindow::SetScrollRate( xstep, ystep )
 143     int xstep
 144     int ystep
 145
 146 void
 147 wxScrolledWindow::SetTargetWindow( window )
 148     wxWindow* window
 149
 150 void
 151 wxScrolledWindow::GetViewStart()
 152   PREINIT:
 153     int x;
 154     int y;
 155   PPCODE:
 156     THIS->GetViewStart( &x, &y );
 157     EXTEND( SP, 2 );
 158     PUSHs( sv_2mortal( newSViv( x ) ) );
 159     PUSHs( sv_2mortal( newSViv( y ) ) );
 160
 161 #!sub OnDraw