Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Graphische Oberflächen
[thread]4703[/thread]

Waitcursor: wie ging das nochmal?

Leser: 1


<< |< 1 2 >| >> 20 Einträge, 2 Seiten
Crian
 2004-01-15 16:29
#46725 #46725
User since
2003-08-04
5872 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
renee
 2004-01-15 16:36
#46726 #46726
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
schau Dir das hier mal an: www.ifh.de/computing/documentation/perl/perl12/perlteil12.ppt\n\n

<!--EDIT|renee|1074177514-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
ptk
 2004-01-15 16:51
#46727 #46727
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
Da Tk urspruenglich von X11 abstammt, ist es keine Sanduhr, sondern eine Armbanduhr (watch).

Aber deine Kritik ist berechtigt: es ist an keiner Stelle richtig dokumentiert, welche Cursors alle existieren. Eigentlich ein Fall fuer das "widget"-Programm...

Bis dahin hilft nur ein Blick in die Sourcen. Bei X11 waere das /usr/X11R6/include/X11/cursorfont.h, bei Windows pTk/mTk/win/rc/tk_base.rc in den Perl/Tk-Sourcen.
Crian
 2004-01-15 16:53
#46728 #46728
User since
2003-08-04
5872 Artikel
ModeratorIn
[Homepage]
user image
[quote=renee,15.01.2004, 15:36]schau Dir das hier mal an: www.ifh.de/computing/documentation/perl/perl12/perlteil12.ppt[/quote]
Sauber, da stand der entscheidende Tipp : cursorfont.h !

Jetzt gehts mit

Code: (dl )
1
2
3
4
5
my $oc = $Config{text_widget}->cget(-cursor);
$Config{text_widget}->configure(-cursor => 'watch');
speichere_aktuellen_ds();
speichere_daten();
$Config{text_widget}->configure(-cursor => $oc);


*freu*
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
Crian
 2004-01-15 16:57
#46729 #46729
User since
2003-08-04
5872 Artikel
ModeratorIn
[Homepage]
user image
Der von renee angegebene Link verweist auf die Datei cursorfont.h, dort wurde ich auch fündig (man sieht die Cursor zwar nicht, aber man kann es sich ungefähr denken).

Unter Windows wird beim Typ "watch" übrigends die Sanduhr dargestellt.

Ach ja, die Datei liegt bei mir unter ...Perl\site\lib\Tk\X11 (Windows / ActiveState)
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
ptk
 2004-01-15 19:19
#46730 #46730
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
[quote=Crian,15.Jan..2004, 15:57]Ach ja, die Datei liegt bei mir unter ...Perl\site\lib\Tk\X11 (Windows / ActiveState)[/quote]
Ah! Auf X11-Systemen wird die Datei nicht installiert, wahrscheinlich, weil sie eh' schon im System ist.
eisbeer
 2004-01-15 22:07
#46731 #46731
User since
2003-08-29
347 Artikel
BenutzerIn
[Homepage] [default_avatar]
Du kannst zB auch einfach das machen:

Code: (dl )
1
2
3
$mw->Busy(-recurse => 1);
# mach code
$mw->Unbusy;


Vereint einiges, nicht nur den Cursor :)
Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...
Crian
 2004-01-16 16:47
#46732 #46732
User since
2003-08-04
5872 Artikel
ModeratorIn
[Homepage]
user image
Das klingt noch besser... was passiert denn da noch so? Na, ich werds mal ausprobieren.
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
Crian
 2004-01-16 16:51
#46733 #46733
User since
2003-08-04
5872 Artikel
ModeratorIn
[Homepage]
user image
Hmm... das schaltet bei mir den Cursor aber nicht um, man sieht also nicht, dass etwas passiert?!
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
ptk
 2004-01-16 17:11
#46734 #46734
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
Das ist dann ein Bug. Ich habe aber schon ein paar Mal erlebt (nur unter Windows), dass eine Konfigurationsaenderung erst durchgefuehrt wurde, wenn man die Maus etwas bewegt hat.
<< |< 1 2 >| >> 20 Einträge, 2 Seiten



View all threads created 2004-01-15 16:29.