1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
|
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
|
-
+
|
# It could come from the GUI or auto-detect, put it in the command line
# to make it visible for plugins.
set i [lsearch -exact $::eskil(argv) "-sep"]
if {$i >= 0} {
incr i
lset ::eskil(argv) $i $::eskil($top,separatorview)
} else {
lappend ::eskil(argv) -sep
lappend ::eskil(argv) -sep $::eskil($top,separatorview)
}
# Prepare plugin
if {$::eskil($top,plugin) ne "" && \
[dict get $::eskil($top,pluginpinfo) file]} {
preparePlugin $top
set ::eskil($top,cleanup) "plugin $::eskil($top,cleanup)"
}
|
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
|
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
|
+
|
ttk::frame $top.ft -borderwidth 2 -relief sunken
grid $top.l1 $top.le $top.l2 -row 1 -sticky news
grid $top.ft - - -row 2 -sticky news
grid columnconfigure $top "0 2" -weight 1
grid rowconfigure $top $top.ft -weight 1
# TBD TABLE
tablelist::tablelist $top.ft.tab -height 25 -width 100 \
-font myfont -labelfont myfont \
-movablecolumns no -setgrid no -showseparators no \
-fullseparators yes -selectmode none \
-colorizecommand tblModeColorCallback
ttk::scrollbar $top.ft.vsb -orient vertical \
-command "$top.ft.tab yview"
ttk::scrollbar $top.ft.hsb -orient horizontal \
-command "$top.ft.tab xview"
|