| … | |
… | |
| 35 | sub devirtualize { |
35 | sub devirtualize { |
| 36 | my ($map, $x, $y, $arch, $stack) = @_; |
36 | my ($map, $x, $y, $arch, $stack) = @_; |
| 37 | if ($arch->{_virtual}) { |
37 | if ($arch->{_virtual}) { |
| 38 | my @head = $map->get_head ($arch); |
38 | my @head = $map->get_head ($arch); |
| 39 | if (@head) { |
39 | if (@head) { |
| 40 | return ($head[0], $head[1], $head[3]->[$head[2]], $head[3]) |
40 | return ($head[0], $head[1], $head[3]->[$head[2]], $head[3], $head[2]) |
| 41 | } |
41 | } |
| 42 | } |
42 | } |
|
|
43 | |
|
|
44 | my ($z) = grep $stack->[$_] == $arch, 0..$#$stack; |
|
|
45 | |
| 43 | return ($x, $y, $arch, $stack) |
46 | return ($x, $y, $arch, $stack, $z) |
| 44 | |
|
|
| 45 | } |
47 | } |
| 46 | |
48 | |
| 47 | sub gtk2_get_color { |
49 | sub gtk2_get_color { |
| 48 | my ($widget, $name) = @_; |
50 | my ($widget, $name) = @_; |
| 49 | my $colormap = $widget->{window}->get_colormap; |
51 | my $colormap = $widget->{window}->get_colormap; |
