summaryrefslogtreecommitdiffstats
path: root/perl-install/harddrake
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-18 07:24:12 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-18 07:24:12 +0000
commit71a636b1308fc06ce6b72f58c343b44a117060cf (patch)
tree748504eff66897a65fe7cdb2d515e66dbdcf8dbb /perl-install/harddrake
parent66c2af329c5fa7a8bdd58003b9ac0b87f96dfec1 (diff)
downloaddrakx-backup-do-not-use-71a636b1308fc06ce6b72f58c343b44a117060cf.tar
drakx-backup-do-not-use-71a636b1308fc06ce6b72f58c343b44a117060cf.tar.gz
drakx-backup-do-not-use-71a636b1308fc06ce6b72f58c343b44a117060cf.tar.bz2
drakx-backup-do-not-use-71a636b1308fc06ce6b72f58c343b44a117060cf.tar.xz
drakx-backup-do-not-use-71a636b1308fc06ce6b72f58c343b44a117060cf.zip
simplify code though my_gtk::gtkcolor
Diffstat (limited to 'perl-install/harddrake')
-rw-r--r--perl-install/harddrake/ui.pm7
1 files changed, 2 insertions, 5 deletions
diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm
index 34c9a670d..ea3cf7239 100644
--- a/perl-install/harddrake/ui.pm
+++ b/perl-install/harddrake/ui.pm
@@ -207,11 +207,8 @@ sub new {
$vbox->set_child_packing($config_button, 0, 0, 0, 'start');
$vbox->set_child_packing($module_cfg_button, 0, 0, 0, 'start');
- my $cmap = Gtk::Gdk::Colormap->get_system;
- my $color = { 'red' => 0x3100, 'green' => 0x6400, 'blue' => 0xbc00 };
- $cmap->color_alloc($color);
- my $wcolor = { 'red' => 0xFFFF, 'green' => 0x6400, 'blue' => 0x6400 };
- $cmap->color_alloc($wcolor);
+ my $color = gtkcolor(0x3100, 0x6400, 0xbc00);
+ my $wcolor = gtkcolor(0xFFFF, 0x6400, 0x6400);
$tree->set_column_auto_resize(0, 1);
$tree->signal_connect('select_row', sub {