25 lines
604 B
Tcl
25 lines
604 B
Tcl
--- 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 } {
|
|
|