home *** CD-ROM | disk | FTP | other *** search
/ PCNET 2006 September - Disc 1 / PCNET_CD_2006_09.iso / linux / puppy-barebones-2.01r2.iso / pup_201.sfs / usr / lib / regexpviewer / lobster.tcl < prev    next >
Encoding:
Text File  |  2004-03-23  |  2.4 KB  |  67 lines
  1. # lobster.tcl --
  2.  
  3. # The code formerly known as "gtklook" on the Tcl'ers
  4. # wiki.  Most of this code was originally written by Jeremy Collins.
  5.  
  6. # $Id: lobster.tcl,v 1.1.1.1 2004/03/23 21:04:21 davidw Exp $
  7.  
  8. package provide style::lobster 0.1
  9.  
  10. namespace eval styles::lobster {
  11.     if { [tk windowingsystem] == "x11" } {
  12.     set size    -12
  13.     set family    Helvetica
  14.     font create LobsterFont      -size $size -family $family
  15.  
  16.     option add *borderWidth 1 widgetDefault
  17.     option add *activeBorderWidth 1 widgetDefault
  18.     option add *selectBorderWidth 1 widgetDefault
  19.     option add *font LobsterFont widgetDefault
  20.  
  21.     option add *padX 2 widgetDefault
  22.     option add *padY 4 widgetDefault
  23.  
  24.     option add *Listbox.background white widgetDefault
  25.     option add *Listbox.selectBorderWidth 0 widgetDefault
  26.     option add *Listbox.selectForeground white widgetDefault
  27.     option add *Listbox.selectBackground #4a6984 widgetDefault
  28.  
  29.     option add *Entry.background white widgetDefault
  30.     option add *Entry.foreground black widgetDefault
  31.     option add *Entry.selectBorderWidth 0 widgetDefault
  32.     option add *Entry.selectForeground white widgetDefault
  33.     option add *Entry.selectBackground #4a6984 widgetDefault
  34.  
  35.     option add *Text.background white widgetDefault
  36.     option add *Text.selectBorderWidth 0 widgetDefault
  37.     option add *Text.selectForeground white widgetDefault
  38.     option add *Text.selectBackground #4a6984 widgetDefault
  39.  
  40.     option add *Menu.activeBackground #4a6984 widgetDefault
  41.     option add *Menu.activeForeground white widgetDefault
  42.     option add *Menu.activeBorderWidth 0 widgetDefault
  43.     option add *Menu.highlightThickness 0 widgetDefault
  44.     option add *Menu.borderWidth 2 widgetDefault
  45.  
  46.     option add *Menubutton.activeBackground #4a6984 widgetDefault
  47.     option add *Menubutton.activeForeground white widgetDefault
  48.     option add *Menubutton.activeBorderWidth 0 widgetDefault
  49.     option add *Menubutton.highlightThickness 0 widgetDefault
  50.     option add *Menubutton.borderWidth 0 widgetDefault
  51.  
  52.     option add *Labelframe.borderWidth 2 widgetDefault
  53.     option add *Labelframe.padY 8 widgetDefault
  54.     option add *Labelframe.padX 16 widgetDefault
  55.     option add *Frame.borderWidth 2 widgetDefault
  56.  
  57.     option add *highlightThickness 0 widgetDefault
  58.     option add *troughColor #c3c3c3 widgetDefault
  59.  
  60.     option add *Scrollbar.width        12 widgetDefault
  61. #    option add *Scrollbar.troughColor    #c3c3c3 widgetDefault
  62.     option add *Scrollbar.borderWidth        1 widgetDefault
  63.     option add *Scrollbar.highlightThickness    0 widgetDefault
  64.  
  65.  
  66.     }
  67. }