Added attributes for js_file() header tag

Added CXM_dojo.anubis

Added attributes for js_file() header tag
Added CXM_dojo.anubis
Steve MARECHAL
1 parent 4433de37
Showing 2 changed files with 115 additions and 4 deletions Show diff stats
calexium_lib/web/CXM_dojo.anubis
calexium_lib/web/CXM_making_a_web_site.anubis
+/*
+ * Created by PyramIDE.
+ * User: Steve Marechal
+ * Date: 11/06/2008
+ * Time: 09:54
+ * 
+ */
+
+read calexium_lib/web/CXM_making_a_web_site.anubis
+read tools/basis.anubis        // required for 'make_directory'
+read locale/L3LanguageInfo.anubis
+
+read mailfountain_constants.anubis
+read mailfountain_types.anubis
+read calexium_lib/web/CXM_common.anubis
+read calexium_lib/web/CXM_making_a_web_site.anubis
+read calexium_lib/web/CXM_multihost_http_server.anubis
+read common/language_management.anubis
+
+read tools/mf_loggers.anubis
+read calexium_lib/net_services_protocols/logger_service.anubis
+read system/logger.anubis
+public define HTML_Off_Form
+  dojo_dialog
+  	(
+  	  String name,
+  	  String id,
+  	  String execute,
+  	)
+	=
+	literal("
+<button dojoType=\"dijit.form.Button\" onclick=\"dijit.byId('"+id+"').show()\">"+name+"</button>
+
+<div dojoType=\"dijit.Dialog\" id=\""+id+"\" title=\""+name+"\"
+		execute=\""+execute+"\">
+	<table>
+		<tr>
+			<td><label for=\"name\"></label></td>
+			<td><input dojoType=dijit.form.TextBox type=\"text\" name=\"name\" id=\"name_"+id+"\"></td>
+		</tr>
+		
+		<tr>
+			<td colspan=\"2\" align=\"center\">
+				<button dojoType=dijit.form.Button type=\"submit\">OK</button></td>
+		</tr>
+	</table>
+</div></br>")
+
+.
+
+
+
+
+public define HTML_Off_Form
+  dojo_message_box
+  	(
+  	  String name1,
+  	  String name2,
+  	)
+	=
+	literal("</br>
+
+	<div>
+		<div style=\"width:100px; height:100px; position:relative; border:1px solid #666; \">
+			<div id=\"node3\" style=\"position:absolute; top:0; left:0;\" class=\"box nopad hidden\">"+name1+"</div>
+			<div id=\"node4\" style=\"position:absolute; top:0; left:0;\" class=\"box two nopad\">"+name2+"</div>
+		</div>
+	<br style=\"clear:both\">
+	</div></br>")
+.
+
+
+
+public define HTML_Off_Form
+  dojo_tooltip
+  (
+    String title,
+    String keyword,
+  ) =
+  actioner(same,same, link([id("dojo_tip_" + keyword),class("dojoToolTip")],title, success(title)), "show_address_mailing", [("address_mailing", keyword)], []).
+  //actioner(same, same, push_button([id("dojo_tip_" + keyword), class("in"), event(onclick,"new_search(this)")], keyword), "", [], []).
+  
+
@@ -1393,9 +1393,20 @@ public type CSS_Style:
  
 public type CSS_File:
    css_file(String file_name).
-   
+
+public type JS_Attribute:
+  attr      (String, String).
+  
 public type JS_File:
-   js_file(String file_name).
+  js_file(String              file_name,
+          List(JS_Attribute)  attributes).
+
+public define JS_File
+  js_file
+  (
+    String file_name
+  ) =
+  js_file(file_name, []).
  
 define String
    format
@@ -4169,6 +4180,21 @@ define Printable_tree
      }.
  
 define Printable_tree
+   add_js_files_attributes
+     (
+       List(JS_Attribute)   l
+     ) =
+   if l is 
+     {
+       [ ] then [ ], 
+       [h . t] then 
+         if h is attr(name, value) then 
+         [ " " + name + "=\"" + value + "\"" 
+           . add_js_files_attributes(t)]
+     }.
+
+
+define Printable_tree
    add_js_files
      (
        List(JS_File)   l
@@ -4177,8 +4203,10 @@ define Printable_tree
      {
        [ ] then [ ], 
        [h . t] then 
-       [ ["<script src=\""+ file_name(h) +"\" type=\"text/javascript\"></script>\n" ]
-         . add_js_files(t)]
+         [ ["<script src=\""+ file_name(h) +"\" type=\"text/javascript\""
+            . add_js_files_attributes(attributes(h)) ]
+           . ["></script>\n"
+             . add_js_files(t)] ]
      }.
  
 define Printable_tree