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
|
#==============================================================================
# Contains some Tk option database settings.
#
# Copyright (c) 2010-2018 Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
#==============================================================================
#
# Get the current windowing system ("x11", "win32", "classic", or "aqua")
#
if {[catch {tk windowingsystem} winSys] != 0} {
switch $::tcl_platform(platform) {
unix { set winSys x11 }
windows { set winSys win32 }
macintosh { set winSys classic }
}
}
#
# Add some entries to the Tk option database
#
switch $winSys {
x11 {
#
# Create the font TkDefaultFont if not yet present
#
catch {font create TkDefaultFont -family Helvetica -size -12}
option add *Font TkDefaultFont
option add *selectBackground #5294e2
option add *selectForeground white
}
classic {
option add *background #dedede
}
}
|
