#!/usr/bin/wish -f

    # Hauptfenster nicht \Ufffffffferbar in seiner Gr\Uffffffff
    wm resizable . 0 0
    
    # Verlaufsliste
    toplevel .th
    
    wm title . "Regul\Uffffffff Ausdr\Uffffffffarstellen"
    wm title .th "Verlaufsliste"

    wm geometry . +100+100
    wm geometry .th +815+100

    #===========Prozeduren===========Start
    proc dateidialog {} {
        global datei
        
        # Dateitypen festlegen
        set filetypes { \
            {"Alle Dateien" *} \
            {"Textdateien" {.txt .TXT} } \
            {"Tcl-Dateien" { .tcl .TCL .tk .TK} }
        }
        
        # \Ufffffffffnendialog
        set datei [tk_getOpenFile \
            -initialdir [pwd] \
            -title "Datei \Uffffffffen..." \
            -filetypes $filetypes \
            -defaultextension .txt \
            -parent .]
        
        # In die proc einlesen gehen
        einlesen
    }

....
}

my $main = MainWindow->new(-title => 'Regulaere Ausdruecke darstellen', -geometry => '+100+100');

my $main = MainWindow->new();
$main->title('Regulaere Ausdruecke darstellen');
$main->geometry('+100+100');