File: altedit.tk

package info (click to toggle)
tkmail 4.0beta9-8.1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 1,444 kB
  • ctags: 923
  • sloc: tcl: 13,262; ansic: 6,998; makefile: 351; sh: 88; sed: 57
file content (23 lines) | stat: -rwxr-xr-x 420 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#! /usr/bin/mfv_wish

wm withdraw .

set tkmail [lindex $argv 0]
set mfc [lindex $argv 1]
set tfile [lindex $argv 2]
set tcmd [lrange $argv 3 end]
set tcmd [string trim $tcmd "{}"]

if {[catch "exec $tcmd" res]} {
    if {[catch "send $tkmail \"mfv:error-mesg {$res} $mfc\""]} {
        puts stderr $res
    }
    exit
}

if {[catch "send $tkmail \"mfv:alt-edit-finish $mfc $tfile\"" res]} {
  puts stderr $res
}

exit