wml_simple_card { -card_id {} -back_link_p 0 -back_label Back -add_paragraph_tags_p 1 } bodyWhat it does:
Returns a simple WML card, optionally providing a card_id and back link.Defined in: /web/philip/tcl/wap-defs.tcl
Source code:
arg_parser_for_wml_simple_card $args set retval {} if [empty_string_p $card_id] { append retval "<card>\n" } else { append retval "<card id=\"$card_id\">\n" } if $back_link_p { append retval "<do type=\"prev\" label=\"$back_label\"> <prev/> </do>\n" } if $add_paragraph_tags_p { append retval "<p>$body</p>\n</card>\n" } else { append retval "$body\n</card>\n" }