… | |
… | |
86 | our $CONSOLE; |
86 | our $CONSOLE; |
87 | our $METASERVER; |
87 | our $METASERVER; |
88 | our $LOGIN_BUTTON; |
88 | our $LOGIN_BUTTON; |
89 | our $QUIT_DIALOG; |
89 | our $QUIT_DIALOG; |
90 | our $HOST_ENTRY; |
90 | our $HOST_ENTRY; |
|
|
91 | our $FULLSCREEN_ENABLE; |
91 | our $PICKUP_ENABLE; |
92 | our $PICKUP_ENABLE; |
92 | our $SERVER_INFO; |
93 | our $SERVER_INFO; |
93 | |
94 | |
94 | our $SETUP_DIALOG; |
95 | our $SETUP_DIALOG; |
95 | our $SETUP_NOTEBOOK; |
96 | our $SETUP_NOTEBOOK; |
… | |
… | |
416 | $mode_slider->emit (changed => $mode_slider->{range}[0]); |
417 | $mode_slider->emit (changed => $mode_slider->{range}[0]); |
417 | |
418 | |
418 | my $row = 1; |
419 | my $row = 1; |
419 | |
420 | |
420 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fullscreen"); |
421 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fullscreen"); |
421 | $table->add (1, $row++, new CFClient::UI::CheckBox |
422 | $table->add (1, $row++, $FULLSCREEN_ENABLE = new CFClient::UI::CheckBox |
422 | state => $CFG->{fullscreen}, |
423 | state => $CFG->{fullscreen}, |
423 | tooltip => "Bring the client into fullscreen mode.", |
424 | tooltip => "Bring the client into fullscreen mode.", |
424 | on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 } |
425 | on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 } |
425 | ); |
426 | ); |
426 | |
427 | |
… | |
… | |
1939 | # printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d# |
1940 | # printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d# |
1940 | }, |
1941 | }, |
1941 | CFClient::SDL_KEYDOWN => sub { |
1942 | CFClient::SDL_KEYDOWN => sub { |
1942 | if ($_[0]{mod} & CFClient::KMOD_ALT && $_[0]{sym} == 13) { |
1943 | if ($_[0]{mod} & CFClient::KMOD_ALT && $_[0]{sym} == 13) { |
1943 | # alt-enter |
1944 | # alt-enter |
|
|
1945 | $FULLSCREEN_ENABLE->toggle; |
1944 | video_shutdown; |
1946 | video_shutdown; |
1945 | $CFG->{fullscreen} = !$CFG->{fullscreen}; |
|
|
1946 | video_init; |
1947 | video_init; |
1947 | } else { |
1948 | } else { |
1948 | CFClient::UI::feed_sdl_key_down_event ($_[0]); |
1949 | CFClient::UI::feed_sdl_key_down_event ($_[0]); |
1949 | } |
1950 | } |
1950 | }, |
1951 | }, |