/usr/lib/python2.7/dist-packages/wxglade/widgets/dialog/perl_codegen.py is in python-wxglade 0.6.8-2.2.
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 | # perl_codegen.py : perl generator functions for wxDialog objects
# $Id: perl_codegen.py,v 1.3 2004/09/17 13:09:53 agriggio Exp $
#
# Copyright (c) 2002-2004 D.H. aka crazyinsomniac on sourceforge.net
# License: MIT (see license.txt)
# THIS PROGRAM COMES WITH NO WARRANTY
import common
class PerlCodeGenerator:
#wxDialog( parent, id, title, pos, size, style, name )
new_signature = [
'$parent', '$id', '$title', '$pos', '$size', '$style', '$name'
]
def get_code(self, obj):
return [], [], []
def get_properties_code(self, dialog):
prop = dialog.properties
plgen = common.code_writers['perl']
out = []
title = prop.get('title')
if title: out.append('$self->SetTitle(%s);\n' % plgen.quote_str(title))
icon = prop.get('icon')
if icon:
out.append('my $icon = &Wx::wxNullIcon();\n')
out.append('$icon->CopyFromBitmap(Wx::Bitmap->new(%s, '
'wxBITMAP_TYPE_ANY));\n' % plgen.quote_str(icon))
out.append('$self->SetIcon($icon);\n')
out.extend(plgen.generate_common_properties(dialog))
return out
def get_layout_code(self, dialog):
ret = ['$self->Layout();\n']
try:
if int(dialog.properties['centered']):
ret.append('$self->Centre();\n')
except (KeyError, ValueError):
pass
return ret
# end of class PerlCodeGenerator
def initialize():
cn = common.class_names
cn['EditDialog'] = 'wxDialog'
common.toplevels['EditDialog'] = 1
plgen = common.code_writers.get('perl')
if plgen:
plgen.add_widget_handler('wxDialog', PerlCodeGenerator())
|