Browse Source

* Changed the color code.

master
freesource 24 years ago
parent
commit
b0a5bf2cf1
  1. 11
      gBootRoot

11
gBootRoot

@ -2402,7 +2402,6 @@ sub err_custom_perl {
# This monster needs different behavior than create_text. # This monster needs different behavior than create_text.
sub verbosity_box { sub verbosity_box {
my ($red,$blue);
$verbosity_window = new Gtk::Window "toplevel"; $verbosity_window = new Gtk::Window "toplevel";
$verbosity_window->signal_connect("destroy", \&destroy_window, $verbosity_window->signal_connect("destroy", \&destroy_window,
@ -2439,14 +2438,8 @@ sub verbosity_box {
0, 0 ); 0, 0 );
$text->grab_focus(); $text->grab_focus();
$text->show(); $text->show();
my $colormap = Gtk::Gdk::Colormap->get_system(); my $red = Gtk::Gdk::Color->parse_color("red");
$red->{ 'red' } = 65000; my $blue = Gtk::Gdk::Color->parse_color("blue");
$blue->{ 'blue' } = 65000;
#$blue->{'red'} = 0;
#$blue->{'green'} = 0;
# Not a fatal problem
error( "Couldn't allocate color\n" )
unless ( defined( $colormap->color_alloc( $blue ) ) );
text_insert($text,$red,$blue); # yard thing text_insert($text,$red,$blue); # yard thing
# Add a vertical scrollbar to the GtkText widget # Add a vertical scrollbar to the GtkText widget

Loading…
Cancel
Save