bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 00:53:23 -05:00
Code Issues Projects Releases Wiki Activity

* Changed the color code.

Browse Source
This commit is contained in:
freesource 2000-12-02 07:03:54 +00:00
parent 50c24778c5
commit b0a5bf2cf1
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gBootRoot
View File

@ -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