/usr/lib/grass64/etc/gtcltk/options.tcl is in grass-gui 6.4.3-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 | ############################################################################
#
# LIBRARY: options.tcl gui options
# AUTHOR(S): Cedric Shock (cedricgrass AT shockfamily.net)
# PURPOSE: Default options and load user options
# COPYRIGHT: (C) 2006 GRASS Development Team
#
# This program is free software under the GNU General Public
# License (>=v2). Read the file COPYING that comes with GRASS
# for details.
#
############################################################################
lappend auto_path $env(GISBASE)/bwidget
package require -exact BWidget 1.2.1
# set background color and help font
# These globals are still used in a few places by things in gis.m
set bgcolor HoneyDew2
##############################################################################
# Create fonts
proc fontcreate {font args} {
if {[lsearch [font names] $font] == -1} {
eval font create $font $args
} else {
eval font configure $font $args
}
}
fontcreate balloon-help -family Helvetica -size -12
fontcreate default -family Helvetica -size -12
fontcreate textfont -family Courier -size -12
fontcreate bolddefault -family Helvetica -size 12 -weight bold
fontcreate introfont -family Helvetica -size 14 -weight bold
global bolddefault
global introfont
global textfont
global default
##############################################################################
# Configure balloon help:
DynamicHelp::configure -font balloon-help -fg black -bg "#FFFF77"
##############################################################################
# Configure almost everything using the options database
# Font to use everywhere
option add *font default
# Font in labelframes of labels in bwidgets is prefixed with label:
option add *labelfont default
# Various background colors
option add *background #dddddd
option add *activeBackground #dddddd
option add *highlightBackground #dddddd
option add *ButtonBox.background HoneyDew2
option add *ButtonBox*add.highlightBackground HoneyDew2
option add *MainFrame.background HoneyDew2
option add *PanedWindow.background HoneyDew2
option add *Menu.background HoneyDew2
option add *listbox.background white
option add *addindicator.background white
# Things that are selected:
option add *selectBackground #ffff9b
option add *selectForeground black
# Menus use active instead of selected
option add *Menu.activeBackground #ffff9b
option add *Menu.activeForeground black
# Scrollbar trough color
option add *troughColor HoneyDew3
# Entry widgets and text widgets should have a white background
option add *Entry.background white
option add *entry.background white
option add *Entry.highlightbackground #dddddd
option add *entrybg white
option add *Text.background white
option add *Entry.font textfont
option add *Text.font textfont
# Options for map canvases
option add *mapcanvas.background #eeeeee
option add *mapcanvas.insertbackground black
option add *mapcanvas.selectbackground #c4c4c4
option add *mapcanvas.selectforeground black
##############################################################################
# Platform specific default settings:
# keycontrol is control key used in copy-paste bindings
set keycontrol "Control"
if {[info exists env(osxaqua)]} {
set osxaqua $env(osxaqua)
} else {
set osxaqua "0"
}
if { $osxaqua == "1"} {
set keycontrol "Command"
}
if {[info exists env(OS)] && $env(OS) == "Windows_NT"} {
set mingw "1"
} else {
set mingw "0"
}
|