add submit input type in actioner aspect

David RENE
1 parent d7c27c62
Showing 1 changed file with 13 additions and 0 deletions Show diff stats
calexium_lib/web/CXM_making_a_web_site.anubis
@@ -776,6 +776,7 @@ public type Actioner_Target:
 public type Actioner_Aspect:
    link                (List(Text_Option),String text),                    // hypertext link
    push_button         (List(CoreAttrs),String text),
+   submit              (List(CoreAttrs),String text),
    button              (String url_off, String url_on),                    // rollover button
    button              (String url_off, String url_on, Int32 w, Int32 h),  // idem with size
    immediate_selector  (String name, Int32 size, List(String) choices).
@@ -2802,6 +2803,17 @@ define Printable_tree
                               [s,"<INPUT TYPE =\"button\" Value=\"",text,"\"", format_coreattrs(options), " onClick=\"",h,"\">"]
            }
          ], 
+       submit(options, text) then 
+         [
+           if action is 
+           {
+              url(u)          then    ["<a href=\"",u,"\"", format_coreattrs(options), ">",
+                                        text, "</a>"
+                                      ],
+              javascript(s,h) then 
+                              [s,"<INPUT TYPE =\"submit\" Value=\"",text,"\"", format_coreattrs(options), " onClick=\"",h,"\">"]
+           }
+         ], 
        button(url_off,url_on) then 
          [ if action is 
@@ -2858,6 +2870,7 @@ define Printable_tree
        {
          link(opt,text)          then [text], 
          push_button(opt, text)  then [text],  
+         submit(opt, text)       then [text],  
          button(url_off,url_on)  then 
            [
              "<img alt=\"",url_off,"\" src=\"",url_off,"\" border=0",