Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

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

by bbfu (Curate)
on Apr 24, 2002 at 17:01 UTC ( [id://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

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others cooling their heels in the Monastery: (2)
As of 2024-03-19 06:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found