| … | |
… | |
| 88 | |
88 | |
| 89 | return [$x, $y, $w, $h]; |
89 | return [$x, $y, $w, $h]; |
| 90 | } |
90 | } |
| 91 | |
91 | |
| 92 | sub set_pos_and_size { |
92 | sub set_pos_and_size { |
| 93 | my ($window, $p_and_s) = @_; |
93 | my ($window, $p_and_s, $default_w, $default_h, $default_x, $default_y) = @_; |
| 94 | |
94 | |
| 95 | $window->set_default_size ($p_and_s->[2], $p_and_s->[3]); |
95 | $window->set_default_size ($p_and_s->[2] || $default_w, $p_and_s->[3] || $default_h); |
| 96 | |
96 | |
| 97 | # FIXME: This sucks, moving it after showing it can't be a good thing. |
97 | # FIXME: This sucks, moving it after showing it can't be a good thing. |
| 98 | $window->show_all; |
98 | $window->show_all; |
| 99 | $window->move ($p_and_s->[0], $p_and_s->[1]); |
99 | $window->move ($p_and_s->[0] || $default_x, $p_and_s->[1] || $default_y); |
| 100 | } |
100 | } |
| 101 | |
101 | |
| 102 | read_cfg ("$Crossfire::VARDIR/gceconfig"); |
102 | read_cfg ("$Crossfire::VARDIR/gceconfig"); |
| 103 | |
103 | |
| 104 | my $w = GCE::MainWindow->new; |
104 | my $w = GCE::MainWindow->new; |
