From mboxrd@z Thu Jan  1 00:00:00 1970
From: James Ingham <jingham@cygnus.com>
To: MichalKang@aol.com
Cc: insight@sourceware.cygnus.com
Subject: Re: Insight Question
Date: Thu, 28 Oct 1999 10:12:00 -0000
Message-id: <14360.33906.210765.72522@leda.cygnus.com>
References: <0.bcf2782d.2549d1ca@aol.com>
X-SW-Source: 1999-q4/msg00033.html

Michal,

Unfortunately, the answer here is "hack it in...".  We intend to
expand the preferences panels to contain more features of the
debugger, things like text & background colors on the aesthetic side,
and all the nifty settings in gdb on the functional side, but haven't
yet gotten around to it.

Here's how you would go about it.  The text pane background color is
set in gdb/gdbtcl2/srctextwin.itb in the build_win method.  Look at:

  set twinp [iwidgets::scrolledtext $pane1.st -textbackground white \
	       -hscrollmode dynamic -vscrollmode dynamic]

So if you just want to hard code the color, you can just change white
to something else...

If you want to go further, try adding a preference for this, and
another button to the Source preferences panel to set this.  This is
pretty easy to do.

First, you will have to add a preference to the gdbtk preference set.
You do this in prefs.tcl in the prefs_set_default proc, by adding
something like

  pref define gdb/src/text_bg              orange

except you probably don't want orange - but it is almost Halloween...

Then add another button to the Source Preferences panel.  Do this in
the build_win method of srcpref.itb.  You can pretty much cut & paste
the code from the other buttons.

Then change the srctextwin.itb code to:

  set twinp [iwidgets::scrolledtext $pane1.st \
               -textbackground [pref get gdb/src/text_bg] \
	       -hscrollmode dynamic -vscrollmode dynamic]

and you are done.  If you hack all this in, send me the diffs, and I
will happily incorporate them.

Hope this helps.

Jim

 > Hello,
 > 
 > How do I change the default background color of white to something less 
 > stressing to the eyes?
 > 
 > Thank you,
 > Michael Kang.
 > 

-- 
++==++==++==++==++==++==++==++==++==++==++==++==++==++==++==++==++==++==++
Jim Ingham                                              jingham@cygnus.com
Cygnus Solutions Inc.