Thread Waitcursor: wie ging das nochmal? (19 answers)
Opened by Crian at 2004-01-15 16:29

Crian
 2004-01-15 16:29
#46725 #46725
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
Ich wusste es schonmal, aber jetzt hab ich mich schon totgesucht danach (Tk-Buch liegt sinniger Weise zu Hause :( ) ...

Ich dachte ich könnte mit

Code: (dl )
1
2
3
$mw->configure(-cursor => 'hourglass');
# mach was langes
$mw->configure(-cursor => 'top_left_arrow');


zwischenzeitlch den Cursor auf die Sanduhr umstellen, während etwas langwieriges gemacht wird.

Aber es klappt nicht. (Sprich Fehlerlmeldung erscheint:

Quote
Tk::Error: Can't set -cursor to `hourglass' for MainWindow=HASH(0x1faf324): bad cursor spec "hourglass" at C:/Perl/site/lib/Tk/Configure.pm
line 46.
at C:/Perl/site/lib/Tk/Derived.pm line 294

(processing "-cursor" option)
Tk callback for .
Tk::Derived::configure at C:/Perl/site/lib/Tk/Derived.pm line 306
main:: at [...].pl line 415
Tk::BackTrace at C:/Perl/site/lib/Tk.pm line 101
Tk::Derived::configure at C:/Perl/site/lib/Tk/Derived.pm line 306
main:: at [...].pl line 415
(command bound to event)
Terminating on signal SIGINT(2)


)

Inzwischen hätte ich schon nach Hause gehen, das Buch holen und zurückkommen können ... weder im Forum noch Google noch perldoc haben mir weitergeholfen. Dabei hab ich es sogar schonmal in einem Programm verwendet, wenn ich mich richtig erinnere, auch das hab ich nicht wiedergefunden grrrrr.\n\n

<!--EDIT|Crian|1074177108-->
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

View full thread Waitcursor: wie ging das nochmal?