/usr/lib/timidity/tkmidity.tcl is in timidity-interfaces-extra 2.13.2-40.3.
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 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 | #!/usr/bin/wish -f
#
# TiMidity++ -- MIDI to WAVE converter and player
# Copyright (C) 1999-2002 Masanao Izumo <mo@goice.co.jp>
# Copyright (C) 1995 Tuukka Toivonen <tt@cgs.fi>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
#
# TkMidity -- Tcl/Tk Interface for TiMidity
# written by Takashi IWAI
#
# Version 1.3; Dec. 5, 1995
#
# system path and configuration file path
set TclRoot /usr/lib/timidity
set bitmap_path /usr/lib/timidity/bitmaps
set ConfigFile "~/.tkmidity"
# append library path
lappend auto_path $TclRoot
#
# window fonts
#
option add *menu*font "-adobe-helvetica-bold-r-normal--12-*"
option add *body.curfile.font "-adobe-helvetica-bold-o-normal--18-*"
option add *body.file*font "-adobe-helvetica-medium-r-normal--14-*"
option add *body*label.font "-adobe-times-bold-i-normal--18-*"
option add *body*Scale.font "-adobe-times-medium-i-normal--14-*"
option add *body.text*font "-adobe-helvetica-medium-r-normal--14-*"
#
# main routine
#
InitGlobal
LoadConfig
InitCmdLine $argc $argv
CreateWindow
AppendMsg "TiMidity Tcl/Tk Version\n written by Takashi Iwai\n"
init-random [pid]
if {$Stat(new_tcltk)} {
fileevent stdin readable HandleInput
} else {
addinput -read stdin HandleInput
}
if {$Config(AutoStart)} { PlayCmd }
tkwait window .
# send quit message to the main process before die...
WriteMsg "QUIT"
WriteMsg "ZAPP"
exit 0
# end of file
|