201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
|
set ::img(upup) [image create photo -height $ih -width [expr {2 * $iw}]]
$::img(upup) copy $::img(up) -to 0 0 [expr {2 * $iw - 1}] [expr {$ih - 1}]
EskilThemeInit
}
# Load sources needed early, during command line handling
proc InitSourceEarly {} {
source $::eskil(thisDir)/preprocess.tcl
}
proc InitReSource {} {
InitSourceEarly
# Get all other source files
source $::eskil(thisDir)/eskil.tcl
source $::eskil(thisDir)/clip.tcl
source $::eskil(thisDir)/compare.tcl
source $::eskil(thisDir)/map.tcl
source $::eskil(thisDir)/merge.tcl
source $::eskil(thisDir)/registry.tcl
source $::eskil(thisDir)/dirdiff.tcl
source $::eskil(thisDir)/help.tcl
source $::eskil(thisDir)/plugin.tcl
source $::eskil(thisDir)/printobj.tcl
source $::eskil(thisDir)/print.tcl
source $::eskil(thisDir)/rev.tcl
source $::eskil(thisDir)/debug.tcl
# Only load vcsvfs if vfs is present
if {![catch {package require vfs}]} {
source $::eskil(thisDir)/vcsvfs.tcl
}
}
# Debug function to be able to reread the source even when wrapped in a kit.
proc EskilRereadSource {} {
set this $::eskil(thisScript)
|
|
>
|
|
>
|
>
|
>
>
>
>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
|
set ::img(upup) [image create photo -height $ih -width [expr {2 * $iw}]]
$::img(upup) copy $::img(up) -to 0 0 [expr {2 * $iw - 1}] [expr {$ih - 1}]
EskilThemeInit
}
# Load sources needed early, during command line handling
proc InitSourceEarly {{srcdir {}}} {
if {$srcdir eq ""} {
set srcdir $::eskil(thisDir)
}
source $srcdir/preprocess.tcl
}
proc InitReSource {{srcdir {}}} {
if {$srcdir eq ""} {
set srcdir $::eskil(thisDir)
}
InitSourceEarly $srcdir
# Get all other source files
source $srcdir/eskil.tcl
source $srcdir/clip.tcl
source $srcdir/compare.tcl
source $srcdir/map.tcl
source $srcdir/merge.tcl
source $srcdir/registry.tcl
source $srcdir/dirdiff.tcl
source $srcdir/help.tcl
source $srcdir/plugin.tcl
source $srcdir/printobj.tcl
source $srcdir/print.tcl
source $srcdir/rev.tcl
source $srcdir/debug.tcl
# Only load vcsvfs if vfs is present
if {![catch {package require vfs}]} {
source $srcdir/vcsvfs.tcl
}
}
# Debug function to be able to reread the source even when wrapped in a kit.
proc EskilRereadSource {} {
set this $::eskil(thisScript)
|
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
|
set this $src
}
}
}
puts "Resourcing $this"
uplevel \#0 [list source $this]
# Get all other source files
InitReSource
}
# Initialize Ttk style settings
proc EskilThemeInit {} {
# Import the 'default' theme border element.
catch { ttk::style element create plain.border from default }
catch { ttk::style element create plain.padding from default }
|
|
|
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
|
set this $src
}
}
}
puts "Resourcing $this"
uplevel \#0 [list source $this]
# Get all other source files
InitReSource [file dirname $this]
}
# Initialize Ttk style settings
proc EskilThemeInit {} {
# Import the 'default' theme border element.
catch { ttk::style element create plain.border from default }
catch { ttk::style element create plain.padding from default }
|