Browse Source

Decided against Esc for closing the Yard Box .. Alt-W is sufficient and safer.

master
freesource 23 years ago
parent
commit
f3666f6ee2
  1. 19
      BootRoot/YardBox.pm

19
BootRoot/YardBox.pm

@ -809,15 +809,16 @@ sub yard_box {
$search_window->destroy if $search_window; } ); $search_window->destroy if $search_window; } );
$main::yard_window->signal_connect("delete_event", sub { $main::yard_window->signal_connect("delete_event", sub {
$search_window->destroy if $search_window; }); $search_window->destroy if $search_window; });
$main::yard_window->signal_connect("key_press_event", sub { # Probably not such a good idea, but interesting to try
my $event = pop @_; ## $main::yard_window->signal_connect("key_press_event", sub {
if ($event->{'keyval'}) { ## my $event = pop @_;
if ($event->{'keyval'} == 65307) { ## if ($event->{'keyval'}) {
$main::yard_window->destroy; ## if ($event->{'keyval'} == 65307) {
} ## $main::yard_window->destroy;
} ## }
}, ## }
); ## },
## );
$main::yard_window->set_usize( 525, 450 ); $main::yard_window->set_usize( 525, 450 );
$main::yard_window->set_policy( $true, $true, $false ); $main::yard_window->set_policy( $true, $true, $false );
$main::yard_window->set_title( "Yard Box - $template" ); $main::yard_window->set_title( "Yard Box - $template" );

Loading…
Cancel
Save