my $typen = [
                        ['txt-Format',    '.txt'                          ],
                        ['out-Format',    '.out'                          ],
                        ['xml-Format',    '.xml'                          ],
                        ['XXXXX-Dateien', ['.txt', '.out', '.xml', '.ana']],
                        ['Alle',          '*'                             ],
                    ];
                    my $dn = $mw->getOpenFile(-filetypes  => $typen,
                                              -initialdir => '.',
                                             );

                    if (defined $dn and $dn ne "") {
                        $Konfig{quelle}  = $dn;
                        $Konfig{maxsize} = -s $Konfig{quelle};
                        $mw->update();
                    }