| … | |
… | |
| 78 | |
78 | |
| 79 | $w->add (my $sw = $ws->{window} = $ws->new (ScrolledWindow => scroll_x => 1, scroll_y => 1)); |
79 | $w->add (my $sw = $ws->{window} = $ws->new (ScrolledWindow => scroll_x => 1, scroll_y => 1)); |
| 80 | $sw->add (my $canvas = $ws->{canvas} = $ws->new (Canvas => expand => 1)); |
80 | $sw->add (my $canvas = $ws->{canvas} = $ws->new (Canvas => expand => 1)); |
| 81 | |
81 | |
| 82 | $ws->{mapface} = $ws->new (Face => |
82 | $ws->{mapface} = $ws->new (Face => |
|
|
83 | size_w => undef, |
|
|
84 | size_h => undef, |
| 83 | face => $ws->{ns}->find_face ("res/worldmap.jpg"), |
85 | face => $ws->{ns}->find_face ("res/worldmap.jpg"), |
| 84 | ); |
86 | ); |
| 85 | |
87 | |
| 86 | $ws->{canvas}->add ($ws->{mapface}); |
88 | $ws->{canvas}->add ($ws->{mapface}); |
| 87 | |
89 | |
| 88 | $ws |
90 | $ws |
