some fine-tuning of CSS

diff --git a/include/gallery.css b/include/gallery.css
index 5764706539f996e51594845d9c495a8b316dcb46..af7ba23079eb1b17af20ed85df3569e91b5a6b93 100644 (file)
--- a/include/gallery.css
+++ b/include/gallery.css
@@ -1,31 +1,68 @@
 img {
  clear:both;
 img {
  clear:both;

- border: 1px solid green;
+ border-style: inset;
+ border-color: gray;
+ border-width: 2px;
+ margin: 0.3ex;

 }
 }

+

 table.slide {
  float: left;
  width: 210px;
  height: 210px;
  margin: 0.3ex;
 table.slide {
  float: left;
  width: 210px;
  height: 210px;
  margin: 0.3ex;

- border: 1px solid black;
+ border-style: outset;
+ border-color: #e0c080;
+ border-width: 2px;

  background-color: #e0c080;
  text-align: center;
  font-size: 10px
 }
  background-color: #e0c080;
  text-align: center;
  font-size: 10px
 }

-tr {
+table.slide tr {

  margin: 0px;
 }
  margin: 0px;
 }

-td {
+table.slide td {

  margin: 0px;
  vertical-align: middle;
 }
  margin: 0px;
  vertical-align: middle;
 }

+

 div.ibox {
  background-color: #ffffc0;
  border: 1px solid black;
 div.ibox {
  background-color: #ffffc0;
  border: 1px solid black;

- text-align: left;
- position: absolute;

  margin: 0px;
  margin: 0px;

- padding: 1ex;
+ padding: 0px;

  display: none;
  z-index: 1000;
  display: none;
  z-index: 1000;

+ position: absolute;
+}
+div.iboxtitle {
+ background-color: blue;
+ border: 1px solid black;
+ margin: 0px;
+ padding: 0.5ex;
+}
+div.iboxtitle * {
+ color: white;
+}
+
+table.ipage {
+ background-color: #ffffc0;
+ border: 1px solid black;
+ border-collapse: collapse;
+ text-align: left;
+ margin: 0px;
+ padding: 0px;
+}
+table.ipage td {
+ border: 1px solid black;
+ margin: 0px;
+ padding: 1ex;
+}
+
+table.infotable {
+ border-width: 0px;
+}
+table.infotable td {
+ border-width: 0px;
+ padding: 0.3ex;

 }
 }

diff --git a/mkgallery.pl b/mkgallery.pl
index 2f6bc6e5ea0f95371fd5e6c3629a91f29b38069a..c61e22c293f2214b78c327c54be491595669c0f2 100755 (executable)
--- a/mkgallery.pl
+++ b/mkgallery.pl
@@ -385,12 +385,12 @@ sub makeaux {
 
        # info html
        my $imgsrc = sprintf("../.%s/%s",$sizes[0],$name);
 
        # info html
        my $imgsrc = sprintf("../.%s/%s",$sizes[0],$name);

-       print $F start_html(-title=>$title,-bgcolor=>"#ffff80",
+       print $F start_html(-title=>$title,

                                -style=>{-src=>$inc."gallery.css"},),"\n",
                start_center,"\n",
                h1($title),"\n",
                                -style=>{-src=>$inc."gallery.css"},),"\n",
                start_center,"\n",
                h1($title),"\n",

-               table(Tr(td(img({-src=>$imgsrc})),td($self->infotable))),
-               end_table,
+               table({-class=>'ipage'},Tr(td(img({-src=>$imgsrc})),td($self->infotable))),
+               a({-href=>'../index.html'},'Index'),"\n",

                end_center,"\n",
                end_html,"\n";
        close($F);
                end_center,"\n",
                end_html,"\n";
        close($F);


@@ -477,11 +477,13 @@ sub img_entry {
        my ($w, $h) = dim($info);
 
        print $IND start_div({-class=>'ibox',-id=>$name,
        my ($w, $h) = dim($info);
 
        print $IND start_div({-class=>'ibox',-id=>$name,

-                                       -OnClick=>"HideIbox('$name');"}),
+                               -OnClick=>"HideIbox('$name');"}),"\n",
+               start_div({-class=>'iboxtitle'}),

                span({-style=>'float: left;'},b("Info for $name")),
                span({-style=>'float: right;'},
                        a({-href=>"#",-OnClick=>"HideIbox('$name');"},"Close")),
                span({-style=>'float: left;'},b("Info for $name")),
                span({-style=>'float: right;'},
                        a({-href=>"#",-OnClick=>"HideIbox('$name');"},"Close")),

-               br({-clear=>'all'}),
+               br({-clear=>'all'}),"\n",
+               end_div,"\n",

                $self->infotable,
                end_div,"\n";
 
                $self->infotable,
                end_div,"\n";
 


@@ -522,7 +524,7 @@ sub infotable {
                'Model',
                'Software',
        );
                'Model',
                'Software',
        );

-       $msg.=start_table."\n";
+       $msg.=start_table({-class=>'infotable'})."\n";

        foreach my $k(@infokeys) {
                $msg.=Tr(td($k.":"),td($info->{$k}))."\n" if ($info->{$k});
        }
        foreach my $k(@infokeys) {
                $msg.=Tr(td($k.":"),td($info->{$k}))."\n" if ($info->{$k});
        }