[gimp-perl] Slight improvement on initial Dialog show.
- From: Ed J <edj src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [gimp-perl] Slight improvement on initial Dialog show.
- Date: Thu, 8 May 2014 03:31:10 +0000 (UTC)
commit 0a09db22b4bba04cde92cd8b38f8de67135faa41
Author: Ed J <edj src gnome org>
Date: Thu May 8 02:16:47 2014 +0100
Slight improvement on initial Dialog show.
UI/UI.pm | 12 +++++-------
1 files changed, 5 insertions(+), 7 deletions(-)
---
diff --git a/UI/UI.pm b/UI/UI.pm
index 07f7c82..83c86ca 100644
--- a/UI/UI.pm
+++ b/UI/UI.pm
@@ -608,11 +608,9 @@ sub interact($$$$@) {
);
my $t = new Gtk2::Tooltips;
- my $w = new Gtk2::Dialog;
-
my $title = $menupath;
$title =~ s#.*/##; $title =~ s#[_\.]##g;
- set_title $w "Perl-Fu: $title";
+ my $w = new Gtk2::Dialog "Perl-Fu: $title", undef, [];
$w->set_border_width(3); # sets border on inside because it's a window
$w->action_area->set_spacing(2);
$w->action_area->set_homogeneous(0);
@@ -628,9 +626,7 @@ sub interact($$$$@) {
$value=$default unless defined $value;
die sprintf __"Unsupported argumenttype %s for %s\n", $type, $name
unless $PF2INFO{$type};
- my ($a, $sv, $gv) = $PF2INFO{$type}->(
- $name,$desc,$default,$extra,$value
- );
+ my ($a, $sv, $gv) = $PF2INFO{$type}->( $name,$desc,$default,$extra,$value);
push @setvals, $sv;
push @getvals, $gv;
push @lastvals, $value;
@@ -659,11 +655,13 @@ sub interact($$$$@) {
can_default $button 1;
grab_default $button;
- show_all $w;
+ show_all $table;
+ show_all $sw;
$sw->set_size_request(
min(0.75*$sw->get_screen->get_width, $table->size_request->width + 30),
min(0.6*$sw->get_screen->get_height, $table->size_request->height + 5)
);
+ show_all $w;
while (1) {
my $res = $w->run;
die $exception_text if $exception_text;
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]