/usr/lib/x86_64-linux-gnu/perl5/5.26/Wx/cpp/e_cback.h is in libwx-perl 1:0.9932-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | /////////////////////////////////////////////////////////////////////////////
// Name: cpp/e_cback.h
// Purpose: callback helper class for events
// Author: Mattia Barbon
// Modified by:
// Created: 29/10/2000
// RCS-ID: $Id: e_cback.h 3374 2012-09-26 11:37:03Z mdootson $
// Copyright: (c) 2000-2001, 2005, 2008 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////
#ifndef _WXPERL_E_CBACK_H
#define _WXPERL_E_CBACK_H
#if WXPERL_W_VERSION_GE( 2, 5, 4 )
typedef void (wxObject::* wxPliObjectEventFunction)(wxEvent&);
#define wxPliCastEvtHandler( e ) \
((wxObjectEventFunction)(wxPliObjectEventFunction) e)
#else
#define wxPliCastEvtHandler( e ) \
((wxObjectEventFunction) e)
#endif
class wxPliGuard
{
public:
wxPliGuard()
{
m_sv = NULL;
}
~wxPliGuard()
{
if( m_sv )
{
dTHX;
wxPli_thread_sv_unregister( aTHX_ wxPli_get_class( aTHX_ m_sv ),
(void*)SvIV( m_sv ), m_sv );
sv_setiv( m_sv, 0 );
}
}
void SetSV( SV* sv ) { m_sv = sv; }
private:
SV* m_sv;
};
class wxPliEventCallback : public wxObject
{
public:
wxPliEventCallback( SV* method, SV* self );
~wxPliEventCallback();
void Handler( wxEvent& event );
private:
bool m_is_method;
SV* m_method;
SV* m_self;
};
#endif // _WXPERL_E_CBACK_H
// Local variables: //
// mode: c++ //
// End: //
|