summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-08-11 01:24:35 +0000
committerdamien <damien@mandriva.com>2001-08-11 01:24:35 +0000
commit24a468a5410a2987c580b9359927ad9203c0614b (patch)
tree1906866e2a09e35fe058d1527e15079168147660 /perl-install
parent6178e8c52bcb45d4f552f309614674d378c196d2 (diff)
downloaddrakx-24a468a5410a2987c580b9359927ad9203c0614b.tar
drakx-24a468a5410a2987c580b9359927ad9203c0614b.tar.gz
drakx-24a468a5410a2987c580b9359927ad9203c0614b.tar.bz2
drakx-24a468a5410a2987c580b9359927ad9203c0614b.tar.xz
drakx-24a468a5410a2987c580b9359927ad9203c0614b.zip
now works.
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/share/theme-editor.pl59
1 files changed, 53 insertions, 6 deletions
diff --git a/perl-install/share/theme-editor.pl b/perl-install/share/theme-editor.pl
index c3537febb..15c087e7d 100755
--- a/perl-install/share/theme-editor.pl
+++ b/perl-install/share/theme-editor.pl
@@ -1,5 +1,23 @@
#!/usr/bin/perl -w
+# Theme editor
+
+# Copyright (C) 1999 damien@mandrakesoft.com
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
use Gtk;
use lib qw(/usr/lib/libDrakX);
use my_gtk qw(:helpers :wrappers);
@@ -7,9 +25,19 @@ use common;
init Gtk;
+if ("@ARGV" =~ /-h/) {
+ print q(DrakX theme editor by dam's.
+
+Options :
+ -f specify the input theme file. Default is themes-mdk.rc
+ -o specify the output file. Default is input file.
+ -h print this help.
+)
+}
my ($file) = "@ARGV" =~ /-f (.+)/;
+my ($file2) = "@ARGV" =~ /-o (.+)/;
$file ||= "themes-mdk.rc";
-print "+++++++ $file\n";
+$file2 ||= $file;
my $window1 = new Gtk::Window -toplevel;
$window1->signal_connect ( delete_event => sub { Gtk->exit(0); });
$window1->set_title(_("Theme editor"));
@@ -34,8 +62,8 @@ foreach (cat_($file)) {
$do_style = 1;
}
if(/(\w+)\[(\w+)\]\s*=\s*\{\s*([0-9\.]+)\s*,\s*([0-9\.]+)\s*,\s*([0-9\.]+)\s*\}/) {
-# print " - $_ - \n" foreach ($1, $2, $3, $4, $5);
- print " ++ $style \n";
+ my ($a1, $a2) = ($1, $2);
+ my $style2 = $style;
if ($do_style) {
$cpt == 0 and gtkpack__($vb, $hb = new Gtk::HBox(0,5));
$cpt++;
@@ -57,7 +85,7 @@ foreach (cat_($file)) {
0, gtksignal_connect(gtkset_relief(my $b = new Gtk::Button(), 'none'), clicked => sub {
$c = change_color($c);
$gc->set_foreground($c);
- $color{$style}{$1}{$2} = $c;
+ $color{$style2}{$a1}{$a2} = $c;
$_[0]->draw(undef);
})
)
@@ -80,9 +108,28 @@ Gtk->main;
Gtk->exit(0);
sub doit {
- require Data::Dumper;
- print " --------------- \n " . Data::Dumper->Dump([%color],['color']) . "\n";
+ system("rm $file2");
+ foreach (cat_($file)) {
+ my $output;
+ chomp;
+ if(/style "(.*)"/) {
+ $style = $1;
+ $do_style = 1;
+ }
+ if(/(\w+)\[(\w+)\]\s*=\s*\{\s*([0-9\.]+)\s*,\s*([0-9\.]+)\s*,\s*([0-9\.]+)\s*\}/) {
+ # print " - $_ - \n" foreach ($1, $2, $3, $4, $5);
+ my ($a1, $a2) = ($1, $2);
+ my $c = $color{$style}{$1}{$2};
+ $output = $1 . "[" . $2 . "] = { " .
+ round($c->red()/65535*100)/100 . ", " . round($c->green()/65535*100)/100 . ", " . round($c->blue()/65535*100)/100 . " }";
+ }
+ /\{/ and $ref++;
+ if (/\}/) { $ref--; $ref == 0 and undef $style }
+ $output ||= $_;
+ system("echo '$output' >> $file2");
+ }
}
+
sub change_color {
my ($color) = @_;
my $window = new Gtk::Window -toplevel;