24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
-
+
|
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
#----------------------------------------------------------------------
# the next line restarts using tclsh \
exec tclsh "$0" "$@"
package require Tcl 8.5
package require Tcl 8.6
# Stop Tk from meddling with the command line by copying it first.
set ::eskil(argv) $::argv
set ::eskil(argc) $::argc
set ::argv {}
set ::argc 0
|
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
-
+
|
# Do initalisations for needed packages and globals.
# This is not run until needed to speed up command line error reporting.
proc Init {} {
if {[info exists ::eskil(initHasRun)]} {
return
}
set ::eskil(initHasRun) 1
package require Tk 8.4
package require Tk 8.6
catch {package require textSearch}
package require wcb
package require snit
package require tablelist_tile
if {[catch {package require psballoon}]} {
# Add a dummy if it does not exist.
|
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
|
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
|
-
+
|
proc getOptions {} {
if {$::tcl_platform(os) eq "Darwin"} {
set ::DefaultPref(fontsize) 10
} else {
set ::DefaultPref(fontsize) 8
}
# Maybe change to TkFixedFont in 8.5 ?
# Maybe base default font on TkFixedFont ?
set ::DefaultPref(fontfamily) Courier
set ::DefaultPref(ignore) "-b"
set ::DefaultPref(nocase) 0
set ::DefaultPref(noempty) 0
set ::DefaultPref(pivot) 100
set ::DefaultPref(nodigit) 0
set ::DefaultPref(parse) 2
|