bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-10-29 15:05:35 -04:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
freesource 2001-11-30 04:45:34 +00:00
parent 0248fba79e
commit f3666f6ee2
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
BootRoot/YardBox.pm
View File

@ -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" );