Roxen.git/ server/ modules/ tags/ obox.pike

1998-10-18

1998-10-18 00:25:32 by Martin Stjernholm <mast@lysator.liu.se>

• 9f2fdf7e2e97e3e7befcbbc4b4b8789b95baf65f (44 lines) (+25/-19) ^{[ Show | Annotate ]}
  Branch: 5.2

Added fixedleft, fixedright, aligncontents and padding options. Fixed
some spacing anomalies in netscape.

Rev: server/modules/tags/doc/obox:1.2
Rev: server/modules/tags/obox.pike:1.8

5:   // Several modifications by Francesco Chemolli.       - constant cvs_version = "$Id: obox.pike,v 1.7 1998/03/07 19:03:44 noring Exp $"; + constant cvs_version = "$Id: obox.pike,v 1.8 1998/10/18 00:25:26 mast Exp $";   constant thread_safe=1;      #include <module.h>
39:      static string horiz_line(mapping args)   { +  args->fixedleft="";    return sprintf("<tr><td colspan=5 bgcolor=\"%s\">\n"    "%s</td></tr>\n",    args->outlinecolor,
52:    string empty=img_placeholder(args);    switch (args->style) {    case "groupbox": -  if (!args->left) -  args->left="25"; -  if (args->width && !args->right) -  args->right=args->width; -  if (!args->right) -  args->right="350"; -  return sprintf("<tr><td colspan=2>&nbsp;</td>\n" +  if (!args->left && !args->fixedleft) +  if (args->width && !args->fixedright) args->fixedleft = "7"; else args->left = "1"; +  if (!args->right && !args->fixedright) args->right = "1"; +  return sprintf("<tr><td colspan=2><font size=-3>&nbsp;</font></td>\n"    "<td rowspan=3%s>&nbsp;<b>" /* bgcolor */    "%s%s%s" /* titlecolor, title, titlecolor */ -  "</b></td>\n" -  "<td colspan=2>&nbsp;</td></tr>\n" +  "</b>&nbsp;</td>\n" +  "<td colspan=2><font size=-3>&nbsp;</font></td></tr>\n"    "<tr%s>" /* bgcolor */    "<td bgcolor=\"%s\" colspan=2>\n" /* outlinecolor */    "%s</td>\n" /* empty */
71:       "<tr%s><td bgcolor=\"%s\">" /* bgcolor, outlinecolor */    "%s</td>\n" /* empty */ -  "<td%s>&nbsp;</td>" /* left */ -  "<td%s>&nbsp;</td>\n" /* right */ +  "<td%s><font size=-3>%s</font></td>" /* left, fixedleft */ +  "<td%s><font size=-3>%s</font></td>\n" /* right, fixedright */    "<td bgcolor=\"%s\">" /* outlinecolor */    "%s</td></tr>\n" /* empty */    ,
88:    args->bgcolor ? " bgcolor=\""+args->bgcolor+"\"" : "",    args->outlinecolor,    empty, -  " width="+args->left, -  " width="+args->right, +  (args->left ? " width="+args->left+"000" : ""), +  (args->fixedleft ? +  String.strmult ("&nbsp;", (int) args->fixedleft) : "&nbsp;"), +  (args->right ? " width="+args->right+"000" : ""), +  (args->fixedright ? +  String.strmult ("&nbsp;", (int) args->fixedright) : "&nbsp;"),    args->outlinecolor,    empty);    case "caption":
130:       switch (name) {    case "obox": +  s = title(args);    s = "<table border=0 cellpadding=0 cellspacing=0" +    (args->align?" align="+args->align:"") + -  (args->width?" width="+args->width:"") + ">\n" + -  title(args) + +  (args->width ? " width=" + args->width : +  (!args->fixedleft && !args->fixedright ? " width=1" : "")) + ">\n" + +  s +    "<tr" +    (args->bgcolor?" bgcolor="+args->bgcolor:"") +    "><td bgcolor=\"" + args->outlinecolor + "\">" +    img_placeholder(args) + "</td>\n" -  "<td colspan=3>\n" -  "<table border=0 cellspacing=5 "+ -  (args->spacing?"width="+(string)args->spacing+" ":"")+">" +  "<td" + (args->width && !args->fixedleft && !args->fixedright ? " width=1" : "") + +  (args->aligncontents ? " align=" + args->aligncontents : "") + " colspan=3" + ">\n" +  "<table border=0 cellspacing=0 cellpadding=" + (args->padding || "5") + +  (args->spacing?" width="+(string)args->spacing:"")+">"    "<tr><td>\n";       if (args->textcolor) {