34 lines
579 B
Perl
Executable File
34 lines
579 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
# metacity-test - A simple script to test Metacity themes by popping up a simple
|
|
# window just to show off the window decorations.
|
|
#
|
|
# Requires Perl/Tk.
|
|
#
|
|
# --Kirsle
|
|
# http://sh.kirsle.net/
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Tk;
|
|
|
|
my $str = join (" ",@ARGV) || 'Preview';
|
|
|
|
my $mw = MainWindow->new (
|
|
-title => "Title",
|
|
);
|
|
$mw->optionAdd ('*highlightThickness',0);
|
|
|
|
$mw->Label (
|
|
-width => 25,
|
|
-textvariable => \$str,
|
|
-relief => 'flat',
|
|
-font => [
|
|
-weight => 'bold',
|
|
-size => 12,
|
|
-family => 'Arial',
|
|
],
|
|
)->pack (-padx => 15, -pady => 15);
|
|
|
|
MainLoop;
|