diff options
author | Jörg Frings-Fürst <jff@merkur> | 2014-07-06 15:20:38 +0200 |
---|---|---|
committer | Jörg Frings-Fürst <jff@merkur> | 2014-07-06 15:20:38 +0200 |
commit | 126bb8cb6b93240bb4d3a2b816b74c286c3d422b (patch) | |
tree | e66e1dfe77d53a52539489765c88d23e4423ae27 /lib/gcstar/GCStyle.pm |
Imported Upstream version 1.7.0upstream/1.7.0
Diffstat (limited to 'lib/gcstar/GCStyle.pm')
-rw-r--r-- | lib/gcstar/GCStyle.pm | 67 |
1 files changed, 67 insertions, 0 deletions
diff --git a/lib/gcstar/GCStyle.pm b/lib/gcstar/GCStyle.pm new file mode 100644 index 0000000..f8cfb32 --- /dev/null +++ b/lib/gcstar/GCStyle.pm @@ -0,0 +1,67 @@ +{ + package GCStyle; + +################################################### +# +# Copyright 2005-2010 Christian Jodar +# +# This file is part of GCstar. +# +# GCstar 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 of the License, or +# (at your option) any later version. +# +# GCstar 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 GCstar; if not, write to the Free Software +# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA +# +################################################### + + use strict; + + use base 'Exporter'; + our @EXPORT = qw(%styles @lists $defaultList @readOnlyStyles); + + use File::Basename; + use GCUtils 'glob'; + + our %styles; + our @lists; + our $defaultList; + our @readOnlyStyles; + + sub initStyles + { + foreach (glob $ENV{GCS_SHARE_DIR}.'/style/*') + { + my $style = basename($_); + next if $style eq 'CVS'; + my %tmpStyle; + $tmpStyle{dir} = $_; + $tmpStyle{rcFile} = $tmpStyle{dir}.'/gtkrc'; + $tmpStyle{name} = $style; + $styles{$style} = \%tmpStyle; + } + foreach (glob $ENV{GCS_SHARE_DIR}.'/list_bg/*') + { + my $bg = basename($_); + next if $bg eq 'CVS'; + push @lists, $bg; + } + foreach (glob $ENV{GCS_SHARE_DIR}.'/panels/*') + { + my $style = basename($_); + next if $style eq 'CVS'; + push @readOnlyStyles, $style; + } + $defaultList = 'Wood'; + } +} + +1; |