[gimp-perl] Tidy up help window.
- From: Ed J <edj src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [gimp-perl] Tidy up help window.
- Date: Tue, 10 Jun 2014 07:14:56 +0000 (UTC)
commit 21ff18823d85c5a8b68f11408ab01b4a1d951c05
Author: Ed J <edj src gnome org>
Date: Tue Jun 10 08:14:39 2014 +0100
Tidy up help window.
UI/UI.pm | 10 +++++-----
1 files changed, 5 insertions(+), 5 deletions(-)
---
diff --git a/UI/UI.pm b/UI/UI.pm
index 33c3e6c..3986cd5 100644
--- a/UI/UI.pm
+++ b/UI/UI.pm
@@ -314,13 +314,13 @@ sub _find_digits {
}
sub help_window(\$$$$) {
- my ($helpwin, $parent, $title, $help) = @_;
+ my ($helpwin, $parent, $title, $blurb) = @_;
unless ($$helpwin) {
- $$helpwin = new Gtk2::Dialog;
- $$helpwin->set_title(sprintf __"Help for %s", $title);
+ $$helpwin = new Gtk2::Dialog sprintf(__"Help for %s", $title), $parent, [];
$$helpwin->action_area->set_border_width (2);
- my $tophelp = new Gtk2::Label $help;
+ my $tophelp = new Gtk2::Label $blurb;
$tophelp->set_alignment(0.5,0.5);
+ $tophelp->set_line_wrap(1);
$$helpwin->vbox->pack_start($tophelp,0,1,3);
my $sw = new Gtk2::ScrolledWindow undef,undef;
$sw->set_policy (-automatic, -automatic);
@@ -665,7 +665,7 @@ sub interact($$$$@) {
my $mainloop = Glib::MainLoop->new;
my $button = $w->add_button('gtk-help', 3);
$button->signal_connect(clicked => sub {
- help_window($helpwin, $w, $title, $help);
+ help_window($helpwin, $w, $title, $blurb);
});
$button = $w->add_button('gimp-reset', 2);
$button->signal_connect(clicked => sub {
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]