diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-07-08 17:52:56 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-07-08 17:52:56 +0000 |
| commit | c8b361905dedbe2961b4e3c1670d5028eec12807 (patch) | |
| tree | abfaeba4d6da0e98be76fd48ba2f4a4e8ad73f04 /perl-install/my_gtk.pm | |
| parent | 755e511024f29df150d9d150d19c849e59c1e216 (diff) | |
| download | drakx-c8b361905dedbe2961b4e3c1670d5028eec12807.tar drakx-c8b361905dedbe2961b4e3c1670d5028eec12807.tar.gz drakx-c8b361905dedbe2961b4e3c1670d5028eec12807.tar.bz2 drakx-c8b361905dedbe2961b4e3c1670d5028eec12807.tar.xz drakx-c8b361905dedbe2961b4e3c1670d5028eec12807.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 7d92617ad..82ed7040c 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -11,6 +11,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK); @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; use Gtk; +use c; 1; @@ -200,6 +201,7 @@ sub _create_window($$) { my ($o, $title) = @_; $o->{window} = new Gtk::Window; $o->{window}->set_title($title); + $o->{window}->signal_connect("expose_event" => sub { c::XSetInputFocus($o->{window}->window->XWINDOW) }) if $my_gtk::force_focus; $o->{window}->signal_connect("delete_event" => sub { $o->{retval} = undef; Gtk->main_quit }); $o->{window} } |