gal/nrt/theme.pm

   1 # NRT Theme for MJ's Photo Gallery
   2 # (c) 2003--2004 Martin Mares <mj@ucw.cz>; GPL'ed
   3 # Theme images taken from the cthumb package (c) Carlos Puchol
   4
   5 package Gallery::Theme;
   6
   7 use strict;
   8 use warnings;
   9
  10 sub Init($) {
  11         my ($u) = @_;
  12         Gallery::SetOptions(
  13                 "StyleSheet" => "$u/style.css",
  14                 "ThumbW" => 114,
  15                 "ThumbH" => 94,
  16                 "TopImg" => "$u/top.png",
  17                 "TopH" => 14,
  18                 "BotImg" => "$u/bot.png",
  19                 "BotH" => 18,
  20                 "LeftImg" => "$u/left.png",
  21                 "LeftW" => 14,
  22                 "RightImg" => "$u/right.png",
  23                 "RightW" => 18,
  24                 "InteriorMargin" => 4,
  25                 "ParentImg" => "$u/back.png",
  26                 "ParentH" => 48,
  27                 "ParentW" => 48,
  28                 "BackImg" => "$u/prev.png",
  29                 "BackH" => 48,
  30                 "BackW" => 48,
  31                 "FwdImg" => "$u/next.png",
  32                 "FwdH" => 48,
  33                 "FwdW" => 48
  34         );
  35 }
  36
  37 1;