Schrift
[thread]4934[/thread]

Text in den Bildschirm schreiben ohne Fenster

Leser: 1


<< >> 5 Einträge, 1 Seite
Froschpopo
 2005-04-12 02:42
#43507 #43507
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
Gibt es auch ne Möglichkeit mit Tk einen Text irgendwo auf den Bildschirm zu schreiben, ohne ein MainWindow ?
So wie bei Skype, wenn ein Buddy online ist.
Strat
 2005-04-12 15:10
#43508 #43508
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
eventuell... z.B. wenn du ein neues Toplevel erstellst, und mit -overrideredirect die fensterdeko entfernst...
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
coax
 2005-04-12 16:59
#43509 #43509
User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]
und wenn du es dann noch transparent bekommst duerftest du in etwa den gewuenschten Effekt haben.
Fuer (Pseudo-)Transparenz musstest du glaube ich die Hintergrundfarbe auf undef setzen.
,,Das perlt aber heute wieder...'' -- Dittsche
Crian
 2005-04-12 18:55
#43510 #43510
User since
2003-08-04
5872 Artikel
ModeratorIn
[Homepage]
user image
Das ist es noch nicht:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use strict;
use warnings;

use Tk;

my $mw = new MainWindow(-background => undef);

$mw->overrideredirect(1); # Fensterdekoration ausschalten;

$mw->Label(-text => "Hallo Welt")->pack();

MainLoop();


Wenn ich jetzt -background => undef ins Label schreibe, schmiert mir Perl beim Aufruf ab.
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
 2005-04-12 19:08
#43511 #43511
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
Man kann Tk mit X11::Protocol kombinieren und die Shape-Extension von X11 verwenden. Nachteile: sehr unhandlich und auf X11 beschraenkt. Allerdings duerfte es eine aehnliche Loesung mit Win32::* geben.
<< >> 5 Einträge, 1 Seite



View all threads created 2005-04-12 02:42.