… | |
… | |
138 | while ($argc--) { |
138 | while ($argc--) { |
139 | my ($argn, $argv) = (rcv_blk, rcv_blk); |
139 | my ($argn, $argv) = (rcv_blk, rcv_blk); |
140 | $args{$argn} = $argv; |
140 | $args{$argn} = $argv; |
141 | } |
141 | } |
142 | |
142 | |
143 | warn "new obj $objid\n";#d# |
|
|
144 | $_OBJ{$objid} = $interface->new( |
143 | $_OBJ{$objid} = $interface->new( |
145 | objid => $objid, |
144 | objid => $objid, |
146 | type => $type, |
145 | type => $type, |
147 | mode => $mode, |
146 | mode => $mode, |
148 | save => $save, |
147 | save => $save, |
… | |
… | |
194 | my $class = shift; |
193 | my $class = shift; |
195 | my $self = bless { @_ }, $class; |
194 | my $self = bless { @_ }, $class; |
196 | $self->{save} = $self->{save} ne "" |
195 | $self->{save} = $self->{save} ne "" |
197 | ? Storable::thaw $self->{save} |
196 | ? Storable::thaw $self->{save} |
198 | : {}; |
197 | : {}; |
199 | warn "new: ".Dumper($self); |
|
|
200 | $self; |
198 | $self; |
201 | } |
199 | } |
202 | |
200 | |
203 | sub set_window { |
201 | sub set_window { |
204 | my $self = shift; |
202 | my $self = shift; |
… | |
… | |
217 | unless ($self->{window}) { |
215 | unless ($self->{window}) { |
218 | $self->{window} = $new; |
216 | $self->{window} = $new; |
219 | print "window new calling with $new->{window}, $new->{w}, $new->{h}\n";#d# |
217 | print "window new calling with $new->{window}, $new->{w}, $new->{h}\n";#d# |
220 | $self->window_new($new->{window}, $new->{w}, $new->{h}); |
218 | $self->window_new($new->{window}, $new->{w}, $new->{h}); |
221 | } |
219 | } |
222 | warn "set_window: ".Dumper($self); |
|
|
223 | } |
220 | } |
224 | |
221 | |
225 | sub window_new {} |
222 | sub window_new {} |
226 | sub window_resize {} |
223 | sub window_resize {} |
227 | |
224 | |
… | |
… | |
235 | $self->set_window(undef); |
232 | $self->set_window(undef); |
236 | Storable::nfreeze $self->{save}; |
233 | Storable::nfreeze $self->{save}; |
237 | } |
234 | } |
238 | |
235 | |
239 | sub DESTROY { |
236 | sub DESTROY { |
240 | warn "DESTROY"; |
237 | #warn "DESTROY";#d# |
241 | } |
238 | } |
242 | |
239 | |
243 | 1; |
240 | 1; |
244 | |
241 | |
245 | =back |
242 | =back |