gal2/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 UCW::Gallery::Theme;
   6
   7 use strict;
   8 use warnings;
   9
  10 use UCW::Gallery;
  11
  12 sub Init($) {
  13         my ($u) = @_;
  14         UCW::Gallery::SetOptions(
  15                 "StyleSheet" => "$u/style.css",
  16                 "ThumbW" => 114,
  17                 "ThumbH" => 94,
  18                 "TopImg" => "$u/top.png",
  19                 "TopH" => 14,
  20                 "BotImg" => "$u/bot.png",
  21                 "BotH" => 18,
  22                 "LeftImg" => "$u/left.png",
  23                 "LeftW" => 14,
  24                 "RightImg" => "$u/right.png",
  25                 "RightW" => 18,
  26                 "InteriorMargin" => 4,
  27                 "ParentImg" => "$u/back.png",
  28                 "ParentH" => 48,
  29                 "ParentW" => 48,
  30                 "BackImg" => "$u/prev.png",
  31                 "BackH" => 48,
  32                 "BackW" => 48,
  33                 "FwdImg" => "$u/next.png",
  34                 "FwdH" => 48,
  35                 "FwdW" => 48
  36         );
  37         UCW::Gallery::RequireThumbnails(114, 94);
  38 }
  39
  40 1;