1 # This file was automatically generated by SWIG
2 package inkscape_perl;
3 require Exporter;
4 @ISA = qw(Exporter);
5 package inkscape_perlc;
6 boot_inkscape_perl();
7 package inkscape_perl;
8 @EXPORT = qw( );
10 # ---------- BASE METHODS -------------
12 package inkscape_perl;
14 sub TIEHASH {
15 my ($classname,$obj) = @_;
16 return bless $obj, $classname;
17 }
19 sub CLEAR { }
21 sub FIRSTKEY { }
23 sub NEXTKEY { }
25 sub FETCH {
26 my ($self,$field) = @_;
27 my $member_func = "swig_${field}_get";
28 $self->$member_func();
29 }
31 sub STORE {
32 my ($self,$field,$newval) = @_;
33 my $member_func = "swig_${field}_set";
34 $self->$member_func($newval);
35 }
37 sub this {
38 my $ptr = shift;
39 return tied(%$ptr);
40 }
43 # ------- FUNCTION WRAPPERS --------
45 package inkscape_perl;
47 *getInkscape = *inkscape_perlc::getInkscape;
49 ############# Class : inkscape_perl::Inkscape ##############
51 package inkscape_perl::Inkscape;
52 @ISA = qw( inkscape_perl );
53 %OWNER = ();
54 %ITERATORS = ();
55 sub DESTROY {
56 return unless $_[0]->isa('HASH');
57 my $self = tied(%{$_[0]});
58 return unless defined $self;
59 delete $ITERATORS{$self};
60 if (exists $OWNER{$self}) {
61 inkscape_perlc::delete_Inkscape($self);
62 delete $OWNER{$self};
63 }
64 }
66 *getDesktop = *inkscape_perlc::Inkscape_getDesktop;
67 *getDialogManager = *inkscape_perlc::Inkscape_getDialogManager;
68 sub DISOWN {
69 my $self = shift;
70 my $ptr = tied(%$self);
71 delete $OWNER{$ptr};
72 }
74 sub ACQUIRE {
75 my $self = shift;
76 my $ptr = tied(%$self);
77 $OWNER{$ptr} = 1;
78 }
81 ############# Class : inkscape_perl::DialogManager ##############
83 package inkscape_perl::DialogManager;
84 @ISA = qw( inkscape_perl );
85 %OWNER = ();
86 %ITERATORS = ();
87 sub DESTROY {
88 return unless $_[0]->isa('HASH');
89 my $self = tied(%{$_[0]});
90 return unless defined $self;
91 delete $ITERATORS{$self};
92 if (exists $OWNER{$self}) {
93 inkscape_perlc::delete_DialogManager($self);
94 delete $OWNER{$self};
95 }
96 }
98 *showAbout = *inkscape_perlc::DialogManager_showAbout;
99 sub DISOWN {
100 my $self = shift;
101 my $ptr = tied(%$self);
102 delete $OWNER{$ptr};
103 }
105 sub ACQUIRE {
106 my $self = shift;
107 my $ptr = tied(%$self);
108 $OWNER{$ptr} = 1;
109 }
112 ############# Class : inkscape_perl::Desktop ##############
114 package inkscape_perl::Desktop;
115 @ISA = qw( inkscape_perl );
116 %OWNER = ();
117 %ITERATORS = ();
118 sub DESTROY {
119 return unless $_[0]->isa('HASH');
120 my $self = tied(%{$_[0]});
121 return unless defined $self;
122 delete $ITERATORS{$self};
123 if (exists $OWNER{$self}) {
124 inkscape_perlc::delete_Desktop($self);
125 delete $OWNER{$self};
126 }
127 }
129 *getDocument = *inkscape_perlc::Desktop_getDocument;
130 sub DISOWN {
131 my $self = shift;
132 my $ptr = tied(%$self);
133 delete $OWNER{$ptr};
134 }
136 sub ACQUIRE {
137 my $self = shift;
138 my $ptr = tied(%$self);
139 $OWNER{$ptr} = 1;
140 }
143 ############# Class : inkscape_perl::Document ##############
145 package inkscape_perl::Document;
146 @ISA = qw( inkscape_perl );
147 %OWNER = ();
148 %ITERATORS = ();
149 sub DESTROY {
150 return unless $_[0]->isa('HASH');
151 my $self = tied(%{$_[0]});
152 return unless defined $self;
153 delete $ITERATORS{$self};
154 if (exists $OWNER{$self}) {
155 inkscape_perlc::delete_Document($self);
156 delete $OWNER{$self};
157 }
158 }
160 *hello = *inkscape_perlc::Document_hello;
161 sub DISOWN {
162 my $self = shift;
163 my $ptr = tied(%$self);
164 delete $OWNER{$ptr};
165 }
167 sub ACQUIRE {
168 my $self = shift;
169 my $ptr = tied(%$self);
170 $OWNER{$ptr} = 1;
171 }
174 # ------- VARIABLE STUBS --------
176 package inkscape_perl;
178 1;