#!/bin/sh
# Beispiel für die Lokalisierung
# von Tcl-Anwendungen \
exec wish $0 $@

package require msgcat

# Auslesen der Systemeinstellung
msgcat::mclocale $env(LANG)

# Laden der Sprachkataloge
msgcat::mcload [pwd]

# Aufbau des GUIs
label .l -text [msgcat::mc "Default is %s" $env(LANG)]
grid .l
label .l2 -text [msgcat::mc date 10 15]
grid .l2
button .b -text [msgcat::mc "Exit"] -command exit
grid .b -padx 5 -pady 5

wm geometry . 220x75
wm title . "Deutsch"
#wm title . "English"