home *** CD-ROM | disk | FTP | other *** search
- Path: sparky!uunet!gatech!destroyer!news.itd.umich.edu!spencer
- From: spencer@med.umich.edu (Spencer W. Thomas)
- Newsgroups: comp.lang.tcl
- Subject: Re: WANTED--Rx for Anemic Colors (P.S.):
- Date: 22 Jan 93 10:50:31
- Organization: University of Michigan HSITN
- Lines: 33
- Message-ID: <SPENCER.93Jan22105031@guraldi.med.umich.edu>
- References: <C183HD.H4x@ra.nrl.navy.mil> <C18410.HGG@ra.nrl.navy.mil>
- NNTP-Posting-Host: guraldi.itn.med.umich.edu
- In-reply-to: feirtag@wave3i.nrl.navy.mil's message of Thu, 21 Jan 1993 21:36:35 GMT
-
- I tried Fred Feirtag's script (create two labels, one colored
- "bisque1" and one the default color), and both labels were the same
- color with my copy of tk3.0.
-
- > How do you retrieve the color of a widget?
-
- .bisque1 configure -bg
- -background background Background #ffe4c4 bisque1
-
- The 4th (3 counting from 0) element, #ffe4c4, is the numeric
- definition of the color, the 5th element is the name.
-
- .default configure -bg
- -background background Background #ffe4c4 #ffe4c4
-
- Note that the numeric definition is the same, but there is no
- associated name.
-
- > How do you reset a widget to the default color?
-
- If you have one that you know has the default color, then get its
- color
- set default_color [lindex [.default configure -bg] 4]
- and use it
- .bisque1 configure -bg $default_color
-
- If you don't have a widget known to have the default color, then make
- one first.
-
- --
- =Spencer W. Thomas | Info Tech and Networking, B1911 CFOB, 0704
- "Genome Informatician" | Univ of Michigan, Ann Arbor, MI 48109
- Spencer.W.Thomas@med.umich.edu | 313-747-2778, FAX 313-764-4133
-