Module WmlWrite_Mixin.pkg
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 ('