From 4bb63871c17561ea7cb91d2f180d68c38273eaf0 Mon Sep 17 00:00:00 2001 From: totoro Date: Sun, 24 Jan 2016 16:40:59 +0100 Subject: [PATCH] remove comment line automatically generated by pyramIDE which was not necessary add view_name in VTM_view add management of icon in VT_view_entry --- CXM_errors.anubis | 2 +- asterisk/ami_types.anubis | 66 +++++++++++++++++++++++++++++++++--------------------------------- database/settings_sqlite3.anubis | 264 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------------------------------------------------------------------------------------------------------------------ database/vtm/view_table_manager.anubis | 2 +- database/vtm/view_table_manager_types.anubis | 2 +- database/vtm/view_table_renderer.anubis | 11 +++++++---- database/vtm/view_table_types.anubis | 5 +++-- mail/authentication.anubis | 196 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------------------------------------------------------------------------------------- net_services/CXM_generic_client.anubis | 2 +- net_services_protocols/ftp_client.anubis | 2 +- web/CXM_json.anubis | 2 +- web/CXM_web_dump.anubis | 140 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++---------------------------------------------------------------------- web/jQuery/CXM_jquery_datatable.anubis | 2 +- web/jQuery/CXM_jquery_datatable_types.anubis | 142 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++----------------------------------------------------------------------- web/jQuery/CXM_jquery_eudock.anubis | 392 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- web/jQuery/CXM_jquery_eudock_types.anubis | 388 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- web/jQuery/CXM_jquery_icons.anubis | 1120 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- web/jQuery/CXM_jquery_tabs.anubis | 2 +- web/jQuery/CXM_jquery_tiptip.anubis | 2 +- 19 files changed, 1373 insertions(+), 1369 deletions(-) diff --git a/CXM_errors.anubis b/CXM_errors.anubis index f9ea1ee..afca765 100644 --- a/CXM_errors.anubis +++ b/CXM_errors.anubis @@ -4,7 +4,7 @@ * Date: 16/09/2007 * Time: 21:10 * - * To change this template use Tools | Options | Coding | Edit Standard Headers. + * */ public type GeneralError: diff --git a/asterisk/ami_types.anubis b/asterisk/ami_types.anubis index 6bb6b07..2be1aa5 100644 --- a/asterisk/ami_types.anubis +++ b/asterisk/ami_types.anubis @@ -1,33 +1,33 @@ -/* - * Created by PyramIDE. - * User: Tototo - * Date: 13/07/2013 - * Time: 02:19 - * - * To change this template use Tools | Options | Coding | Edit Standard Headers. - */ - -read tools/connections.anubis - -public type Key_value: - key_value(String key, String value). - -public type AMI_Response: - success(List(Key_value)), - error(List(Key_value)). - -public type AMI_Action: - action(String action_type, List(Key_value)). - -public type AMI_Event: - event(String event_type, List(Key_value)). - -public type AMI_Auth: - auth(String login, String pass). - -public type Asterisk_client: - asterisk_client( - Connection conn, - Var(Int) id, - AMI_Auth auth). - +/* + * Created by PyramIDE. + * User: Tototo + * Date: 13/07/2013 + * Time: 02:19 + * + * + */ + +read tools/connections.anubis + +public type Key_value: + key_value(String key, String value). + +public type AMI_Response: + success(List(Key_value)), + error(List(Key_value)). + +public type AMI_Action: + action(String action_type, List(Key_value)). + +public type AMI_Event: + event(String event_type, List(Key_value)). + +public type AMI_Auth: + auth(String login, String pass). + +public type Asterisk_client: + asterisk_client( + Connection conn, + Var(Int) id, + AMI_Auth auth). + diff --git a/database/settings_sqlite3.anubis b/database/settings_sqlite3.anubis index 89b2096..943edcf 100644 --- a/database/settings_sqlite3.anubis +++ b/database/settings_sqlite3.anubis @@ -1,132 +1,132 @@ -/* - * Created by PyramIDE. - * User: Totoro - * Date: 11/08/2012 - * Time: 17:44 - * - * To change this template use Tools | Options | Coding | Edit Standard Headers. - */ - -read tools/basis.anubis -read data_base/sqlite.anubis -read data_base/db_tools.anubis -read calexium_lib/database/db_utils.anubis - - -public define Maybe(String) - select_settings - ( - SQLite3DataBase db, - String var, - )= - if sql_query_timeout(db, "SELECT var_value FROM settings WHERE var_name=" + db_make_sql_string(var) + ";", [], "select_settings") is - { - error(_) then failure, //error in the SQL request - ok(_, cursor, _) then - if cursor(unique) is - { - error(_) then failure, - no_more_row then failure, //can't find the var_value in the table, because the row is empty - row(current) then success(text(current)(0)) - } - }. - -public define String - select_settings - ( - SQLite3DataBase db, - String var, - String default - )= - if select_settings(db, var) is - { - failure then default, //error in the SQL request - success(value) then value - }. - -public define Int - select_settings - ( - SQLite3DataBase db, - String var, - Int default - )= - if select_settings(db, var) is - { - failure then default, //error in the SQL request - success(value) then - if decimal_scan(value) is - { - failure then default, - success(v) then v - } - }. - -public define Bool - select_settings - ( - SQLite3DataBase db, - String var, - Bool default - )= - if select_settings(db, var) is - { - failure then default, //error in the SQL request - success(value) then - if value = "true" then true - else if value = "false" then false - // old values - else if value = "1" then true - else if value = "0" then false - // failback - else if decimal_scan(value) is - { - failure then default, - success(v) then v!=0 - } - }. - -public define One - update_settings - ( - SQLite3DataBase db, - String var, - Bool value - )= - with bool_str = if value is true then "true" else "false", - with binds = (List(SQLite3Bind))[bind_String(":name", var), bind_String(":value", bool_str)], - if select_settings(db, var) is success(_) then - forget(sql_query_timeout(db, "UPDATE settings SET var_value = :value WHERE var_name = :name;", binds, "update_settings")) - else - forget(sql_query_timeout(db, "INSERT INTO settings (var_name, var_value) VALUES (:name, :value)", binds, "update_settings")) - . - -public define One - update_settings - ( - SQLite3DataBase db, - String var, - Int value - )= - with binds = (List(SQLite3Bind))[bind_String(":name", var), bind_Int(":value", value)], - if select_settings(db, var) is success(_) then - forget(sql_query_timeout(db, "UPDATE settings SET var_value = :value WHERE var_name = :name;", binds, "update_settings")) - else - forget(sql_query_timeout(db, "INSERT INTO settings (var_name, var_value) VALUES (:name, :value)", binds, "update_settings")) - . - - -public define One - update_settings - ( - SQLite3DataBase db, - String var, - String value - )= - with binds = (List(SQLite3Bind))[bind_String(":name", var), bind_String(":value", value)], - if select_settings(db, var) is success(_) then - forget(sql_query_timeout(db, "UPDATE settings SET var_value = :value WHERE var_name = :name;", binds, "update_settings")) - else - forget(sql_query_timeout(db, "INSERT INTO settings (var_name, var_value) VALUES (:name, :value)", binds, "update_settings")) - . - +/* + * Created by PyramIDE. + * User: Totoro + * Date: 11/08/2012 + * Time: 17:44 + * + * + */ + +read tools/basis.anubis +read data_base/sqlite.anubis +read data_base/db_tools.anubis +read calexium_lib/database/db_utils.anubis + + +public define Maybe(String) + select_settings + ( + SQLite3DataBase db, + String var, + )= + if sql_query_timeout(db, "SELECT var_value FROM settings WHERE var_name=" + db_make_sql_string(var) + ";", [], "select_settings") is + { + error(_) then failure, //error in the SQL request + ok(_, cursor, _) then + if cursor(unique) is + { + error(_) then failure, + no_more_row then failure, //can't find the var_value in the table, because the row is empty + row(current) then success(text(current)(0)) + } + }. + +public define String + select_settings + ( + SQLite3DataBase db, + String var, + String default + )= + if select_settings(db, var) is + { + failure then default, //error in the SQL request + success(value) then value + }. + +public define Int + select_settings + ( + SQLite3DataBase db, + String var, + Int default + )= + if select_settings(db, var) is + { + failure then default, //error in the SQL request + success(value) then + if decimal_scan(value) is + { + failure then default, + success(v) then v + } + }. + +public define Bool + select_settings + ( + SQLite3DataBase db, + String var, + Bool default + )= + if select_settings(db, var) is + { + failure then default, //error in the SQL request + success(value) then + if value = "true" then true + else if value = "false" then false + // old values + else if value = "1" then true + else if value = "0" then false + // failback + else if decimal_scan(value) is + { + failure then default, + success(v) then v!=0 + } + }. + +public define One + update_settings + ( + SQLite3DataBase db, + String var, + Bool value + )= + with bool_str = if value is true then "true" else "false", + with binds = (List(SQLite3Bind))[bind_String(":name", var), bind_String(":value", bool_str)], + if select_settings(db, var) is success(_) then + forget(sql_query_timeout(db, "UPDATE settings SET var_value = :value WHERE var_name = :name;", binds, "update_settings")) + else + forget(sql_query_timeout(db, "INSERT INTO settings (var_name, var_value) VALUES (:name, :value)", binds, "update_settings")) + . + +public define One + update_settings + ( + SQLite3DataBase db, + String var, + Int value + )= + with binds = (List(SQLite3Bind))[bind_String(":name", var), bind_Int(":value", value)], + if select_settings(db, var) is success(_) then + forget(sql_query_timeout(db, "UPDATE settings SET var_value = :value WHERE var_name = :name;", binds, "update_settings")) + else + forget(sql_query_timeout(db, "INSERT INTO settings (var_name, var_value) VALUES (:name, :value)", binds, "update_settings")) + . + + +public define One + update_settings + ( + SQLite3DataBase db, + String var, + String value + )= + with binds = (List(SQLite3Bind))[bind_String(":name", var), bind_String(":value", value)], + if select_settings(db, var) is success(_) then + forget(sql_query_timeout(db, "UPDATE settings SET var_value = :value WHERE var_name = :name;", binds, "update_settings")) + else + forget(sql_query_timeout(db, "INSERT INTO settings (var_name, var_value) VALUES (:name, :value)", binds, "update_settings")) + . + diff --git a/database/vtm/view_table_manager.anubis b/database/vtm/view_table_manager.anubis index baf7aa8..b183a31 100644 --- a/database/vtm/view_table_manager.anubis +++ b/database/vtm/view_table_manager.anubis @@ -33,7 +33,7 @@ public define Maybe(VTM_view) VTM_view_list vtm_vlist ) = _vtm_get_view(table_name, vtm_vlist.list). - + public define Maybe(VTM_edit) _vtm_get_edit diff --git a/database/vtm/view_table_manager_types.anubis b/database/vtm/view_table_manager_types.anubis index ef05133..f888b36 100644 --- a/database/vtm/view_table_manager_types.anubis +++ b/database/vtm/view_table_manager_types.anubis @@ -23,7 +23,7 @@ public type TM_writer_list: public type VTM_view: - vtm_view(String table_name, (SQLite3DataBase db) -> VT_view get_view). + vtm_view(String table_name, (SQLite3DataBase db, String view_name) -> VT_view get_view). public type VTM_view_list: vtm_view_list(List(VTM_view) list). diff --git a/database/vtm/view_table_renderer.anubis b/database/vtm/view_table_renderer.anubis index 1500668..b40cb13 100644 --- a/database/vtm/view_table_renderer.anubis +++ b/database/vtm/view_table_renderer.anubis @@ -141,7 +141,8 @@ define HTML_Row(HTML_Off_Form) make_line with cell = if h is { text(string) then cell((HTML_Off_Form)text(string)), - link(id, string) then cell((HTML_Off_Form)actioner(same,same, link(string), action_name, [("table_name", table_name),("id",id)])) + link(id, string) then cell((HTML_Off_Form)actioner(same,same, link(string), action_name, [("table_name", table_name),("id",id)])), + icon(icon_path) then cell((HTML_Off_Form)image([], icon_path, "")) }, make_line(table_name, action_name, t, [cell . so_far], odd_even) }. @@ -176,8 +177,9 @@ define HTML_Header_Row(HTML_Off_Form) [h . t] then with cell = if h is { - text(string) then header_cell((HTML_Off_Form)text(_T(string))), - link(id, string) then header_cell((HTML_Off_Form)actioner(same,same, link(string),"edit_table",[])) //TODO + text(string) then header_cell((HTML_Off_Form)text(_T(string))), + link(id, string) then header_cell((HTML_Off_Form)actioner(same,same, link(string),"edit_table",[])), //TODO + icon(icon_path) then header_cell((HTML_Off_Form)image([], icon_path, "")) }, make_header(_T, t, [cell . so_far]) }. @@ -226,6 +228,7 @@ public define Maybe(HTML_Partial_Content) String lang, String web_site_directory, String table, + String view_name, String action_name, VTM vtm ) = @@ -234,5 +237,5 @@ public define Maybe(HTML_Partial_Content) failure then failure, success(vtm_v) then since vtm_v is vtm_view(_, get_view), - success(view_table_page(_T, lang, web_site_directory, action_name, get_view(db))) + success(view_table_page(_T, lang, web_site_directory, action_name, get_view(db, view_name))) }. diff --git a/database/vtm/view_table_types.anubis b/database/vtm/view_table_types.anubis index 132f948..6fe482b 100644 --- a/database/vtm/view_table_types.anubis +++ b/database/vtm/view_table_types.anubis @@ -36,13 +36,14 @@ public type VT_edit: public type VT_view_entry: text(String text), - link(String id, String text). + link(String id, String text), + icon(String icon_path). public type VT_view_row: vt_view_row(List(VT_view_entry) list). public type VT_view: - vt_view(String table_name, VT_view_row header, List(VT_view_row) list). + vt_view(String table_name, String view_name, VT_view_row header, List(VT_view_row) list). public type VT_action: diff --git a/mail/authentication.anubis b/mail/authentication.anubis index d25eb23..01bf31e 100644 --- a/mail/authentication.anubis +++ b/mail/authentication.anubis @@ -1,98 +1,98 @@ -/* - * Created by PyramIDE. - * User: ricard - * Date: 07/03/2009 - * Time: 21:42 - * - * To change this template use Tools | Options | Coding | Edit Standard Headers. - */ - -read tools/basis.anubis -read system/bytearray.anubis -read system/string.anubis - - /** Give a timestamp according to RFC2822. this sort of timestamp - * is use for CRAM authentication (Challenge Reponse Authentication Mechanism) - * this time timestamp must unique and not predictable to ensure security - * mechanism of authentication. - * @param dummy One meaning nothing - * @return Sring of the timestamp - */ -public define String - get_time_stamp - ( - String domain - )= - with time = (UTime) unow, - "<"+virtual_machine_id+"."+time.seconds+"@mail."+domain+">". - - /** - */ -public define Bool - apop_md5 - ( - String time_stamp, - String password, - String given_hash - ) = - with my_stamp = time_stamp + password, - my_hash = to_lower(to_ascii(md5(to_byte_array(my_stamp)))), -// print("time_stamp "+ time_stamp + "\n"); -// print("given_hash " + given_hash + "\n"); -// print("my_hash " + my_hash + "\n"); - if to_lower(given_hash) = my_hash then - true - else - false. - - - -define String - hmac_md5_compute - ( - ByteArray data, //message to be crypted - ByteArray key //this is share secret key (i.e. password) - ) = - with ba_data = constant_byte_array(64, 0), - ba_ipad = constant_byte_array(64, 0x36), - ba_opad = constant_byte_array(64, 0x5c), - //put key into ByteArray - //but if key is longer than 64 bytes, then we must apply md5 on it and put it into ByteArray - with ba_key = fill_ByteArray(ba_data, if length(key) > 64 then md5(key) else key), - key_ipad = ba_key : ba_ipad, // XOR key with ipad - key_opad = ba_key : ba_opad, // XOR key with opad - to_lower(to_ascii(md5(key_opad + (md5(key_ipad + data))))). // md5(K (+) ipad) and merge with data - - -public define Bool - hmac_md5_check - ( - ByteArray data, //message to be crypted - ByteArray key, //this is share secret key (i.e. password) - String given_digest //The hash given by the user who want to be authenticated - ) = - if to_lower(given_digest) = hmac_md5_compute(data, key) then -// print("HMAC-MD5 Success \n"); - true - else -// print("HMAC-MD5 Failed \n"); -// print(" My Hash = " + my_hash + "\n"); -// print("User Hash = " + given_digest + "\n"); - false. - -public define Bool - hmac_md5_check - ( - String data, //message to be cripted - String key, //this is share secret key (i.e. password) - String given_digest //The hash given by the user who want to be authenticated - ) = - hmac_md5_check(to_byte_array(data), to_byte_array(key), given_digest). - -public define String - hmac_md5_compute - ( - String data, //message to be cripted - String key //this is share secret key (i.e. password) - ) = - hmac_md5_compute(to_byte_array(data), to_byte_array(key)). +/* + * Created by PyramIDE. + * User: ricard + * Date: 07/03/2009 + * Time: 21:42 + * + * + */ + +read tools/basis.anubis +read system/bytearray.anubis +read system/string.anubis + + /** Give a timestamp according to RFC2822. this sort of timestamp + * is use for CRAM authentication (Challenge Reponse Authentication Mechanism) + * this time timestamp must unique and not predictable to ensure security + * mechanism of authentication. + * @param dummy One meaning nothing + * @return Sring of the timestamp + */ +public define String + get_time_stamp + ( + String domain + )= + with time = (UTime) unow, + "<"+virtual_machine_id+"."+time.seconds+"@mail."+domain+">". + + /** + */ +public define Bool + apop_md5 + ( + String time_stamp, + String password, + String given_hash + ) = + with my_stamp = time_stamp + password, + my_hash = to_lower(to_ascii(md5(to_byte_array(my_stamp)))), +// print("time_stamp "+ time_stamp + "\n"); +// print("given_hash " + given_hash + "\n"); +// print("my_hash " + my_hash + "\n"); + if to_lower(given_hash) = my_hash then + true + else + false. + + + +define String + hmac_md5_compute + ( + ByteArray data, //message to be crypted + ByteArray key //this is share secret key (i.e. password) + ) = + with ba_data = constant_byte_array(64, 0), + ba_ipad = constant_byte_array(64, 0x36), + ba_opad = constant_byte_array(64, 0x5c), + //put key into ByteArray + //but if key is longer than 64 bytes, then we must apply md5 on it and put it into ByteArray + with ba_key = fill_ByteArray(ba_data, if length(key) > 64 then md5(key) else key), + key_ipad = ba_key : ba_ipad, // XOR key with ipad + key_opad = ba_key : ba_opad, // XOR key with opad + to_lower(to_ascii(md5(key_opad + (md5(key_ipad + data))))). // md5(K (+) ipad) and merge with data + + +public define Bool + hmac_md5_check + ( + ByteArray data, //message to be crypted + ByteArray key, //this is share secret key (i.e. password) + String given_digest //The hash given by the user who want to be authenticated + ) = + if to_lower(given_digest) = hmac_md5_compute(data, key) then +// print("HMAC-MD5 Success \n"); + true + else +// print("HMAC-MD5 Failed \n"); +// print(" My Hash = " + my_hash + "\n"); +// print("User Hash = " + given_digest + "\n"); + false. + +public define Bool + hmac_md5_check + ( + String data, //message to be cripted + String key, //this is share secret key (i.e. password) + String given_digest //The hash given by the user who want to be authenticated + ) = + hmac_md5_check(to_byte_array(data), to_byte_array(key), given_digest). + +public define String + hmac_md5_compute + ( + String data, //message to be cripted + String key //this is share secret key (i.e. password) + ) = + hmac_md5_compute(to_byte_array(data), to_byte_array(key)). diff --git a/net_services/CXM_generic_client.anubis b/net_services/CXM_generic_client.anubis index 91ff81e..18b4eee 100644 --- a/net_services/CXM_generic_client.anubis +++ b/net_services/CXM_generic_client.anubis @@ -4,7 +4,7 @@ * Date: 02/02/2008 * Time: 11:47 * - * To change this template use Tools | Options | Coding | Edit Standard Headers. + * */ diff --git a/net_services_protocols/ftp_client.anubis b/net_services_protocols/ftp_client.anubis index eb26629..010c06b 100644 --- a/net_services_protocols/ftp_client.anubis +++ b/net_services_protocols/ftp_client.anubis @@ -5,7 +5,7 @@ * Time: 22:34 * (c) Calexium * - * To change this template use Tools | Options | Coding | Edit Standard Headers. + * */ read calexium_lib/CXM_message_constants.anubis diff --git a/web/CXM_json.anubis b/web/CXM_json.anubis index 3d68485..ee407e1 100644 --- a/web/CXM_json.anubis +++ b/web/CXM_json.anubis @@ -4,7 +4,7 @@ * Date: 18/08/2008 * Time: 08:12 * - * To change this template use Tools | Options | Coding | Edit Standard Headers. + * */ read tools/basis.anubis diff --git a/web/CXM_web_dump.anubis b/web/CXM_web_dump.anubis index eb5415f..4e17ccb 100644 --- a/web/CXM_web_dump.anubis +++ b/web/CXM_web_dump.anubis @@ -1,70 +1,70 @@ -/* - * Created by PyramIDE. - * User: Jeremy - * Date: 09/08/2012 - * Time: 16:14 - * - * To change this template use Tools | Options | Coding | Edit Standard Headers. - */ - -read tools/basis.anubis -read system/string.anubis -read system/convert.anubis -read calexium_lib/web/CXM_common.anubis -read calexium_lib/web/CXM_multihost_http_server.anubis - -/* Provides a dump of Web_arg List */ -public define String - dump_web_arg_values - ( - List(Web_arg) l, - ) - = - if l is - { - [ ] then "\n", - [h . t] then if h is - { - web_arg(n,v) then "\n["+n+"] = '"+v+"'" + dump_web_arg_values(t), - upload(n,v,tfn) then "\n["+n+"] = '"+v+"'" + dump_web_arg_values(t) - } - } - . - -/* Provides a dump of HTTP_Header List */ -public define String - dump_http_headers - ( - List(HTTP_header) l, - String prefix - ) - = - if l is - { - [ ] then "", // no need to add \n => previous call has made it - [h . t] then prefix + h.name + " : " + h.value + "\n" + dump_http_headers(t, prefix) - } - . - -/* Provides a dump of a HTTP_Info */ -public define String - dump_http_info - ( - HTTP_Info http_info, - ) - = - /* - * Word32 ip_address, // IP address of the client - String hostname, // hostname requested by the client - String uri, // URI requested by the client - List(HTTP_header) http_headers, // HTTP headers sent by the client - Bool is_https, - One -> String generate_trust_ticket // may be used against denial of - */ - "IP Address : " + ip_addr_to_string(http_info.ip_address) + "\n" - + "Hostname : " + http_info.hostname + "\n" - + "URI : " + http_info.uri + "\n" - + "HTTP Headers : \n" + dump_http_headers(http_info.http_headers,"\t") // no need to add \n => dump_http_headers does it - + "Is HTTPS : " + to_String(http_info.is_https) + "\n" - . - +/* + * Created by PyramIDE. + * User: Jeremy + * Date: 09/08/2012 + * Time: 16:14 + * + * + */ + +read tools/basis.anubis +read system/string.anubis +read system/convert.anubis +read calexium_lib/web/CXM_common.anubis +read calexium_lib/web/CXM_multihost_http_server.anubis + +/* Provides a dump of Web_arg List */ +public define String + dump_web_arg_values + ( + List(Web_arg) l, + ) + = + if l is + { + [ ] then "\n", + [h . t] then if h is + { + web_arg(n,v) then "\n["+n+"] = '"+v+"'" + dump_web_arg_values(t), + upload(n,v,tfn) then "\n["+n+"] = '"+v+"'" + dump_web_arg_values(t) + } + } + . + +/* Provides a dump of HTTP_Header List */ +public define String + dump_http_headers + ( + List(HTTP_header) l, + String prefix + ) + = + if l is + { + [ ] then "", // no need to add \n => previous call has made it + [h . t] then prefix + h.name + " : " + h.value + "\n" + dump_http_headers(t, prefix) + } + . + +/* Provides a dump of a HTTP_Info */ +public define String + dump_http_info + ( + HTTP_Info http_info, + ) + = + /* + * Word32 ip_address, // IP address of the client + String hostname, // hostname requested by the client + String uri, // URI requested by the client + List(HTTP_header) http_headers, // HTTP headers sent by the client + Bool is_https, + One -> String generate_trust_ticket // may be used against denial of + */ + "IP Address : " + ip_addr_to_string(http_info.ip_address) + "\n" + + "Hostname : " + http_info.hostname + "\n" + + "URI : " + http_info.uri + "\n" + + "HTTP Headers : \n" + dump_http_headers(http_info.http_headers,"\t") // no need to add \n => dump_http_headers does it + + "Is HTTPS : " + to_String(http_info.is_https) + "\n" + . + diff --git a/web/jQuery/CXM_jquery_datatable.anubis b/web/jQuery/CXM_jquery_datatable.anubis index e288f38..c7abbbd 100644 --- a/web/jQuery/CXM_jquery_datatable.anubis +++ b/web/jQuery/CXM_jquery_datatable.anubis @@ -4,7 +4,7 @@ * Date: 12/09/2012 * Time: 16:14 * - * To change this template use Tools | Options | Coding | Edit Standard Headers. + * */ read calexium_lib/web/CXM_making_a_web_site.anubis diff --git a/web/jQuery/CXM_jquery_datatable_types.anubis b/web/jQuery/CXM_jquery_datatable_types.anubis index 390c755..ce482c6 100644 --- a/web/jQuery/CXM_jquery_datatable_types.anubis +++ b/web/jQuery/CXM_jquery_datatable_types.anubis @@ -1,71 +1,71 @@ -/* - * Created by PyramIDE. - * User: Jeremy - * Date: 13/09/2012 - * Time: 10:12 - * - * To change this template use Tools | Options | Coding | Edit Standard Headers. - */ - -read calexium_lib/web/CXM_making_a_web_site.anubis -read tools/basis.anubis -read system/string.anubis - - -public type JQuery_datatable_pagination_type: - jq_dt_pt_two_button, //default option - jq_dt_pt_full_numbers -. -public type JQuery_datatable_scrollY_type: - no_scroll, - scrollY(Int size). - -public type JQuery_datatable_extra_type: - no_extra, - extra(String extra). - -public define String - jquery_datatable_extra_to_string - ( - JQuery_datatable_extra_type ex - )= - if ex is - { - no_extra then "", - extra(_ex) then ",\n"+_ex - }. - -public define String - jquery_datatable_pagination_type_to_string - ( - JQuery_datatable_pagination_type pt - ) - = - if pt is - { - jq_dt_pt_two_button then "two_button", - jq_dt_pt_full_numbers then "full_numbers" - } - . - -public define JQuery_datatable_pagination_type - string_to_jquery_datatable_pagination_type - ( - String str - ) - = - with st=to_lower(str), - if st="two_button" then jq_dt_pt_two_button else - if st="full_numbers" then jq_dt_pt_full_numbers else - jq_dt_pt_two_button - . - -public type JQuery_datatable_server_side_type: - dt_ss( String sEcho, - Int iColumns, - String sColumns, - Int iDisplayStart, - Int iDisplayLength, - Maybe(String) sSearch - ). - +/* + * Created by PyramIDE. + * User: Jeremy + * Date: 13/09/2012 + * Time: 10:12 + * + * + */ + +read calexium_lib/web/CXM_making_a_web_site.anubis +read tools/basis.anubis +read system/string.anubis + + +public type JQuery_datatable_pagination_type: + jq_dt_pt_two_button, //default option + jq_dt_pt_full_numbers +. +public type JQuery_datatable_scrollY_type: + no_scroll, + scrollY(Int size). + +public type JQuery_datatable_extra_type: + no_extra, + extra(String extra). + +public define String + jquery_datatable_extra_to_string + ( + JQuery_datatable_extra_type ex + )= + if ex is + { + no_extra then "", + extra(_ex) then ",\n"+_ex + }. + +public define String + jquery_datatable_pagination_type_to_string + ( + JQuery_datatable_pagination_type pt + ) + = + if pt is + { + jq_dt_pt_two_button then "two_button", + jq_dt_pt_full_numbers then "full_numbers" + } + . + +public define JQuery_datatable_pagination_type + string_to_jquery_datatable_pagination_type + ( + String str + ) + = + with st=to_lower(str), + if st="two_button" then jq_dt_pt_two_button else + if st="full_numbers" then jq_dt_pt_full_numbers else + jq_dt_pt_two_button + . + +public type JQuery_datatable_server_side_type: + dt_ss( String sEcho, + Int iColumns, + String sColumns, + Int iDisplayStart, + Int iDisplayLength, + Maybe(String) sSearch + ). + diff --git a/web/jQuery/CXM_jquery_eudock.anubis b/web/jQuery/CXM_jquery_eudock.anubis index 6eaacf7..8836994 100644 --- a/web/jQuery/CXM_jquery_eudock.anubis +++ b/web/jQuery/CXM_jquery_eudock.anubis @@ -1,196 +1,196 @@ -/* - * Created by PyramIDE. - * User: Jeremy - * Date: 18/09/2012 - * Time: 17:28 - * - * To change this template use Tools | Options | Coding | Edit Standard Headers. - */ - -read calexium_lib/web/CXM_making_a_web_site.anubis -read calexium_lib/web/CXM_jquery.anubis -read calexium_lib/web/jQuery/CXM_jquery_eudock_types.anubis -read tools/basis.anubis -read system/string.anubis -read system/convert.anubis - -/********************************************************************************************************/ -/********************************************************************************************************/ -/********************************************************************************************************/ -/********************************************************************************************************/ -/**************************************** ATTENTION !!! *******************************************/ -/************* Le mode 'object_alignment' n'est pas fonctionnel : NE PAS L'UTILISER ! ****************/ -/************************ Un recodage en jQuery de la lib JS est à prévoir **************************/ -/********************************************************************************************************/ -/********************************************************************************************************/ -/********************************************************************************************************/ -/********************************************************************************************************/ - -/* jQuery euDock initialization */ -public define List(HTML_Head_Tag) - jquery_eudock_init - ( - String web_dir, - ) - = - [ - js(js_file("/js/jquery/euDock.2.0.js")), - //js(js_file("/js/jquery/euDock.Blank.js")), // not needed for now - //js(js_file("/js/jquery/euDock.DivMousePos.js")), // not needed for now - //js(js_file("/js/jquery/euDock.Ghost.js")), // not needed for now - js(js_file("/js/jquery/euDock.Image.js")), - //js(js_file("/js/jquery/euDock.Label.js")) // not needed for now - ] - . - -/* Recursive format of the bar */ -define String - _jquery_eudock_format_bar - ( - List(JQ_eudock_imagebar) bar_images, - String formatted - ) - = - if bar_images is - { - [] then formatted, - [ h . t ] then - if h is - { - jq_eudock_bar_top(image) then - if t is - { - [] then _jquery_eudock_format_bar(t, formatted+"top :{euImage:{image:'"+image.image_url+"'}}"), - [ h . t] then _jquery_eudock_format_bar(t, formatted+"top :{euImage:{image:'"+image.image_url+"'}},") - }, - jq_eudock_bar_vertical(image) then - if t is - { - [] then _jquery_eudock_format_bar(t, formatted+"vertical :{euImage:{image:'"+image.image_url+"'}}"), - [ h . t] then _jquery_eudock_format_bar(t, formatted+"vertical :{euImage:{image:'"+image.image_url+"'}},") - }, - jq_eudock_bar_bottom(image) then - if t is - { - [] then _jquery_eudock_format_bar(t, formatted+"bottom :{euImage:{image:'"+image.image_url+"'}}"), - [ h . t] then _jquery_eudock_format_bar(t, formatted+"bottom :{euImage:{image:'"+image.image_url+"'}},") - }, - jq_eudock_bar_left(image) then - if t is - { - [] then _jquery_eudock_format_bar(t, formatted+"left :{euImage:{image:'"+image.image_url+"'}}"), - [ h . t] then _jquery_eudock_format_bar(t, formatted+"left :{euImage:{image:'"+image.image_url+"'}},") - }, - jq_eudock_bar_horizontal(image) then - if t is - { - [] then _jquery_eudock_format_bar(t, formatted+"horizontal :{euImage:{image:'"+image.image_url+"'}}"), - [ h . t] then _jquery_eudock_format_bar(t, formatted+"horizontal :{euImage:{image:'"+image.image_url+"'}},") - }, - jq_eudock_bar_right(image) then - if t is - { - [] then _jquery_eudock_format_bar(t, formatted+"right :{euImage:{image:'"+image.image_url+"'}}"), - [ h . t] then _jquery_eudock_format_bar(t, formatted+"right :{euImage:{image:'"+image.image_url+"'}},") - } - } - } - . - -/* Format the bar */ -define String - jquery_eudock_format_bar - ( - String dockname, - JQ_eudock_bar bar - ) - = - dockname+".setBar({"+ - _jquery_eudock_format_bar(bar.bar_images, "")+ - "});" - . - -/* Format 1 icon */ -define String - _jquery_eudock_format_icon - ( - String dockname, - JQ_euDock_Icon icon - ) - = - if icon is jq_eudock_icon(icon_image, link) then - " "+dockname+".addIcon(new Array({euImage:{image:'"+icon_image.image_url+"'}}), {link:'"+link+"'});\n" // space added at the beginning to avoid any js syntax error - . - -/* Format icons */ -define String - _jquery_eudock_format_icons - ( - String dockname, - List(JQ_euDock_Icon) icons, - String formatted - ) - = - if icons is - { - [] then formatted, - [ h . t ] then - _jquery_eudock_format_icons(dockname, t, formatted+ _jquery_eudock_format_icon(dockname, h)) - } - . - -/* Format icons */ -define String - jquery_eudock_format_icons - ( - String dockname, - List(JQ_euDock_Icon) icons - ) - = - _jquery_eudock_format_icons(dockname, icons, "") - . - -/* Format alignment */ -define String - jquery_eudock_format_alignment - ( - String dockname, - JQ_euDock_alignment alignment - ) - = - if alignment is - { - jq_eudock_screen_alignment(a, o) then - dockname+".setScreenAlign("+jq_eudock_align_to_string(a)+", "+o+");", - jq_eudock_object_alignment(o_id, o_al, o, p) then - dockname+".setObjectAlign('"+o_id+"', "+jq_eudock_object_align_to_string(o_al)+", "+o+", "+jq_eudock_position_to_string(p)+");", - jq_eudock_fixed_alignment(x, y, p) then - dockname+".setPointAlign("+x+", "+y+", "+jq_eudock_position_to_string(p)+");" - } - // "+dockname+".setScreenAlign("+jq_eudock_position_to_string(position)+",0); - . - -/* Creation of an euDock */ -public define HTML_Partial_Content - jquery_eudock - ( - JQ_euDock dock - ) - = - with dockname="dock_"+now, // dock name is suffixed with a timestamp to guarantee its uniqueness - if dock is jq_eudock(bar, icons, icon_offset, alignment) then - partial_content - ( - [ - js_inline(script("", " - euEnv.imageBasePath=\"\"; - var "+dockname+"=new euDock(); - "+jquery_eudock_format_alignment(dockname, alignment)+" - "+jquery_eudock_format_bar(dockname, bar)+" - "+dockname+".setIconsOffset("+icon_offset+"); - "+jquery_eudock_format_icons(dockname, icons)+" - ")) - ], - literal("") // euDock does not need to return HTML content => it's javascript only ! - ) - . +/* + * Created by PyramIDE. + * User: Jeremy + * Date: 18/09/2012 + * Time: 17:28 + * + * + */ + +read calexium_lib/web/CXM_making_a_web_site.anubis +read calexium_lib/web/CXM_jquery.anubis +read calexium_lib/web/jQuery/CXM_jquery_eudock_types.anubis +read tools/basis.anubis +read system/string.anubis +read system/convert.anubis + +/********************************************************************************************************/ +/********************************************************************************************************/ +/********************************************************************************************************/ +/********************************************************************************************************/ +/**************************************** ATTENTION !!! *******************************************/ +/************* Le mode 'object_alignment' n'est pas fonctionnel : NE PAS L'UTILISER ! ****************/ +/************************ Un recodage en jQuery de la lib JS est à prévoir **************************/ +/********************************************************************************************************/ +/********************************************************************************************************/ +/********************************************************************************************************/ +/********************************************************************************************************/ + +/* jQuery euDock initialization */ +public define List(HTML_Head_Tag) + jquery_eudock_init + ( + String web_dir, + ) + = + [ + js(js_file("/js/jquery/euDock.2.0.js")), + //js(js_file("/js/jquery/euDock.Blank.js")), // not needed for now + //js(js_file("/js/jquery/euDock.DivMousePos.js")), // not needed for now + //js(js_file("/js/jquery/euDock.Ghost.js")), // not needed for now + js(js_file("/js/jquery/euDock.Image.js")), + //js(js_file("/js/jquery/euDock.Label.js")) // not needed for now + ] + . + +/* Recursive format of the bar */ +define String + _jquery_eudock_format_bar + ( + List(JQ_eudock_imagebar) bar_images, + String formatted + ) + = + if bar_images is + { + [] then formatted, + [ h . t ] then + if h is + { + jq_eudock_bar_top(image) then + if t is + { + [] then _jquery_eudock_format_bar(t, formatted+"top :{euImage:{image:'"+image.image_url+"'}}"), + [ h . t] then _jquery_eudock_format_bar(t, formatted+"top :{euImage:{image:'"+image.image_url+"'}},") + }, + jq_eudock_bar_vertical(image) then + if t is + { + [] then _jquery_eudock_format_bar(t, formatted+"vertical :{euImage:{image:'"+image.image_url+"'}}"), + [ h . t] then _jquery_eudock_format_bar(t, formatted+"vertical :{euImage:{image:'"+image.image_url+"'}},") + }, + jq_eudock_bar_bottom(image) then + if t is + { + [] then _jquery_eudock_format_bar(t, formatted+"bottom :{euImage:{image:'"+image.image_url+"'}}"), + [ h . t] then _jquery_eudock_format_bar(t, formatted+"bottom :{euImage:{image:'"+image.image_url+"'}},") + }, + jq_eudock_bar_left(image) then + if t is + { + [] then _jquery_eudock_format_bar(t, formatted+"left :{euImage:{image:'"+image.image_url+"'}}"), + [ h . t] then _jquery_eudock_format_bar(t, formatted+"left :{euImage:{image:'"+image.image_url+"'}},") + }, + jq_eudock_bar_horizontal(image) then + if t is + { + [] then _jquery_eudock_format_bar(t, formatted+"horizontal :{euImage:{image:'"+image.image_url+"'}}"), + [ h . t] then _jquery_eudock_format_bar(t, formatted+"horizontal :{euImage:{image:'"+image.image_url+"'}},") + }, + jq_eudock_bar_right(image) then + if t is + { + [] then _jquery_eudock_format_bar(t, formatted+"right :{euImage:{image:'"+image.image_url+"'}}"), + [ h . t] then _jquery_eudock_format_bar(t, formatted+"right :{euImage:{image:'"+image.image_url+"'}},") + } + } + } + . + +/* Format the bar */ +define String + jquery_eudock_format_bar + ( + String dockname, + JQ_eudock_bar bar + ) + = + dockname+".setBar({"+ + _jquery_eudock_format_bar(bar.bar_images, "")+ + "});" + . + +/* Format 1 icon */ +define String + _jquery_eudock_format_icon + ( + String dockname, + JQ_euDock_Icon icon + ) + = + if icon is jq_eudock_icon(icon_image, link) then + " "+dockname+".addIcon(new Array({euImage:{image:'"+icon_image.image_url+"'}}), {link:'"+link+"'});\n" // space added at the beginning to avoid any js syntax error + . + +/* Format icons */ +define String + _jquery_eudock_format_icons + ( + String dockname, + List(JQ_euDock_Icon) icons, + String formatted + ) + = + if icons is + { + [] then formatted, + [ h . t ] then + _jquery_eudock_format_icons(dockname, t, formatted+ _jquery_eudock_format_icon(dockname, h)) + } + . + +/* Format icons */ +define String + jquery_eudock_format_icons + ( + String dockname, + List(JQ_euDock_Icon) icons + ) + = + _jquery_eudock_format_icons(dockname, icons, "") + . + +/* Format alignment */ +define String + jquery_eudock_format_alignment + ( + String dockname, + JQ_euDock_alignment alignment + ) + = + if alignment is + { + jq_eudock_screen_alignment(a, o) then + dockname+".setScreenAlign("+jq_eudock_align_to_string(a)+", "+o+");", + jq_eudock_object_alignment(o_id, o_al, o, p) then + dockname+".setObjectAlign('"+o_id+"', "+jq_eudock_object_align_to_string(o_al)+", "+o+", "+jq_eudock_position_to_string(p)+");", + jq_eudock_fixed_alignment(x, y, p) then + dockname+".setPointAlign("+x+", "+y+", "+jq_eudock_position_to_string(p)+");" + } + // "+dockname+".setScreenAlign("+jq_eudock_position_to_string(position)+",0); + . + +/* Creation of an euDock */ +public define HTML_Partial_Content + jquery_eudock + ( + JQ_euDock dock + ) + = + with dockname="dock_"+now, // dock name is suffixed with a timestamp to guarantee its uniqueness + if dock is jq_eudock(bar, icons, icon_offset, alignment) then + partial_content + ( + [ + js_inline(script("", " + euEnv.imageBasePath=\"\"; + var "+dockname+"=new euDock(); + "+jquery_eudock_format_alignment(dockname, alignment)+" + "+jquery_eudock_format_bar(dockname, bar)+" + "+dockname+".setIconsOffset("+icon_offset+"); + "+jquery_eudock_format_icons(dockname, icons)+" + ")) + ], + literal("") // euDock does not need to return HTML content => it's javascript only ! + ) + . diff --git a/web/jQuery/CXM_jquery_eudock_types.anubis b/web/jQuery/CXM_jquery_eudock_types.anubis index b6dd0bd..2e841d3 100644 --- a/web/jQuery/CXM_jquery_eudock_types.anubis +++ b/web/jQuery/CXM_jquery_eudock_types.anubis @@ -1,194 +1,194 @@ -/* - * Created by PyramIDE. - * User: Jeremy - * Date: 18/09/2012 - * Time: 17:48 - * - * To change this template use Tools | Options | Coding | Edit Standard Headers. - */ - -read calexium_lib/web/CXM_making_a_web_site.anubis -read calexium_lib/web/CXM_jquery.anubis -read tools/basis.anubis -read system/string.anubis -read system/convert.anubis - -/* jQuery euDock "euImage" type */ -public type JQ_euDock_euImage: - jq_eudock_euimage(String image_url) // url must be set from web server root. example: "/images/mydock/icon-1.png" -. - -/* jQuery euDock image bar type */ -public type JQ_eudock_imagebar: - jq_eudock_bar_top(JQ_euDock_euImage image), - jq_eudock_bar_vertical(JQ_euDock_euImage image), - jq_eudock_bar_bottom(JQ_euDock_euImage image), - jq_eudock_bar_left(JQ_euDock_euImage image), - jq_eudock_bar_horizontal(JQ_euDock_euImage image), - jq_eudock_bar_right(JQ_euDock_euImage image) -. - -/* jQuery euDock bar type */ -public type JQ_eudock_bar: - jq_eudock_bar(List(JQ_eudock_imagebar) bar_images) -. - -/* jQuery euDock align type */ -public type JQ_eudock_align: - jq_eudock_align_top, - jq_eudock_align_left, - jq_eudock_align_bottom, - jq_eudock_align_right -. - -/* JQ_eudock_align to string */ -public define String - jq_eudock_align_to_string - ( - JQ_eudock_align a - ) - = - if a is - { - jq_eudock_align_top then "euUP", - jq_eudock_align_left then "euLEFT", - jq_eudock_align_bottom then "euDOWN", - jq_eudock_align_right then "euRIGHT" - } - . - -/* string to JQ_eudock_align */ -public define JQ_eudock_align - string_to_jq_eudock_align - ( - String s - ) - = - if s="euUP" then jq_eudock_align_top - else if s="euLEFT" then jq_eudock_align_left - else if s="euDOWN" then jq_eudock_align_bottom - else if s="euRIGHT" then jq_eudock_align_right - else jq_eudock_align_top // we decide that top position is default. - . - -/* jQuery euDock position type */ -public type JQ_eudock_position: - jq_eudock_position_top, - jq_eudock_position_left, - jq_eudock_position_bottom, - jq_eudock_position_right, - jq_eudock_position_horizontal, - jq_eudock_position_vertical -. - -/* JQ_eudock_position to string */ -public define String - jq_eudock_position_to_string - ( - JQ_eudock_position p - ) - = - if p is - { - jq_eudock_position_top then "euUP", - jq_eudock_position_left then "euLEFT", - jq_eudock_position_bottom then "euDOWN", - jq_eudock_position_right then "euRIGHT", - jq_eudock_position_horizontal then "euHORIZONTAL", - jq_eudock_position_vertical then "euVERTICAL" - } - . - -/* string to JQ_eudock_position */ -public define JQ_eudock_position - string_to_jq_eudock_position - ( - String s - ) - = - if s="euUP" then jq_eudock_position_top - else if s="euLEFT" then jq_eudock_position_left - else if s="euDOWN" then jq_eudock_position_bottom - else if s="euRIGHT" then jq_eudock_position_right - else if s="euHORIZONTAL" then jq_eudock_position_horizontal - else if s="euVERTICAL" then jq_eudock_position_vertical - else jq_eudock_position_top // we decide that top position is default. - . - -/* jQuery euDock objectAlign type */ -public type JQ_eudock_object_align: - jq_eudock_object_align_top, - jq_eudock_object_align_left, - jq_eudock_object_align_bottom, - jq_eudock_object_align_right, - jq_eudock_object_align_center -. - -/* JQ_eudock_object_align to string */ -public define String - jq_eudock_object_align_to_string - ( - JQ_eudock_object_align oa - ) - = - if oa is - { - jq_eudock_object_align_top then "euUP", - jq_eudock_object_align_left then "euLEFT", - jq_eudock_object_align_bottom then "euDOWN", - jq_eudock_object_align_right then "euRIGHT", - jq_eudock_object_align_center then "euCENTER" - } - . - -/* string to JQ_eudock_object_align */ -public define JQ_eudock_object_align - string_to_jq_eudock_object_align - ( - String s - ) - = - if s="euUP" then jq_eudock_object_align_top - else if s="euLEFT" then jq_eudock_object_align_left - else if s="euDOWN" then jq_eudock_object_align_bottom - else if s="euRIGHT" then jq_eudock_object_align_right - else if s="euCENTER" then jq_eudock_object_align_center - else jq_eudock_object_align_top // we decide that top position is default. - . - -/* jQuery euDock alignment */ -public type JQ_euDock_alignment: - jq_eudock_screen_alignment( - JQ_eudock_align align, - Int offset /* see icon_offset in JQ_euDock type definition */ - ), - jq_eudock_object_alignment( - String object_id, - JQ_eudock_object_align object_align, - Int offset, /* see icon_offset in JQ_euDock type definition */ - JQ_eudock_position position - ), - jq_eudock_fixed_alignment( - Int x, - Int y, - JQ_eudock_position position - ) -. - -/* jQuery euDock icon type */ -public type JQ_euDock_Icon: - jq_eudock_icon( - JQ_euDock_euImage icon_image, - String link - ) -. - -/* jQuery "euDock" type */ -public type JQ_euDock: - jq_eudock( - JQ_eudock_bar bar, // it's the "graphical bar" under icons. - List(JQ_euDock_Icon) icons, - Int icon_offset, // number of icons should be let in "blank space". Example: if icon size is 32px and icon_offset is 2 => the first icon is displayed 64px from the "left" border of the dock and the last icon is displayed 64px from the "right" border of the dock - JQ_euDock_alignment alignment // dock position - ) -. +/* + * Created by PyramIDE. + * User: Jeremy + * Date: 18/09/2012 + * Time: 17:48 + * + * + */ + +read calexium_lib/web/CXM_making_a_web_site.anubis +read calexium_lib/web/CXM_jquery.anubis +read tools/basis.anubis +read system/string.anubis +read system/convert.anubis + +/* jQuery euDock "euImage" type */ +public type JQ_euDock_euImage: + jq_eudock_euimage(String image_url) // url must be set from web server root. example: "/images/mydock/icon-1.png" +. + +/* jQuery euDock image bar type */ +public type JQ_eudock_imagebar: + jq_eudock_bar_top(JQ_euDock_euImage image), + jq_eudock_bar_vertical(JQ_euDock_euImage image), + jq_eudock_bar_bottom(JQ_euDock_euImage image), + jq_eudock_bar_left(JQ_euDock_euImage image), + jq_eudock_bar_horizontal(JQ_euDock_euImage image), + jq_eudock_bar_right(JQ_euDock_euImage image) +. + +/* jQuery euDock bar type */ +public type JQ_eudock_bar: + jq_eudock_bar(List(JQ_eudock_imagebar) bar_images) +. + +/* jQuery euDock align type */ +public type JQ_eudock_align: + jq_eudock_align_top, + jq_eudock_align_left, + jq_eudock_align_bottom, + jq_eudock_align_right +. + +/* JQ_eudock_align to string */ +public define String + jq_eudock_align_to_string + ( + JQ_eudock_align a + ) + = + if a is + { + jq_eudock_align_top then "euUP", + jq_eudock_align_left then "euLEFT", + jq_eudock_align_bottom then "euDOWN", + jq_eudock_align_right then "euRIGHT" + } + . + +/* string to JQ_eudock_align */ +public define JQ_eudock_align + string_to_jq_eudock_align + ( + String s + ) + = + if s="euUP" then jq_eudock_align_top + else if s="euLEFT" then jq_eudock_align_left + else if s="euDOWN" then jq_eudock_align_bottom + else if s="euRIGHT" then jq_eudock_align_right + else jq_eudock_align_top // we decide that top position is default. + . + +/* jQuery euDock position type */ +public type JQ_eudock_position: + jq_eudock_position_top, + jq_eudock_position_left, + jq_eudock_position_bottom, + jq_eudock_position_right, + jq_eudock_position_horizontal, + jq_eudock_position_vertical +. + +/* JQ_eudock_position to string */ +public define String + jq_eudock_position_to_string + ( + JQ_eudock_position p + ) + = + if p is + { + jq_eudock_position_top then "euUP", + jq_eudock_position_left then "euLEFT", + jq_eudock_position_bottom then "euDOWN", + jq_eudock_position_right then "euRIGHT", + jq_eudock_position_horizontal then "euHORIZONTAL", + jq_eudock_position_vertical then "euVERTICAL" + } + . + +/* string to JQ_eudock_position */ +public define JQ_eudock_position + string_to_jq_eudock_position + ( + String s + ) + = + if s="euUP" then jq_eudock_position_top + else if s="euLEFT" then jq_eudock_position_left + else if s="euDOWN" then jq_eudock_position_bottom + else if s="euRIGHT" then jq_eudock_position_right + else if s="euHORIZONTAL" then jq_eudock_position_horizontal + else if s="euVERTICAL" then jq_eudock_position_vertical + else jq_eudock_position_top // we decide that top position is default. + . + +/* jQuery euDock objectAlign type */ +public type JQ_eudock_object_align: + jq_eudock_object_align_top, + jq_eudock_object_align_left, + jq_eudock_object_align_bottom, + jq_eudock_object_align_right, + jq_eudock_object_align_center +. + +/* JQ_eudock_object_align to string */ +public define String + jq_eudock_object_align_to_string + ( + JQ_eudock_object_align oa + ) + = + if oa is + { + jq_eudock_object_align_top then "euUP", + jq_eudock_object_align_left then "euLEFT", + jq_eudock_object_align_bottom then "euDOWN", + jq_eudock_object_align_right then "euRIGHT", + jq_eudock_object_align_center then "euCENTER" + } + . + +/* string to JQ_eudock_object_align */ +public define JQ_eudock_object_align + string_to_jq_eudock_object_align + ( + String s + ) + = + if s="euUP" then jq_eudock_object_align_top + else if s="euLEFT" then jq_eudock_object_align_left + else if s="euDOWN" then jq_eudock_object_align_bottom + else if s="euRIGHT" then jq_eudock_object_align_right + else if s="euCENTER" then jq_eudock_object_align_center + else jq_eudock_object_align_top // we decide that top position is default. + . + +/* jQuery euDock alignment */ +public type JQ_euDock_alignment: + jq_eudock_screen_alignment( + JQ_eudock_align align, + Int offset /* see icon_offset in JQ_euDock type definition */ + ), + jq_eudock_object_alignment( + String object_id, + JQ_eudock_object_align object_align, + Int offset, /* see icon_offset in JQ_euDock type definition */ + JQ_eudock_position position + ), + jq_eudock_fixed_alignment( + Int x, + Int y, + JQ_eudock_position position + ) +. + +/* jQuery euDock icon type */ +public type JQ_euDock_Icon: + jq_eudock_icon( + JQ_euDock_euImage icon_image, + String link + ) +. + +/* jQuery "euDock" type */ +public type JQ_euDock: + jq_eudock( + JQ_eudock_bar bar, // it's the "graphical bar" under icons. + List(JQ_euDock_Icon) icons, + Int icon_offset, // number of icons should be let in "blank space". Example: if icon size is 32px and icon_offset is 2 => the first icon is displayed 64px from the "left" border of the dock and the last icon is displayed 64px from the "right" border of the dock + JQ_euDock_alignment alignment // dock position + ) +. diff --git a/web/jQuery/CXM_jquery_icons.anubis b/web/jQuery/CXM_jquery_icons.anubis index f456bb2..2fd5324 100644 --- a/web/jQuery/CXM_jquery_icons.anubis +++ b/web/jQuery/CXM_jquery_icons.anubis @@ -1,560 +1,560 @@ -/* - * Created by PyramIDE. - * User: Jeremy - * Date: 08/09/2012 - * Time: 16:35 - * - * To change this template use Tools | Options | Coding | Edit Standard Headers. - */ - -read calexium_lib/web/CXM_making_a_web_site.anubis -read tools/basis.anubis -read system/string.anubis - -public type JQuery_icon: - ui_icon_carat_1_n, - ui_icon_carat_1_ne, - ui_icon_carat_1_e, - ui_icon_carat_1_se, - ui_icon_carat_1_s, - ui_icon_carat_1_sw, - ui_icon_carat_1_w, - ui_icon_carat_1_nw, - ui_icon_carat_2_n_s, - ui_icon_carat_2_e_w, - ui_icon_triangle_1_n, - ui_icon_triangle_1_ne, - ui_icon_triangle_1_e, - ui_icon_triangle_1_se, - ui_icon_triangle_1_s, - ui_icon_triangle_1_sw, - ui_icon_triangle_1_w, - ui_icon_triangle_1_nw, - ui_icon_triangle_2_n_s, - ui_icon_triangle_2_e_w, - ui_icon_arrow_1_n, - ui_icon_arrow_1_ne, - ui_icon_arrow_1_e, - ui_icon_arrow_1_se, - ui_icon_arrow_1_s, - ui_icon_arrow_1_sw, - ui_icon_arrow_1_w, - ui_icon_arrow_1_nw, - ui_icon_arrow_2_n_s, - ui_icon_arrow_2_ne_sw, - ui_icon_arrow_2_e_w, - ui_icon_arrow_2_se_nw, - ui_icon_arrowstop_1_n, - ui_icon_arrowstop_1_e, - ui_icon_arrowstop_1_s, - ui_icon_arrowstop_1_w, - ui_icon_arrowthick_1_n, - ui_icon_arrowthick_1_ne, - ui_icon_arrowthick_1_e, - ui_icon_arrowthick_1_se, - ui_icon_arrowthick_1_s, - ui_icon_arrowthick_1_sw, - ui_icon_arrowthick_1_w, - ui_icon_arrowthick_1_nw, - ui_icon_arrowthick_2_n_s, - ui_icon_arrowthick_2_ne_sw, - ui_icon_arrowthick_2_e_w, - ui_icon_arrowthick_2_se_nw, - ui_icon_arrowthickstop_1_n, - ui_icon_arrowthickstop_1_e, - ui_icon_arrowthickstop_1_s, - ui_icon_arrowthickstop_1_w, - ui_icon_arrowreturnthick_1_w, - ui_icon_arrowreturnthick_1_n, - ui_icon_arrowreturnthick_1_e, - ui_icon_arrowreturnthick_1_s, - ui_icon_arrowreturn_1_w, - ui_icon_arrowreturn_1_n, - ui_icon_arrowreturn_1_e, - ui_icon_arrowreturn_1_s, - ui_icon_arrowrefresh_1_w, - ui_icon_arrowrefresh_1_n, - ui_icon_arrowrefresh_1_e, - ui_icon_arrowrefresh_1_s, - ui_icon_arrow_4, - ui_icon_arrow_4_diag, - ui_icon_extlink, - ui_icon_newwin, - ui_icon_refresh, - ui_icon_shuffle, - ui_icon_transfer_e_w, - ui_icon_transferthick_e_w, - ui_icon_folder_collapsed, - ui_icon_folder_open, - ui_icon_document, - ui_icon_document_b, - ui_icon_note, - ui_icon_mail_closed, - ui_icon_mail_open, - ui_icon_suitcase, - ui_icon_comment, - ui_icon_person, - ui_icon_print, - ui_icon_trash, - ui_icon_locked, - ui_icon_unlocked, - ui_icon_bookmark, - ui_icon_tag, - ui_icon_home, - ui_icon_flag, - ui_icon_calculator, - ui_icon_cart, - ui_icon_pencil, - ui_icon_clock, - ui_icon_disk, - ui_icon_calendar, - ui_icon_zoomin, - ui_icon_zoomout, - ui_icon_search, - ui_icon_wrench, - ui_icon_gear, - ui_icon_heart, - ui_icon_star, - ui_icon_link, - ui_icon_cancel, - ui_icon_plus, - ui_icon_plusthick, - ui_icon_minus, - ui_icon_minusthick, - ui_icon_close, - ui_icon_closethick, - ui_icon_key, - ui_icon_lightbulb, - ui_icon_scissors, - ui_icon_clipboard, - ui_icon_copy, - ui_icon_contact, - ui_icon_image, - ui_icon_video, - ui_icon_script, - ui_icon_alert, - ui_icon_info, - ui_icon_notice, - ui_icon_help, - ui_icon_check, - ui_icon_bullet, - ui_icon_radio_off, - ui_icon_radio_on, - ui_icon_pin_w, - ui_icon_pin_s, - ui_icon_play, - ui_icon_pause, - ui_icon_seek_next, - ui_icon_seek_prev, - ui_icon_seek_end, - ui_icon_seek_first, - ui_icon_stop, - ui_icon_eject, - ui_icon_volume_off, - ui_icon_volume_on, - ui_icon_power, - ui_icon_signal_diag, - ui_icon_signal, - ui_icon_battery_0, - ui_icon_battery_1, - ui_icon_battery_2, - ui_icon_battery_3, - ui_icon_circle_plus, - ui_icon_circle_minus, - ui_icon_circle_close, - ui_icon_circle_triangle_e, - ui_icon_circle_triangle_s, - ui_icon_circle_triangle_w, - ui_icon_circle_triangle_n, - ui_icon_circle_arrow_e, - ui_icon_circle_arrow_s, - ui_icon_circle_arrow_w, - ui_icon_circle_arrow_n, - ui_icon_circle_zoomin, - ui_icon_circle_zoomout, - ui_icon_circle_check, - ui_icon_circlesmall_plus, - ui_icon_circlesmall_minus, - ui_icon_circlesmall_close, - ui_icon_squaresmall_plus, - ui_icon_squaresmall_minus, - ui_icon_squaresmall_close, - ui_icon_grip_dotted_vertical, - ui_icon_grip_dotted_horizontal, - ui_icon_grip_solid_vertical, - ui_icon_grip_solid_horizontal, - ui_icon_gripsmall_diagonal_se, - ui_icon_grip_diagonal_se, - jq_icon_none, - jq_custom_icon(String) // for custom icon => set it to CSS class name used to display icon => for creating a such CSS class please refer to jQueryUI Theme CSS file and see how it's done with the othe icon classes -. - -public define String - jquery_icon_to_string - ( - JQuery_icon icon - ) - = - if icon is - { - ui_icon_carat_1_n then "ui-icon-carat-1-n", - ui_icon_carat_1_ne then "ui-icon-carat-1-ne", - ui_icon_carat_1_e then "ui-icon-carat-1-e", - ui_icon_carat_1_se then "ui-icon-carat-1-se", - ui_icon_carat_1_s then "ui-icon-carat-1-s", - ui_icon_carat_1_sw then "ui-icon-carat-1-sw", - ui_icon_carat_1_w then "ui-icon-carat-1-w", - ui_icon_carat_1_nw then "ui-icon-carat-1-nw", - ui_icon_carat_2_n_s then "ui-icon-carat-2-n-s", - ui_icon_carat_2_e_w then "ui-icon-carat-2-e-w", - ui_icon_triangle_1_n then "ui-icon-triangle-1-n", - ui_icon_triangle_1_ne then "ui-icon-triangle-1-ne", - ui_icon_triangle_1_e then "ui-icon-triangle-1-e", - ui_icon_triangle_1_se then "ui-icon-triangle-1-se", - ui_icon_triangle_1_s then "ui-icon-triangle-1-s", - ui_icon_triangle_1_sw then "ui-icon-triangle-1-sw", - ui_icon_triangle_1_w then "ui-icon-triangle-1-w", - ui_icon_triangle_1_nw then "ui-icon-triangle-1-nw", - ui_icon_triangle_2_n_s then "ui-icon-triangle-2-n-s", - ui_icon_triangle_2_e_w then "ui-icon-triangle-2-e-w", - ui_icon_arrow_1_n then "ui-icon-arrow-1-n", - ui_icon_arrow_1_ne then "ui-icon-arrow-1-ne", - ui_icon_arrow_1_e then "ui-icon-arrow-1-e", - ui_icon_arrow_1_se then "ui-icon-arrow-1-se", - ui_icon_arrow_1_s then "ui-icon-arrow-1-s", - ui_icon_arrow_1_sw then "ui-icon-arrow-1-sw", - ui_icon_arrow_1_w then "ui-icon-arrow-1-w", - ui_icon_arrow_1_nw then "ui-icon-arrow-1-nw", - ui_icon_arrow_2_n_s then "ui-icon-arrow-2-n-s", - ui_icon_arrow_2_ne_sw then "ui-icon-arrow-2-ne-sw", - ui_icon_arrow_2_e_w then "ui-icon-arrow-2-e-w", - ui_icon_arrow_2_se_nw then "ui-icon-arrow-2-se-nw", - ui_icon_arrowstop_1_n then "ui-icon-arrowstop-1-n", - ui_icon_arrowstop_1_e then "ui-icon-arrowstop-1-e", - ui_icon_arrowstop_1_s then "ui-icon-arrowstop-1-s", - ui_icon_arrowstop_1_w then "ui-icon-arrowstop-1-w", - ui_icon_arrowthick_1_n then "ui-icon-arrowthick-1-n", - ui_icon_arrowthick_1_ne then "ui-icon-arrowthick-1-ne", - ui_icon_arrowthick_1_e then "ui-icon-arrowthick-1-e", - ui_icon_arrowthick_1_se then "ui-icon-arrowthick-1-se", - ui_icon_arrowthick_1_s then "ui-icon-arrowthick-1-s", - ui_icon_arrowthick_1_sw then "ui-icon-arrowthick-1-sw", - ui_icon_arrowthick_1_w then "ui-icon-arrowthick-1-w", - ui_icon_arrowthick_1_nw then "ui-icon-arrowthick-1-nw", - ui_icon_arrowthick_2_n_s then "ui-icon-arrowthick-2-n-s", - ui_icon_arrowthick_2_ne_sw then "ui-icon-arrowthick-2-ne-sw", - ui_icon_arrowthick_2_e_w then "ui-icon-arrowthick-2-e-w", - ui_icon_arrowthick_2_se_nw then "ui-icon-arrowthick-2-se-nw", - ui_icon_arrowthickstop_1_n then "ui-icon-arrowthickstop-1-n", - ui_icon_arrowthickstop_1_e then "ui-icon-arrowthickstop-1-e", - ui_icon_arrowthickstop_1_s then "ui-icon-arrowthickstop-1-s", - ui_icon_arrowthickstop_1_w then "ui-icon-arrowthickstop-1-w", - ui_icon_arrowreturnthick_1_w then "ui-icon-arrowreturnthick-1-w", - ui_icon_arrowreturnthick_1_n then "ui-icon-arrowreturnthick-1-n", - ui_icon_arrowreturnthick_1_e then "ui-icon-arrowreturnthick-1-e", - ui_icon_arrowreturnthick_1_s then "ui-icon-arrowreturnthick-1-s", - ui_icon_arrowreturn_1_w then "ui-icon-arrowreturn-1-w", - ui_icon_arrowreturn_1_n then "ui-icon-arrowreturn-1-n", - ui_icon_arrowreturn_1_e then "ui-icon-arrowreturn-1-e", - ui_icon_arrowreturn_1_s then "ui-icon-arrowreturn-1-s", - ui_icon_arrowrefresh_1_w then "ui-icon-arrowrefresh-1-w", - ui_icon_arrowrefresh_1_n then "ui-icon-arrowrefresh-1-n", - ui_icon_arrowrefresh_1_e then "ui-icon-arrowrefresh-1-e", - ui_icon_arrowrefresh_1_s then "ui-icon-arrowrefresh-1-s", - ui_icon_arrow_4 then "ui-icon-arrow-4", - ui_icon_arrow_4_diag then "ui-icon-arrow-4-diag", - ui_icon_extlink then "ui-icon-extlink", - ui_icon_newwin then "ui-icon-newwin", - ui_icon_refresh then "ui-icon-refresh", - ui_icon_shuffle then "ui-icon-shuffle", - ui_icon_transfer_e_w then "ui-icon-transfer-e-w", - ui_icon_transferthick_e_w then "ui-icon-transferthick-e-w", - ui_icon_folder_collapsed then "ui-icon-folder-collapsed", - ui_icon_folder_open then "ui-icon-folder-open", - ui_icon_document then "ui-icon-document", - ui_icon_document_b then "ui-icon-document-b", - ui_icon_note then "ui-icon-note", - ui_icon_mail_closed then "ui-icon-mail-closed", - ui_icon_mail_open then "ui-icon-mail-open", - ui_icon_suitcase then "ui-icon-suitcase", - ui_icon_comment then "ui-icon-comment", - ui_icon_person then "ui-icon-person", - ui_icon_print then "ui-icon-print", - ui_icon_trash then "ui-icon-trash", - ui_icon_locked then "ui-icon-locked", - ui_icon_unlocked then "ui-icon-unlocked", - ui_icon_bookmark then "ui-icon-bookmark", - ui_icon_tag then "ui-icon-tag", - ui_icon_home then "ui-icon-home", - ui_icon_flag then "ui-icon-flag", - ui_icon_calculator then "ui-icon-calculator", - ui_icon_cart then "ui-icon-cart", - ui_icon_pencil then "ui-icon-pencil", - ui_icon_clock then "ui-icon-clock", - ui_icon_disk then "ui-icon-disk", - ui_icon_calendar then "ui-icon-calendar", - ui_icon_zoomin then "ui-icon-zoomin", - ui_icon_zoomout then "ui-icon-zoomout", - ui_icon_search then "ui-icon-search", - ui_icon_wrench then "ui-icon-wrench", - ui_icon_gear then "ui-icon-gear", - ui_icon_heart then "ui-icon-heart", - ui_icon_star then "ui-icon-star", - ui_icon_link then "ui-icon-link", - ui_icon_cancel then "ui-icon-cancel", - ui_icon_plus then "ui-icon-plus", - ui_icon_plusthick then "ui-icon-plusthick", - ui_icon_minus then "ui-icon-minus", - ui_icon_minusthick then "ui-icon-minusthick", - ui_icon_close then "ui-icon-close", - ui_icon_closethick then "ui-icon-closethick", - ui_icon_key then "ui-icon-key", - ui_icon_lightbulb then "ui-icon-lightbulb", - ui_icon_scissors then "ui-icon-scissors", - ui_icon_clipboard then "ui-icon-clipboard", - ui_icon_copy then "ui-icon-copy", - ui_icon_contact then "ui-icon-contact", - ui_icon_image then "ui-icon-image", - ui_icon_video then "ui-icon-video", - ui_icon_script then "ui-icon-script", - ui_icon_alert then "ui-icon-alert", - ui_icon_info then "ui-icon-info", - ui_icon_notice then "ui-icon-notice", - ui_icon_help then "ui-icon-help", - ui_icon_check then "ui-icon-check", - ui_icon_bullet then "ui-icon-bullet", - ui_icon_radio_off then "ui-icon-radio-off", - ui_icon_radio_on then "ui-icon-radio-on", - ui_icon_pin_w then "ui-icon-pin-w", - ui_icon_pin_s then "ui-icon-pin-s", - ui_icon_play then "ui-icon-play", - ui_icon_pause then "ui-icon-pause", - ui_icon_seek_next then "ui-icon-seek-next", - ui_icon_seek_prev then "ui-icon-seek-prev", - ui_icon_seek_end then "ui-icon-seek-end", - ui_icon_seek_first then "ui-icon-seek-first", - ui_icon_stop then "ui-icon-stop", - ui_icon_eject then "ui-icon-eject", - ui_icon_volume_off then "ui-icon-volume-off", - ui_icon_volume_on then "ui-icon-volume-on", - ui_icon_power then "ui-icon-power", - ui_icon_signal_diag then "ui-icon-signal-diag", - ui_icon_signal then "ui-icon-signal", - ui_icon_battery_0 then "ui-icon-battery-0", - ui_icon_battery_1 then "ui-icon-battery-1", - ui_icon_battery_2 then "ui-icon-battery-2", - ui_icon_battery_3 then "ui-icon-battery-3", - ui_icon_circle_plus then "ui-icon-circle-plus", - ui_icon_circle_minus then "ui-icon-circle-minus", - ui_icon_circle_close then "ui-icon-circle-close", - ui_icon_circle_triangle_e then "ui-icon-circle-triangle-e", - ui_icon_circle_triangle_s then "ui-icon-circle-triangle-s", - ui_icon_circle_triangle_w then "ui-icon-circle-triangle-w", - ui_icon_circle_triangle_n then "ui-icon-circle-triangle-n", - ui_icon_circle_arrow_e then "ui-icon-circle-arrow-e", - ui_icon_circle_arrow_s then "ui-icon-circle-arrow-s", - ui_icon_circle_arrow_w then "ui-icon-circle-arrow-w", - ui_icon_circle_arrow_n then "ui-icon-circle-arrow-n", - ui_icon_circle_zoomin then "ui-icon-circle-zoomin", - ui_icon_circle_zoomout then "ui-icon-circle-zoomout", - ui_icon_circle_check then "ui-icon-circle-check", - ui_icon_circlesmall_plus then "ui-icon-circlesmall-plus", - ui_icon_circlesmall_minus then "ui-icon-circlesmall-minus", - ui_icon_circlesmall_close then "ui-icon-circlesmall-close", - ui_icon_squaresmall_plus then "ui-icon-squaresmall-plus", - ui_icon_squaresmall_minus then "ui-icon-squaresmall-minus", - ui_icon_squaresmall_close then "ui-icon-squaresmall-close", - ui_icon_grip_dotted_vertical then "ui-icon-grip-dotted-vertical", - ui_icon_grip_dotted_horizontal then "ui-icon-grip-dotted-horizontal", - ui_icon_grip_solid_vertical then "ui-icon-grip-solid-vertical", - ui_icon_grip_solid_horizontal then "ui-icon-grip-solid-horizontal", - ui_icon_gripsmall_diagonal_se then "ui-icon-gripsmall-diagonal-se", - ui_icon_grip_diagonal_se then "ui-icon-grip-diagonal-se", - jq_icon_none then "", - jq_custom_icon(str) then str - } - . - -public define JQuery_icon - string_to_jquery_icon - ( - String icon_class - ) - = - with ic=to_lower(icon_class), - if ic = "ui-icon-carat-1-n" then ui_icon_carat_1_n else - if ic = "ui-icon-carat-1-ne" then ui_icon_carat_1_ne else - if ic = "ui-icon-carat-1-e" then ui_icon_carat_1_e else - if ic = "ui-icon-carat-1-se" then ui_icon_carat_1_se else - if ic = "ui-icon-carat-1-s" then ui_icon_carat_1_s else - if ic = "ui-icon-carat-1-sw" then ui_icon_carat_1_sw else - if ic = "ui-icon-carat-1-w" then ui_icon_carat_1_w else - if ic = "ui-icon-carat-1-nw" then ui_icon_carat_1_nw else - if ic = "ui-icon-carat-2-n-s" then ui_icon_carat_2_n_s else - if ic = "ui-icon-carat-2-e-w" then ui_icon_carat_2_e_w else - if ic = "ui-icon-triangle-1-n" then ui_icon_triangle_1_n else - if ic = "ui-icon-triangle-1-ne" then ui_icon_triangle_1_ne else - if ic = "ui-icon-triangle-1-e" then ui_icon_triangle_1_e else - if ic = "ui-icon-triangle-1-se" then ui_icon_triangle_1_se else - if ic = "ui-icon-triangle-1-s" then ui_icon_triangle_1_s else - if ic = "ui-icon-triangle-1-sw" then ui_icon_triangle_1_sw else - if ic = "ui-icon-triangle-1-w" then ui_icon_triangle_1_w else - if ic = "ui-icon-triangle-1-nw" then ui_icon_triangle_1_nw else - if ic = "ui-icon-triangle-2-n-s" then ui_icon_triangle_2_n_s else - if ic = "ui-icon-triangle-2-e-w" then ui_icon_triangle_2_e_w else - if ic = "ui-icon-arrow-1-n" then ui_icon_arrow_1_n else - if ic = "ui-icon-arrow-1-ne" then ui_icon_arrow_1_ne else - if ic = "ui-icon-arrow-1-e" then ui_icon_arrow_1_e else - if ic = "ui-icon-arrow-1-se" then ui_icon_arrow_1_se else - if ic = "ui-icon-arrow-1-s" then ui_icon_arrow_1_s else - if ic = "ui-icon-arrow-1-sw" then ui_icon_arrow_1_sw else - if ic = "ui-icon-arrow-1-w" then ui_icon_arrow_1_w else - if ic = "ui-icon-arrow-1-nw" then ui_icon_arrow_1_nw else - if ic = "ui-icon-arrow-2-n-s" then ui_icon_arrow_2_n_s else - if ic = "ui-icon-arrow-2-ne-sw" then ui_icon_arrow_2_ne_sw else - if ic = "ui-icon-arrow-2-e-w" then ui_icon_arrow_2_e_w else - if ic = "ui-icon-arrow-2-se-nw" then ui_icon_arrow_2_se_nw else - if ic = "ui-icon-arrowstop-1-n" then ui_icon_arrowstop_1_n else - if ic = "ui-icon-arrowstop-1-e" then ui_icon_arrowstop_1_e else - if ic = "ui-icon-arrowstop-1-s" then ui_icon_arrowstop_1_s else - if ic = "ui-icon-arrowstop-1-w" then ui_icon_arrowstop_1_w else - if ic = "ui-icon-arrowthick-1-n" then ui_icon_arrowthick_1_n else - if ic = "ui-icon-arrowthick-1-ne" then ui_icon_arrowthick_1_ne else - if ic = "ui-icon-arrowthick-1-e" then ui_icon_arrowthick_1_e else - if ic = "ui-icon-arrowthick-1-se" then ui_icon_arrowthick_1_se else - if ic = "ui-icon-arrowthick-1-s" then ui_icon_arrowthick_1_s else - if ic = "ui-icon-arrowthick-1-sw" then ui_icon_arrowthick_1_sw else - if ic = "ui-icon-arrowthick-1-w" then ui_icon_arrowthick_1_w else - if ic = "ui-icon-arrowthick-1-nw" then ui_icon_arrowthick_1_nw else - if ic = "ui-icon-arrowthick-2-n-s" then ui_icon_arrowthick_2_n_s else - if ic = "ui-icon-arrowthick-2-ne-sw" then ui_icon_arrowthick_2_ne_sw else - if ic = "ui-icon-arrowthick-2-e-w" then ui_icon_arrowthick_2_e_w else - if ic = "ui-icon-arrowthick-2-se-nw" then ui_icon_arrowthick_2_se_nw else - if ic = "ui-icon-arrowthickstop-1-n" then ui_icon_arrowthickstop_1_n else - if ic = "ui-icon-arrowthickstop-1-e" then ui_icon_arrowthickstop_1_e else - if ic = "ui-icon-arrowthickstop-1-s" then ui_icon_arrowthickstop_1_s else - if ic = "ui-icon-arrowthickstop-1-w" then ui_icon_arrowthickstop_1_w else - if ic = "ui-icon-arrowreturnthick-1-w" then ui_icon_arrowreturnthick_1_w else - if ic = "ui-icon-arrowreturnthick-1-n" then ui_icon_arrowreturnthick_1_n else - if ic = "ui-icon-arrowreturnthick-1-e" then ui_icon_arrowreturnthick_1_e else - if ic = "ui-icon-arrowreturnthick-1-s" then ui_icon_arrowreturnthick_1_s else - if ic = "ui-icon-arrowreturn-1-w" then ui_icon_arrowreturn_1_w else - if ic = "ui-icon-arrowreturn-1-n" then ui_icon_arrowreturn_1_n else - if ic = "ui-icon-arrowreturn-1-e" then ui_icon_arrowreturn_1_e else - if ic = "ui-icon-arrowreturn-1-s" then ui_icon_arrowreturn_1_s else - if ic = "ui-icon-arrowrefresh-1-w" then ui_icon_arrowrefresh_1_w else - if ic = "ui-icon-arrowrefresh-1-n" then ui_icon_arrowrefresh_1_n else - if ic = "ui-icon-arrowrefresh-1-e" then ui_icon_arrowrefresh_1_e else - if ic = "ui-icon-arrowrefresh-1-s" then ui_icon_arrowrefresh_1_s else - if ic = "ui-icon-arrow-4" then ui_icon_arrow_4 else - if ic = "ui-icon-arrow-4-diag" then ui_icon_arrow_4_diag else - if ic = "ui-icon-extlink" then ui_icon_extlink else - if ic = "ui-icon-newwin" then ui_icon_newwin else - if ic = "ui-icon-refresh" then ui_icon_refresh else - if ic = "ui-icon-shuffle" then ui_icon_shuffle else - if ic = "ui-icon-transfer-e-w" then ui_icon_transfer_e_w else - if ic = "ui-icon-transferthick-e-w" then ui_icon_transferthick_e_w else - if ic = "ui-icon-folder-collapsed" then ui_icon_folder_collapsed else - if ic = "ui-icon-folder-open" then ui_icon_folder_open else - if ic = "ui-icon-document" then ui_icon_document else - if ic = "ui-icon-document-b" then ui_icon_document_b else - if ic = "ui-icon-note" then ui_icon_note else - if ic = "ui-icon-mail-closed" then ui_icon_mail_closed else - if ic = "ui-icon-mail-open" then ui_icon_mail_open else - if ic = "ui-icon-suitcase" then ui_icon_suitcase else - if ic = "ui-icon-comment" then ui_icon_comment else - if ic = "ui-icon-person" then ui_icon_person else - if ic = "ui-icon-print" then ui_icon_print else - if ic = "ui-icon-trash" then ui_icon_trash else - if ic = "ui-icon-locked" then ui_icon_locked else - if ic = "ui-icon-unlocked" then ui_icon_unlocked else - if ic = "ui-icon-bookmark" then ui_icon_bookmark else - if ic = "ui-icon-tag" then ui_icon_tag else - if ic = "ui-icon-home" then ui_icon_home else - if ic = "ui-icon-flag" then ui_icon_flag else - if ic = "ui-icon-calculator" then ui_icon_calculator else - if ic = "ui-icon-cart" then ui_icon_cart else - if ic = "ui-icon-pencil" then ui_icon_pencil else - if ic = "ui-icon-clock" then ui_icon_clock else - if ic = "ui-icon-disk" then ui_icon_disk else - if ic = "ui-icon-calendar" then ui_icon_calendar else - if ic = "ui-icon-zoomin" then ui_icon_zoomin else - if ic = "ui-icon-zoomout" then ui_icon_zoomout else - if ic = "ui-icon-search" then ui_icon_search else - if ic = "ui-icon-wrench" then ui_icon_wrench else - if ic = "ui-icon-gear" then ui_icon_gear else - if ic = "ui-icon-heart" then ui_icon_heart else - if ic = "ui-icon-star" then ui_icon_star else - if ic = "ui-icon-link" then ui_icon_link else - if ic = "ui-icon-cancel" then ui_icon_cancel else - if ic = "ui-icon-plus" then ui_icon_plus else - if ic = "ui-icon-plusthick" then ui_icon_plusthick else - if ic = "ui-icon-minus" then ui_icon_minus else - if ic = "ui-icon-minusthick" then ui_icon_minusthick else - if ic = "ui-icon-close" then ui_icon_close else - if ic = "ui-icon-closethick" then ui_icon_closethick else - if ic = "ui-icon-key" then ui_icon_key else - if ic = "ui-icon-lightbulb" then ui_icon_lightbulb else - if ic = "ui-icon-scissors" then ui_icon_scissors else - if ic = "ui-icon-clipboard" then ui_icon_clipboard else - if ic = "ui-icon-copy" then ui_icon_copy else - if ic = "ui-icon-contact" then ui_icon_contact else - if ic = "ui-icon-image" then ui_icon_image else - if ic = "ui-icon-video" then ui_icon_video else - if ic = "ui-icon-script" then ui_icon_script else - if ic = "ui-icon-alert" then ui_icon_alert else - if ic = "ui-icon-info" then ui_icon_info else - if ic = "ui-icon-notice" then ui_icon_notice else - if ic = "ui-icon-help" then ui_icon_help else - if ic = "ui-icon-check" then ui_icon_check else - if ic = "ui-icon-bullet" then ui_icon_bullet else - if ic = "ui-icon-radio-off" then ui_icon_radio_off else - if ic = "ui-icon-radio-on" then ui_icon_radio_on else - if ic = "ui-icon-pin-w" then ui_icon_pin_w else - if ic = "ui-icon-pin-s" then ui_icon_pin_s else - if ic = "ui-icon-play" then ui_icon_play else - if ic = "ui-icon-pause" then ui_icon_pause else - if ic = "ui-icon-seek-next" then ui_icon_seek_next else - if ic = "ui-icon-seek-prev" then ui_icon_seek_prev else - if ic = "ui-icon-seek-end" then ui_icon_seek_end else - if ic = "ui-icon-seek-first" then ui_icon_seek_first else - if ic = "ui-icon-stop" then ui_icon_stop else - if ic = "ui-icon-eject" then ui_icon_eject else - if ic = "ui-icon-volume-off" then ui_icon_volume_off else - if ic = "ui-icon-volume-on" then ui_icon_volume_on else - if ic = "ui-icon-power" then ui_icon_power else - if ic = "ui-icon-signal-diag" then ui_icon_signal_diag else - if ic = "ui-icon-signal" then ui_icon_signal else - if ic = "ui-icon-battery-0" then ui_icon_battery_0 else - if ic = "ui-icon-battery-1" then ui_icon_battery_1 else - if ic = "ui-icon-battery-2" then ui_icon_battery_2 else - if ic = "ui-icon-battery-3" then ui_icon_battery_3 else - if ic = "ui-icon-circle-plus" then ui_icon_circle_plus else - if ic = "ui-icon-circle-minus" then ui_icon_circle_minus else - if ic = "ui-icon-circle-close" then ui_icon_circle_close else - if ic = "ui-icon-circle-triangle-e" then ui_icon_circle_triangle_e else - if ic = "ui-icon-circle-triangle-s" then ui_icon_circle_triangle_s else - if ic = "ui-icon-circle-triangle-w" then ui_icon_circle_triangle_w else - if ic = "ui-icon-circle-triangle-n" then ui_icon_circle_triangle_n else - if ic = "ui-icon-circle-arrow-e" then ui_icon_circle_arrow_e else - if ic = "ui-icon-circle-arrow-s" then ui_icon_circle_arrow_s else - if ic = "ui-icon-circle-arrow-w" then ui_icon_circle_arrow_w else - if ic = "ui-icon-circle-arrow-n" then ui_icon_circle_arrow_n else - if ic = "ui-icon-circle-zoomin" then ui_icon_circle_zoomin else - if ic = "ui-icon-circle-zoomout" then ui_icon_circle_zoomout else - if ic = "ui-icon-circle-check" then ui_icon_circle_check else - if ic = "ui-icon-circlesmall-plus" then ui_icon_circlesmall_plus else - if ic = "ui-icon-circlesmall-minus" then ui_icon_circlesmall_minus else - if ic = "ui-icon-circlesmall-close" then ui_icon_circlesmall_close else - if ic = "ui-icon-squaresmall-plus" then ui_icon_squaresmall_plus else - if ic = "ui-icon-squaresmall-minus" then ui_icon_squaresmall_minus else - if ic = "ui-icon-squaresmall-close" then ui_icon_squaresmall_close else - if ic = "ui-icon-grip-dotted-vertical" then ui_icon_grip_dotted_vertical else - if ic = "ui-icon-grip-dotted-horizontal" then ui_icon_grip_dotted_horizontal else - if ic = "ui-icon-grip-solid-vertical" then ui_icon_grip_solid_vertical else - if ic = "ui-icon-grip-solid-horizontal" then ui_icon_grip_solid_horizontal else - if ic = "ui-icon-gripsmall-diagonal-se" then ui_icon_gripsmall_diagonal_se else - if ic = "ui-icon-grip-diagonal-se" then ui_icon_grip_diagonal_se else - if ic = "" then jq_icon_none else - jq_custom_icon(ic) - . +/* + * Created by PyramIDE. + * User: Jeremy + * Date: 08/09/2012 + * Time: 16:35 + * + * + */ + +read calexium_lib/web/CXM_making_a_web_site.anubis +read tools/basis.anubis +read system/string.anubis + +public type JQuery_icon: + ui_icon_carat_1_n, + ui_icon_carat_1_ne, + ui_icon_carat_1_e, + ui_icon_carat_1_se, + ui_icon_carat_1_s, + ui_icon_carat_1_sw, + ui_icon_carat_1_w, + ui_icon_carat_1_nw, + ui_icon_carat_2_n_s, + ui_icon_carat_2_e_w, + ui_icon_triangle_1_n, + ui_icon_triangle_1_ne, + ui_icon_triangle_1_e, + ui_icon_triangle_1_se, + ui_icon_triangle_1_s, + ui_icon_triangle_1_sw, + ui_icon_triangle_1_w, + ui_icon_triangle_1_nw, + ui_icon_triangle_2_n_s, + ui_icon_triangle_2_e_w, + ui_icon_arrow_1_n, + ui_icon_arrow_1_ne, + ui_icon_arrow_1_e, + ui_icon_arrow_1_se, + ui_icon_arrow_1_s, + ui_icon_arrow_1_sw, + ui_icon_arrow_1_w, + ui_icon_arrow_1_nw, + ui_icon_arrow_2_n_s, + ui_icon_arrow_2_ne_sw, + ui_icon_arrow_2_e_w, + ui_icon_arrow_2_se_nw, + ui_icon_arrowstop_1_n, + ui_icon_arrowstop_1_e, + ui_icon_arrowstop_1_s, + ui_icon_arrowstop_1_w, + ui_icon_arrowthick_1_n, + ui_icon_arrowthick_1_ne, + ui_icon_arrowthick_1_e, + ui_icon_arrowthick_1_se, + ui_icon_arrowthick_1_s, + ui_icon_arrowthick_1_sw, + ui_icon_arrowthick_1_w, + ui_icon_arrowthick_1_nw, + ui_icon_arrowthick_2_n_s, + ui_icon_arrowthick_2_ne_sw, + ui_icon_arrowthick_2_e_w, + ui_icon_arrowthick_2_se_nw, + ui_icon_arrowthickstop_1_n, + ui_icon_arrowthickstop_1_e, + ui_icon_arrowthickstop_1_s, + ui_icon_arrowthickstop_1_w, + ui_icon_arrowreturnthick_1_w, + ui_icon_arrowreturnthick_1_n, + ui_icon_arrowreturnthick_1_e, + ui_icon_arrowreturnthick_1_s, + ui_icon_arrowreturn_1_w, + ui_icon_arrowreturn_1_n, + ui_icon_arrowreturn_1_e, + ui_icon_arrowreturn_1_s, + ui_icon_arrowrefresh_1_w, + ui_icon_arrowrefresh_1_n, + ui_icon_arrowrefresh_1_e, + ui_icon_arrowrefresh_1_s, + ui_icon_arrow_4, + ui_icon_arrow_4_diag, + ui_icon_extlink, + ui_icon_newwin, + ui_icon_refresh, + ui_icon_shuffle, + ui_icon_transfer_e_w, + ui_icon_transferthick_e_w, + ui_icon_folder_collapsed, + ui_icon_folder_open, + ui_icon_document, + ui_icon_document_b, + ui_icon_note, + ui_icon_mail_closed, + ui_icon_mail_open, + ui_icon_suitcase, + ui_icon_comment, + ui_icon_person, + ui_icon_print, + ui_icon_trash, + ui_icon_locked, + ui_icon_unlocked, + ui_icon_bookmark, + ui_icon_tag, + ui_icon_home, + ui_icon_flag, + ui_icon_calculator, + ui_icon_cart, + ui_icon_pencil, + ui_icon_clock, + ui_icon_disk, + ui_icon_calendar, + ui_icon_zoomin, + ui_icon_zoomout, + ui_icon_search, + ui_icon_wrench, + ui_icon_gear, + ui_icon_heart, + ui_icon_star, + ui_icon_link, + ui_icon_cancel, + ui_icon_plus, + ui_icon_plusthick, + ui_icon_minus, + ui_icon_minusthick, + ui_icon_close, + ui_icon_closethick, + ui_icon_key, + ui_icon_lightbulb, + ui_icon_scissors, + ui_icon_clipboard, + ui_icon_copy, + ui_icon_contact, + ui_icon_image, + ui_icon_video, + ui_icon_script, + ui_icon_alert, + ui_icon_info, + ui_icon_notice, + ui_icon_help, + ui_icon_check, + ui_icon_bullet, + ui_icon_radio_off, + ui_icon_radio_on, + ui_icon_pin_w, + ui_icon_pin_s, + ui_icon_play, + ui_icon_pause, + ui_icon_seek_next, + ui_icon_seek_prev, + ui_icon_seek_end, + ui_icon_seek_first, + ui_icon_stop, + ui_icon_eject, + ui_icon_volume_off, + ui_icon_volume_on, + ui_icon_power, + ui_icon_signal_diag, + ui_icon_signal, + ui_icon_battery_0, + ui_icon_battery_1, + ui_icon_battery_2, + ui_icon_battery_3, + ui_icon_circle_plus, + ui_icon_circle_minus, + ui_icon_circle_close, + ui_icon_circle_triangle_e, + ui_icon_circle_triangle_s, + ui_icon_circle_triangle_w, + ui_icon_circle_triangle_n, + ui_icon_circle_arrow_e, + ui_icon_circle_arrow_s, + ui_icon_circle_arrow_w, + ui_icon_circle_arrow_n, + ui_icon_circle_zoomin, + ui_icon_circle_zoomout, + ui_icon_circle_check, + ui_icon_circlesmall_plus, + ui_icon_circlesmall_minus, + ui_icon_circlesmall_close, + ui_icon_squaresmall_plus, + ui_icon_squaresmall_minus, + ui_icon_squaresmall_close, + ui_icon_grip_dotted_vertical, + ui_icon_grip_dotted_horizontal, + ui_icon_grip_solid_vertical, + ui_icon_grip_solid_horizontal, + ui_icon_gripsmall_diagonal_se, + ui_icon_grip_diagonal_se, + jq_icon_none, + jq_custom_icon(String) // for custom icon => set it to CSS class name used to display icon => for creating a such CSS class please refer to jQueryUI Theme CSS file and see how it's done with the othe icon classes +. + +public define String + jquery_icon_to_string + ( + JQuery_icon icon + ) + = + if icon is + { + ui_icon_carat_1_n then "ui-icon-carat-1-n", + ui_icon_carat_1_ne then "ui-icon-carat-1-ne", + ui_icon_carat_1_e then "ui-icon-carat-1-e", + ui_icon_carat_1_se then "ui-icon-carat-1-se", + ui_icon_carat_1_s then "ui-icon-carat-1-s", + ui_icon_carat_1_sw then "ui-icon-carat-1-sw", + ui_icon_carat_1_w then "ui-icon-carat-1-w", + ui_icon_carat_1_nw then "ui-icon-carat-1-nw", + ui_icon_carat_2_n_s then "ui-icon-carat-2-n-s", + ui_icon_carat_2_e_w then "ui-icon-carat-2-e-w", + ui_icon_triangle_1_n then "ui-icon-triangle-1-n", + ui_icon_triangle_1_ne then "ui-icon-triangle-1-ne", + ui_icon_triangle_1_e then "ui-icon-triangle-1-e", + ui_icon_triangle_1_se then "ui-icon-triangle-1-se", + ui_icon_triangle_1_s then "ui-icon-triangle-1-s", + ui_icon_triangle_1_sw then "ui-icon-triangle-1-sw", + ui_icon_triangle_1_w then "ui-icon-triangle-1-w", + ui_icon_triangle_1_nw then "ui-icon-triangle-1-nw", + ui_icon_triangle_2_n_s then "ui-icon-triangle-2-n-s", + ui_icon_triangle_2_e_w then "ui-icon-triangle-2-e-w", + ui_icon_arrow_1_n then "ui-icon-arrow-1-n", + ui_icon_arrow_1_ne then "ui-icon-arrow-1-ne", + ui_icon_arrow_1_e then "ui-icon-arrow-1-e", + ui_icon_arrow_1_se then "ui-icon-arrow-1-se", + ui_icon_arrow_1_s then "ui-icon-arrow-1-s", + ui_icon_arrow_1_sw then "ui-icon-arrow-1-sw", + ui_icon_arrow_1_w then "ui-icon-arrow-1-w", + ui_icon_arrow_1_nw then "ui-icon-arrow-1-nw", + ui_icon_arrow_2_n_s then "ui-icon-arrow-2-n-s", + ui_icon_arrow_2_ne_sw then "ui-icon-arrow-2-ne-sw", + ui_icon_arrow_2_e_w then "ui-icon-arrow-2-e-w", + ui_icon_arrow_2_se_nw then "ui-icon-arrow-2-se-nw", + ui_icon_arrowstop_1_n then "ui-icon-arrowstop-1-n", + ui_icon_arrowstop_1_e then "ui-icon-arrowstop-1-e", + ui_icon_arrowstop_1_s then "ui-icon-arrowstop-1-s", + ui_icon_arrowstop_1_w then "ui-icon-arrowstop-1-w", + ui_icon_arrowthick_1_n then "ui-icon-arrowthick-1-n", + ui_icon_arrowthick_1_ne then "ui-icon-arrowthick-1-ne", + ui_icon_arrowthick_1_e then "ui-icon-arrowthick-1-e", + ui_icon_arrowthick_1_se then "ui-icon-arrowthick-1-se", + ui_icon_arrowthick_1_s then "ui-icon-arrowthick-1-s", + ui_icon_arrowthick_1_sw then "ui-icon-arrowthick-1-sw", + ui_icon_arrowthick_1_w then "ui-icon-arrowthick-1-w", + ui_icon_arrowthick_1_nw then "ui-icon-arrowthick-1-nw", + ui_icon_arrowthick_2_n_s then "ui-icon-arrowthick-2-n-s", + ui_icon_arrowthick_2_ne_sw then "ui-icon-arrowthick-2-ne-sw", + ui_icon_arrowthick_2_e_w then "ui-icon-arrowthick-2-e-w", + ui_icon_arrowthick_2_se_nw then "ui-icon-arrowthick-2-se-nw", + ui_icon_arrowthickstop_1_n then "ui-icon-arrowthickstop-1-n", + ui_icon_arrowthickstop_1_e then "ui-icon-arrowthickstop-1-e", + ui_icon_arrowthickstop_1_s then "ui-icon-arrowthickstop-1-s", + ui_icon_arrowthickstop_1_w then "ui-icon-arrowthickstop-1-w", + ui_icon_arrowreturnthick_1_w then "ui-icon-arrowreturnthick-1-w", + ui_icon_arrowreturnthick_1_n then "ui-icon-arrowreturnthick-1-n", + ui_icon_arrowreturnthick_1_e then "ui-icon-arrowreturnthick-1-e", + ui_icon_arrowreturnthick_1_s then "ui-icon-arrowreturnthick-1-s", + ui_icon_arrowreturn_1_w then "ui-icon-arrowreturn-1-w", + ui_icon_arrowreturn_1_n then "ui-icon-arrowreturn-1-n", + ui_icon_arrowreturn_1_e then "ui-icon-arrowreturn-1-e", + ui_icon_arrowreturn_1_s then "ui-icon-arrowreturn-1-s", + ui_icon_arrowrefresh_1_w then "ui-icon-arrowrefresh-1-w", + ui_icon_arrowrefresh_1_n then "ui-icon-arrowrefresh-1-n", + ui_icon_arrowrefresh_1_e then "ui-icon-arrowrefresh-1-e", + ui_icon_arrowrefresh_1_s then "ui-icon-arrowrefresh-1-s", + ui_icon_arrow_4 then "ui-icon-arrow-4", + ui_icon_arrow_4_diag then "ui-icon-arrow-4-diag", + ui_icon_extlink then "ui-icon-extlink", + ui_icon_newwin then "ui-icon-newwin", + ui_icon_refresh then "ui-icon-refresh", + ui_icon_shuffle then "ui-icon-shuffle", + ui_icon_transfer_e_w then "ui-icon-transfer-e-w", + ui_icon_transferthick_e_w then "ui-icon-transferthick-e-w", + ui_icon_folder_collapsed then "ui-icon-folder-collapsed", + ui_icon_folder_open then "ui-icon-folder-open", + ui_icon_document then "ui-icon-document", + ui_icon_document_b then "ui-icon-document-b", + ui_icon_note then "ui-icon-note", + ui_icon_mail_closed then "ui-icon-mail-closed", + ui_icon_mail_open then "ui-icon-mail-open", + ui_icon_suitcase then "ui-icon-suitcase", + ui_icon_comment then "ui-icon-comment", + ui_icon_person then "ui-icon-person", + ui_icon_print then "ui-icon-print", + ui_icon_trash then "ui-icon-trash", + ui_icon_locked then "ui-icon-locked", + ui_icon_unlocked then "ui-icon-unlocked", + ui_icon_bookmark then "ui-icon-bookmark", + ui_icon_tag then "ui-icon-tag", + ui_icon_home then "ui-icon-home", + ui_icon_flag then "ui-icon-flag", + ui_icon_calculator then "ui-icon-calculator", + ui_icon_cart then "ui-icon-cart", + ui_icon_pencil then "ui-icon-pencil", + ui_icon_clock then "ui-icon-clock", + ui_icon_disk then "ui-icon-disk", + ui_icon_calendar then "ui-icon-calendar", + ui_icon_zoomin then "ui-icon-zoomin", + ui_icon_zoomout then "ui-icon-zoomout", + ui_icon_search then "ui-icon-search", + ui_icon_wrench then "ui-icon-wrench", + ui_icon_gear then "ui-icon-gear", + ui_icon_heart then "ui-icon-heart", + ui_icon_star then "ui-icon-star", + ui_icon_link then "ui-icon-link", + ui_icon_cancel then "ui-icon-cancel", + ui_icon_plus then "ui-icon-plus", + ui_icon_plusthick then "ui-icon-plusthick", + ui_icon_minus then "ui-icon-minus", + ui_icon_minusthick then "ui-icon-minusthick", + ui_icon_close then "ui-icon-close", + ui_icon_closethick then "ui-icon-closethick", + ui_icon_key then "ui-icon-key", + ui_icon_lightbulb then "ui-icon-lightbulb", + ui_icon_scissors then "ui-icon-scissors", + ui_icon_clipboard then "ui-icon-clipboard", + ui_icon_copy then "ui-icon-copy", + ui_icon_contact then "ui-icon-contact", + ui_icon_image then "ui-icon-image", + ui_icon_video then "ui-icon-video", + ui_icon_script then "ui-icon-script", + ui_icon_alert then "ui-icon-alert", + ui_icon_info then "ui-icon-info", + ui_icon_notice then "ui-icon-notice", + ui_icon_help then "ui-icon-help", + ui_icon_check then "ui-icon-check", + ui_icon_bullet then "ui-icon-bullet", + ui_icon_radio_off then "ui-icon-radio-off", + ui_icon_radio_on then "ui-icon-radio-on", + ui_icon_pin_w then "ui-icon-pin-w", + ui_icon_pin_s then "ui-icon-pin-s", + ui_icon_play then "ui-icon-play", + ui_icon_pause then "ui-icon-pause", + ui_icon_seek_next then "ui-icon-seek-next", + ui_icon_seek_prev then "ui-icon-seek-prev", + ui_icon_seek_end then "ui-icon-seek-end", + ui_icon_seek_first then "ui-icon-seek-first", + ui_icon_stop then "ui-icon-stop", + ui_icon_eject then "ui-icon-eject", + ui_icon_volume_off then "ui-icon-volume-off", + ui_icon_volume_on then "ui-icon-volume-on", + ui_icon_power then "ui-icon-power", + ui_icon_signal_diag then "ui-icon-signal-diag", + ui_icon_signal then "ui-icon-signal", + ui_icon_battery_0 then "ui-icon-battery-0", + ui_icon_battery_1 then "ui-icon-battery-1", + ui_icon_battery_2 then "ui-icon-battery-2", + ui_icon_battery_3 then "ui-icon-battery-3", + ui_icon_circle_plus then "ui-icon-circle-plus", + ui_icon_circle_minus then "ui-icon-circle-minus", + ui_icon_circle_close then "ui-icon-circle-close", + ui_icon_circle_triangle_e then "ui-icon-circle-triangle-e", + ui_icon_circle_triangle_s then "ui-icon-circle-triangle-s", + ui_icon_circle_triangle_w then "ui-icon-circle-triangle-w", + ui_icon_circle_triangle_n then "ui-icon-circle-triangle-n", + ui_icon_circle_arrow_e then "ui-icon-circle-arrow-e", + ui_icon_circle_arrow_s then "ui-icon-circle-arrow-s", + ui_icon_circle_arrow_w then "ui-icon-circle-arrow-w", + ui_icon_circle_arrow_n then "ui-icon-circle-arrow-n", + ui_icon_circle_zoomin then "ui-icon-circle-zoomin", + ui_icon_circle_zoomout then "ui-icon-circle-zoomout", + ui_icon_circle_check then "ui-icon-circle-check", + ui_icon_circlesmall_plus then "ui-icon-circlesmall-plus", + ui_icon_circlesmall_minus then "ui-icon-circlesmall-minus", + ui_icon_circlesmall_close then "ui-icon-circlesmall-close", + ui_icon_squaresmall_plus then "ui-icon-squaresmall-plus", + ui_icon_squaresmall_minus then "ui-icon-squaresmall-minus", + ui_icon_squaresmall_close then "ui-icon-squaresmall-close", + ui_icon_grip_dotted_vertical then "ui-icon-grip-dotted-vertical", + ui_icon_grip_dotted_horizontal then "ui-icon-grip-dotted-horizontal", + ui_icon_grip_solid_vertical then "ui-icon-grip-solid-vertical", + ui_icon_grip_solid_horizontal then "ui-icon-grip-solid-horizontal", + ui_icon_gripsmall_diagonal_se then "ui-icon-gripsmall-diagonal-se", + ui_icon_grip_diagonal_se then "ui-icon-grip-diagonal-se", + jq_icon_none then "", + jq_custom_icon(str) then str + } + . + +public define JQuery_icon + string_to_jquery_icon + ( + String icon_class + ) + = + with ic=to_lower(icon_class), + if ic = "ui-icon-carat-1-n" then ui_icon_carat_1_n else + if ic = "ui-icon-carat-1-ne" then ui_icon_carat_1_ne else + if ic = "ui-icon-carat-1-e" then ui_icon_carat_1_e else + if ic = "ui-icon-carat-1-se" then ui_icon_carat_1_se else + if ic = "ui-icon-carat-1-s" then ui_icon_carat_1_s else + if ic = "ui-icon-carat-1-sw" then ui_icon_carat_1_sw else + if ic = "ui-icon-carat-1-w" then ui_icon_carat_1_w else + if ic = "ui-icon-carat-1-nw" then ui_icon_carat_1_nw else + if ic = "ui-icon-carat-2-n-s" then ui_icon_carat_2_n_s else + if ic = "ui-icon-carat-2-e-w" then ui_icon_carat_2_e_w else + if ic = "ui-icon-triangle-1-n" then ui_icon_triangle_1_n else + if ic = "ui-icon-triangle-1-ne" then ui_icon_triangle_1_ne else + if ic = "ui-icon-triangle-1-e" then ui_icon_triangle_1_e else + if ic = "ui-icon-triangle-1-se" then ui_icon_triangle_1_se else + if ic = "ui-icon-triangle-1-s" then ui_icon_triangle_1_s else + if ic = "ui-icon-triangle-1-sw" then ui_icon_triangle_1_sw else + if ic = "ui-icon-triangle-1-w" then ui_icon_triangle_1_w else + if ic = "ui-icon-triangle-1-nw" then ui_icon_triangle_1_nw else + if ic = "ui-icon-triangle-2-n-s" then ui_icon_triangle_2_n_s else + if ic = "ui-icon-triangle-2-e-w" then ui_icon_triangle_2_e_w else + if ic = "ui-icon-arrow-1-n" then ui_icon_arrow_1_n else + if ic = "ui-icon-arrow-1-ne" then ui_icon_arrow_1_ne else + if ic = "ui-icon-arrow-1-e" then ui_icon_arrow_1_e else + if ic = "ui-icon-arrow-1-se" then ui_icon_arrow_1_se else + if ic = "ui-icon-arrow-1-s" then ui_icon_arrow_1_s else + if ic = "ui-icon-arrow-1-sw" then ui_icon_arrow_1_sw else + if ic = "ui-icon-arrow-1-w" then ui_icon_arrow_1_w else + if ic = "ui-icon-arrow-1-nw" then ui_icon_arrow_1_nw else + if ic = "ui-icon-arrow-2-n-s" then ui_icon_arrow_2_n_s else + if ic = "ui-icon-arrow-2-ne-sw" then ui_icon_arrow_2_ne_sw else + if ic = "ui-icon-arrow-2-e-w" then ui_icon_arrow_2_e_w else + if ic = "ui-icon-arrow-2-se-nw" then ui_icon_arrow_2_se_nw else + if ic = "ui-icon-arrowstop-1-n" then ui_icon_arrowstop_1_n else + if ic = "ui-icon-arrowstop-1-e" then ui_icon_arrowstop_1_e else + if ic = "ui-icon-arrowstop-1-s" then ui_icon_arrowstop_1_s else + if ic = "ui-icon-arrowstop-1-w" then ui_icon_arrowstop_1_w else + if ic = "ui-icon-arrowthick-1-n" then ui_icon_arrowthick_1_n else + if ic = "ui-icon-arrowthick-1-ne" then ui_icon_arrowthick_1_ne else + if ic = "ui-icon-arrowthick-1-e" then ui_icon_arrowthick_1_e else + if ic = "ui-icon-arrowthick-1-se" then ui_icon_arrowthick_1_se else + if ic = "ui-icon-arrowthick-1-s" then ui_icon_arrowthick_1_s else + if ic = "ui-icon-arrowthick-1-sw" then ui_icon_arrowthick_1_sw else + if ic = "ui-icon-arrowthick-1-w" then ui_icon_arrowthick_1_w else + if ic = "ui-icon-arrowthick-1-nw" then ui_icon_arrowthick_1_nw else + if ic = "ui-icon-arrowthick-2-n-s" then ui_icon_arrowthick_2_n_s else + if ic = "ui-icon-arrowthick-2-ne-sw" then ui_icon_arrowthick_2_ne_sw else + if ic = "ui-icon-arrowthick-2-e-w" then ui_icon_arrowthick_2_e_w else + if ic = "ui-icon-arrowthick-2-se-nw" then ui_icon_arrowthick_2_se_nw else + if ic = "ui-icon-arrowthickstop-1-n" then ui_icon_arrowthickstop_1_n else + if ic = "ui-icon-arrowthickstop-1-e" then ui_icon_arrowthickstop_1_e else + if ic = "ui-icon-arrowthickstop-1-s" then ui_icon_arrowthickstop_1_s else + if ic = "ui-icon-arrowthickstop-1-w" then ui_icon_arrowthickstop_1_w else + if ic = "ui-icon-arrowreturnthick-1-w" then ui_icon_arrowreturnthick_1_w else + if ic = "ui-icon-arrowreturnthick-1-n" then ui_icon_arrowreturnthick_1_n else + if ic = "ui-icon-arrowreturnthick-1-e" then ui_icon_arrowreturnthick_1_e else + if ic = "ui-icon-arrowreturnthick-1-s" then ui_icon_arrowreturnthick_1_s else + if ic = "ui-icon-arrowreturn-1-w" then ui_icon_arrowreturn_1_w else + if ic = "ui-icon-arrowreturn-1-n" then ui_icon_arrowreturn_1_n else + if ic = "ui-icon-arrowreturn-1-e" then ui_icon_arrowreturn_1_e else + if ic = "ui-icon-arrowreturn-1-s" then ui_icon_arrowreturn_1_s else + if ic = "ui-icon-arrowrefresh-1-w" then ui_icon_arrowrefresh_1_w else + if ic = "ui-icon-arrowrefresh-1-n" then ui_icon_arrowrefresh_1_n else + if ic = "ui-icon-arrowrefresh-1-e" then ui_icon_arrowrefresh_1_e else + if ic = "ui-icon-arrowrefresh-1-s" then ui_icon_arrowrefresh_1_s else + if ic = "ui-icon-arrow-4" then ui_icon_arrow_4 else + if ic = "ui-icon-arrow-4-diag" then ui_icon_arrow_4_diag else + if ic = "ui-icon-extlink" then ui_icon_extlink else + if ic = "ui-icon-newwin" then ui_icon_newwin else + if ic = "ui-icon-refresh" then ui_icon_refresh else + if ic = "ui-icon-shuffle" then ui_icon_shuffle else + if ic = "ui-icon-transfer-e-w" then ui_icon_transfer_e_w else + if ic = "ui-icon-transferthick-e-w" then ui_icon_transferthick_e_w else + if ic = "ui-icon-folder-collapsed" then ui_icon_folder_collapsed else + if ic = "ui-icon-folder-open" then ui_icon_folder_open else + if ic = "ui-icon-document" then ui_icon_document else + if ic = "ui-icon-document-b" then ui_icon_document_b else + if ic = "ui-icon-note" then ui_icon_note else + if ic = "ui-icon-mail-closed" then ui_icon_mail_closed else + if ic = "ui-icon-mail-open" then ui_icon_mail_open else + if ic = "ui-icon-suitcase" then ui_icon_suitcase else + if ic = "ui-icon-comment" then ui_icon_comment else + if ic = "ui-icon-person" then ui_icon_person else + if ic = "ui-icon-print" then ui_icon_print else + if ic = "ui-icon-trash" then ui_icon_trash else + if ic = "ui-icon-locked" then ui_icon_locked else + if ic = "ui-icon-unlocked" then ui_icon_unlocked else + if ic = "ui-icon-bookmark" then ui_icon_bookmark else + if ic = "ui-icon-tag" then ui_icon_tag else + if ic = "ui-icon-home" then ui_icon_home else + if ic = "ui-icon-flag" then ui_icon_flag else + if ic = "ui-icon-calculator" then ui_icon_calculator else + if ic = "ui-icon-cart" then ui_icon_cart else + if ic = "ui-icon-pencil" then ui_icon_pencil else + if ic = "ui-icon-clock" then ui_icon_clock else + if ic = "ui-icon-disk" then ui_icon_disk else + if ic = "ui-icon-calendar" then ui_icon_calendar else + if ic = "ui-icon-zoomin" then ui_icon_zoomin else + if ic = "ui-icon-zoomout" then ui_icon_zoomout else + if ic = "ui-icon-search" then ui_icon_search else + if ic = "ui-icon-wrench" then ui_icon_wrench else + if ic = "ui-icon-gear" then ui_icon_gear else + if ic = "ui-icon-heart" then ui_icon_heart else + if ic = "ui-icon-star" then ui_icon_star else + if ic = "ui-icon-link" then ui_icon_link else + if ic = "ui-icon-cancel" then ui_icon_cancel else + if ic = "ui-icon-plus" then ui_icon_plus else + if ic = "ui-icon-plusthick" then ui_icon_plusthick else + if ic = "ui-icon-minus" then ui_icon_minus else + if ic = "ui-icon-minusthick" then ui_icon_minusthick else + if ic = "ui-icon-close" then ui_icon_close else + if ic = "ui-icon-closethick" then ui_icon_closethick else + if ic = "ui-icon-key" then ui_icon_key else + if ic = "ui-icon-lightbulb" then ui_icon_lightbulb else + if ic = "ui-icon-scissors" then ui_icon_scissors else + if ic = "ui-icon-clipboard" then ui_icon_clipboard else + if ic = "ui-icon-copy" then ui_icon_copy else + if ic = "ui-icon-contact" then ui_icon_contact else + if ic = "ui-icon-image" then ui_icon_image else + if ic = "ui-icon-video" then ui_icon_video else + if ic = "ui-icon-script" then ui_icon_script else + if ic = "ui-icon-alert" then ui_icon_alert else + if ic = "ui-icon-info" then ui_icon_info else + if ic = "ui-icon-notice" then ui_icon_notice else + if ic = "ui-icon-help" then ui_icon_help else + if ic = "ui-icon-check" then ui_icon_check else + if ic = "ui-icon-bullet" then ui_icon_bullet else + if ic = "ui-icon-radio-off" then ui_icon_radio_off else + if ic = "ui-icon-radio-on" then ui_icon_radio_on else + if ic = "ui-icon-pin-w" then ui_icon_pin_w else + if ic = "ui-icon-pin-s" then ui_icon_pin_s else + if ic = "ui-icon-play" then ui_icon_play else + if ic = "ui-icon-pause" then ui_icon_pause else + if ic = "ui-icon-seek-next" then ui_icon_seek_next else + if ic = "ui-icon-seek-prev" then ui_icon_seek_prev else + if ic = "ui-icon-seek-end" then ui_icon_seek_end else + if ic = "ui-icon-seek-first" then ui_icon_seek_first else + if ic = "ui-icon-stop" then ui_icon_stop else + if ic = "ui-icon-eject" then ui_icon_eject else + if ic = "ui-icon-volume-off" then ui_icon_volume_off else + if ic = "ui-icon-volume-on" then ui_icon_volume_on else + if ic = "ui-icon-power" then ui_icon_power else + if ic = "ui-icon-signal-diag" then ui_icon_signal_diag else + if ic = "ui-icon-signal" then ui_icon_signal else + if ic = "ui-icon-battery-0" then ui_icon_battery_0 else + if ic = "ui-icon-battery-1" then ui_icon_battery_1 else + if ic = "ui-icon-battery-2" then ui_icon_battery_2 else + if ic = "ui-icon-battery-3" then ui_icon_battery_3 else + if ic = "ui-icon-circle-plus" then ui_icon_circle_plus else + if ic = "ui-icon-circle-minus" then ui_icon_circle_minus else + if ic = "ui-icon-circle-close" then ui_icon_circle_close else + if ic = "ui-icon-circle-triangle-e" then ui_icon_circle_triangle_e else + if ic = "ui-icon-circle-triangle-s" then ui_icon_circle_triangle_s else + if ic = "ui-icon-circle-triangle-w" then ui_icon_circle_triangle_w else + if ic = "ui-icon-circle-triangle-n" then ui_icon_circle_triangle_n else + if ic = "ui-icon-circle-arrow-e" then ui_icon_circle_arrow_e else + if ic = "ui-icon-circle-arrow-s" then ui_icon_circle_arrow_s else + if ic = "ui-icon-circle-arrow-w" then ui_icon_circle_arrow_w else + if ic = "ui-icon-circle-arrow-n" then ui_icon_circle_arrow_n else + if ic = "ui-icon-circle-zoomin" then ui_icon_circle_zoomin else + if ic = "ui-icon-circle-zoomout" then ui_icon_circle_zoomout else + if ic = "ui-icon-circle-check" then ui_icon_circle_check else + if ic = "ui-icon-circlesmall-plus" then ui_icon_circlesmall_plus else + if ic = "ui-icon-circlesmall-minus" then ui_icon_circlesmall_minus else + if ic = "ui-icon-circlesmall-close" then ui_icon_circlesmall_close else + if ic = "ui-icon-squaresmall-plus" then ui_icon_squaresmall_plus else + if ic = "ui-icon-squaresmall-minus" then ui_icon_squaresmall_minus else + if ic = "ui-icon-squaresmall-close" then ui_icon_squaresmall_close else + if ic = "ui-icon-grip-dotted-vertical" then ui_icon_grip_dotted_vertical else + if ic = "ui-icon-grip-dotted-horizontal" then ui_icon_grip_dotted_horizontal else + if ic = "ui-icon-grip-solid-vertical" then ui_icon_grip_solid_vertical else + if ic = "ui-icon-grip-solid-horizontal" then ui_icon_grip_solid_horizontal else + if ic = "ui-icon-gripsmall-diagonal-se" then ui_icon_gripsmall_diagonal_se else + if ic = "ui-icon-grip-diagonal-se" then ui_icon_grip_diagonal_se else + if ic = "" then jq_icon_none else + jq_custom_icon(ic) + . diff --git a/web/jQuery/CXM_jquery_tabs.anubis b/web/jQuery/CXM_jquery_tabs.anubis index 6c5574e..fc9e746 100644 --- a/web/jQuery/CXM_jquery_tabs.anubis +++ b/web/jQuery/CXM_jquery_tabs.anubis @@ -4,7 +4,7 @@ * Date: 04/09/2012 * Time: 16:19 * - * To change this template use Tools | Options | Coding | Edit Standard Headers. + * */ read calexium_lib/web/CXM_making_a_web_site.anubis diff --git a/web/jQuery/CXM_jquery_tiptip.anubis b/web/jQuery/CXM_jquery_tiptip.anubis index c156685..6c4ee77 100644 --- a/web/jQuery/CXM_jquery_tiptip.anubis +++ b/web/jQuery/CXM_jquery_tiptip.anubis @@ -4,7 +4,7 @@ * Date: 18/09/2012 * Time: 15:42 * - * To change this template use Tools | Options | Coding | Edit Standard Headers. + * */ read calexium_lib/web/CXM_making_a_web_site.anubis -- libgit2 0.21.4