# ./dictionary-manager --approve-updates '' . .
+source yarrglib.tcl
+
# invocation:
# OUT OF DATE
set col 0; foreach {colname coldesc rows} $alloptions {
debug "INIT $col $colname \"$coldesc\""
label .pe.grid.t$col -text $colname
- listbox .pe.grid.l$col
+ listbox .pe.grid.l$col -height -1
foreach {rowname rowdesc} $rows {
debug "INIT $col $colname \"$coldesc\" $rowname \"$rowdesc\""
.pe.grid.l$col insert end $rowdesc
}
bind .pe.grid.l$col <<ListboxSelect>> [list pixmap_select $col]
grid .pe.grid.t$col -column $col -row 0
- grid .pe.grid.l$col -column $col -row 1
+ grid .pe.grid.l$col -column $col -row 1 -sticky ns
incr col
}
pixmap_maybe_ok
}
if {$privacy_setting} {
package require http
- ::http::config -urlencoding utf-8
+ httpclientsetup dictionary-manager
}
}
manyset $argv userhost directory dictdir
debug "APPROVER FOR $userhost $directory $dictdir"
- set cmd [list tclsh $directory/dictionary-manager]
- if {$debug} { lappend cmd --debug-server }
- lappend cmd --remote-server-1 $directory $dictdir
+ set cmd "cd $directory && tclsh ./dictionary-manager"
+ if {$debug} { append cmd " --debug-server" }
+ append cmd " --remote-server-1 $directory $dictdir"
switch -glob $userhost {
{} { }
{* *} { set cmd $userhost }
- * { set cmd [concat [list ssh -o compression=yes $userhost] $cmd] }
+ * { set cmd [list ssh -o compression=yes $userhost $cmd] }
}
debug "APPROVER RUNS $cmd"