| … | … | ||
|---|---|---|---|
| 90 | $self->{invarch}->add ($hb); | 90 | $self->{invarch}->add ($hb); |
| 91 | } | 91 | } |
| 92 | 92 | ||
| 93 | $self->{stackbox}->remove ($_) for $self->{stackbox}->get_children; | 93 | $self->{stackbox}->remove ($_) for $self->{stackbox}->get_children; |
| 94 | 94 | ||
| 95 | warn "NOT YET IMPLEMENTED"; | ||
| 96 | return; | ||
| 95 | my $inv = $ar->get_inv_refs; | 97 | my $inv = $ar->get_inv_refs; |
| 96 | my $idx = 0; | 98 | my $idx = 0; |
| 97 | 99 | ||
| 98 | for my $ia (@$inv) { | 100 | for my $ia (@$inv) { |
| 99 | my $pb = new_arch_pb; | 101 | my $pb = new_arch_pb; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |