From 71a636b1308fc06ce6b72f58c343b44a117060cf Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 18 Nov 2002 07:24:12 +0000 Subject: simplify code though my_gtk::gtkcolor --- perl-install/harddrake/ui.pm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'perl-install') 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 { -- cgit v1.2.1