1//****************************************************************************//
2// //
3// $File name : WmlWrite_mixin.PKG //
4// $File title : Wml Write Messages //
5// $Author : John Tuohy //
6// //
7// Confidential Trade Secret. //
8// Copyright 2000 Data Access Corporation, Miami FL, USA //
9// All Rights reserved //
10// DataFlex is a registered trademark of Data Access Corporation. //
11// $Rev History //
12// //
13// //
14// 10/2/00 jjt - created //
15// //
16//****************************************************************************//
17
18// create standard wml write commands.
19//
20// Current messages
21//
22// WriteWmlBreak String WrStr writes line with a <br />
23// WriteWmlTableBegin String sParams starts a table <table>
24// WriteWmlTableEnd end a table </table>
25// WriteWmlRowBegin start a row <tr>
26// WriteWmlRowEnd end a row </tr>
27// WriteWmlDataBegin start a cell <td>
28// WriteWmlDataEnd end a cell </td>
29// WriteWmlImg sAlt sSrc sExtra write an image tag </img.../>
30//
31use VDFBase.pkg
32
33{ ClassLibrary=Common }
34Class WmlWrite_mixin is a Mixin
35
36 Procedure WriteWml String sWml
37 Send WriteHtml sWml
38 End_Procedure
39
40 Procedure WriteWmlBreak String sWml
41 if (Num_Arguments>0) Send WriteWml (sWml + "
")
42 else Send WriteWml "
"
43 End_Procedure
44
45 Procedure WriteWmlTableBegin String sParams string sPer
46 String sWml
47 Move (' * sParams * '>') to sWml
48 Send WriteWml sWml
49 End_Procedure
50
51 Procedure WriteWmlTableEnd
52 Send WriteWml ''
53 End_Procedure
54
55 Procedure WriteWmlRowBegin
56 Send WriteWml ''
57 End_Procedure
58
59 Procedure WriteWmlRowEnd
60 Send WriteWml '
'
61 End_Procedure
62
63 Procedure WriteWmlCell string sData
64 Send WriteWml ('' * sData * ' | ')
65 End_Procedure
66
67 Procedure WriteWmlDataBegin
68 Send WriteWml ''
69 End_Procedure
70
71 Procedure WriteWmlDataEnd
72 Send WriteWml ' | '
73 End_Procedure
74
75 Procedure WriteWmlImg String sAlt String sSrc String sExtra
76 string sWml
77 Case Begin
78 Case (Num_arguments>2)
79 Move ('alt="' - sAlt - '" src="' - sSrc - '"' * sExtra) to sWml
80 case break
81 Case (Num_arguments=2)
82 Move ('alt="' - sAlt - '" src="' - sSrc - '"') to sWml
83 case break
84 Case else // assumes 1 arg, else a RT error
85 Move sAlt to sWml // assumes a fully defined string
86 Case End
87 Send WriteWml (" * sWml * "/>")
88 End_Procedure
89
90end_class