bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2026-09-17 00:51:39 -04:00
Code Issues Projects Releases Wiki Activity

* Added color to Verbosity Box.

Browse Source 
* blue = 1  red = 2
This commit is contained in:
freesource
2000-12-02 06:35:08 +00:00
parent 51854a7794
commit 50c24778c5
2 changed files with 20 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gBootRoot
+12 -1
View File
@@ -2398,9 +2398,12 @@ sub err_custom_perl {
}
}
# This monster needs different behavior than create_text.
sub verbosity_box {
my ($red,$blue);
$verbosity_window = new Gtk::Window "toplevel";
$verbosity_window->signal_connect("destroy", \&destroy_window,
\$verbosity_window);
@@ -2436,7 +2439,15 @@ sub verbosity_box {
0, 0 );
$text->grab_focus();
$text->show();
text_insert($text); # yard thing
my $colormap = Gtk::Gdk::Colormap->get_system();
$red->{ 'red' } = 65000;
$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
# Add a vertical scrollbar to the GtkText widget
my $vscrollbar = new Gtk::VScrollbar( $text->vadj );