Roxen.git/
server/
modules/
tags/
obox.pike
Branch:
Tag:
Non-build tags
All tags
No tags
1999-07-26
1999-07-26 13:15:01 by Martin Nilsson <mani@lysator.liu.se>
14ae4baabd0e8116f582e357d722912d3923a5f5 (
51
lines) (+
26
/-
25
)
[
Show
|
Annotate
]
Branch:
5.2
Made fit for the XML world. Added attribute noxml
Rev: server/modules/tags/obox.pike:1.14
5:
// Several modifications by Francesco Chemolli.
-
constant cvs_version = "$Id: obox.pike,v 1.
13
1999/
05
/
25
00
:
42
:
21
neotron
Exp $";
+
constant cvs_version = "$Id: obox.pike,v 1.
14
1999/
07
/
26
13
:
15
:
01
nilsson
Exp $";
constant thread_safe=1; #include <module.h>
26:
{ int width=((int)args->outlinewidth)||1;
-
return sprintf("<img src=\"%s\" alt=\"\" width=%
d
height=%
d
>",
-
unit_gif, width, width);
+
return sprintf("<img src=\"%s\" alt=\"\" width=
\"
%
d\"
height=
\"
%
d\"%s
>",
+
unit_gif, width, width
, (args->noxml?"":" /"
)
)
;
} static string handle_title(string name, mapping junk_args,
40:
static string horiz_line(mapping args) { args->fixedleft="";
-
return sprintf("<tr><td colspan=
5
bgcolor=\"%s\">\n"
+
return sprintf("<tr><td colspan=
\"5\"
bgcolor=\"%s\">\n"
"%s</td></tr>\n", args->outlinecolor, img_placeholder(args));
60:
args->right = args->width || "20"; switch (args->style) { case "groupbox":
-
return sprintf("<tr><td colspan=
2
><font size=-
3
> </font></td>\n"
-
"<td rowspan=
3
%s nowrap> <b>" /* bgcolor */
+
return sprintf("<tr><td colspan=
\"2\"
><font size=
\"
-
3\"
> </font></td>\n"
+
"<td rowspan=
\"3\"
%s nowrap
=\"nowrap\"
> <b>"
/* bgcolor */
"%s%s%s" /* titlecolor, title, titlecolor */ "</b> </td>\n"
-
"<td colspan=
2
><font size=-
3
> </font></td></tr>\n"
+
"<td colspan=
\"2\"
><font size=
\"
-
3\"
> </font></td></tr>\n"
"<tr%s>" /* bgcolor */
-
"<td bgcolor=\"%s\" colspan=
2
>\n" /* outlinecolor */
+
"<td bgcolor=\"%s\" colspan=
\"2\"
>\n"
/* outlinecolor */
"%s</td>\n" /* empty */
-
"<td bgcolor=\"%s\" colspan=
2
>\n"
+
"<td bgcolor=\"%s\" colspan=
\"2\"
>\n"
"%s</td></tr>\n" /* empty */ "<tr%s><td bgcolor=\"%s\">" /* bgcolor, outlinecolor */ "%s</td>\n" /* empty */
-
"<td%s><font size=-
3
>%s</font></td>" /* left, fixedleft */
-
"<td%s><font size=-
3
>%s</font></td>\n" /* right, fixedright */
+
"<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 */ ,
99:
args->outlinecolor, empty); case "caption":
-
return sprintf("<tr%s><td colspan=
2
><font size=-
3
> </font></td>\n"
-
"<td rowspan=
3
nowrap> <b>" /* bgcolor */
+
return sprintf("<tr%s><td colspan=
\"2\"
><font size=
\"
-
3\"
> </font></td>\n"
+
"<td rowspan=
\"3\"
nowrap
=\"nowrap\"
> <b>"
/* bgcolor */
"%s%s%s" /* titlecolor, title, titlecolor */ "</b> </td>\n"
-
"<td colspan=
2
><font size=-
3
> </font></td></tr>\n"
+
"<td colspan=
\"2\"
><font size=
\"
-
3\"
> </font></td></tr>\n"
"<tr bgcolor=\"%s\">" /* outlinecolor */
-
"<td colspan=
2
>\n"
+
"<td colspan=
\"2\"
>\n"
"%s</td>\n" /* empty */
-
"<td colspan=
2
>\n"
+
"<td colspan=
\"2\"
>\n"
"%s</td></tr>\n" /* empty */ "<tr bgcolor=\"%s\"><td>" /* outlinecolor */ "%s</td>\n" /* empty */
-
"<td%s><font size=-
3
>%s</font></td>" /* left, fixedleft */
-
"<td%s><font size=-
3
>%s</font></td>\n" /* right, fixedright */
+
"<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 */ ,
158:
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" +
+
s = "<table border=
\"0\"
cellpadding=
\"0\"
cellspacing=
\
"
0\""
+
+
(args->align?" align=
\
"
"
+args->
align+"\""
:"") +
+
(args->width ? " width=
\
"
"
+ args->
width+"\""
: "") + ">\n" +
s + "<tr" + (args->bgcolor?" bgcolor=\""+args->bgcolor+"\"":"") + "><td bgcolor=\"" + args->outlinecolor + "\">" + img_placeholder(args) + "</td>\n"
-
"<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
:"")+">"
+
"<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) {