blob: 587e9a99e65a627339b3270e94e808454c5bcb15 (
plain)
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
|
--- 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 } {
|
