Waitcursor: wie ging das nochmal? - #46739 (Graphische Oberflächen)

Crian

2004-01-19 11:00

User since
2003-08-04
5873 Artikel
ModeratorIn

hmmm der Code ist 1377 Zeilen lang... der betreffende Ausschnitt sieht so aus:

Code: (dl )

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;

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite