diff --git a/calexium_lib/web/CXM_dojo.anubis b/calexium_lib/web/CXM_dojo.anubis new file mode 100644 index 0000000..5c89ed7 --- /dev/null +++ b/calexium_lib/web/CXM_dojo.anubis @@ -0,0 +1,83 @@ +/* + * 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(" + + +
+ + + + + + + + + +
+
+

") + +. + + + + +public define HTML_Off_Form + dojo_message_box + ( + String name1, + String name2, + ) + = + literal("
+ +
+
+
"+name1+"
+
"+name2+"
+
+
+

") +. + + + +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), "", [], []). + + diff --git a/calexium_lib/web/CXM_making_a_web_site.anubis b/calexium_lib/web/CXM_making_a_web_site.anubis index a4a6d73..8ff95ca 100644 --- a/calexium_lib/web/CXM_making_a_web_site.anubis +++ b/calexium_lib/web/CXM_making_a_web_site.anubis @@ -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 - [ ["\n" ] - . add_js_files(t)] + [ ["\n" + . add_js_files(t)] ] }. define Printable_tree -- libgit2 0.21.4