… | |
… | |
19 | on_delete => sub { shift->hide }, |
19 | on_delete => sub { shift->hide }, |
20 | ); |
20 | ); |
21 | |
21 | |
22 | my $face = cf::face::find "res/worldmap.jpg"; |
22 | my $face = cf::face::find "res/worldmap.jpg"; |
23 | $ns->send_face ($face); |
23 | $ns->send_face ($face); |
|
|
24 | $ns->flush_fx; |
24 | |
25 | |
25 | $w->add (my $sw = $ws->new (ScrolledWindow => scroll_x => 1, scroll_y => 1)); |
26 | $w->add (my $sw = $ws->new (ScrolledWindow => scroll_x => 1, scroll_y => 1)); |
26 | $sw->add (my $canvas = $ws->new (Canvas => expand => 1)); |
27 | $sw->add (my $canvas = $ws->new (Canvas => expand => 1)); |
27 | $canvas->add_fixed ($ws->new (Face => expand => 1, size_w => undef, size_h => undef, face => $face), abs => 0, 0, rel => 1, 1); |
28 | $canvas->add_fixed ($ws->new (Face => expand => 1, size_w => undef, size_h => undef, face => $face), abs => 0, 0, rel => 1, 1); |
28 | $canvas->add_fixed ($ws->new (Label => text => "lb1"), abs => 10, 10, rel => 1, 1); |
29 | $canvas->add_fixed ($ws->new (Label => text => "lb1"), abs => 10, 10, rel => 1, 1); |