Schrift
[thread]5092[/thread]

Tk::ProgressBar (Seite 3)

Leser: 3


<< |< 1 2 3 >| >> 28 Einträge, 3 Seiten
styx-cc
 2008-05-09 15:07
#109484 #109484
User since
2006-05-20
533 Artikel
BenutzerIn

user image
Was heisst denn funktioniert nicht?
Wird der Cursor zur Uhr?
Bleibt er anschliessend eine Uhr?
Stuerzt die Applikation ab?
usw. usf.
Pörl.
Kean
 2008-05-09 15:22
#109486 #109486
User since
2004-08-18
464 Artikel
BenutzerIn

user image
Programm läuft planmäßig, Zeiger wird nicht verändert.

Wenn ich das zurückwechseln zum normalen Zeiger weglasse wird erst nach dem ausführen des Ladens eine Uhr draus.
moritz
 2008-05-09 15:42
#109487 #109487
User since
2007-05-11
923 Artikel
HausmeisterIn
[Homepage]
user image
Also bei mir funktioniert folgendes Programm:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
use strict;
use warnings;
use Tk;

my $top = new MainWindow;
$top->Button(
    -text       => 'Cursor',
    -command    =>  sub {
        $top->configure(-cursor => 'watch');
        $top->idletasks();
        sleep 2;
        $top->configure(-cursor => 'arrow');
    },
)->pack();

MainLoop;


Funktioniert das bei dir?
Kean
 2008-05-09 15:50
#109488 #109488
User since
2004-08-18
464 Artikel
BenutzerIn

user image
Nein der Zeiger verändert sich auch hier nicht. Sleep funktioniert aber der Zeiger bleibt.

Hier mal meine Versionen:

Code: (dl )
1
2
3
4
5
6
7
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 18 registered patches, see perl -V for more detail)

Copyright 1987-2007, Larry Wall

Binary build 822 [280952] provided by ActiveState http://www.ActiveState.com
Built Jul 31 2007 19:34:48


Code: (dl )
1
2
3
Tk - a Graphical User Interface Toolkit
Version: 804.027-r6
Released: 2007-07-05
renee
 2008-05-09 16:07
#109489 #109489
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Das könnte durchaus ein Windows/ActivePerl-Problem sein. Hat hier jemand StrawberryPerl zur Hand?
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/
Gast Gast
 2008-05-09 23:16
#109500 #109500
Hallo,

Versuchs mal mit 'update' statt 'idletasks', dann müsste es gehen.
Und dann gibt es ja auch noch Busy...

Christoph
Kean
 2008-05-11 05:05
#109556 #109556
User since
2004-08-18
464 Artikel
BenutzerIn

user image
Update bringt ebenfalls keinen Effekt. Habe es nurn auch noch in der 5.10.0 getestet. Ebenfalls keine Veränderung des Cursors zum start des Ladevorgangs.

Bei Strawberry Perl habe ich leider Probleme alle nötigen Module zu installieren.
Spieler
 2008-05-12 14:18
#109603 #109603
User since
2007-09-24
70 Artikel
BenutzerIn
[default_avatar]
Hallo,

das ist ja seltsam, also das folgende erzeugt bei mir auf Button-click für vier Sekunden einen watch-cursor (mit AS 5.8.8 / AS Tk und auch mit Strawberry und aktuellem Tk):
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
use Tk;

my $mw = tkinit ();
$mw->Button(-text => 'watch',
-command => sub{$mw->configure(-cursor => 'watch');
$mw->update;
sleep 4;
$mw->configure(-cursor => '');
}
)->pack;

MainLoop;


Grüße, Christoph
<< |< 1 2 3 >| >> 28 Einträge, 3 Seiten



View all threads created 2005-09-28 15:40.