501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
|
lappend pArgv {*}$::eskil($top,pluginargv,$n)
}
# Look for declarations of command line options
set t 0
set ::eskil($top,edit,opts,$n) $pOpts
foreach {name flag doc} $pOpts {
ttk::label $w.l$t -text $name
addBalloon $w.l$t $doc
grid $w.l$t -sticky "w" -padx 3 -pady 3
if {$flag} {
# Initialise if given.
if {[lsearch -exact $pArgv $name] >= 0} {
set ::eskil($top,edit,$name,$n) 1
# Move responsibility from global argv
set ix [lsearch -exact $::eskil(argv) $name]
|
|
|
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
|
lappend pArgv {*}$::eskil($top,pluginargv,$n)
}
# Look for declarations of command line options
set t 0
set ::eskil($top,edit,opts,$n) $pOpts
foreach {name flag doc} $pOpts {
ttk::label $w.l$t -text $name
addBalloon $w.l$t -fmt $doc
grid $w.l$t -sticky "w" -padx 3 -pady 3
if {$flag} {
# Initialise if given.
if {[lsearch -exact $pArgv $name] >= 0} {
set ::eskil($top,edit,$name,$n) 1
# Move responsibility from global argv
set ix [lsearch -exact $::eskil(argv) $name]
|