Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

(bbfu) Re: Transparent Transient Windows with Gtk-Perl

by bbfu (Curate)
on Apr 24, 2002 at 17:01 UTC ( #161671=note: print w/ replies, xml ) Need Help??


in reply to Transparent Transient Windows with Gtk-Perl

I found this (more or less) in Gtk::cookbook (comes with Gtk-Perl... just do man Gtk::cookbook). Sorry, no ideas about "transparent" windows (though I'm not 100% sure what you mean by "transparent").

#!/usr/bin/perl use warnings; use strict; use Gtk '-init'; my $mw = Gtk::Window->new(); my $lb = Gtk::Label->new("This is only a test."); $mw->border_width(5); $mw->add($lb); $mw->signal_connect('key_press_event', sub { Gtk->main_quit; 1 }); ############################### # Note that you have to realize it # before you can access $mw->window $mw->realize; $mw->window->set_decorations(0); ############################### $mw->show_all; Gtk->main;

bbfu
Black flowers blossum
Fearless on my breath


Comment on (bbfu) Re: Transparent Transient Windows with Gtk-Perl
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://161671]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (8)
As of 2014-07-30 10:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (230 votes), past polls