| Server IP : 82.208.35.60 / Your IP : 216.73.216.238 Web Server : Apache/2.4.55 (FreeBSD) OpenSSL/1.1.1q-freebsd PHP/7.3.31 System : FreeBSD server7.d2m.cz 12.4-RELEASE-p9 FreeBSD 12.4-RELEASE-p9 GENERIC amd64 User : studiokobylisy_cz ( 1008) PHP Version : 7.3.31 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/ports/textproc/tkxmlive/files/ |
Upload File : |
--- interface.tcl.orig 2002-05-30 23:56:36.000000000 +0200
+++ interface.tcl 2013-08-07 14:58:22.000000000 +0200
@@ -1,4 +1,6 @@
-#!/usr/bin/wish
+#!/bin/sh
+# The next line restarts using %%WISH%% \
+exec %%WISH%% "$0"
package require msgcat
@@ -17,9 +19,11 @@
source library/scrolled_text.tcl
-set mcDir [file join [file dirname [info script]] gui/msgs]
-msgcat::mcload $mcDir
-msgcat::mclocale $env(LANG)
+if {[info exists env(LANG)]} {
+ set mcDir [file join [file dirname [info script]] gui/msgs]
+ msgcat::mcload $mcDir
+ msgcat::mclocale $env(LANG)
+}
proc SetResource { win } {