| … | |
… | |
| 1115 | |
1115 | |
| 1116 | $BUTTONBAR->show; |
1116 | $BUTTONBAR->show; |
| 1117 | |
1117 | |
| 1118 | $STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]); |
1118 | $STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]); |
| 1119 | |
1119 | |
| 1120 | # delay till geometry is constant |
|
|
| 1121 | $CFClient::UI::ROOT->on_post_alloc (startup => sub { |
|
|
| 1122 | $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup |
1120 | $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup |
| 1123 | my $widget = $GAUGES->{win}; |
|
|
| 1124 | $widget->move (0, $HEIGHT - $widget->{h});#d# to in toplevel |
|
|
| 1125 | }); |
|
|
| 1126 | force_refresh (); |
|
|
| 1127 | } |
1121 | } |
| 1128 | } |
1122 | } |
| 1129 | |
1123 | |
| 1130 | sub video_shutdown { |
1124 | sub video_shutdown { |
| 1131 | undef $SDL_ACTIVE; |
1125 | undef $SDL_ACTIVE; |
