From 2d4133ff240757edb14cf10b83bbbabb274772f3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 24 Sep 1999 08:53:00 +0000
Subject: no_comment

---
 perl-install/my_gtk.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install/my_gtk.pm')

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index bd822f67b..c43c8f899 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -143,9 +143,9 @@ sub gtkcolor($$$) {
     my ($r, $g, $b) = @_;
 
     my $color = bless {}, 'Gtk::Gdk::Color';
-    $color->red  ($r << 8);
-    $color->green($g << 8);
-    $color->blue ($b << 8);
+    $color->red  ($r);
+    $color->green($g);
+    $color->blue ($b);
     gtkroot()->get_colormap->color_alloc($color);
 }
 
@@ -289,7 +289,7 @@ sub _create_window($$) {
     my $f = new Gtk::Frame(undef);
     $w->set_name("Title");
 
-    if ($::isStandalone || $o->{no_border}) {
+    if ($::isStandalone || $o->{no_border} || 1) {
 	gtkadd($w, $f);
     } else {
 	my $t = new Gtk::Table(0, 0, 0);
-- 
cgit v1.2.1