From 17208151a09b7abfa452088886098bee418a9df5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Aur=C3=A9lien=20Lefebvre?= <alefebvre@mandriva.com>
Date: Mon, 17 Aug 2009 14:19:59 +0000
Subject: - drakbug: Added browse button

---
 perl-install/standalone/drakbug | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/standalone/drakbug')

diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index e6d7a69c6..74e370063 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -34,7 +34,7 @@ use run_program;
 
 my $prog;
 my $incident = 0;
-my ($table, $comb_app, $com_app, $button_pkg, $package, $distrocode, $error, $gdb_trace, $user_descr);
+my ($table, $comb_app, $com_app, $button_pkg, $button_browse, $package, $distrocode, $error, $gdb_trace, $user_descr);
 
 my $i;
 foreach (@ARGV) {
@@ -115,6 +115,7 @@ $table = create_packtable({ col_spacings => 5, row_spacings => 10 },
 			  gtkpack_(Gtk2::HBox->new(0, 5),
 				   1, $com_app = gtkset_editable(Gtk2::Entry->new, 1), 
 				   0, $button_pkg = Gtk2::Button->new(N("Find Package")),
+				   0, $button_browse = Gtk2::FileChooserButton->new(N("Browse"), 'GTK_FILE_CHOOSER_ACTION_OPEN'),
 				  ) ],
 			  [ gtknew('Label_Left', text => N("Package: ")), $package = Gtk2::Entry->new_with_text("...") ], # complain on gtk-perl@ml
 			  [ gtknew('Label_Left', text => N("Kernel:")), gtkset_editable(Gtk2::Entry->new_with_text($kernel_release), 0) ]
@@ -205,6 +206,8 @@ $button_pkg->signal_connect('clicked', sub {
 				    $package->set_text($pkg_name);
 				});
 
+$button_browse->signal_connect('file-set', sub { $com_app->set_text($button_browse->get_filename()) });
+
 $window->{window}->show_all;
 $window->main;
 ugtk2->exit(0);
-- 
cgit v1.2.1