example of undecorated window

[mirrors/Programs.git] / perl / gtk2 / xterm-embed.pl

diff --git a/perl/gtk2/xterm-embed.pl b/perl/gtk2/xterm-embed.pl
index 0d12884f14a9ba7ed56b33643d657c058469a093..630539c7ad30d3b9c965de1cff66c39b184a381f 100755 (executable)
--- 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();
 });