From: Harvie <tomas@mudrunka.cz>
Date: Wed, 7 Jul 2010 23:16:43 +0000 (+0200)
Subject: example of undecorated window
X-Git-Url: http://git.harvie.cz/?a=commitdiff_plain;h=ed2e7d780e98c1197668ea80a86d2ab69e756fbe;p=mirrors%2FPrograms.git

example of undecorated window
---

diff --git a/perl/gtk2/xterm-embed.pl b/perl/gtk2/xterm-embed.pl
index 0d12884..630539c 100755
--- a/perl/gtk2/xterm-embed.pl
+++ b/perl/gtk2/xterm-embed.pl
@@ -5,6 +5,7 @@ use Gtk2 -init;
 
 my $window = Gtk2::Window->new ('toplevel');
 $window->set_default_size(640, 480);
+#$window->set_decorated(0);
 $window->signal_connect( destroy => sub {
     Gtk2->main_quit();
 });