… | |
… | |
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 |