/usr/bin/mova_sendTK is in mova 4.0-4.2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 | #! /bin/sh
#"mova_sendTK" - Tcl/TK script to send request for
#open windows of Tcl/TK "MOVA" scripts.
#ver. 4.0 (C) E.S.Cymbalyuk 1999. Under GNU GPL. No Warranty.\
exec wish "$0" "$@"
#catch {encoding system identity}
#catch {encoding system iso8859-1}
catch {encoding system koi8-r}
if {$argc <1 || [catch {set word [selection get]} error] != 0 } {puts "Let us mark a word by the mouse and then run:\n$argv0 OPTION\nWhere OPTION is \"-W\" or \"-B\" or \"-S\" or \"-T\". Let us run \"mova\" for explanation of OPTION.\n"}
wm withdraw .
proc SendToOpen {MOVA} {
global argv
if {[string first $MOVA [winfo interp]] != -1 } then {switch -- $argv -W {send -async $MOVA {Mova {-W}; WordLight} } -B {send -async $MOVA {Mova {-B}; WordLight} } -S {send -async $MOVA {Mova {-S}; WordLight} } -T {send -async $MOVA {Mova {-T}; WordLight} }}}
#Muller Dictionary 7 Edition with transcription, GNU GPL; www.chat.ru/~mueller_dic or www.geocities.org/mueller_dic
SendToOpen {tkMueller7GPL.koi}
if {[string first tkMueller7GPL.koi [winfo interp]] == -1 } {exec movaTK $argv &}
#Muller Dictionary 7 Edition with transcription and accent; www.chat.ru/~mueller_dic or www.geocities.org/mueller_dic
SendToOpen {tkMueller7accentGPL.koi}
#Muller Dictionary 24 Edition; www.chat.ru/~mueller_dic or www.geocities.org/mueller_dic
SendToOpen {tkMueller24.koi}
#Magus Dictionary; www.chat.ru/~transmagus_dic or www.geocities.org/magus_dic
SendToOpen {tkApresyan.koi}
#Computer Dictionary; www.chat.ru/~transmagus_dic or www.geocities.org/magus_dic
SendToOpen {tkcomputer.koi}
#Economy Dictionary; www.chat.ru/~transmagus_dic or www.geocities.org/magus_dic
SendToOpen {tkeconomy.koi}
#Muller Dictionary 7 Edition with transcription, GNU GPL; MultiTK
SendToOpen {mtkMueller7GPL.koi}
#Muller Dictionary 7 Edition with transcriptioni and accents, GNU GPL; MultiTK
SendToOpen {mtkMueller7accentGPL.koi}
#Muller Dictionary 24 Edition; MultiTK
SendToOpen {mtkMueller24.koi}
#Magus Dictionary; MultiTK
SendToOpen {mtkApresyan.koi}
#Computer Dictionary; MultiTK
SendToOpen {mtkcomputer.koi}
#Economy Dictionary; MultiTK
SendToOpen {mtkeconomy.koi}
exit
|