sub tk_save () {

    print "tk_save()\n" if $Config{debug};

    $Config{main_window}->Busy(-recurse => 1);

    speichere_aktuellen_ds();
    speichere_daten();
    gehe_zu($Config{Aktueller_DS});

    $Config{main_window}->Unbusy;

} # sub tk_save;