aboutsummaryrefslogtreecommitdiffstats
path: root/edit-urpm-sources.pl
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2006-07-04 12:07:20 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2006-07-04 12:07:20 +0000
commit12ca44ab517108c69d7b3cbb9e282526099c4291 (patch)
tree9effb2d73c0d533f36988aa27e20aada1c140730 /edit-urpm-sources.pl
parente3209e5ca82679c48ba0b6ddff9bcc3deb455b88 (diff)
downloadrpmdrake-12ca44ab517108c69d7b3cbb9e282526099c4291.tar
rpmdrake-12ca44ab517108c69d7b3cbb9e282526099c4291.tar.gz
rpmdrake-12ca44ab517108c69d7b3cbb9e282526099c4291.tar.bz2
rpmdrake-12ca44ab517108c69d7b3cbb9e282526099c4291.tar.xz
rpmdrake-12ca44ab517108c69d7b3cbb9e282526099c4291.zip
nicer alignment
Diffstat (limited to 'edit-urpm-sources.pl')
-rwxr-xr-xedit-urpm-sources.pl11
1 files changed, 8 insertions, 3 deletions
diff --git a/edit-urpm-sources.pl b/edit-urpm-sources.pl
index 32a8fa2d..4d28697f 100755
--- a/edit-urpm-sources.pl
+++ b/edit-urpm-sources.pl
@@ -139,6 +139,8 @@ sub add_callback {
my $notebook = Gtk2::Notebook->new;
$notebook->set_show_tabs(0); $notebook->set_show_border(0);
my ($count_nbs, %pages);
+ my $size_group = Gtk2::SizeGroup->new('horizontal');
+ my ($cb1, $cb2);
map {
my $info = $radios_infos{$_};
my $url_entry = sub {
@@ -157,7 +159,7 @@ sub add_callback {
my $tips = Gtk2::Tooltips->new;
my $checkbut_entry = sub {
my ($name, $label, $visibility, $callback, $tip) = @_;
- [ gtksignal_connect(
+ my $w = [ gtksignal_connect(
$info->{$name . '_check'} = gtkset_tip($tips, Gtk2::CheckButton->new($label), $tip),
clicked => sub {
$info->{$name . '_entry'}->set_sensitive($_[0]->get_active);
@@ -165,6 +167,8 @@ sub add_callback {
},
),
gtkset_visibility(gtkset_sensitive($info->{$name . '_entry'} = gtkentry(), 0), $visibility) ];
+ $size_group->add_widget($info->{$name . '_check'});
+ $w;
};
my $loginpass_entries = sub {
map {
@@ -194,7 +198,7 @@ sub add_callback {
if_($info->{loginpass}, $loginpass_entries->()),
sub {
[ gtksignal_connect(
- $info->{distrib_check} = Gtk2::CheckButton->new(N("Create media for a whole distribution")),
+ $info->{distrib_check} = $cb1 = Gtk2::CheckButton->new(N("Create media for a whole distribution")),
clicked => sub {
if ($_[0]->get_active) {
$info->{hdlist_entry}->set_sensitive(0);
@@ -205,11 +209,12 @@ sub add_callback {
];
}->(),
sub {
- [ $info->{update_check} = Gtk2::CheckButton->new(N("Search this media for updates")) ];
+ [ $info->{update_check} = $cb2 = Gtk2::CheckButton->new(N("Search this media for updates")) ];
}->(),
))
);
} @radios_names_ordered;
+ $size_group->add_widget($_) foreach $cb1, $cb2;
my $checkok = sub {
my $info = $radios_infos{$radios_names_ordered[$notebook->get_current_page]};