summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorAurélien Lefebvre <alefebvre@mandriva.com>2009-08-17 14:19:59 +0000
committerAurélien Lefebvre <alefebvre@mandriva.com>2009-08-17 14:19:59 +0000
commit17208151a09b7abfa452088886098bee418a9df5 (patch)
tree554131cbf962dab9fd7c18856a15c3402ea6b250 /perl-install
parent23116b12dd7a005537b3be1df55a469b0445dbbd (diff)
downloaddrakx-17208151a09b7abfa452088886098bee418a9df5.tar
drakx-17208151a09b7abfa452088886098bee418a9df5.tar.gz
drakx-17208151a09b7abfa452088886098bee418a9df5.tar.bz2
drakx-17208151a09b7abfa452088886098bee418a9df5.tar.xz
drakx-17208151a09b7abfa452088886098bee418a9df5.zip
- drakbug: Added browse button
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS1
-rwxr-xr-xperl-install/standalone/drakbug5
2 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 2a6757751..9f5099f24 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,5 +1,6 @@
- drakbug
o Top textbox shrinked
+ o Added browse button
- drakhelp
o fix firefox launch bug #29775
- added the ability to add up/down buttons in add_modify_remove list
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);