Anubis / Xlib

Commit 4bb63871c17561ea7cb91d2f180d68c38273eaf0

Authored by totoro
1 parent 6cf67b09

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
Showing 19 changed files with 1373 additions and 1369 deletions   Show diff stats
Inline Side-by-side
@@ -4,7 +4,7 @@ @@ -4,7 +4,7 @@
4 * Date: 16/09/2007 4 * Date: 16/09/2007
5 * Time: 21:10 5 * Time: 21:10
6 * 6 *
7 - * To change this template use Tools | Options | Coding | Edit Standard Headers. 7 + *
8 */ 8 */
9 9
10 public type GeneralError: 10 public type GeneralError:
asterisk/ami_types.anubis
  Show/Hide comments   View file @4bb6387
1 -/*  
2 - * Created by PyramIDE.  
3 - * User: Tototo  
4 - * Date: 13/07/2013  
5 - * Time: 02:19  
6 - *  
7 - * To change this template use Tools | Options | Coding | Edit Standard Headers.  
8 - */  
9 -  
10 -read tools/connections.anubis  
11 -  
12 -public type Key_value:  
13 - key_value(String key, String value).  
14 -  
15 -public type AMI_Response:  
16 - success(List(Key_value)),  
17 - error(List(Key_value)).  
18 -  
19 -public type AMI_Action:  
20 - action(String action_type, List(Key_value)).  
21 -  
22 -public type AMI_Event:  
23 - event(String event_type, List(Key_value)).  
24 -  
25 -public type AMI_Auth:  
26 - auth(String login, String pass).  
27 -  
28 -public type Asterisk_client:  
29 - asterisk_client(  
30 - Connection conn,  
31 - Var(Int) id,  
32 - AMI_Auth auth).  
33 - 1 +/*
  2 + * Created by PyramIDE.
  3 + * User: Tototo
  4 + * Date: 13/07/2013
  5 + * Time: 02:19
  6 + *
  7 + *
  8 + */
  9 +
  10 +read tools/connections.anubis
  11 +
  12 +public type Key_value:
  13 + key_value(String key, String value).
  14 +
  15 +public type AMI_Response:
  16 + success(List(Key_value)),
  17 + error(List(Key_value)).
  18 +
  19 +public type AMI_Action:
  20 + action(String action_type, List(Key_value)).
  21 +
  22 +public type AMI_Event:
  23 + event(String event_type, List(Key_value)).
  24 +
  25 +public type AMI_Auth:
  26 + auth(String login, String pass).
  27 +
  28 +public type Asterisk_client:
  29 + asterisk_client(
  30 + Connection conn,
  31 + Var(Int) id,
  32 + AMI_Auth auth).
  33 +
database/settings_sqlite3.anubis
  Show/Hide comments   View file @4bb6387
1 -/*  
2 - * Created by PyramIDE.  
3 - * User: Totoro  
4 - * Date: 11/08/2012  
5 - * Time: 17:44  
6 - *  
7 - * To change this template use Tools | Options | Coding | Edit Standard Headers.  
8 - */  
9 -  
10 -read tools/basis.anubis  
11 -read data_base/sqlite.anubis  
12 -read data_base/db_tools.anubis  
13 -read calexium_lib/database/db_utils.anubis  
14 -  
15 -  
16 -public define Maybe(String)  
17 - select_settings  
18 - (  
19 - SQLite3DataBase db,  
20 - String var,  
21 - )=  
22 - if sql_query_timeout(db, "SELECT var_value FROM settings WHERE var_name=" + db_make_sql_string(var) + ";", [], "select_settings") is  
23 - {  
24 - error(_) then failure, //error in the SQL request  
25 - ok(_, cursor, _) then  
26 - if cursor(unique) is  
27 - {  
28 - error(_) then failure,  
29 - no_more_row then failure, //can't find the var_value in the table, because the row is empty  
30 - row(current) then success(text(current)(0))  
31 - }  
32 - }.  
33 -  
34 -public define String  
35 - select_settings  
36 - (  
37 - SQLite3DataBase db,  
38 - String var,  
39 - String default  
40 - )=  
41 - if select_settings(db, var) is  
42 - {  
43 - failure then default, //error in the SQL request  
44 - success(value) then value  
45 - }.  
46 -  
47 -public define Int  
48 - select_settings  
49 - (  
50 - SQLite3DataBase db,  
51 - String var,  
52 - Int default  
53 - )=  
54 - if select_settings(db, var) is  
55 - {  
56 - failure then default, //error in the SQL request  
57 - success(value) then  
58 - if decimal_scan(value) is  
59 - {  
60 - failure then default,  
61 - success(v) then v  
62 - }  
63 - }.  
64 -  
65 -public define Bool  
66 - select_settings  
67 - (  
68 - SQLite3DataBase db,  
69 - String var,  
70 - Bool default  
71 - )=  
72 - if select_settings(db, var) is  
73 - {  
74 - failure then default, //error in the SQL request  
75 - success(value) then  
76 - if value = "true" then true  
77 - else if value = "false" then false  
78 - // old values  
79 - else if value = "1" then true  
80 - else if value = "0" then false  
81 - // failback  
82 - else if decimal_scan(value) is  
83 - {  
84 - failure then default,  
85 - success(v) then v!=0  
86 - }  
87 - }.  
88 -  
89 -public define One  
90 - update_settings  
91 - (  
92 - SQLite3DataBase db,  
93 - String var,  
94 - Bool value  
95 - )=  
96 - with bool_str = if value is true then "true" else "false",  
97 - with binds = (List(SQLite3Bind))[bind_String(":name", var), bind_String(":value", bool_str)],  
98 - if select_settings(db, var) is success(_) then  
99 - forget(sql_query_timeout(db, "UPDATE settings SET var_value = :value WHERE var_name = :name;", binds, "update_settings"))  
100 - else  
101 - forget(sql_query_timeout(db, "INSERT INTO settings (var_name, var_value) VALUES (:name, :value)", binds, "update_settings"))  
102 - .  
103 -  
104 -public define One  
105 - update_settings  
106 - (  
107 - SQLite3DataBase db,  
108 - String var,  
109 - Int value  
110 - )=  
111 - with binds = (List(SQLite3Bind))[bind_String(":name", var), bind_Int(":value", value)],  
112 - if select_settings(db, var) is success(_) then  
113 - forget(sql_query_timeout(db, "UPDATE settings SET var_value = :value WHERE var_name = :name;", binds, "update_settings"))  
114 - else  
115 - forget(sql_query_timeout(db, "INSERT INTO settings (var_name, var_value) VALUES (:name, :value)", binds, "update_settings"))  
116 - .  
117 -  
118 -  
119 -public define One  
120 - update_settings  
121 - (  
122 - SQLite3DataBase db,  
123 - String var,  
124 - String value  
125 - )=  
126 - with binds = (List(SQLite3Bind))[bind_String(":name", var), bind_String(":value", value)],  
127 - if select_settings(db, var) is success(_) then  
128 - forget(sql_query_timeout(db, "UPDATE settings SET var_value = :value WHERE var_name = :name;", binds, "update_settings"))  
129 - else  
130 - forget(sql_query_timeout(db, "INSERT INTO settings (var_name, var_value) VALUES (:name, :value)", binds, "update_settings"))  
131 - .  
132 - 1 +/*
  2 + * Created by PyramIDE.
  3 + * User: Totoro
  4 + * Date: 11/08/2012
  5 + * Time: 17:44
  6 + *
  7 + *
  8 + */
  9 +
  10 +read tools/basis.anubis
  11 +read data_base/sqlite.anubis
  12 +read data_base/db_tools.anubis
  13 +read calexium_lib/database/db_utils.anubis
  14 +
  15 +
  16 +public define Maybe(String)
  17 + select_settings
  18 + (
  19 + SQLite3DataBase db,
  20 + String var,
  21 + )=
  22 + if sql_query_timeout(db, "SELECT var_value FROM settings WHERE var_name=" + db_make_sql_string(var) + ";", [], "select_settings") is
  23 + {
  24 + error(_) then failure, //error in the SQL request
  25 + ok(_, cursor, _) then
  26 + if cursor(unique) is
  27 + {
  28 + error(_) then failure,
  29 + no_more_row then failure, //can't find the var_value in the table, because the row is empty
  30 + row(current) then success(text(current)(0))
  31 + }
  32 + }.
  33 +
  34 +public define String
  35 + select_settings
  36 + (
  37 + SQLite3DataBase db,
  38 + String var,
  39 + String default
  40 + )=
  41 + if select_settings(db, var) is
  42 + {
  43 + failure then default, //error in the SQL request
  44 + success(value) then value
  45 + }.
  46 +
  47 +public define Int
  48 + select_settings
  49 + (
  50 + SQLite3DataBase db,
  51 + String var,
  52 + Int default
  53 + )=
  54 + if select_settings(db, var) is
  55 + {
  56 + failure then default, //error in the SQL request
  57 + success(value) then
  58 + if decimal_scan(value) is
  59 + {
  60 + failure then default,
  61 + success(v) then v
  62 + }
  63 + }.
  64 +
  65 +public define Bool
  66 + select_settings
  67 + (
  68 + SQLite3DataBase db,
  69 + String var,
  70 + Bool default
  71 + )=
  72 + if select_settings(db, var) is
  73 + {
  74 + failure then default, //error in the SQL request
  75 + success(value) then
  76 + if value = "true" then true
  77 + else if value = "false" then false
  78 + // old values
  79 + else if value = "1" then true
  80 + else if value = "0" then false
  81 + // failback
  82 + else if decimal_scan(value) is
  83 + {
  84 + failure then default,
  85 + success(v) then v!=0
  86 + }
  87 + }.
  88 +
  89 +public define One
  90 + update_settings
  91 + (
  92 + SQLite3DataBase db,
  93 + String var,
  94 + Bool value
  95 + )=
  96 + with bool_str = if value is true then "true" else "false",
  97 + with binds = (List(SQLite3Bind))[bind_String(":name", var), bind_String(":value", bool_str)],
  98 + if select_settings(db, var) is success(_) then
  99 + forget(sql_query_timeout(db, "UPDATE settings SET var_value = :value WHERE var_name = :name;", binds, "update_settings"))
  100 + else
  101 + forget(sql_query_timeout(db, "INSERT INTO settings (var_name, var_value) VALUES (:name, :value)", binds, "update_settings"))
  102 + .
  103 +
  104 +public define One
  105 + update_settings
  106 + (
  107 + SQLite3DataBase db,
  108 + String var,
  109 + Int value
  110 + )=
  111 + with binds = (List(SQLite3Bind))[bind_String(":name", var), bind_Int(":value", value)],
  112 + if select_settings(db, var) is success(_) then
  113 + forget(sql_query_timeout(db, "UPDATE settings SET var_value = :value WHERE var_name = :name;", binds, "update_settings"))
  114 + else
  115 + forget(sql_query_timeout(db, "INSERT INTO settings (var_name, var_value) VALUES (:name, :value)", binds, "update_settings"))
  116 + .
  117 +
  118 +
  119 +public define One
  120 + update_settings
  121 + (
  122 + SQLite3DataBase db,
  123 + String var,
  124 + String value
  125 + )=
  126 + with binds = (List(SQLite3Bind))[bind_String(":name", var), bind_String(":value", value)],
  127 + if select_settings(db, var) is success(_) then
  128 + forget(sql_query_timeout(db, "UPDATE settings SET var_value = :value WHERE var_name = :name;", binds, "update_settings"))
  129 + else
  130 + forget(sql_query_timeout(db, "INSERT INTO settings (var_name, var_value) VALUES (:name, :value)", binds, "update_settings"))
  131 + .
  132 +
database/vtm/view_table_manager.anubis
  Show/Hide comments   View file @4bb6387
@@ -33,7 +33,7 @@ public define Maybe(VTM_view) @@ -33,7 +33,7 @@ public define Maybe(VTM_view)
33 VTM_view_list vtm_vlist 33 VTM_view_list vtm_vlist
34 ) = 34 ) =
35 _vtm_get_view(table_name, vtm_vlist.list). 35 _vtm_get_view(table_name, vtm_vlist.list).
36 - 36 +
37 37
38 public define Maybe(VTM_edit) 38 public define Maybe(VTM_edit)
39 _vtm_get_edit 39 _vtm_get_edit
database/vtm/view_table_manager_types.anubis
  Show/Hide comments   View file @4bb6387
@@ -23,7 +23,7 @@ public type TM_writer_list: @@ -23,7 +23,7 @@ public type TM_writer_list:
23 23
24 24
25 public type VTM_view: 25 public type VTM_view:
26 - vtm_view(String table_name, (SQLite3DataBase db) -> VT_view get_view). 26 + vtm_view(String table_name, (SQLite3DataBase db, String view_name) -> VT_view get_view).
27 27
28 public type VTM_view_list: 28 public type VTM_view_list:
29 vtm_view_list(List(VTM_view) list). 29 vtm_view_list(List(VTM_view) list).
database/vtm/view_table_renderer.anubis
  Show/Hide comments   View file @4bb6387
@@ -141,7 +141,8 @@ define HTML_Row(HTML_Off_Form) make_line @@ -141,7 +141,8 @@ define HTML_Row(HTML_Off_Form) make_line
141 with cell = if h is 141 with cell = if h is
142 { 142 {
143 text(string) then cell((HTML_Off_Form)text(string)), 143 text(string) then cell((HTML_Off_Form)text(string)),
144 - link(id, string) then cell((HTML_Off_Form)actioner(same,same, link(string), action_name, [("table_name", table_name),("id",id)])) 144 + link(id, string) then cell((HTML_Off_Form)actioner(same,same, link(string), action_name, [("table_name", table_name),("id",id)])),
  145 + icon(icon_path) then cell((HTML_Off_Form)image([], icon_path, ""))
145 }, 146 },
146 make_line(table_name, action_name, t, [cell . so_far], odd_even) 147 make_line(table_name, action_name, t, [cell . so_far], odd_even)
147 }. 148 }.
@@ -176,8 +177,9 @@ define HTML_Header_Row(HTML_Off_Form) @@ -176,8 +177,9 @@ define HTML_Header_Row(HTML_Off_Form)
176 [h . t] then 177 [h . t] then
177 with cell = if h is 178 with cell = if h is
178 { 179 {
179 - text(string) then header_cell((HTML_Off_Form)text(_T(string))),  
180 - link(id, string) then header_cell((HTML_Off_Form)actioner(same,same, link(string),"edit_table",[])) //TODO 180 + text(string) then header_cell((HTML_Off_Form)text(_T(string))),
  181 + link(id, string) then header_cell((HTML_Off_Form)actioner(same,same, link(string),"edit_table",[])), //TODO
  182 + icon(icon_path) then header_cell((HTML_Off_Form)image([], icon_path, ""))
181 }, 183 },
182 make_header(_T, t, [cell . so_far]) 184 make_header(_T, t, [cell . so_far])
183 }. 185 }.
@@ -226,6 +228,7 @@ public define Maybe(HTML_Partial_Content) @@ -226,6 +228,7 @@ public define Maybe(HTML_Partial_Content)
226 String lang, 228 String lang,
227 String web_site_directory, 229 String web_site_directory,
228 String table, 230 String table,
  231 + String view_name,
229 String action_name, 232 String action_name,
230 VTM vtm 233 VTM vtm
231 ) = 234 ) =
@@ -234,5 +237,5 @@ public define Maybe(HTML_Partial_Content) @@ -234,5 +237,5 @@ public define Maybe(HTML_Partial_Content)
234 failure then failure, 237 failure then failure,
235 success(vtm_v) then 238 success(vtm_v) then
236 since vtm_v is vtm_view(_, get_view), 239 since vtm_v is vtm_view(_, get_view),
237 - success(view_table_page(_T, lang, web_site_directory, action_name, get_view(db))) 240 + success(view_table_page(_T, lang, web_site_directory, action_name, get_view(db, view_name)))
238 }. 241 }.
database/vtm/view_table_types.anubis
  Show/Hide comments   View file @4bb6387
@@ -36,13 +36,14 @@ public type VT_edit: @@ -36,13 +36,14 @@ public type VT_edit:
36 36
37 public type VT_view_entry: 37 public type VT_view_entry:
38 text(String text), 38 text(String text),
39 - link(String id, String text). 39 + link(String id, String text),
  40 + icon(String icon_path).
40 41
41 public type VT_view_row: 42 public type VT_view_row:
42 vt_view_row(List(VT_view_entry) list). 43 vt_view_row(List(VT_view_entry) list).
43 44
44 public type VT_view: 45 public type VT_view:
45 - vt_view(String table_name, VT_view_row header, List(VT_view_row) list). 46 + vt_view(String table_name, String view_name, VT_view_row header, List(VT_view_row) list).
46 47
47 48
48 public type VT_action: 49 public type VT_action:
mail/authentication.anubis
  Show/Hide comments   View file @4bb6387
1 -/*  
2 - * Created by PyramIDE.  
3 - * User: ricard  
4 - * Date: 07/03/2009  
5 - * Time: 21:42  
6 - *  
7 - * To change this template use Tools | Options | Coding | Edit Standard Headers.  
8 - */  
9 -  
10 -read tools/basis.anubis  
11 -read system/bytearray.anubis  
12 -read system/string.anubis  
13 -  
14 - /** Give a timestamp according to RFC2822. this sort of timestamp  
15 - * is use for CRAM authentication (Challenge Reponse Authentication Mechanism)  
16 - * this time timestamp must unique and not predictable to ensure security  
17 - * mechanism of authentication.  
18 - * @param dummy One meaning nothing  
19 - * @return Sring of the timestamp  
20 - */  
21 -public define String  
22 - get_time_stamp  
23 - (  
24 - String domain  
25 - )=  
26 - with time = (UTime) unow,  
27 - "<"+virtual_machine_id+"."+time.seconds+"@mail."+domain+">".  
28 -  
29 - /**  
30 - */  
31 -public define Bool  
32 - apop_md5  
33 - (  
34 - String time_stamp,  
35 - String password,  
36 - String given_hash  
37 - ) =  
38 - with my_stamp = time_stamp + password,  
39 - my_hash = to_lower(to_ascii(md5(to_byte_array(my_stamp)))),  
40 -// print("time_stamp "+ time_stamp + "\n");  
41 -// print("given_hash " + given_hash + "\n");  
42 -// print("my_hash " + my_hash + "\n");  
43 - if to_lower(given_hash) = my_hash then  
44 - true  
45 - else  
46 - false.  
47 -  
48 -  
49 -  
50 -define String  
51 - hmac_md5_compute  
52 - (  
53 - ByteArray data, //message to be crypted  
54 - ByteArray key //this is share secret key (i.e. password)  
55 - ) =  
56 - with ba_data = constant_byte_array(64, 0),  
57 - ba_ipad = constant_byte_array(64, 0x36),  
58 - ba_opad = constant_byte_array(64, 0x5c),  
59 - //put key into ByteArray  
60 - //but if key is longer than 64 bytes, then we must apply md5 on it and put it into ByteArray  
61 - with ba_key = fill_ByteArray(ba_data, if length(key) > 64 then md5(key) else key),  
62 - key_ipad = ba_key : ba_ipad, // XOR key with ipad  
63 - key_opad = ba_key : ba_opad, // XOR key with opad  
64 - to_lower(to_ascii(md5(key_opad + (md5(key_ipad + data))))). // md5(K (+) ipad) and merge with data  
65 -  
66 -  
67 -public define Bool  
68 - hmac_md5_check  
69 - (  
70 - ByteArray data, //message to be crypted  
71 - ByteArray key, //this is share secret key (i.e. password)  
72 - String given_digest //The hash given by the user who want to be authenticated  
73 - ) =  
74 - if to_lower(given_digest) = hmac_md5_compute(data, key) then  
75 -// print("HMAC-MD5 Success \n");  
76 - true  
77 - else  
78 -// print("HMAC-MD5 Failed \n");  
79 -// print(" My Hash = " + my_hash + "\n");  
80 -// print("User Hash = " + given_digest + "\n");  
81 - false.  
82 -  
83 -public define Bool  
84 - hmac_md5_check  
85 - (  
86 - String data, //message to be cripted  
87 - String key, //this is share secret key (i.e. password)  
88 - String given_digest //The hash given by the user who want to be authenticated  
89 - ) =  
90 - hmac_md5_check(to_byte_array(data), to_byte_array(key), given_digest).  
91 -  
92 -public define String  
93 - hmac_md5_compute  
94 - (  
95 - String data, //message to be cripted  
96 - String key //this is share secret key (i.e. password)  
97 - ) =  
98 - hmac_md5_compute(to_byte_array(data), to_byte_array(key)). 1 +/*
  2 + * Created by PyramIDE.
  3 + * User: ricard
  4 + * Date: 07/03/2009
  5 + * Time: 21:42
  6 + *
  7 + *
  8 + */
  9 +
  10 +read tools/basis.anubis
  11 +read system/bytearray.anubis
  12 +read system/string.anubis
  13 +
  14 + /** Give a timestamp according to RFC2822. this sort of timestamp
  15 + * is use for CRAM authentication (Challenge Reponse Authentication Mechanism)
  16 + * this time timestamp must unique and not predictable to ensure security
  17 + * mechanism of authentication.
  18 + * @param dummy One meaning nothing
  19 + * @return Sring of the timestamp
  20 + */
  21 +public define String
  22 + get_time_stamp
  23 + (
  24 + String domain
  25 + )=
  26 + with time = (UTime) unow,
  27 + "<"+virtual_machine_id+"."+time.seconds+"@mail."+domain+">".
  28 +
  29 + /**
  30 + */
  31 +public define Bool
  32 + apop_md5
  33 + (
  34 + String time_stamp,
  35 + String password,
  36 + String given_hash
  37 + ) =
  38 + with my_stamp = time_stamp + password,
  39 + my_hash = to_lower(to_ascii(md5(to_byte_array(my_stamp)))),
  40 +// print("time_stamp "+ time_stamp + "\n");
  41 +// print("given_hash " + given_hash + "\n");
  42 +// print("my_hash " + my_hash + "\n");
  43 + if to_lower(given_hash) = my_hash then
  44 + true
  45 + else
  46 + false.
  47 +
  48 +
  49 +
  50 +define String
  51 + hmac_md5_compute
  52 + (
  53 + ByteArray data, //message to be crypted
  54 + ByteArray key //this is share secret key (i.e. password)
  55 + ) =
  56 + with ba_data = constant_byte_array(64, 0),
  57 + ba_ipad = constant_byte_array(64, 0x36),
  58 + ba_opad = constant_byte_array(64, 0x5c),
  59 + //put key into ByteArray
  60 + //but if key is longer than 64 bytes, then we must apply md5 on it and put it into ByteArray
  61 + with ba_key = fill_ByteArray(ba_data, if length(key) > 64 then md5(key) else key),
  62 + key_ipad = ba_key : ba_ipad, // XOR key with ipad
  63 + key_opad = ba_key : ba_opad, // XOR key with opad
  64 + to_lower(to_ascii(md5(key_opad + (md5(key_ipad + data))))). // md5(K (+) ipad) and merge with data
  65 +
  66 +
  67 +public define Bool
  68 + hmac_md5_check
  69 + (
  70 + ByteArray data, //message to be crypted
  71 + ByteArray key, //this is share secret key (i.e. password)
  72 + String given_digest //The hash given by the user who want to be authenticated
  73 + ) =
  74 + if to_lower(given_digest) = hmac_md5_compute(data, key) then
  75 +// print("HMAC-MD5 Success \n");
  76 + true
  77 + else
  78 +// print("HMAC-MD5 Failed \n");
  79 +// print(" My Hash = " + my_hash + "\n");
  80 +// print("User Hash = " + given_digest + "\n");
  81 + false.
  82 +
  83 +public define Bool
  84 + hmac_md5_check
  85 + (
  86 + String data, //message to be cripted
  87 + String key, //this is share secret key (i.e. password)
  88 + String given_digest //The hash given by the user who want to be authenticated
  89 + ) =
  90 + hmac_md5_check(to_byte_array(data), to_byte_array(key), given_digest).
  91 +
  92 +public define String
  93 + hmac_md5_compute
  94 + (
  95 + String data, //message to be cripted
  96 + String key //this is share secret key (i.e. password)
  97 + ) =
  98 + hmac_md5_compute(to_byte_array(data), to_byte_array(key)).
net_services/CXM_generic_client.anubis
  Show/Hide comments   View file @4bb6387
@@ -4,7 +4,7 @@ @@ -4,7 +4,7 @@
4 * Date: 02/02/2008 4 * Date: 02/02/2008
5 * Time: 11:47 5 * Time: 11:47
6 * 6 *
7 - * To change this template use Tools | Options | Coding | Edit Standard Headers. 7 + *
8 */ 8 */
9 9
10 10
net_services_protocols/ftp_client.anubis
  Show/Hide comments   View file @4bb6387
@@ -5,7 +5,7 @@ @@ -5,7 +5,7 @@
5 * Time: 22:34 5 * Time: 22:34
6 * (c) Calexium 6 * (c) Calexium
7 * 7 *
8 - * To change this template use Tools | Options | Coding | Edit Standard Headers. 8 + *
9 */ 9 */
10 10
11 read calexium_lib/CXM_message_constants.anubis 11 read calexium_lib/CXM_message_constants.anubis
web/CXM_json.anubis
  Show/Hide comments   View file @4bb6387
@@ -4,7 +4,7 @@ @@ -4,7 +4,7 @@
4 * Date: 18/08/2008 4 * Date: 18/08/2008
5 * Time: 08:12 5 * Time: 08:12
6 * 6 *
7 - * To change this template use Tools | Options | Coding | Edit Standard Headers. 7 + *
8 */ 8 */
9 9
10 read tools/basis.anubis 10 read tools/basis.anubis
web/CXM_web_dump.anubis
  Show/Hide comments   View file @4bb6387
1 -/*  
2 - * Created by PyramIDE.  
3 - * User: Jeremy  
4 - * Date: 09/08/2012  
5 - * Time: 16:14  
6 - *  
7 - * To change this template use Tools | Options | Coding | Edit Standard Headers.  
8 - */  
9 -  
10 -read tools/basis.anubis  
11 -read system/string.anubis  
12 -read system/convert.anubis  
13 -read calexium_lib/web/CXM_common.anubis  
14 -read calexium_lib/web/CXM_multihost_http_server.anubis  
15 -  
16 -/* Provides a dump of Web_arg List */  
17 -public define String  
18 - dump_web_arg_values  
19 - (  
20 - List(Web_arg) l,  
21 - )  
22 - =  
23 - if l is  
24 - {  
25 - [ ] then "\n",  
26 - [h . t] then if h is  
27 - {  
28 - web_arg(n,v) then "\n["+n+"] = '"+v+"'" + dump_web_arg_values(t),  
29 - upload(n,v,tfn) then "\n["+n+"] = '"+v+"'" + dump_web_arg_values(t)  
30 - }  
31 - }  
32 - .  
33 -  
34 -/* Provides a dump of HTTP_Header List */  
35 -public define String  
36 - dump_http_headers  
37 - (  
38 - List(HTTP_header) l,  
39 - String prefix  
40 - )  
41 - =  
42 - if l is  
43 - {  
44 - [ ] then "", // no need to add \n => previous call has made it  
45 - [h . t] then prefix + h.name + " : " + h.value + "\n" + dump_http_headers(t, prefix)  
46 - }  
47 - .  
48 -  
49 -/* Provides a dump of a HTTP_Info */  
50 -public define String  
51 - dump_http_info  
52 - (  
53 - HTTP_Info http_info,  
54 - )  
55 - =  
56 - /*  
57 - * Word32 ip_address, // IP address of the client  
58 - String hostname, // hostname requested by the client  
59 - String uri, // URI requested by the client  
60 - List(HTTP_header) http_headers, // HTTP headers sent by the client  
61 - Bool is_https,  
62 - One -> String generate_trust_ticket // may be used against denial of  
63 - */  
64 - "IP Address : " + ip_addr_to_string(http_info.ip_address) + "\n"  
65 - + "Hostname : " + http_info.hostname + "\n"  
66 - + "URI : " + http_info.uri + "\n"  
67 - + "HTTP Headers : \n" + dump_http_headers(http_info.http_headers,"\t") // no need to add \n => dump_http_headers does it  
68 - + "Is HTTPS : " + to_String(http_info.is_https) + "\n"  
69 - .  
70 - 1 +/*
  2 + * Created by PyramIDE.
  3 + * User: Jeremy
  4 + * Date: 09/08/2012
  5 + * Time: 16:14
  6 + *
  7 + *
  8 + */
  9 +
  10 +read tools/basis.anubis
  11 +read system/string.anubis
  12 +read system/convert.anubis
  13 +read calexium_lib/web/CXM_common.anubis
  14 +read calexium_lib/web/CXM_multihost_http_server.anubis
  15 +
  16 +/* Provides a dump of Web_arg List */
  17 +public define String
  18 + dump_web_arg_values
  19 + (
  20 + List(Web_arg) l,
  21 + )
  22 + =
  23 + if l is
  24 + {
  25 + [ ] then "\n",
  26 + [h . t] then if h is
  27 + {
  28 + web_arg(n,v) then "\n["+n+"] = '"+v+"'" + dump_web_arg_values(t),
  29 + upload(n,v,tfn) then "\n["+n+"] = '"+v+"'" + dump_web_arg_values(t)
  30 + }
  31 + }
  32 + .
  33 +
  34 +/* Provides a dump of HTTP_Header List */
  35 +public define String
  36 + dump_http_headers
  37 + (
  38 + List(HTTP_header) l,
  39 + String prefix
  40 + )
  41 + =
  42 + if l is
  43 + {
  44 + [ ] then "", // no need to add \n => previous call has made it
  45 + [h . t] then prefix + h.name + " : " + h.value + "\n" + dump_http_headers(t, prefix)
  46 + }
  47 + .
  48 +
  49 +/* Provides a dump of a HTTP_Info */
  50 +public define String
  51 + dump_http_info
  52 + (
  53 + HTTP_Info http_info,
  54 + )
  55 + =
  56 + /*
  57 + * Word32 ip_address, // IP address of the client
  58 + String hostname, // hostname requested by the client
  59 + String uri, // URI requested by the client
  60 + List(HTTP_header) http_headers, // HTTP headers sent by the client
  61 + Bool is_https,
  62 + One -> String generate_trust_ticket // may be used against denial of
  63 + */
  64 + "IP Address : " + ip_addr_to_string(http_info.ip_address) + "\n"
  65 + + "Hostname : " + http_info.hostname + "\n"
  66 + + "URI : " + http_info.uri + "\n"
  67 + + "HTTP Headers : \n" + dump_http_headers(http_info.http_headers,"\t") // no need to add \n => dump_http_headers does it
  68 + + "Is HTTPS : " + to_String(http_info.is_https) + "\n"
  69 + .
  70 +
web/jQuery/CXM_jquery_datatable.anubis
  Show/Hide comments   View file @4bb6387
@@ -4,7 +4,7 @@ @@ -4,7 +4,7 @@
4 * Date: 12/09/2012 4 * Date: 12/09/2012
5 * Time: 16:14 5 * Time: 16:14
6 * 6 *
7 - * To change this template use Tools | Options | Coding | Edit Standard Headers. 7 + *
8 */ 8 */
9 9
10 read calexium_lib/web/CXM_making_a_web_site.anubis 10 read calexium_lib/web/CXM_making_a_web_site.anubis
web/jQuery/CXM_jquery_datatable_types.anubis
  Show/Hide comments   View file @4bb6387
1 -/*  
2 - * Created by PyramIDE.  
3 - * User: Jeremy  
4 - * Date: 13/09/2012  
5 - * Time: 10:12  
6 - *  
7 - * To change this template use Tools | Options | Coding | Edit Standard Headers.  
8 - */  
9 -  
10 -read calexium_lib/web/CXM_making_a_web_site.anubis  
11 -read tools/basis.anubis  
12 -read system/string.anubis  
13 -  
14 -  
15 -public type JQuery_datatable_pagination_type:  
16 - jq_dt_pt_two_button, //default option  
17 - jq_dt_pt_full_numbers  
18 -.  
19 -public type JQuery_datatable_scrollY_type:  
20 - no_scroll,  
21 - scrollY(Int size).  
22 -  
23 -public type JQuery_datatable_extra_type:  
24 - no_extra,  
25 - extra(String extra).  
26 -  
27 -public define String  
28 - jquery_datatable_extra_to_string  
29 - (  
30 - JQuery_datatable_extra_type ex  
31 - )=  
32 - if ex is  
33 - {  
34 - no_extra then "",  
35 - extra(_ex) then ",\n"+_ex  
36 - }.  
37 -  
38 -public define String  
39 - jquery_datatable_pagination_type_to_string  
40 - (  
41 - JQuery_datatable_pagination_type pt  
42 - )  
43 - =  
44 - if pt is  
45 - {  
46 - jq_dt_pt_two_button then "two_button",  
47 - jq_dt_pt_full_numbers then "full_numbers"  
48 - }  
49 - .  
50 -  
51 -public define JQuery_datatable_pagination_type  
52 - string_to_jquery_datatable_pagination_type  
53 - (  
54 - String str  
55 - )  
56 - =  
57 - with st=to_lower(str),  
58 - if st="two_button" then jq_dt_pt_two_button else  
59 - if st="full_numbers" then jq_dt_pt_full_numbers else  
60 - jq_dt_pt_two_button  
61 - .  
62 -  
63 -public type JQuery_datatable_server_side_type:  
64 - dt_ss( String sEcho,  
65 - Int iColumns,  
66 - String sColumns,  
67 - Int iDisplayStart,  
68 - Int iDisplayLength,  
69 - Maybe(String) sSearch  
70 - ).  
71 - 1 +/*
  2 + * Created by PyramIDE.
  3 + * User: Jeremy
  4 + * Date: 13/09/2012
  5 + * Time: 10:12
  6 + *
  7 + *
  8 + */
  9 +
  10 +read calexium_lib/web/CXM_making_a_web_site.anubis
  11 +read tools/basis.anubis
  12 +read system/string.anubis
  13 +
  14 +
  15 +public type JQuery_datatable_pagination_type:
  16 + jq_dt_pt_two_button, //default option
  17 + jq_dt_pt_full_numbers
  18 +.
  19 +public type JQuery_datatable_scrollY_type:
  20 + no_scroll,
  21 + scrollY(Int size).
  22 +
  23 +public type JQuery_datatable_extra_type:
  24 + no_extra,
  25 + extra(String extra).
  26 +
  27 +public define String
  28 + jquery_datatable_extra_to_string
  29 + (
  30 + JQuery_datatable_extra_type ex
  31 + )=
  32 + if ex is
  33 + {
  34 + no_extra then "",
  35 + extra(_ex) then ",\n"+_ex
  36 + }.
  37 +
  38 +public define String
  39 + jquery_datatable_pagination_type_to_string
  40 + (
  41 + JQuery_datatable_pagination_type pt
  42 + )
  43 + =
  44 + if pt is
  45 + {
  46 + jq_dt_pt_two_button then "two_button",
  47 + jq_dt_pt_full_numbers then "full_numbers"
  48 + }
  49 + .
  50 +
  51 +public define JQuery_datatable_pagination_type
  52 + string_to_jquery_datatable_pagination_type
  53 + (
  54 + String str
  55 + )
  56 + =
  57 + with st=to_lower(str),
  58 + if st="two_button" then jq_dt_pt_two_button else
  59 + if st="full_numbers" then jq_dt_pt_full_numbers else
  60 + jq_dt_pt_two_button
  61 + .
  62 +
  63 +public type JQuery_datatable_server_side_type:
  64 + dt_ss( String sEcho,
  65 + Int iColumns,
  66 + String sColumns,
  67 + Int iDisplayStart,
  68 + Int iDisplayLength,
  69 + Maybe(String) sSearch
  70 + ).
  71 +
web/jQuery/CXM_jquery_eudock.anubis
  Show/Hide comments   View file @4bb6387
1 -/*  
2 - * Created by PyramIDE.  
3 - * User: Jeremy  
4 - * Date: 18/09/2012  
5 - * Time: 17:28  
6 - *  
7 - * To change this template use Tools | Options | Coding | Edit Standard Headers.  
8 - */  
9 -  
10 -read calexium_lib/web/CXM_making_a_web_site.anubis  
11 -read calexium_lib/web/CXM_jquery.anubis  
12 -read calexium_lib/web/jQuery/CXM_jquery_eudock_types.anubis  
13 -read tools/basis.anubis  
14 -read system/string.anubis  
15 -read system/convert.anubis  
16 -  
17 -/********************************************************************************************************/  
18 -/********************************************************************************************************/  
19 -/********************************************************************************************************/  
20 -/********************************************************************************************************/  
21 -/**************************************** ATTENTION !!! *******************************************/  
22 -/************* Le mode 'object_alignment' n'est pas fonctionnel : NE PAS L'UTILISER ! ****************/  
23 -/************************ Un recodage en jQuery de la lib JS est à prévoir **************************/  
24 -/********************************************************************************************************/  
25 -/********************************************************************************************************/  
26 -/********************************************************************************************************/  
27 -/********************************************************************************************************/  
28 -  
29 -/* jQuery euDock initialization */  
30 -public define List(HTML_Head_Tag)  
31 - jquery_eudock_init  
32 - (  
33 - String web_dir,  
34 - )  
35 - =  
36 - [  
37 - js(js_file("/js/jquery/euDock.2.0.js")),  
38 - //js(js_file("/js/jquery/euDock.Blank.js")), // not needed for now  
39 - //js(js_file("/js/jquery/euDock.DivMousePos.js")), // not needed for now  
40 - //js(js_file("/js/jquery/euDock.Ghost.js")), // not needed for now  
41 - js(js_file("/js/jquery/euDock.Image.js")),  
42 - //js(js_file("/js/jquery/euDock.Label.js")) // not needed for now  
43 - ]  
44 - .  
45 -  
46 -/* Recursive format of the bar */  
47 -define String  
48 - _jquery_eudock_format_bar  
49 - (  
50 - List(JQ_eudock_imagebar) bar_images,  
51 - String formatted  
52 - )  
53 - =  
54 - if bar_images is  
55 - {  
56 - [] then formatted,  
57 - [ h . t ] then  
58 - if h is  
59 - {  
60 - jq_eudock_bar_top(image) then  
61 - if t is  
62 - {  
63 - [] then _jquery_eudock_format_bar(t, formatted+"top :{euImage:{image:'"+image.image_url+"'}}"),  
64 - [ h . t] then _jquery_eudock_format_bar(t, formatted+"top :{euImage:{image:'"+image.image_url+"'}},")  
65 - },  
66 - jq_eudock_bar_vertical(image) then  
67 - if t is  
68 - {  
69 - [] then _jquery_eudock_format_bar(t, formatted+"vertical :{euImage:{image:'"+image.image_url+"'}}"),  
70 - [ h . t] then _jquery_eudock_format_bar(t, formatted+"vertical :{euImage:{image:'"+image.image_url+"'}},")  
71 - },  
72 - jq_eudock_bar_bottom(image) then  
73 - if t is  
74 - {  
75 - [] then _jquery_eudock_format_bar(t, formatted+"bottom :{euImage:{image:'"+image.image_url+"'}}"),  
76 - [ h . t] then _jquery_eudock_format_bar(t, formatted+"bottom :{euImage:{image:'"+image.image_url+"'}},")  
77 - },  
78 - jq_eudock_bar_left(image) then  
79 - if t is  
80 - {  
81 - [] then _jquery_eudock_format_bar(t, formatted+"left :{euImage:{image:'"+image.image_url+"'}}"),  
82 - [ h . t] then _jquery_eudock_format_bar(t, formatted+"left :{euImage:{image:'"+image.image_url+"'}},")  
83 - },  
84 - jq_eudock_bar_horizontal(image) then  
85 - if t is  
86 - {  
87 - [] then _jquery_eudock_format_bar(t, formatted+"horizontal :{euImage:{image:'"+image.image_url+"'}}"),  
88 - [ h . t] then _jquery_eudock_format_bar(t, formatted+"horizontal :{euImage:{image:'"+image.image_url+"'}},")  
89 - },  
90 - jq_eudock_bar_right(image) then  
91 - if t is  
92 - {  
93 - [] then _jquery_eudock_format_bar(t, formatted+"right :{euImage:{image:'"+image.image_url+"'}}"),  
94 - [ h . t] then _jquery_eudock_format_bar(t, formatted+"right :{euImage:{image:'"+image.image_url+"'}},")  
95 - }  
96 - }  
97 - }  
98 - .  
99 -  
100 -/* Format the bar */  
101 -define String  
102 - jquery_eudock_format_bar  
103 - (  
104 - String dockname,  
105 - JQ_eudock_bar bar  
106 - )  
107 - =  
108 - dockname+".setBar({"+  
109 - _jquery_eudock_format_bar(bar.bar_images, "")+  
110 - "});"  
111 - .  
112 -  
113 -/* Format 1 icon */  
114 -define String  
115 - _jquery_eudock_format_icon  
116 - (  
117 - String dockname,  
118 - JQ_euDock_Icon icon  
119 - )  
120 - =  
121 - if icon is jq_eudock_icon(icon_image, link) then  
122 - " "+dockname+".addIcon(new Array({euImage:{image:'"+icon_image.image_url+"'}}), {link:'"+link+"'});\n" // space added at the beginning to avoid any js syntax error  
123 - .  
124 -  
125 -/* Format icons */  
126 -define String  
127 - _jquery_eudock_format_icons  
128 - (  
129 - String dockname,  
130 - List(JQ_euDock_Icon) icons,  
131 - String formatted  
132 - )  
133 - =  
134 - if icons is  
135 - {  
136 - [] then formatted,  
137 - [ h . t ] then  
138 - _jquery_eudock_format_icons(dockname, t, formatted+ _jquery_eudock_format_icon(dockname, h))  
139 - }  
140 - .  
141 -  
142 -/* Format icons */  
143 -define String  
144 - jquery_eudock_format_icons  
145 - (  
146 - String dockname,  
147 - List(JQ_euDock_Icon) icons  
148 - )  
149 - =  
150 - _jquery_eudock_format_icons(dockname, icons, "")  
151 - .  
152 -  
153 -/* Format alignment */  
154 -define String  
155 - jquery_eudock_format_alignment  
156 - (  
157 - String dockname,  
158 - JQ_euDock_alignment alignment  
159 - )  
160 - =  
161 - if alignment is  
162 - {  
163 - jq_eudock_screen_alignment(a, o) then  
164 - dockname+".setScreenAlign("+jq_eudock_align_to_string(a)+", "+o+");",  
165 - jq_eudock_object_alignment(o_id, o_al, o, p) then  
166 - dockname+".setObjectAlign('"+o_id+"', "+jq_eudock_object_align_to_string(o_al)+", "+o+", "+jq_eudock_position_to_string(p)+");",  
167 - jq_eudock_fixed_alignment(x, y, p) then  
168 - dockname+".setPointAlign("+x+", "+y+", "+jq_eudock_position_to_string(p)+");"  
169 - }  
170 - // "+dockname+".setScreenAlign("+jq_eudock_position_to_string(position)+",0);  
171 - .  
172 -  
173 -/* Creation of an euDock */  
174 -public define HTML_Partial_Content  
175 - jquery_eudock  
176 - (  
177 - JQ_euDock dock  
178 - )  
179 - =  
180 - with dockname="dock_"+now, // dock name is suffixed with a timestamp to guarantee its uniqueness  
181 - if dock is jq_eudock(bar, icons, icon_offset, alignment) then  
182 - partial_content  
183 - (  
184 - [  
185 - js_inline(script("", "  
186 - euEnv.imageBasePath=\"\";  
187 - var "+dockname+"=new euDock();  
188 - "+jquery_eudock_format_alignment(dockname, alignment)+"  
189 - "+jquery_eudock_format_bar(dockname, bar)+"  
190 - "+dockname+".setIconsOffset("+icon_offset+");  
191 - "+jquery_eudock_format_icons(dockname, icons)+"  
192 - "))  
193 - ],  
194 - literal("") // euDock does not need to return HTML content => it's javascript only !  
195 - )  
196 - . 1 +/*
  2 + * Created by PyramIDE.
  3 + * User: Jeremy
  4 + * Date: 18/09/2012
  5 + * Time: 17:28
  6 + *
  7 + *
  8 + */
  9 +
  10 +read calexium_lib/web/CXM_making_a_web_site.anubis
  11 +read calexium_lib/web/CXM_jquery.anubis
  12 +read calexium_lib/web/jQuery/CXM_jquery_eudock_types.anubis
  13 +read tools/basis.anubis
  14 +read system/string.anubis
  15 +read system/convert.anubis
  16 +
  17 +/********************************************************************************************************/
  18 +/********************************************************************************************************/
  19 +/********************************************************************************************************/
  20 +/********************************************************************************************************/
  21 +/**************************************** ATTENTION !!! *******************************************/
  22 +/************* Le mode 'object_alignment' n'est pas fonctionnel : NE PAS L'UTILISER ! ****************/
  23 +/************************ Un recodage en jQuery de la lib JS est à prévoir **************************/
  24 +/********************************************************************************************************/
  25 +/********************************************************************************************************/
  26 +/********************************************************************************************************/
  27 +/********************************************************************************************************/
  28 +
  29 +/* jQuery euDock initialization */
  30 +public define List(HTML_Head_Tag)
  31 + jquery_eudock_init
  32 + (
  33 + String web_dir,
  34 + )
  35 + =
  36 + [
  37 + js(js_file("/js/jquery/euDock.2.0.js")),
  38 + //js(js_file("/js/jquery/euDock.Blank.js")), // not needed for now
  39 + //js(js_file("/js/jquery/euDock.DivMousePos.js")), // not needed for now
  40 + //js(js_file("/js/jquery/euDock.Ghost.js")), // not needed for now
  41 + js(js_file("/js/jquery/euDock.Image.js")),
  42 + //js(js_file("/js/jquery/euDock.Label.js")) // not needed for now
  43 + ]
  44 + .
  45 +
  46 +/* Recursive format of the bar */
  47 +define String
  48 + _jquery_eudock_format_bar
  49 + (
  50 + List(JQ_eudock_imagebar) bar_images,
  51 + String formatted
  52 + )
  53 + =
  54 + if bar_images is
  55 + {
  56 + [] then formatted,
  57 + [ h . t ] then
  58 + if h is
  59 + {
  60 + jq_eudock_bar_top(image) then
  61 + if t is
  62 + {
  63 + [] then _jquery_eudock_format_bar(t, formatted+"top :{euImage:{image:'"+image.image_url+"'}}"),
  64 + [ h . t] then _jquery_eudock_format_bar(t, formatted+"top :{euImage:{image:'"+image.image_url+"'}},")
  65 + },
  66 + jq_eudock_bar_vertical(image) then
  67 + if t is
  68 + {
  69 + [] then _jquery_eudock_format_bar(t, formatted+"vertical :{euImage:{image:'"+image.image_url+"'}}"),
  70 + [ h . t] then _jquery_eudock_format_bar(t, formatted+"vertical :{euImage:{image:'"+image.image_url+"'}},")
  71 + },
  72 + jq_eudock_bar_bottom(image) then
  73 + if t is
  74 + {
  75 + [] then _jquery_eudock_format_bar(t, formatted+"bottom :{euImage:{image:'"+image.image_url+"'}}"),
  76 + [ h . t] then _jquery_eudock_format_bar(t, formatted+"bottom :{euImage:{image:'"+image.image_url+"'}},")
  77 + },
  78 + jq_eudock_bar_left(image) then
  79 + if t is
  80 + {
  81 + [] then _jquery_eudock_format_bar(t, formatted+"left :{euImage:{image:'"+image.image_url+"'}}"),
  82 + [ h . t] then _jquery_eudock_format_bar(t, formatted+"left :{euImage:{image:'"+image.image_url+"'}},")
  83 + },
  84 + jq_eudock_bar_horizontal(image) then
  85 + if t is
  86 + {
  87 + [] then _jquery_eudock_format_bar(t, formatted+"horizontal :{euImage:{image:'"+image.image_url+"'}}"),
  88 + [ h . t] then _jquery_eudock_format_bar(t, formatted+"horizontal :{euImage:{image:'"+image.image_url+"'}},")
  89 + },
  90 + jq_eudock_bar_right(image) then
  91 + if t is
  92 + {
  93 + [] then _jquery_eudock_format_bar(t, formatted+"right :{euImage:{image:'"+image.image_url+"'}}"),
  94 + [ h . t] then _jquery_eudock_format_bar(t, formatted+"right :{euImage:{image:'"+image.image_url+"'}},")
  95 + }
  96 + }
  97 + }
  98 + .
  99 +
  100 +/* Format the bar */
  101 +define String
  102 + jquery_eudock_format_bar
  103 + (
  104 + String dockname,
  105 + JQ_eudock_bar bar
  106 + )
  107 + =
  108 + dockname+".setBar({"+
  109 + _jquery_eudock_format_bar(bar.bar_images, "")+
  110 + "});"
  111 + .
  112 +
  113 +/* Format 1 icon */
  114 +define String
  115 + _jquery_eudock_format_icon
  116 + (
  117 + String dockname,
  118 + JQ_euDock_Icon icon
  119 + )
  120 + =
  121 + if icon is jq_eudock_icon(icon_image, link) then
  122 + " "+dockname+".addIcon(new Array({euImage:{image:'"+icon_image.image_url+"'}}), {link:'"+link+"'});\n" // space added at the beginning to avoid any js syntax error
  123 + .
  124 +
  125 +/* Format icons */
  126 +define String
  127 + _jquery_eudock_format_icons
  128 + (
  129 + String dockname,
  130 + List(JQ_euDock_Icon) icons,
  131 + String formatted
  132 + )
  133 + =
  134 + if icons is
  135 + {
  136 + [] then formatted,
  137 + [ h . t ] then
  138 + _jquery_eudock_format_icons(dockname, t, formatted+ _jquery_eudock_format_icon(dockname, h))
  139 + }
  140 + .
  141 +
  142 +/* Format icons */
  143 +define String
  144 + jquery_eudock_format_icons
  145 + (
  146 + String dockname,
  147 + List(JQ_euDock_Icon) icons
  148 + )
  149 + =
  150 + _jquery_eudock_format_icons(dockname, icons, "")
  151 + .
  152 +
  153 +/* Format alignment */
  154 +define String
  155 + jquery_eudock_format_alignment
  156 + (
  157 + String dockname,
  158 + JQ_euDock_alignment alignment
  159 + )
  160 + =
  161 + if alignment is
  162 + {
  163 + jq_eudock_screen_alignment(a, o) then
  164 + dockname+".setScreenAlign("+jq_eudock_align_to_string(a)+", "+o+");",
  165 + jq_eudock_object_alignment(o_id, o_al, o, p) then
  166 + dockname+".setObjectAlign('"+o_id+"', "+jq_eudock_object_align_to_string(o_al)+", "+o+", "+jq_eudock_position_to_string(p)+");",
  167 + jq_eudock_fixed_alignment(x, y, p) then
  168 + dockname+".setPointAlign("+x+", "+y+", "+jq_eudock_position_to_string(p)+");"
  169 + }
  170 + // "+dockname+".setScreenAlign("+jq_eudock_position_to_string(position)+",0);
  171 + .
  172 +
  173 +/* Creation of an euDock */
  174 +public define HTML_Partial_Content
  175 + jquery_eudock
  176 + (
  177 + JQ_euDock dock
  178 + )
  179 + =
  180 + with dockname="dock_"+now, // dock name is suffixed with a timestamp to guarantee its uniqueness
  181 + if dock is jq_eudock(bar, icons, icon_offset, alignment) then
  182 + partial_content
  183 + (
  184 + [
  185 + js_inline(script("", "
  186 + euEnv.imageBasePath=\"\";
  187 + var "+dockname+"=new euDock();
  188 + "+jquery_eudock_format_alignment(dockname, alignment)+"
  189 + "+jquery_eudock_format_bar(dockname, bar)+"
  190 + "+dockname+".setIconsOffset("+icon_offset+");
  191 + "+jquery_eudock_format_icons(dockname, icons)+"
  192 + "))
  193 + ],
  194 + literal("") // euDock does not need to return HTML content => it's javascript only !
  195 + )
  196 + .
web/jQuery/CXM_jquery_eudock_types.anubis
  Show/Hide comments   View file @4bb6387
1 -/*  
2 - * Created by PyramIDE.  
3 - * User: Jeremy  
4 - * Date: 18/09/2012  
5 - * Time: 17:48  
6 - *  
7 - * To change this template use Tools | Options | Coding | Edit Standard Headers.  
8 - */  
9 -  
10 -read calexium_lib/web/CXM_making_a_web_site.anubis  
11 -read calexium_lib/web/CXM_jquery.anubis  
12 -read tools/basis.anubis  
13 -read system/string.anubis  
14 -read system/convert.anubis  
15 -  
16 -/* jQuery euDock "euImage" type */  
17 -public type JQ_euDock_euImage:  
18 - jq_eudock_euimage(String image_url) // url must be set from web server root. example: "/images/mydock/icon-1.png"  
19 -.  
20 -  
21 -/* jQuery euDock image bar type */  
22 -public type JQ_eudock_imagebar:  
23 - jq_eudock_bar_top(JQ_euDock_euImage image),  
24 - jq_eudock_bar_vertical(JQ_euDock_euImage image),  
25 - jq_eudock_bar_bottom(JQ_euDock_euImage image),  
26 - jq_eudock_bar_left(JQ_euDock_euImage image),  
27 - jq_eudock_bar_horizontal(JQ_euDock_euImage image),  
28 - jq_eudock_bar_right(JQ_euDock_euImage image)  
29 -.  
30 -  
31 -/* jQuery euDock bar type */  
32 -public type JQ_eudock_bar:  
33 - jq_eudock_bar(List(JQ_eudock_imagebar) bar_images)  
34 -.  
35 -  
36 -/* jQuery euDock align type */  
37 -public type JQ_eudock_align:  
38 - jq_eudock_align_top,  
39 - jq_eudock_align_left,  
40 - jq_eudock_align_bottom,  
41 - jq_eudock_align_right  
42 -.  
43 -  
44 -/* JQ_eudock_align to string */  
45 -public define String  
46 - jq_eudock_align_to_string  
47 - (  
48 - JQ_eudock_align a  
49 - )  
50 - =  
51 - if a is  
52 - {  
53 - jq_eudock_align_top then "euUP",  
54 - jq_eudock_align_left then "euLEFT",  
55 - jq_eudock_align_bottom then "euDOWN",  
56 - jq_eudock_align_right then "euRIGHT"  
57 - }  
58 - .  
59 -  
60 -/* string to JQ_eudock_align */  
61 -public define JQ_eudock_align  
62 - string_to_jq_eudock_align  
63 - (  
64 - String s  
65 - )  
66 - =  
67 - if s="euUP" then jq_eudock_align_top  
68 - else if s="euLEFT" then jq_eudock_align_left  
69 - else if s="euDOWN" then jq_eudock_align_bottom  
70 - else if s="euRIGHT" then jq_eudock_align_right  
71 - else jq_eudock_align_top // we decide that top position is default.  
72 - .  
73 -  
74 -/* jQuery euDock position type */  
75 -public type JQ_eudock_position:  
76 - jq_eudock_position_top,  
77 - jq_eudock_position_left,  
78 - jq_eudock_position_bottom,  
79 - jq_eudock_position_right,  
80 - jq_eudock_position_horizontal,  
81 - jq_eudock_position_vertical  
82 -.  
83 -  
84 -/* JQ_eudock_position to string */  
85 -public define String  
86 - jq_eudock_position_to_string  
87 - (  
88 - JQ_eudock_position p  
89 - )  
90 - =  
91 - if p is  
92 - {  
93 - jq_eudock_position_top then "euUP",  
94 - jq_eudock_position_left then "euLEFT",  
95 - jq_eudock_position_bottom then "euDOWN",  
96 - jq_eudock_position_right then "euRIGHT",  
97 - jq_eudock_position_horizontal then "euHORIZONTAL",  
98 - jq_eudock_position_vertical then "euVERTICAL"  
99 - }  
100 - .  
101 -  
102 -/* string to JQ_eudock_position */  
103 -public define JQ_eudock_position  
104 - string_to_jq_eudock_position  
105 - (  
106 - String s  
107 - )  
108 - =  
109 - if s="euUP" then jq_eudock_position_top  
110 - else if s="euLEFT" then jq_eudock_position_left  
111 - else if s="euDOWN" then jq_eudock_position_bottom  
112 - else if s="euRIGHT" then jq_eudock_position_right  
113 - else if s="euHORIZONTAL" then jq_eudock_position_horizontal  
114 - else if s="euVERTICAL" then jq_eudock_position_vertical  
115 - else jq_eudock_position_top // we decide that top position is default.  
116 - .  
117 -  
118 -/* jQuery euDock objectAlign type */  
119 -public type JQ_eudock_object_align:  
120 - jq_eudock_object_align_top,  
121 - jq_eudock_object_align_left,  
122 - jq_eudock_object_align_bottom,  
123 - jq_eudock_object_align_right,  
124 - jq_eudock_object_align_center  
125 -.  
126 -  
127 -/* JQ_eudock_object_align to string */  
128 -public define String  
129 - jq_eudock_object_align_to_string  
130 - (  
131 - JQ_eudock_object_align oa  
132 - )  
133 - =  
134 - if oa is  
135 - {  
136 - jq_eudock_object_align_top then "euUP",  
137 - jq_eudock_object_align_left then "euLEFT",  
138 - jq_eudock_object_align_bottom then "euDOWN",  
139 - jq_eudock_object_align_right then "euRIGHT",  
140 - jq_eudock_object_align_center then "euCENTER"  
141 - }  
142 - .  
143 -  
144 -/* string to JQ_eudock_object_align */  
145 -public define JQ_eudock_object_align  
146 - string_to_jq_eudock_object_align  
147 - (  
148 - String s  
149 - )  
150 - =  
151 - if s="euUP" then jq_eudock_object_align_top  
152 - else if s="euLEFT" then jq_eudock_object_align_left  
153 - else if s="euDOWN" then jq_eudock_object_align_bottom  
154 - else if s="euRIGHT" then jq_eudock_object_align_right  
155 - else if s="euCENTER" then jq_eudock_object_align_center  
156 - else jq_eudock_object_align_top // we decide that top position is default.  
157 - .  
158 -  
159 -/* jQuery euDock alignment */  
160 -public type JQ_euDock_alignment:  
161 - jq_eudock_screen_alignment(  
162 - JQ_eudock_align align,  
163 - Int offset /* see icon_offset in JQ_euDock type definition */  
164 - ),  
165 - jq_eudock_object_alignment(  
166 - String object_id,  
167 - JQ_eudock_object_align object_align,  
168 - Int offset, /* see icon_offset in JQ_euDock type definition */  
169 - JQ_eudock_position position  
170 - ),  
171 - jq_eudock_fixed_alignment(  
172 - Int x,  
173 - Int y,  
174 - JQ_eudock_position position  
175 - )  
176 -.  
177 -  
178 -/* jQuery euDock icon type */  
179 -public type JQ_euDock_Icon:  
180 - jq_eudock_icon(  
181 - JQ_euDock_euImage icon_image,  
182 - String link  
183 - )  
184 -.  
185 -  
186 -/* jQuery "euDock" type */  
187 -public type JQ_euDock:  
188 - jq_eudock(  
189 - JQ_eudock_bar bar, // it's the "graphical bar" under icons.  
190 - List(JQ_euDock_Icon) icons,  
191 - 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  
192 - JQ_euDock_alignment alignment // dock position  
193 - )  
194 -. 1 +/*
  2 + * Created by PyramIDE.
  3 + * User: Jeremy
  4 + * Date: 18/09/2012
  5 + * Time: 17:48
  6 + *
  7 + *
  8 + */
  9 +
  10 +read calexium_lib/web/CXM_making_a_web_site.anubis
  11 +read calexium_lib/web/CXM_jquery.anubis
  12 +read tools/basis.anubis
  13 +read system/string.anubis
  14 +read system/convert.anubis
  15 +
  16 +/* jQuery euDock "euImage" type */
  17 +public type JQ_euDock_euImage:
  18 + jq_eudock_euimage(String image_url) // url must be set from web server root. example: "/images/mydock/icon-1.png"
  19 +.
  20 +
  21 +/* jQuery euDock image bar type */
  22 +public type JQ_eudock_imagebar:
  23 + jq_eudock_bar_top(JQ_euDock_euImage image),
  24 + jq_eudock_bar_vertical(JQ_euDock_euImage image),
  25 + jq_eudock_bar_bottom(JQ_euDock_euImage image),
  26 + jq_eudock_bar_left(JQ_euDock_euImage image),
  27 + jq_eudock_bar_horizontal(JQ_euDock_euImage image),
  28 + jq_eudock_bar_right(JQ_euDock_euImage image)
  29 +.
  30 +
  31 +/* jQuery euDock bar type */
  32 +public type JQ_eudock_bar:
  33 + jq_eudock_bar(List(JQ_eudock_imagebar) bar_images)
  34 +.
  35 +
  36 +/* jQuery euDock align type */
  37 +public type JQ_eudock_align:
  38 + jq_eudock_align_top,
  39 + jq_eudock_align_left,
  40 + jq_eudock_align_bottom,
  41 + jq_eudock_align_right
  42 +.
  43 +
  44 +/* JQ_eudock_align to string */
  45 +public define String
  46 + jq_eudock_align_to_string
  47 + (
  48 + JQ_eudock_align a
  49 + )
  50 + =
  51 + if a is
  52 + {
  53 + jq_eudock_align_top then "euUP",
  54 + jq_eudock_align_left then "euLEFT",
  55 + jq_eudock_align_bottom then "euDOWN",
  56 + jq_eudock_align_right then "euRIGHT"
  57 + }
  58 + .
  59 +
  60 +/* string to JQ_eudock_align */
  61 +public define JQ_eudock_align
  62 + string_to_jq_eudock_align
  63 + (
  64 + String s
  65 + )
  66 + =
  67 + if s="euUP" then jq_eudock_align_top
  68 + else if s="euLEFT" then jq_eudock_align_left
  69 + else if s="euDOWN" then jq_eudock_align_bottom
  70 + else if s="euRIGHT" then jq_eudock_align_right
  71 + else jq_eudock_align_top // we decide that top position is default.
  72 + .
  73 +
  74 +/* jQuery euDock position type */
  75 +public type JQ_eudock_position:
  76 + jq_eudock_position_top,
  77 + jq_eudock_position_left,
  78 + jq_eudock_position_bottom,
  79 + jq_eudock_position_right,
  80 + jq_eudock_position_horizontal,
  81 + jq_eudock_position_vertical
  82 +.
  83 +
  84 +/* JQ_eudock_position to string */
  85 +public define String
  86 + jq_eudock_position_to_string
  87 + (
  88 + JQ_eudock_position p
  89 + )
  90 + =
  91 + if p is
  92 + {
  93 + jq_eudock_position_top then "euUP",
  94 + jq_eudock_position_left then "euLEFT",
  95 + jq_eudock_position_bottom then "euDOWN",
  96 + jq_eudock_position_right then "euRIGHT",
  97 + jq_eudock_position_horizontal then "euHORIZONTAL",
  98 + jq_eudock_position_vertical then "euVERTICAL"
  99 + }
  100 + .
  101 +
  102 +/* string to JQ_eudock_position */
  103 +public define JQ_eudock_position
  104 + string_to_jq_eudock_position
  105 + (
  106 + String s
  107 + )
  108 + =
  109 + if s="euUP" then jq_eudock_position_top
  110 + else if s="euLEFT" then jq_eudock_position_left
  111 + else if s="euDOWN" then jq_eudock_position_bottom
  112 + else if s="euRIGHT" then jq_eudock_position_right
  113 + else if s="euHORIZONTAL" then jq_eudock_position_horizontal
  114 + else if s="euVERTICAL" then jq_eudock_position_vertical
  115 + else jq_eudock_position_top // we decide that top position is default.
  116 + .
  117 +
  118 +/* jQuery euDock objectAlign type */
  119 +public type JQ_eudock_object_align:
  120 + jq_eudock_object_align_top,
  121 + jq_eudock_object_align_left,
  122 + jq_eudock_object_align_bottom,
  123 + jq_eudock_object_align_right,
  124 + jq_eudock_object_align_center
  125 +.
  126 +
  127 +/* JQ_eudock_object_align to string */
  128 +public define String
  129 + jq_eudock_object_align_to_string
  130 + (
  131 + JQ_eudock_object_align oa
  132 + )
  133 + =
  134 + if oa is
  135 + {
  136 + jq_eudock_object_align_top then "euUP",
  137 + jq_eudock_object_align_left then "euLEFT",
  138 + jq_eudock_object_align_bottom then "euDOWN",
  139 + jq_eudock_object_align_right then "euRIGHT",
  140 + jq_eudock_object_align_center then "euCENTER"
  141 + }
  142 + .
  143 +
  144 +/* string to JQ_eudock_object_align */
  145 +public define JQ_eudock_object_align
  146 + string_to_jq_eudock_object_align
  147 + (
  148 + String s
  149 + )
  150 + =
  151 + if s="euUP" then jq_eudock_object_align_top
  152 + else if s="euLEFT" then jq_eudock_object_align_left
  153 + else if s="euDOWN" then jq_eudock_object_align_bottom
  154 + else if s="euRIGHT" then jq_eudock_object_align_right
  155 + else if s="euCENTER" then jq_eudock_object_align_center
  156 + else jq_eudock_object_align_top // we decide that top position is default.
  157 + .
  158 +
  159 +/* jQuery euDock alignment */
  160 +public type JQ_euDock_alignment:
  161 + jq_eudock_screen_alignment(
  162 + JQ_eudock_align align,
  163 + Int offset /* see icon_offset in JQ_euDock type definition */
  164 + ),
  165 + jq_eudock_object_alignment(
  166 + String object_id,
  167 + JQ_eudock_object_align object_align,
  168 + Int offset, /* see icon_offset in JQ_euDock type definition */
  169 + JQ_eudock_position position
  170 + ),
  171 + jq_eudock_fixed_alignment(
  172 + Int x,
  173 + Int y,
  174 + JQ_eudock_position position
  175 + )
  176 +.
  177 +
  178 +/* jQuery euDock icon type */
  179 +public type JQ_euDock_Icon:
  180 + jq_eudock_icon(
  181 + JQ_euDock_euImage icon_image,
  182 + String link
  183 + )
  184 +.
  185 +
  186 +/* jQuery "euDock" type */
  187 +public type JQ_euDock:
  188 + jq_eudock(
  189 + JQ_eudock_bar bar, // it's the "graphical bar" under icons.
  190 + List(JQ_euDock_Icon) icons,
  191 + 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
  192 + JQ_euDock_alignment alignment // dock position
  193 + )
  194 +.
web/jQuery/CXM_jquery_icons.anubis
  Show/Hide comments   View file @4bb6387
1 -/*  
2 - * Created by PyramIDE.  
3 - * User: Jeremy  
4 - * Date: 08/09/2012  
5 - * Time: 16:35  
6 - *  
7 - * To change this template use Tools | Options | Coding | Edit Standard Headers.  
8 - */  
9 -  
10 -read calexium_lib/web/CXM_making_a_web_site.anubis  
11 -read tools/basis.anubis  
12 -read system/string.anubis  
13 -  
14 -public type JQuery_icon:  
15 - ui_icon_carat_1_n,  
16 - ui_icon_carat_1_ne,  
17 - ui_icon_carat_1_e,  
18 - ui_icon_carat_1_se,  
19 - ui_icon_carat_1_s,  
20 - ui_icon_carat_1_sw,  
21 - ui_icon_carat_1_w,  
22 - ui_icon_carat_1_nw,  
23 - ui_icon_carat_2_n_s,  
24 - ui_icon_carat_2_e_w,  
25 - ui_icon_triangle_1_n,  
26 - ui_icon_triangle_1_ne,  
27 - ui_icon_triangle_1_e,  
28 - ui_icon_triangle_1_se,  
29 - ui_icon_triangle_1_s,  
30 - ui_icon_triangle_1_sw,  
31 - ui_icon_triangle_1_w,  
32 - ui_icon_triangle_1_nw,  
33 - ui_icon_triangle_2_n_s,  
34 - ui_icon_triangle_2_e_w,  
35 - ui_icon_arrow_1_n,  
36 - ui_icon_arrow_1_ne,  
37 - ui_icon_arrow_1_e,  
38 - ui_icon_arrow_1_se,  
39 - ui_icon_arrow_1_s,  
40 - ui_icon_arrow_1_sw,  
41 - ui_icon_arrow_1_w,  
42 - ui_icon_arrow_1_nw,  
43 - ui_icon_arrow_2_n_s,  
44 - ui_icon_arrow_2_ne_sw,  
45 - ui_icon_arrow_2_e_w,  
46 - ui_icon_arrow_2_se_nw,  
47 - ui_icon_arrowstop_1_n,  
48 - ui_icon_arrowstop_1_e,  
49 - ui_icon_arrowstop_1_s,  
50 - ui_icon_arrowstop_1_w,  
51 - ui_icon_arrowthick_1_n,  
52 - ui_icon_arrowthick_1_ne,  
53 - ui_icon_arrowthick_1_e,  
54 - ui_icon_arrowthick_1_se,  
55 - ui_icon_arrowthick_1_s,  
56 - ui_icon_arrowthick_1_sw,  
57 - ui_icon_arrowthick_1_w,  
58 - ui_icon_arrowthick_1_nw,  
59 - ui_icon_arrowthick_2_n_s,  
60 - ui_icon_arrowthick_2_ne_sw,  
61 - ui_icon_arrowthick_2_e_w,  
62 - ui_icon_arrowthick_2_se_nw,  
63 - ui_icon_arrowthickstop_1_n,  
64 - ui_icon_arrowthickstop_1_e,  
65 - ui_icon_arrowthickstop_1_s,  
66 - ui_icon_arrowthickstop_1_w,  
67 - ui_icon_arrowreturnthick_1_w,  
68 - ui_icon_arrowreturnthick_1_n,  
69 - ui_icon_arrowreturnthick_1_e,  
70 - ui_icon_arrowreturnthick_1_s,  
71 - ui_icon_arrowreturn_1_w,  
72 - ui_icon_arrowreturn_1_n,  
73 - ui_icon_arrowreturn_1_e,  
74 - ui_icon_arrowreturn_1_s,  
75 - ui_icon_arrowrefresh_1_w,  
76 - ui_icon_arrowrefresh_1_n,  
77 - ui_icon_arrowrefresh_1_e,  
78 - ui_icon_arrowrefresh_1_s,  
79 - ui_icon_arrow_4,  
80 - ui_icon_arrow_4_diag,  
81 - ui_icon_extlink,  
82 - ui_icon_newwin,  
83 - ui_icon_refresh,  
84 - ui_icon_shuffle,  
85 - ui_icon_transfer_e_w,  
86 - ui_icon_transferthick_e_w,  
87 - ui_icon_folder_collapsed,  
88 - ui_icon_folder_open,  
89 - ui_icon_document,  
90 - ui_icon_document_b,  
91 - ui_icon_note,  
92 - ui_icon_mail_closed,  
93 - ui_icon_mail_open,  
94 - ui_icon_suitcase,  
95 - ui_icon_comment,  
96 - ui_icon_person,  
97 - ui_icon_print,  
98 - ui_icon_trash,  
99 - ui_icon_locked,  
100 - ui_icon_unlocked,  
101 - ui_icon_bookmark,  
102 - ui_icon_tag,  
103 - ui_icon_home,  
104 - ui_icon_flag,  
105 - ui_icon_calculator,  
106 - ui_icon_cart,  
107 - ui_icon_pencil,  
108 - ui_icon_clock,  
109 - ui_icon_disk,  
110 - ui_icon_calendar,  
111 - ui_icon_zoomin,  
112 - ui_icon_zoomout,  
113 - ui_icon_search,  
114 - ui_icon_wrench,  
115 - ui_icon_gear,  
116 - ui_icon_heart,  
117 - ui_icon_star,  
118 - ui_icon_link,  
119 - ui_icon_cancel,  
120 - ui_icon_plus,  
121 - ui_icon_plusthick,  
122 - ui_icon_minus,  
123 - ui_icon_minusthick,  
124 - ui_icon_close,  
125 - ui_icon_closethick,  
126 - ui_icon_key,  
127 - ui_icon_lightbulb,  
128 - ui_icon_scissors,  
129 - ui_icon_clipboard,  
130 - ui_icon_copy,  
131 - ui_icon_contact,  
132 - ui_icon_image,  
133 - ui_icon_video,  
134 - ui_icon_script,  
135 - ui_icon_alert,  
136 - ui_icon_info,  
137 - ui_icon_notice,  
138 - ui_icon_help,  
139 - ui_icon_check,  
140 - ui_icon_bullet,  
141 - ui_icon_radio_off,  
142 - ui_icon_radio_on,  
143 - ui_icon_pin_w,  
144 - ui_icon_pin_s,  
145 - ui_icon_play,  
146 - ui_icon_pause,  
147 - ui_icon_seek_next,  
148 - ui_icon_seek_prev,  
149 - ui_icon_seek_end,  
150 - ui_icon_seek_first,  
151 - ui_icon_stop,  
152 - ui_icon_eject,  
153 - ui_icon_volume_off,  
154 - ui_icon_volume_on,  
155 - ui_icon_power,  
156 - ui_icon_signal_diag,  
157 - ui_icon_signal,  
158 - ui_icon_battery_0,  
159 - ui_icon_battery_1,  
160 - ui_icon_battery_2,  
161 - ui_icon_battery_3,  
162 - ui_icon_circle_plus,  
163 - ui_icon_circle_minus,  
164 - ui_icon_circle_close,  
165 - ui_icon_circle_triangle_e,  
166 - ui_icon_circle_triangle_s,  
167 - ui_icon_circle_triangle_w,  
168 - ui_icon_circle_triangle_n,  
169 - ui_icon_circle_arrow_e,  
170 - ui_icon_circle_arrow_s,  
171 - ui_icon_circle_arrow_w,  
172 - ui_icon_circle_arrow_n,  
173 - ui_icon_circle_zoomin,  
174 - ui_icon_circle_zoomout,  
175 - ui_icon_circle_check,  
176 - ui_icon_circlesmall_plus,  
177 - ui_icon_circlesmall_minus,  
178 - ui_icon_circlesmall_close,  
179 - ui_icon_squaresmall_plus,  
180 - ui_icon_squaresmall_minus,  
181 - ui_icon_squaresmall_close,  
182 - ui_icon_grip_dotted_vertical,  
183 - ui_icon_grip_dotted_horizontal,  
184 - ui_icon_grip_solid_vertical,  
185 - ui_icon_grip_solid_horizontal,  
186 - ui_icon_gripsmall_diagonal_se,  
187 - ui_icon_grip_diagonal_se,  
188 - jq_icon_none,  
189 - 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  
190 -.  
191 -  
192 -public define String  
193 - jquery_icon_to_string  
194 - (  
195 - JQuery_icon icon  
196 - )  
197 - =  
198 - if icon is  
199 - {  
200 - ui_icon_carat_1_n then "ui-icon-carat-1-n",  
201 - ui_icon_carat_1_ne then "ui-icon-carat-1-ne",  
202 - ui_icon_carat_1_e then "ui-icon-carat-1-e",  
203 - ui_icon_carat_1_se then "ui-icon-carat-1-se",  
204 - ui_icon_carat_1_s then "ui-icon-carat-1-s",  
205 - ui_icon_carat_1_sw then "ui-icon-carat-1-sw",  
206 - ui_icon_carat_1_w then "ui-icon-carat-1-w",  
207 - ui_icon_carat_1_nw then "ui-icon-carat-1-nw",  
208 - ui_icon_carat_2_n_s then "ui-icon-carat-2-n-s",  
209 - ui_icon_carat_2_e_w then "ui-icon-carat-2-e-w",  
210 - ui_icon_triangle_1_n then "ui-icon-triangle-1-n",  
211 - ui_icon_triangle_1_ne then "ui-icon-triangle-1-ne",  
212 - ui_icon_triangle_1_e then "ui-icon-triangle-1-e",  
213 - ui_icon_triangle_1_se then "ui-icon-triangle-1-se",  
214 - ui_icon_triangle_1_s then "ui-icon-triangle-1-s",  
215 - ui_icon_triangle_1_sw then "ui-icon-triangle-1-sw",  
216 - ui_icon_triangle_1_w then "ui-icon-triangle-1-w",  
217 - ui_icon_triangle_1_nw then "ui-icon-triangle-1-nw",  
218 - ui_icon_triangle_2_n_s then "ui-icon-triangle-2-n-s",  
219 - ui_icon_triangle_2_e_w then "ui-icon-triangle-2-e-w",  
220 - ui_icon_arrow_1_n then "ui-icon-arrow-1-n",  
221 - ui_icon_arrow_1_ne then "ui-icon-arrow-1-ne",  
222 - ui_icon_arrow_1_e then "ui-icon-arrow-1-e",  
223 - ui_icon_arrow_1_se then "ui-icon-arrow-1-se",  
224 - ui_icon_arrow_1_s then "ui-icon-arrow-1-s",  
225 - ui_icon_arrow_1_sw then "ui-icon-arrow-1-sw",  
226 - ui_icon_arrow_1_w then "ui-icon-arrow-1-w",  
227 - ui_icon_arrow_1_nw then "ui-icon-arrow-1-nw",  
228 - ui_icon_arrow_2_n_s then "ui-icon-arrow-2-n-s",  
229 - ui_icon_arrow_2_ne_sw then "ui-icon-arrow-2-ne-sw",  
230 - ui_icon_arrow_2_e_w then "ui-icon-arrow-2-e-w",  
231 - ui_icon_arrow_2_se_nw then "ui-icon-arrow-2-se-nw",  
232 - ui_icon_arrowstop_1_n then "ui-icon-arrowstop-1-n",  
233 - ui_icon_arrowstop_1_e then "ui-icon-arrowstop-1-e",  
234 - ui_icon_arrowstop_1_s then "ui-icon-arrowstop-1-s",  
235 - ui_icon_arrowstop_1_w then "ui-icon-arrowstop-1-w",  
236 - ui_icon_arrowthick_1_n then "ui-icon-arrowthick-1-n",  
237 - ui_icon_arrowthick_1_ne then "ui-icon-arrowthick-1-ne",  
238 - ui_icon_arrowthick_1_e then "ui-icon-arrowthick-1-e",  
239 - ui_icon_arrowthick_1_se then "ui-icon-arrowthick-1-se",  
240 - ui_icon_arrowthick_1_s then "ui-icon-arrowthick-1-s",  
241 - ui_icon_arrowthick_1_sw then "ui-icon-arrowthick-1-sw",  
242 - ui_icon_arrowthick_1_w then "ui-icon-arrowthick-1-w",  
243 - ui_icon_arrowthick_1_nw then "ui-icon-arrowthick-1-nw",  
244 - ui_icon_arrowthick_2_n_s then "ui-icon-arrowthick-2-n-s",  
245 - ui_icon_arrowthick_2_ne_sw then "ui-icon-arrowthick-2-ne-sw",  
246 - ui_icon_arrowthick_2_e_w then "ui-icon-arrowthick-2-e-w",  
247 - ui_icon_arrowthick_2_se_nw then "ui-icon-arrowthick-2-se-nw",  
248 - ui_icon_arrowthickstop_1_n then "ui-icon-arrowthickstop-1-n",  
249 - ui_icon_arrowthickstop_1_e then "ui-icon-arrowthickstop-1-e",  
250 - ui_icon_arrowthickstop_1_s then "ui-icon-arrowthickstop-1-s",  
251 - ui_icon_arrowthickstop_1_w then "ui-icon-arrowthickstop-1-w",  
252 - ui_icon_arrowreturnthick_1_w then "ui-icon-arrowreturnthick-1-w",  
253 - ui_icon_arrowreturnthick_1_n then "ui-icon-arrowreturnthick-1-n",  
254 - ui_icon_arrowreturnthick_1_e then "ui-icon-arrowreturnthick-1-e",  
255 - ui_icon_arrowreturnthick_1_s then "ui-icon-arrowreturnthick-1-s",  
256 - ui_icon_arrowreturn_1_w then "ui-icon-arrowreturn-1-w",  
257 - ui_icon_arrowreturn_1_n then "ui-icon-arrowreturn-1-n",  
258 - ui_icon_arrowreturn_1_e then "ui-icon-arrowreturn-1-e",  
259 - ui_icon_arrowreturn_1_s then "ui-icon-arrowreturn-1-s",  
260 - ui_icon_arrowrefresh_1_w then "ui-icon-arrowrefresh-1-w",  
261 - ui_icon_arrowrefresh_1_n then "ui-icon-arrowrefresh-1-n",  
262 - ui_icon_arrowrefresh_1_e then "ui-icon-arrowrefresh-1-e",  
263 - ui_icon_arrowrefresh_1_s then "ui-icon-arrowrefresh-1-s",  
264 - ui_icon_arrow_4 then "ui-icon-arrow-4",  
265 - ui_icon_arrow_4_diag then "ui-icon-arrow-4-diag",  
266 - ui_icon_extlink then "ui-icon-extlink",  
267 - ui_icon_newwin then "ui-icon-newwin",  
268 - ui_icon_refresh then "ui-icon-refresh",  
269 - ui_icon_shuffle then "ui-icon-shuffle",  
270 - ui_icon_transfer_e_w then "ui-icon-transfer-e-w",  
271 - ui_icon_transferthick_e_w then "ui-icon-transferthick-e-w",  
272 - ui_icon_folder_collapsed then "ui-icon-folder-collapsed",  
273 - ui_icon_folder_open then "ui-icon-folder-open",  
274 - ui_icon_document then "ui-icon-document",  
275 - ui_icon_document_b then "ui-icon-document-b",  
276 - ui_icon_note then "ui-icon-note",  
277 - ui_icon_mail_closed then "ui-icon-mail-closed",  
278 - ui_icon_mail_open then "ui-icon-mail-open",  
279 - ui_icon_suitcase then "ui-icon-suitcase",  
280 - ui_icon_comment then "ui-icon-comment",  
281 - ui_icon_person then "ui-icon-person",  
282 - ui_icon_print then "ui-icon-print",  
283 - ui_icon_trash then "ui-icon-trash",  
284 - ui_icon_locked then "ui-icon-locked",  
285 - ui_icon_unlocked then "ui-icon-unlocked",  
286 - ui_icon_bookmark then "ui-icon-bookmark",  
287 - ui_icon_tag then "ui-icon-tag",  
288 - ui_icon_home then "ui-icon-home",  
289 - ui_icon_flag then "ui-icon-flag",  
290 - ui_icon_calculator then "ui-icon-calculator",  
291 - ui_icon_cart then "ui-icon-cart",  
292 - ui_icon_pencil then "ui-icon-pencil",  
293 - ui_icon_clock then "ui-icon-clock",  
294 - ui_icon_disk then "ui-icon-disk",  
295 - ui_icon_calendar then "ui-icon-calendar",  
296 - ui_icon_zoomin then "ui-icon-zoomin",  
297 - ui_icon_zoomout then "ui-icon-zoomout",  
298 - ui_icon_search then "ui-icon-search",  
299 - ui_icon_wrench then "ui-icon-wrench",  
300 - ui_icon_gear then "ui-icon-gear",  
301 - ui_icon_heart then "ui-icon-heart",  
302 - ui_icon_star then "ui-icon-star",  
303 - ui_icon_link then "ui-icon-link",  
304 - ui_icon_cancel then "ui-icon-cancel",  
305 - ui_icon_plus then "ui-icon-plus",  
306 - ui_icon_plusthick then "ui-icon-plusthick",  
307 - ui_icon_minus then "ui-icon-minus",  
308 - ui_icon_minusthick then "ui-icon-minusthick",  
309 - ui_icon_close then "ui-icon-close",  
310 - ui_icon_closethick then "ui-icon-closethick",  
311 - ui_icon_key then "ui-icon-key",  
312 - ui_icon_lightbulb then "ui-icon-lightbulb",  
313 - ui_icon_scissors then "ui-icon-scissors",  
314 - ui_icon_clipboard then "ui-icon-clipboard",  
315 - ui_icon_copy then "ui-icon-copy",  
316 - ui_icon_contact then "ui-icon-contact",  
317 - ui_icon_image then "ui-icon-image",  
318 - ui_icon_video then "ui-icon-video",  
319 - ui_icon_script then "ui-icon-script",  
320 - ui_icon_alert then "ui-icon-alert",  
321 - ui_icon_info then "ui-icon-info",  
322 - ui_icon_notice then "ui-icon-notice",  
323 - ui_icon_help then "ui-icon-help",  
324 - ui_icon_check then "ui-icon-check",  
325 - ui_icon_bullet then "ui-icon-bullet",  
326 - ui_icon_radio_off then "ui-icon-radio-off",  
327 - ui_icon_radio_on then "ui-icon-radio-on",  
328 - ui_icon_pin_w then "ui-icon-pin-w",  
329 - ui_icon_pin_s then "ui-icon-pin-s",  
330 - ui_icon_play then "ui-icon-play",  
331 - ui_icon_pause then "ui-icon-pause",  
332 - ui_icon_seek_next then "ui-icon-seek-next",  
333 - ui_icon_seek_prev then "ui-icon-seek-prev",  
334 - ui_icon_seek_end then "ui-icon-seek-end",  
335 - ui_icon_seek_first then "ui-icon-seek-first",  
336 - ui_icon_stop then "ui-icon-stop",  
337 - ui_icon_eject then "ui-icon-eject",  
338 - ui_icon_volume_off then "ui-icon-volume-off",  
339 - ui_icon_volume_on then "ui-icon-volume-on",  
340 - ui_icon_power then "ui-icon-power",  
341 - ui_icon_signal_diag then "ui-icon-signal-diag",  
342 - ui_icon_signal then "ui-icon-signal",  
343 - ui_icon_battery_0 then "ui-icon-battery-0",  
344 - ui_icon_battery_1 then "ui-icon-battery-1",  
345 - ui_icon_battery_2 then "ui-icon-battery-2",  
346 - ui_icon_battery_3 then "ui-icon-battery-3",  
347 - ui_icon_circle_plus then "ui-icon-circle-plus",  
348 - ui_icon_circle_minus then "ui-icon-circle-minus",  
349 - ui_icon_circle_close then "ui-icon-circle-close",  
350 - ui_icon_circle_triangle_e then "ui-icon-circle-triangle-e",  
351 - ui_icon_circle_triangle_s then "ui-icon-circle-triangle-s",  
352 - ui_icon_circle_triangle_w then "ui-icon-circle-triangle-w",  
353 - ui_icon_circle_triangle_n then "ui-icon-circle-triangle-n",  
354 - ui_icon_circle_arrow_e then "ui-icon-circle-arrow-e",  
355 - ui_icon_circle_arrow_s then "ui-icon-circle-arrow-s",  
356 - ui_icon_circle_arrow_w then "ui-icon-circle-arrow-w",  
357 - ui_icon_circle_arrow_n then "ui-icon-circle-arrow-n",  
358 - ui_icon_circle_zoomin then "ui-icon-circle-zoomin",  
359 - ui_icon_circle_zoomout then "ui-icon-circle-zoomout",  
360 - ui_icon_circle_check then "ui-icon-circle-check",  
361 - ui_icon_circlesmall_plus then "ui-icon-circlesmall-plus",  
362 - ui_icon_circlesmall_minus then "ui-icon-circlesmall-minus",  
363 - ui_icon_circlesmall_close then "ui-icon-circlesmall-close",  
364 - ui_icon_squaresmall_plus then "ui-icon-squaresmall-plus",  
365 - ui_icon_squaresmall_minus then "ui-icon-squaresmall-minus",  
366 - ui_icon_squaresmall_close then "ui-icon-squaresmall-close",  
367 - ui_icon_grip_dotted_vertical then "ui-icon-grip-dotted-vertical",  
368 - ui_icon_grip_dotted_horizontal then "ui-icon-grip-dotted-horizontal",  
369 - ui_icon_grip_solid_vertical then "ui-icon-grip-solid-vertical",  
370 - ui_icon_grip_solid_horizontal then "ui-icon-grip-solid-horizontal",  
371 - ui_icon_gripsmall_diagonal_se then "ui-icon-gripsmall-diagonal-se",  
372 - ui_icon_grip_diagonal_se then "ui-icon-grip-diagonal-se",  
373 - jq_icon_none then "",  
374 - jq_custom_icon(str) then str  
375 - }  
376 - .  
377 -  
378 -public define JQuery_icon  
379 - string_to_jquery_icon  
380 - (  
381 - String icon_class  
382 - )  
383 - =  
384 - with ic=to_lower(icon_class),  
385 - if ic = "ui-icon-carat-1-n" then ui_icon_carat_1_n else  
386 - if ic = "ui-icon-carat-1-ne" then ui_icon_carat_1_ne else  
387 - if ic = "ui-icon-carat-1-e" then ui_icon_carat_1_e else  
388 - if ic = "ui-icon-carat-1-se" then ui_icon_carat_1_se else  
389 - if ic = "ui-icon-carat-1-s" then ui_icon_carat_1_s else  
390 - if ic = "ui-icon-carat-1-sw" then ui_icon_carat_1_sw else  
391 - if ic = "ui-icon-carat-1-w" then ui_icon_carat_1_w else  
392 - if ic = "ui-icon-carat-1-nw" then ui_icon_carat_1_nw else  
393 - if ic = "ui-icon-carat-2-n-s" then ui_icon_carat_2_n_s else  
394 - if ic = "ui-icon-carat-2-e-w" then ui_icon_carat_2_e_w else  
395 - if ic = "ui-icon-triangle-1-n" then ui_icon_triangle_1_n else  
396 - if ic = "ui-icon-triangle-1-ne" then ui_icon_triangle_1_ne else  
397 - if ic = "ui-icon-triangle-1-e" then ui_icon_triangle_1_e else  
398 - if ic = "ui-icon-triangle-1-se" then ui_icon_triangle_1_se else  
399 - if ic = "ui-icon-triangle-1-s" then ui_icon_triangle_1_s else  
400 - if ic = "ui-icon-triangle-1-sw" then ui_icon_triangle_1_sw else  
401 - if ic = "ui-icon-triangle-1-w" then ui_icon_triangle_1_w else  
402 - if ic = "ui-icon-triangle-1-nw" then ui_icon_triangle_1_nw else  
403 - if ic = "ui-icon-triangle-2-n-s" then ui_icon_triangle_2_n_s else  
404 - if ic = "ui-icon-triangle-2-e-w" then ui_icon_triangle_2_e_w else  
405 - if ic = "ui-icon-arrow-1-n" then ui_icon_arrow_1_n else  
406 - if ic = "ui-icon-arrow-1-ne" then ui_icon_arrow_1_ne else  
407 - if ic = "ui-icon-arrow-1-e" then ui_icon_arrow_1_e else  
408 - if ic = "ui-icon-arrow-1-se" then ui_icon_arrow_1_se else  
409 - if ic = "ui-icon-arrow-1-s" then ui_icon_arrow_1_s else  
410 - if ic = "ui-icon-arrow-1-sw" then ui_icon_arrow_1_sw else  
411 - if ic = "ui-icon-arrow-1-w" then ui_icon_arrow_1_w else  
412 - if ic = "ui-icon-arrow-1-nw" then ui_icon_arrow_1_nw else  
413 - if ic = "ui-icon-arrow-2-n-s" then ui_icon_arrow_2_n_s else  
414 - if ic = "ui-icon-arrow-2-ne-sw" then ui_icon_arrow_2_ne_sw else  
415 - if ic = "ui-icon-arrow-2-e-w" then ui_icon_arrow_2_e_w else  
416 - if ic = "ui-icon-arrow-2-se-nw" then ui_icon_arrow_2_se_nw else  
417 - if ic = "ui-icon-arrowstop-1-n" then ui_icon_arrowstop_1_n else  
418 - if ic = "ui-icon-arrowstop-1-e" then ui_icon_arrowstop_1_e else  
419 - if ic = "ui-icon-arrowstop-1-s" then ui_icon_arrowstop_1_s else  
420 - if ic = "ui-icon-arrowstop-1-w" then ui_icon_arrowstop_1_w else  
421 - if ic = "ui-icon-arrowthick-1-n" then ui_icon_arrowthick_1_n else  
422 - if ic = "ui-icon-arrowthick-1-ne" then ui_icon_arrowthick_1_ne else  
423 - if ic = "ui-icon-arrowthick-1-e" then ui_icon_arrowthick_1_e else  
424 - if ic = "ui-icon-arrowthick-1-se" then ui_icon_arrowthick_1_se else  
425 - if ic = "ui-icon-arrowthick-1-s" then ui_icon_arrowthick_1_s else  
426 - if ic = "ui-icon-arrowthick-1-sw" then ui_icon_arrowthick_1_sw else  
427 - if ic = "ui-icon-arrowthick-1-w" then ui_icon_arrowthick_1_w else  
428 - if ic = "ui-icon-arrowthick-1-nw" then ui_icon_arrowthick_1_nw else  
429 - if ic = "ui-icon-arrowthick-2-n-s" then ui_icon_arrowthick_2_n_s else  
430 - if ic = "ui-icon-arrowthick-2-ne-sw" then ui_icon_arrowthick_2_ne_sw else  
431 - if ic = "ui-icon-arrowthick-2-e-w" then ui_icon_arrowthick_2_e_w else  
432 - if ic = "ui-icon-arrowthick-2-se-nw" then ui_icon_arrowthick_2_se_nw else  
433 - if ic = "ui-icon-arrowthickstop-1-n" then ui_icon_arrowthickstop_1_n else  
434 - if ic = "ui-icon-arrowthickstop-1-e" then ui_icon_arrowthickstop_1_e else  
435 - if ic = "ui-icon-arrowthickstop-1-s" then ui_icon_arrowthickstop_1_s else  
436 - if ic = "ui-icon-arrowthickstop-1-w" then ui_icon_arrowthickstop_1_w else  
437 - if ic = "ui-icon-arrowreturnthick-1-w" then ui_icon_arrowreturnthick_1_w else  
438 - if ic = "ui-icon-arrowreturnthick-1-n" then ui_icon_arrowreturnthick_1_n else  
439 - if ic = "ui-icon-arrowreturnthick-1-e" then ui_icon_arrowreturnthick_1_e else  
440 - if ic = "ui-icon-arrowreturnthick-1-s" then ui_icon_arrowreturnthick_1_s else  
441 - if ic = "ui-icon-arrowreturn-1-w" then ui_icon_arrowreturn_1_w else  
442 - if ic = "ui-icon-arrowreturn-1-n" then ui_icon_arrowreturn_1_n else  
443 - if ic = "ui-icon-arrowreturn-1-e" then ui_icon_arrowreturn_1_e else  
444 - if ic = "ui-icon-arrowreturn-1-s" then ui_icon_arrowreturn_1_s else  
445 - if ic = "ui-icon-arrowrefresh-1-w" then ui_icon_arrowrefresh_1_w else  
446 - if ic = "ui-icon-arrowrefresh-1-n" then ui_icon_arrowrefresh_1_n else  
447 - if ic = "ui-icon-arrowrefresh-1-e" then ui_icon_arrowrefresh_1_e else  
448 - if ic = "ui-icon-arrowrefresh-1-s" then ui_icon_arrowrefresh_1_s else  
449 - if ic = "ui-icon-arrow-4" then ui_icon_arrow_4 else  
450 - if ic = "ui-icon-arrow-4-diag" then ui_icon_arrow_4_diag else  
451 - if ic = "ui-icon-extlink" then ui_icon_extlink else  
452 - if ic = "ui-icon-newwin" then ui_icon_newwin else  
453 - if ic = "ui-icon-refresh" then ui_icon_refresh else  
454 - if ic = "ui-icon-shuffle" then ui_icon_shuffle else  
455 - if ic = "ui-icon-transfer-e-w" then ui_icon_transfer_e_w else  
456 - if ic = "ui-icon-transferthick-e-w" then ui_icon_transferthick_e_w else  
457 - if ic = "ui-icon-folder-collapsed" then ui_icon_folder_collapsed else  
458 - if ic = "ui-icon-folder-open" then ui_icon_folder_open else  
459 - if ic = "ui-icon-document" then ui_icon_document else  
460 - if ic = "ui-icon-document-b" then ui_icon_document_b else  
461 - if ic = "ui-icon-note" then ui_icon_note else  
462 - if ic = "ui-icon-mail-closed" then ui_icon_mail_closed else  
463 - if ic = "ui-icon-mail-open" then ui_icon_mail_open else  
464 - if ic = "ui-icon-suitcase" then ui_icon_suitcase else  
465 - if ic = "ui-icon-comment" then ui_icon_comment else  
466 - if ic = "ui-icon-person" then ui_icon_person else  
467 - if ic = "ui-icon-print" then ui_icon_print else  
468 - if ic = "ui-icon-trash" then ui_icon_trash else  
469 - if ic = "ui-icon-locked" then ui_icon_locked else  
470 - if ic = "ui-icon-unlocked" then ui_icon_unlocked else  
471 - if ic = "ui-icon-bookmark" then ui_icon_bookmark else  
472 - if ic = "ui-icon-tag" then ui_icon_tag else  
473 - if ic = "ui-icon-home" then ui_icon_home else  
474 - if ic = "ui-icon-flag" then ui_icon_flag else  
475 - if ic = "ui-icon-calculator" then ui_icon_calculator else  
476 - if ic = "ui-icon-cart" then ui_icon_cart else  
477 - if ic = "ui-icon-pencil" then ui_icon_pencil else  
478 - if ic = "ui-icon-clock" then ui_icon_clock else  
479 - if ic = "ui-icon-disk" then ui_icon_disk else  
480 - if ic = "ui-icon-calendar" then ui_icon_calendar else  
481 - if ic = "ui-icon-zoomin" then ui_icon_zoomin else  
482 - if ic = "ui-icon-zoomout" then ui_icon_zoomout else  
483 - if ic = "ui-icon-search" then ui_icon_search else  
484 - if ic = "ui-icon-wrench" then ui_icon_wrench else  
485 - if ic = "ui-icon-gear" then ui_icon_gear else  
486 - if ic = "ui-icon-heart" then ui_icon_heart else  
487 - if ic = "ui-icon-star" then ui_icon_star else  
488 - if ic = "ui-icon-link" then ui_icon_link else  
489 - if ic = "ui-icon-cancel" then ui_icon_cancel else  
490 - if ic = "ui-icon-plus" then ui_icon_plus else  
491 - if ic = "ui-icon-plusthick" then ui_icon_plusthick else  
492 - if ic = "ui-icon-minus" then ui_icon_minus else  
493 - if ic = "ui-icon-minusthick" then ui_icon_minusthick else  
494 - if ic = "ui-icon-close" then ui_icon_close else  
495 - if ic = "ui-icon-closethick" then ui_icon_closethick else  
496 - if ic = "ui-icon-key" then ui_icon_key else  
497 - if ic = "ui-icon-lightbulb" then ui_icon_lightbulb else  
498 - if ic = "ui-icon-scissors" then ui_icon_scissors else  
499 - if ic = "ui-icon-clipboard" then ui_icon_clipboard else  
500 - if ic = "ui-icon-copy" then ui_icon_copy else  
501 - if ic = "ui-icon-contact" then ui_icon_contact else  
502 - if ic = "ui-icon-image" then ui_icon_image else  
503 - if ic = "ui-icon-video" then ui_icon_video else  
504 - if ic = "ui-icon-script" then ui_icon_script else  
505 - if ic = "ui-icon-alert" then ui_icon_alert else  
506 - if ic = "ui-icon-info" then ui_icon_info else  
507 - if ic = "ui-icon-notice" then ui_icon_notice else  
508 - if ic = "ui-icon-help" then ui_icon_help else  
509 - if ic = "ui-icon-check" then ui_icon_check else  
510 - if ic = "ui-icon-bullet" then ui_icon_bullet else  
511 - if ic = "ui-icon-radio-off" then ui_icon_radio_off else  
512 - if ic = "ui-icon-radio-on" then ui_icon_radio_on else  
513 - if ic = "ui-icon-pin-w" then ui_icon_pin_w else  
514 - if ic = "ui-icon-pin-s" then ui_icon_pin_s else  
515 - if ic = "ui-icon-play" then ui_icon_play else  
516 - if ic = "ui-icon-pause" then ui_icon_pause else  
517 - if ic = "ui-icon-seek-next" then ui_icon_seek_next else  
518 - if ic = "ui-icon-seek-prev" then ui_icon_seek_prev else  
519 - if ic = "ui-icon-seek-end" then ui_icon_seek_end else  
520 - if ic = "ui-icon-seek-first" then ui_icon_seek_first else  
521 - if ic = "ui-icon-stop" then ui_icon_stop else  
522 - if ic = "ui-icon-eject" then ui_icon_eject else  
523 - if ic = "ui-icon-volume-off" then ui_icon_volume_off else  
524 - if ic = "ui-icon-volume-on" then ui_icon_volume_on else  
525 - if ic = "ui-icon-power" then ui_icon_power else  
526 - if ic = "ui-icon-signal-diag" then ui_icon_signal_diag else  
527 - if ic = "ui-icon-signal" then ui_icon_signal else  
528 - if ic = "ui-icon-battery-0" then ui_icon_battery_0 else  
529 - if ic = "ui-icon-battery-1" then ui_icon_battery_1 else  
530 - if ic = "ui-icon-battery-2" then ui_icon_battery_2 else  
531 - if ic = "ui-icon-battery-3" then ui_icon_battery_3 else  
532 - if ic = "ui-icon-circle-plus" then ui_icon_circle_plus else  
533 - if ic = "ui-icon-circle-minus" then ui_icon_circle_minus else  
534 - if ic = "ui-icon-circle-close" then ui_icon_circle_close else  
535 - if ic = "ui-icon-circle-triangle-e" then ui_icon_circle_triangle_e else  
536 - if ic = "ui-icon-circle-triangle-s" then ui_icon_circle_triangle_s else  
537 - if ic = "ui-icon-circle-triangle-w" then ui_icon_circle_triangle_w else  
538 - if ic = "ui-icon-circle-triangle-n" then ui_icon_circle_triangle_n else  
539 - if ic = "ui-icon-circle-arrow-e" then ui_icon_circle_arrow_e else  
540 - if ic = "ui-icon-circle-arrow-s" then ui_icon_circle_arrow_s else  
541 - if ic = "ui-icon-circle-arrow-w" then ui_icon_circle_arrow_w else  
542 - if ic = "ui-icon-circle-arrow-n" then ui_icon_circle_arrow_n else  
543 - if ic = "ui-icon-circle-zoomin" then ui_icon_circle_zoomin else  
544 - if ic = "ui-icon-circle-zoomout" then ui_icon_circle_zoomout else  
545 - if ic = "ui-icon-circle-check" then ui_icon_circle_check else  
546 - if ic = "ui-icon-circlesmall-plus" then ui_icon_circlesmall_plus else  
547 - if ic = "ui-icon-circlesmall-minus" then ui_icon_circlesmall_minus else  
548 - if ic = "ui-icon-circlesmall-close" then ui_icon_circlesmall_close else  
549 - if ic = "ui-icon-squaresmall-plus" then ui_icon_squaresmall_plus else  
550 - if ic = "ui-icon-squaresmall-minus" then ui_icon_squaresmall_minus else  
551 - if ic = "ui-icon-squaresmall-close" then ui_icon_squaresmall_close else  
552 - if ic = "ui-icon-grip-dotted-vertical" then ui_icon_grip_dotted_vertical else  
553 - if ic = "ui-icon-grip-dotted-horizontal" then ui_icon_grip_dotted_horizontal else  
554 - if ic = "ui-icon-grip-solid-vertical" then ui_icon_grip_solid_vertical else  
555 - if ic = "ui-icon-grip-solid-horizontal" then ui_icon_grip_solid_horizontal else  
556 - if ic = "ui-icon-gripsmall-diagonal-se" then ui_icon_gripsmall_diagonal_se else  
557 - if ic = "ui-icon-grip-diagonal-se" then ui_icon_grip_diagonal_se else  
558 - if ic = "" then jq_icon_none else  
559 - jq_custom_icon(ic)  
560 - . 1 +/*
  2 + * Created by PyramIDE.
  3 + * User: Jeremy
  4 + * Date: 08/09/2012
  5 + * Time: 16:35
  6 + *
  7 + *
  8 + */
  9 +
  10 +read calexium_lib/web/CXM_making_a_web_site.anubis
  11 +read tools/basis.anubis
  12 +read system/string.anubis
  13 +
  14 +public type JQuery_icon:
  15 + ui_icon_carat_1_n,
  16 + ui_icon_carat_1_ne,
  17 + ui_icon_carat_1_e,
  18 + ui_icon_carat_1_se,
  19 + ui_icon_carat_1_s,
  20 + ui_icon_carat_1_sw,
  21 + ui_icon_carat_1_w,
  22 + ui_icon_carat_1_nw,
  23 + ui_icon_carat_2_n_s,
  24 + ui_icon_carat_2_e_w,
  25 + ui_icon_triangle_1_n,
  26 + ui_icon_triangle_1_ne,
  27 + ui_icon_triangle_1_e,
  28 + ui_icon_triangle_1_se,
  29 + ui_icon_triangle_1_s,
  30 + ui_icon_triangle_1_sw,
  31 + ui_icon_triangle_1_w,
  32 + ui_icon_triangle_1_nw,
  33 + ui_icon_triangle_2_n_s,
  34 + ui_icon_triangle_2_e_w,
  35 + ui_icon_arrow_1_n,
  36 + ui_icon_arrow_1_ne,
  37 + ui_icon_arrow_1_e,
  38 + ui_icon_arrow_1_se,
  39 + ui_icon_arrow_1_s,
  40 + ui_icon_arrow_1_sw,
  41 + ui_icon_arrow_1_w,
  42 + ui_icon_arrow_1_nw,
  43 + ui_icon_arrow_2_n_s,
  44 + ui_icon_arrow_2_ne_sw,
  45 + ui_icon_arrow_2_e_w,
  46 + ui_icon_arrow_2_se_nw,
  47 + ui_icon_arrowstop_1_n,
  48 + ui_icon_arrowstop_1_e,
  49 + ui_icon_arrowstop_1_s,
  50 + ui_icon_arrowstop_1_w,
  51 + ui_icon_arrowthick_1_n,
  52 + ui_icon_arrowthick_1_ne,
  53 + ui_icon_arrowthick_1_e,
  54 + ui_icon_arrowthick_1_se,
  55 + ui_icon_arrowthick_1_s,
  56 + ui_icon_arrowthick_1_sw,
  57 + ui_icon_arrowthick_1_w,
  58 + ui_icon_arrowthick_1_nw,
  59 + ui_icon_arrowthick_2_n_s,
  60 + ui_icon_arrowthick_2_ne_sw,
  61 + ui_icon_arrowthick_2_e_w,
  62 + ui_icon_arrowthick_2_se_nw,
  63 + ui_icon_arrowthickstop_1_n,
  64 + ui_icon_arrowthickstop_1_e,
  65 + ui_icon_arrowthickstop_1_s,
  66 + ui_icon_arrowthickstop_1_w,
  67 + ui_icon_arrowreturnthick_1_w,
  68 + ui_icon_arrowreturnthick_1_n,
  69 + ui_icon_arrowreturnthick_1_e,
  70 + ui_icon_arrowreturnthick_1_s,
  71 + ui_icon_arrowreturn_1_w,
  72 + ui_icon_arrowreturn_1_n,
  73 + ui_icon_arrowreturn_1_e,
  74 + ui_icon_arrowreturn_1_s,
  75 + ui_icon_arrowrefresh_1_w,
  76 + ui_icon_arrowrefresh_1_n,
  77 + ui_icon_arrowrefresh_1_e,
  78 + ui_icon_arrowrefresh_1_s,
  79 + ui_icon_arrow_4,
  80 + ui_icon_arrow_4_diag,
  81 + ui_icon_extlink,
  82 + ui_icon_newwin,
  83 + ui_icon_refresh,
  84 + ui_icon_shuffle,
  85 + ui_icon_transfer_e_w,
  86 + ui_icon_transferthick_e_w,
  87 + ui_icon_folder_collapsed,
  88 + ui_icon_folder_open,
  89 + ui_icon_document,
  90 + ui_icon_document_b,
  91 + ui_icon_note,
  92 + ui_icon_mail_closed,
  93 + ui_icon_mail_open,
  94 + ui_icon_suitcase,
  95 + ui_icon_comment,
  96 + ui_icon_person,
  97 + ui_icon_print,
  98 + ui_icon_trash,
  99 + ui_icon_locked,
  100 + ui_icon_unlocked,
  101 + ui_icon_bookmark,
  102 + ui_icon_tag,
  103 + ui_icon_home,
  104 + ui_icon_flag,
  105 + ui_icon_calculator,
  106 + ui_icon_cart,
  107 + ui_icon_pencil,
  108 + ui_icon_clock,
  109 + ui_icon_disk,
  110 + ui_icon_calendar,
  111 + ui_icon_zoomin,
  112 + ui_icon_zoomout,
  113 + ui_icon_search,
  114 + ui_icon_wrench,
  115 + ui_icon_gear,
  116 + ui_icon_heart,
  117 + ui_icon_star,
  118 + ui_icon_link,
  119 + ui_icon_cancel,
  120 + ui_icon_plus,
  121 + ui_icon_plusthick,
  122 + ui_icon_minus,
  123 + ui_icon_minusthick,
  124 + ui_icon_close,
  125 + ui_icon_closethick,
  126 + ui_icon_key,
  127 + ui_icon_lightbulb,
  128 + ui_icon_scissors,
  129 + ui_icon_clipboard,
  130 + ui_icon_copy,
  131 + ui_icon_contact,
  132 + ui_icon_image,
  133 + ui_icon_video,
  134 + ui_icon_script,
  135 + ui_icon_alert,
  136 + ui_icon_info,
  137 + ui_icon_notice,
  138 + ui_icon_help,
  139 + ui_icon_check,
  140 + ui_icon_bullet,
  141 + ui_icon_radio_off,
  142 + ui_icon_radio_on,
  143 + ui_icon_pin_w,
  144 + ui_icon_pin_s,
  145 + ui_icon_play,
  146 + ui_icon_pause,
  147 + ui_icon_seek_next,
  148 + ui_icon_seek_prev,
  149 + ui_icon_seek_end,
  150 + ui_icon_seek_first,
  151 + ui_icon_stop,
  152 + ui_icon_eject,
  153 + ui_icon_volume_off,
  154 + ui_icon_volume_on,
  155 + ui_icon_power,
  156 + ui_icon_signal_diag,
  157 + ui_icon_signal,
  158 + ui_icon_battery_0,
  159 + ui_icon_battery_1,
  160 + ui_icon_battery_2,
  161 + ui_icon_battery_3,
  162 + ui_icon_circle_plus,
  163 + ui_icon_circle_minus,
  164 + ui_icon_circle_close,
  165 + ui_icon_circle_triangle_e,
  166 + ui_icon_circle_triangle_s,
  167 + ui_icon_circle_triangle_w,
  168 + ui_icon_circle_triangle_n,
  169 + ui_icon_circle_arrow_e,
  170 + ui_icon_circle_arrow_s,
  171 + ui_icon_circle_arrow_w,
  172 + ui_icon_circle_arrow_n,
  173 + ui_icon_circle_zoomin,
  174 + ui_icon_circle_zoomout,
  175 + ui_icon_circle_check,
  176 + ui_icon_circlesmall_plus,
  177 + ui_icon_circlesmall_minus,
  178 + ui_icon_circlesmall_close,
  179 + ui_icon_squaresmall_plus,
  180 + ui_icon_squaresmall_minus,
  181 + ui_icon_squaresmall_close,
  182 + ui_icon_grip_dotted_vertical,
  183 + ui_icon_grip_dotted_horizontal,
  184 + ui_icon_grip_solid_vertical,
  185 + ui_icon_grip_solid_horizontal,
  186 + ui_icon_gripsmall_diagonal_se,
  187 + ui_icon_grip_diagonal_se,
  188 + jq_icon_none,
  189 + 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
  190 +.
  191 +
  192 +public define String
  193 + jquery_icon_to_string
  194 + (
  195 + JQuery_icon icon
  196 + )
  197 + =
  198 + if icon is
  199 + {
  200 + ui_icon_carat_1_n then "ui-icon-carat-1-n",
  201 + ui_icon_carat_1_ne then "ui-icon-carat-1-ne",
  202 + ui_icon_carat_1_e then "ui-icon-carat-1-e",
  203 + ui_icon_carat_1_se then "ui-icon-carat-1-se",
  204 + ui_icon_carat_1_s then "ui-icon-carat-1-s",
  205 + ui_icon_carat_1_sw then "ui-icon-carat-1-sw",
  206 + ui_icon_carat_1_w then "ui-icon-carat-1-w",
  207 + ui_icon_carat_1_nw then "ui-icon-carat-1-nw",
  208 + ui_icon_carat_2_n_s then "ui-icon-carat-2-n-s",
  209 + ui_icon_carat_2_e_w then "ui-icon-carat-2-e-w",
  210 + ui_icon_triangle_1_n then "ui-icon-triangle-1-n",
  211 + ui_icon_triangle_1_ne then "ui-icon-triangle-1-ne",
  212 + ui_icon_triangle_1_e then "ui-icon-triangle-1-e",
  213 + ui_icon_triangle_1_se then "ui-icon-triangle-1-se",
  214 + ui_icon_triangle_1_s then "ui-icon-triangle-1-s",
  215 + ui_icon_triangle_1_sw then "ui-icon-triangle-1-sw",
  216 + ui_icon_triangle_1_w then "ui-icon-triangle-1-w",
  217 + ui_icon_triangle_1_nw then "ui-icon-triangle-1-nw",
  218 + ui_icon_triangle_2_n_s then "ui-icon-triangle-2-n-s",
  219 + ui_icon_triangle_2_e_w then "ui-icon-triangle-2-e-w",
  220 + ui_icon_arrow_1_n then "ui-icon-arrow-1-n",
  221 + ui_icon_arrow_1_ne then "ui-icon-arrow-1-ne",
  222 + ui_icon_arrow_1_e then "ui-icon-arrow-1-e",
  223 + ui_icon_arrow_1_se then "ui-icon-arrow-1-se",
  224 + ui_icon_arrow_1_s then "ui-icon-arrow-1-s",
  225 + ui_icon_arrow_1_sw then "ui-icon-arrow-1-sw",
  226 + ui_icon_arrow_1_w then "ui-icon-arrow-1-w",
  227 + ui_icon_arrow_1_nw then "ui-icon-arrow-1-nw",
  228 + ui_icon_arrow_2_n_s then "ui-icon-arrow-2-n-s",
  229 + ui_icon_arrow_2_ne_sw then "ui-icon-arrow-2-ne-sw",
  230 + ui_icon_arrow_2_e_w then "ui-icon-arrow-2-e-w",
  231 + ui_icon_arrow_2_se_nw then "ui-icon-arrow-2-se-nw",
  232 + ui_icon_arrowstop_1_n then "ui-icon-arrowstop-1-n",
  233 + ui_icon_arrowstop_1_e then "ui-icon-arrowstop-1-e",
  234 + ui_icon_arrowstop_1_s then "ui-icon-arrowstop-1-s",
  235 + ui_icon_arrowstop_1_w then "ui-icon-arrowstop-1-w",
  236 + ui_icon_arrowthick_1_n then "ui-icon-arrowthick-1-n",
  237 + ui_icon_arrowthick_1_ne then "ui-icon-arrowthick-1-ne",
  238 + ui_icon_arrowthick_1_e then "ui-icon-arrowthick-1-e",
  239 + ui_icon_arrowthick_1_se then "ui-icon-arrowthick-1-se",
  240 + ui_icon_arrowthick_1_s then "ui-icon-arrowthick-1-s",
  241 + ui_icon_arrowthick_1_sw then "ui-icon-arrowthick-1-sw",
  242 + ui_icon_arrowthick_1_w then "ui-icon-arrowthick-1-w",
  243 + ui_icon_arrowthick_1_nw then "ui-icon-arrowthick-1-nw",
  244 + ui_icon_arrowthick_2_n_s then "ui-icon-arrowthick-2-n-s",
  245 + ui_icon_arrowthick_2_ne_sw then "ui-icon-arrowthick-2-ne-sw",
  246 + ui_icon_arrowthick_2_e_w then "ui-icon-arrowthick-2-e-w",
  247 + ui_icon_arrowthick_2_se_nw then "ui-icon-arrowthick-2-se-nw",
  248 + ui_icon_arrowthickstop_1_n then "ui-icon-arrowthickstop-1-n",
  249 + ui_icon_arrowthickstop_1_e then "ui-icon-arrowthickstop-1-e",
  250 + ui_icon_arrowthickstop_1_s then "ui-icon-arrowthickstop-1-s",
  251 + ui_icon_arrowthickstop_1_w then "ui-icon-arrowthickstop-1-w",
  252 + ui_icon_arrowreturnthick_1_w then "ui-icon-arrowreturnthick-1-w",
  253 + ui_icon_arrowreturnthick_1_n then "ui-icon-arrowreturnthick-1-n",
  254 + ui_icon_arrowreturnthick_1_e then "ui-icon-arrowreturnthick-1-e",
  255 + ui_icon_arrowreturnthick_1_s then "ui-icon-arrowreturnthick-1-s",
  256 + ui_icon_arrowreturn_1_w then "ui-icon-arrowreturn-1-w",
  257 + ui_icon_arrowreturn_1_n then "ui-icon-arrowreturn-1-n",
  258 + ui_icon_arrowreturn_1_e then "ui-icon-arrowreturn-1-e",
  259 + ui_icon_arrowreturn_1_s then "ui-icon-arrowreturn-1-s",
  260 + ui_icon_arrowrefresh_1_w then "ui-icon-arrowrefresh-1-w",
  261 + ui_icon_arrowrefresh_1_n then "ui-icon-arrowrefresh-1-n",
  262 + ui_icon_arrowrefresh_1_e then "ui-icon-arrowrefresh-1-e",
  263 + ui_icon_arrowrefresh_1_s then "ui-icon-arrowrefresh-1-s",
  264 + ui_icon_arrow_4 then "ui-icon-arrow-4",
  265 + ui_icon_arrow_4_diag then "ui-icon-arrow-4-diag",
  266 + ui_icon_extlink then "ui-icon-extlink",
  267 + ui_icon_newwin then "ui-icon-newwin",
  268 + ui_icon_refresh then "ui-icon-refresh",
  269 + ui_icon_shuffle then "ui-icon-shuffle",
  270 + ui_icon_transfer_e_w then "ui-icon-transfer-e-w",
  271 + ui_icon_transferthick_e_w then "ui-icon-transferthick-e-w",
  272 + ui_icon_folder_collapsed then "ui-icon-folder-collapsed",
  273 + ui_icon_folder_open then "ui-icon-folder-open",
  274 + ui_icon_document then "ui-icon-document",
  275 + ui_icon_document_b then "ui-icon-document-b",
  276 + ui_icon_note then "ui-icon-note",
  277 + ui_icon_mail_closed then "ui-icon-mail-closed",
  278 + ui_icon_mail_open then "ui-icon-mail-open",
  279 + ui_icon_suitcase then "ui-icon-suitcase",
  280 + ui_icon_comment then "ui-icon-comment",
  281 + ui_icon_person then "ui-icon-person",
  282 + ui_icon_print then "ui-icon-print",
  283 + ui_icon_trash then "ui-icon-trash",
  284 + ui_icon_locked then "ui-icon-locked",
  285 + ui_icon_unlocked then "ui-icon-unlocked",
  286 + ui_icon_bookmark then "ui-icon-bookmark",
  287 + ui_icon_tag then "ui-icon-tag",
  288 + ui_icon_home then "ui-icon-home",
  289 + ui_icon_flag then "ui-icon-flag",
  290 + ui_icon_calculator then "ui-icon-calculator",
  291 + ui_icon_cart then "ui-icon-cart",
  292 + ui_icon_pencil then "ui-icon-pencil",
  293 + ui_icon_clock then "ui-icon-clock",
  294 + ui_icon_disk then "ui-icon-disk",
  295 + ui_icon_calendar then "ui-icon-calendar",
  296 + ui_icon_zoomin then "ui-icon-zoomin",
  297 + ui_icon_zoomout then "ui-icon-zoomout",
  298 + ui_icon_search then "ui-icon-search",
  299 + ui_icon_wrench then "ui-icon-wrench",
  300 + ui_icon_gear then "ui-icon-gear",
  301 + ui_icon_heart then "ui-icon-heart",
  302 + ui_icon_star then "ui-icon-star",
  303 + ui_icon_link then "ui-icon-link",
  304 + ui_icon_cancel then "ui-icon-cancel",
  305 + ui_icon_plus then "ui-icon-plus",
  306 + ui_icon_plusthick then "ui-icon-plusthick",
  307 + ui_icon_minus then "ui-icon-minus",
  308 + ui_icon_minusthick then "ui-icon-minusthick",
  309 + ui_icon_close then "ui-icon-close",
  310 + ui_icon_closethick then "ui-icon-closethick",
  311 + ui_icon_key then "ui-icon-key",
  312 + ui_icon_lightbulb then "ui-icon-lightbulb",
  313 + ui_icon_scissors then "ui-icon-scissors",
  314 + ui_icon_clipboard then "ui-icon-clipboard",
  315 + ui_icon_copy then "ui-icon-copy",
  316 + ui_icon_contact then "ui-icon-contact",
  317 + ui_icon_image then "ui-icon-image",
  318 + ui_icon_video then "ui-icon-video",
  319 + ui_icon_script then "ui-icon-script",
  320 + ui_icon_alert then "ui-icon-alert",
  321 + ui_icon_info then "ui-icon-info",
  322 + ui_icon_notice then "ui-icon-notice",
  323 + ui_icon_help then "ui-icon-help",
  324 + ui_icon_check then "ui-icon-check",
  325 + ui_icon_bullet then "ui-icon-bullet",
  326 + ui_icon_radio_off then "ui-icon-radio-off",
  327 + ui_icon_radio_on then "ui-icon-radio-on",
  328 + ui_icon_pin_w then "ui-icon-pin-w",
  329 + ui_icon_pin_s then "ui-icon-pin-s",
  330 + ui_icon_play then "ui-icon-play",
  331 + ui_icon_pause then "ui-icon-pause",
  332 + ui_icon_seek_next then "ui-icon-seek-next",
  333 + ui_icon_seek_prev then "ui-icon-seek-prev",
  334 + ui_icon_seek_end then "ui-icon-seek-end",
  335 + ui_icon_seek_first then "ui-icon-seek-first",
  336 + ui_icon_stop then "ui-icon-stop",
  337 + ui_icon_eject then "ui-icon-eject",
  338 + ui_icon_volume_off then "ui-icon-volume-off",
  339 + ui_icon_volume_on then "ui-icon-volume-on",
  340 + ui_icon_power then "ui-icon-power",
  341 + ui_icon_signal_diag then "ui-icon-signal-diag",
  342 + ui_icon_signal then "ui-icon-signal",
  343 + ui_icon_battery_0 then "ui-icon-battery-0",
  344 + ui_icon_battery_1 then "ui-icon-battery-1",
  345 + ui_icon_battery_2 then "ui-icon-battery-2",
  346 + ui_icon_battery_3 then "ui-icon-battery-3",
  347 + ui_icon_circle_plus then "ui-icon-circle-plus",
  348 + ui_icon_circle_minus then "ui-icon-circle-minus",
  349 + ui_icon_circle_close then "ui-icon-circle-close",
  350 + ui_icon_circle_triangle_e then "ui-icon-circle-triangle-e",
  351 + ui_icon_circle_triangle_s then "ui-icon-circle-triangle-s",
  352 + ui_icon_circle_triangle_w then "ui-icon-circle-triangle-w",
  353 + ui_icon_circle_triangle_n then "ui-icon-circle-triangle-n",
  354 + ui_icon_circle_arrow_e then "ui-icon-circle-arrow-e",
  355 + ui_icon_circle_arrow_s then "ui-icon-circle-arrow-s",
  356 + ui_icon_circle_arrow_w then "ui-icon-circle-arrow-w",
  357 + ui_icon_circle_arrow_n then "ui-icon-circle-arrow-n",
  358 + ui_icon_circle_zoomin then "ui-icon-circle-zoomin",
  359 + ui_icon_circle_zoomout then "ui-icon-circle-zoomout",
  360 + ui_icon_circle_check then "ui-icon-circle-check",
  361 + ui_icon_circlesmall_plus then "ui-icon-circlesmall-plus",
  362 + ui_icon_circlesmall_minus then "ui-icon-circlesmall-minus",
  363 + ui_icon_circlesmall_close then "ui-icon-circlesmall-close",
  364 + ui_icon_squaresmall_plus then "ui-icon-squaresmall-plus",
  365 + ui_icon_squaresmall_minus then "ui-icon-squaresmall-minus",
  366 + ui_icon_squaresmall_close then "ui-icon-squaresmall-close",
  367 + ui_icon_grip_dotted_vertical then "ui-icon-grip-dotted-vertical",
  368 + ui_icon_grip_dotted_horizontal then "ui-icon-grip-dotted-horizontal",
  369 + ui_icon_grip_solid_vertical then "ui-icon-grip-solid-vertical",
  370 + ui_icon_grip_solid_horizontal then "ui-icon-grip-solid-horizontal",
  371 + ui_icon_gripsmall_diagonal_se then "ui-icon-gripsmall-diagonal-se",
  372 + ui_icon_grip_diagonal_se then "ui-icon-grip-diagonal-se",
  373 + jq_icon_none then "",
  374 + jq_custom_icon(str) then str
  375 + }
  376 + .
  377 +
  378 +public define JQuery_icon
  379 + string_to_jquery_icon
  380 + (
  381 + String icon_class
  382 + )
  383 + =
  384 + with ic=to_lower(icon_class),
  385 + if ic = "ui-icon-carat-1-n" then ui_icon_carat_1_n else
  386 + if ic = "ui-icon-carat-1-ne" then ui_icon_carat_1_ne else
  387 + if ic = "ui-icon-carat-1-e" then ui_icon_carat_1_e else
  388 + if ic = "ui-icon-carat-1-se" then ui_icon_carat_1_se else
  389 + if ic = "ui-icon-carat-1-s" then ui_icon_carat_1_s else
  390 + if ic = "ui-icon-carat-1-sw" then ui_icon_carat_1_sw else
  391 + if ic = "ui-icon-carat-1-w" then ui_icon_carat_1_w else
  392 + if ic = "ui-icon-carat-1-nw" then ui_icon_carat_1_nw else
  393 + if ic = "ui-icon-carat-2-n-s" then ui_icon_carat_2_n_s else
  394 + if ic = "ui-icon-carat-2-e-w" then ui_icon_carat_2_e_w else
  395 + if ic = "ui-icon-triangle-1-n" then ui_icon_triangle_1_n else
  396 + if ic = "ui-icon-triangle-1-ne" then ui_icon_triangle_1_ne else
  397 + if ic = "ui-icon-triangle-1-e" then ui_icon_triangle_1_e else
  398 + if ic = "ui-icon-triangle-1-se" then ui_icon_triangle_1_se else
  399 + if ic = "ui-icon-triangle-1-s" then ui_icon_triangle_1_s else
  400 + if ic = "ui-icon-triangle-1-sw" then ui_icon_triangle_1_sw else
  401 + if ic = "ui-icon-triangle-1-w" then ui_icon_triangle_1_w else
  402 + if ic = "ui-icon-triangle-1-nw" then ui_icon_triangle_1_nw else
  403 + if ic = "ui-icon-triangle-2-n-s" then ui_icon_triangle_2_n_s else
  404 + if ic = "ui-icon-triangle-2-e-w" then ui_icon_triangle_2_e_w else
  405 + if ic = "ui-icon-arrow-1-n" then ui_icon_arrow_1_n else
  406 + if ic = "ui-icon-arrow-1-ne" then ui_icon_arrow_1_ne else
  407 + if ic = "ui-icon-arrow-1-e" then ui_icon_arrow_1_e else
  408 + if ic = "ui-icon-arrow-1-se" then ui_icon_arrow_1_se else
  409 + if ic = "ui-icon-arrow-1-s" then ui_icon_arrow_1_s else
  410 + if ic = "ui-icon-arrow-1-sw" then ui_icon_arrow_1_sw else
  411 + if ic = "ui-icon-arrow-1-w" then ui_icon_arrow_1_w else
  412 + if ic = "ui-icon-arrow-1-nw" then ui_icon_arrow_1_nw else
  413 + if ic = "ui-icon-arrow-2-n-s" then ui_icon_arrow_2_n_s else
  414 + if ic = "ui-icon-arrow-2-ne-sw" then ui_icon_arrow_2_ne_sw else
  415 + if ic = "ui-icon-arrow-2-e-w" then ui_icon_arrow_2_e_w else
  416 + if ic = "ui-icon-arrow-2-se-nw" then ui_icon_arrow_2_se_nw else
  417 + if ic = "ui-icon-arrowstop-1-n" then ui_icon_arrowstop_1_n else
  418 + if ic = "ui-icon-arrowstop-1-e" then ui_icon_arrowstop_1_e else
  419 + if ic = "ui-icon-arrowstop-1-s" then ui_icon_arrowstop_1_s else
  420 + if ic = "ui-icon-arrowstop-1-w" then ui_icon_arrowstop_1_w else
  421 + if ic = "ui-icon-arrowthick-1-n" then ui_icon_arrowthick_1_n else
  422 + if ic = "ui-icon-arrowthick-1-ne" then ui_icon_arrowthick_1_ne else
  423 + if ic = "ui-icon-arrowthick-1-e" then ui_icon_arrowthick_1_e else
  424 + if ic = "ui-icon-arrowthick-1-se" then ui_icon_arrowthick_1_se else
  425 + if ic = "ui-icon-arrowthick-1-s" then ui_icon_arrowthick_1_s else
  426 + if ic = "ui-icon-arrowthick-1-sw" then ui_icon_arrowthick_1_sw else
  427 + if ic = "ui-icon-arrowthick-1-w" then ui_icon_arrowthick_1_w else
  428 + if ic = "ui-icon-arrowthick-1-nw" then ui_icon_arrowthick_1_nw else
  429 + if ic = "ui-icon-arrowthick-2-n-s" then ui_icon_arrowthick_2_n_s else
  430 + if ic = "ui-icon-arrowthick-2-ne-sw" then ui_icon_arrowthick_2_ne_sw else
  431 + if ic = "ui-icon-arrowthick-2-e-w" then ui_icon_arrowthick_2_e_w else
  432 + if ic = "ui-icon-arrowthick-2-se-nw" then ui_icon_arrowthick_2_se_nw else
  433 + if ic = "ui-icon-arrowthickstop-1-n" then ui_icon_arrowthickstop_1_n else
  434 + if ic = "ui-icon-arrowthickstop-1-e" then ui_icon_arrowthickstop_1_e else
  435 + if ic = "ui-icon-arrowthickstop-1-s" then ui_icon_arrowthickstop_1_s else
  436 + if ic = "ui-icon-arrowthickstop-1-w" then ui_icon_arrowthickstop_1_w else
  437 + if ic = "ui-icon-arrowreturnthick-1-w" then ui_icon_arrowreturnthick_1_w else
  438 + if ic = "ui-icon-arrowreturnthick-1-n" then ui_icon_arrowreturnthick_1_n else
  439 + if ic = "ui-icon-arrowreturnthick-1-e" then ui_icon_arrowreturnthick_1_e else
  440 + if ic = "ui-icon-arrowreturnthick-1-s" then ui_icon_arrowreturnthick_1_s else
  441 + if ic = "ui-icon-arrowreturn-1-w" then ui_icon_arrowreturn_1_w else
  442 + if ic = "ui-icon-arrowreturn-1-n" then ui_icon_arrowreturn_1_n else
  443 + if ic = "ui-icon-arrowreturn-1-e" then ui_icon_arrowreturn_1_e else
  444 + if ic = "ui-icon-arrowreturn-1-s" then ui_icon_arrowreturn_1_s else
  445 + if ic = "ui-icon-arrowrefresh-1-w" then ui_icon_arrowrefresh_1_w else
  446 + if ic = "ui-icon-arrowrefresh-1-n" then ui_icon_arrowrefresh_1_n else
  447 + if ic = "ui-icon-arrowrefresh-1-e" then ui_icon_arrowrefresh_1_e else
  448 + if ic = "ui-icon-arrowrefresh-1-s" then ui_icon_arrowrefresh_1_s else
  449 + if ic = "ui-icon-arrow-4" then ui_icon_arrow_4 else
  450 + if ic = "ui-icon-arrow-4-diag" then ui_icon_arrow_4_diag else
  451 + if ic = "ui-icon-extlink" then ui_icon_extlink else
  452 + if ic = "ui-icon-newwin" then ui_icon_newwin else
  453 + if ic = "ui-icon-refresh" then ui_icon_refresh else
  454 + if ic = "ui-icon-shuffle" then ui_icon_shuffle else
  455 + if ic = "ui-icon-transfer-e-w" then ui_icon_transfer_e_w else
  456 + if ic = "ui-icon-transferthick-e-w" then ui_icon_transferthick_e_w else
  457 + if ic = "ui-icon-folder-collapsed" then ui_icon_folder_collapsed else
  458 + if ic = "ui-icon-folder-open" then ui_icon_folder_open else
  459 + if ic = "ui-icon-document" then ui_icon_document else
  460 + if ic = "ui-icon-document-b" then ui_icon_document_b else
  461 + if ic = "ui-icon-note" then ui_icon_note else
  462 + if ic = "ui-icon-mail-closed" then ui_icon_mail_closed else
  463 + if ic = "ui-icon-mail-open" then ui_icon_mail_open else
  464 + if ic = "ui-icon-suitcase" then ui_icon_suitcase else
  465 + if ic = "ui-icon-comment" then ui_icon_comment else
  466 + if ic = "ui-icon-person" then ui_icon_person else
  467 + if ic = "ui-icon-print" then ui_icon_print else
  468 + if ic = "ui-icon-trash" then ui_icon_trash else
  469 + if ic = "ui-icon-locked" then ui_icon_locked else
  470 + if ic = "ui-icon-unlocked" then ui_icon_unlocked else
  471 + if ic = "ui-icon-bookmark" then ui_icon_bookmark else
  472 + if ic = "ui-icon-tag" then ui_icon_tag else
  473 + if ic = "ui-icon-home" then ui_icon_home else
  474 + if ic = "ui-icon-flag" then ui_icon_flag else
  475 + if ic = "ui-icon-calculator" then ui_icon_calculator else
  476 + if ic = "ui-icon-cart" then ui_icon_cart else
  477 + if ic = "ui-icon-pencil" then ui_icon_pencil else
  478 + if ic = "ui-icon-clock" then ui_icon_clock else
  479 + if ic = "ui-icon-disk" then ui_icon_disk else
  480 + if ic = "ui-icon-calendar" then ui_icon_calendar else
  481 + if ic = "ui-icon-zoomin" then ui_icon_zoomin else
  482 + if ic = "ui-icon-zoomout" then ui_icon_zoomout else
  483 + if ic = "ui-icon-search" then ui_icon_search else
  484 + if ic = "ui-icon-wrench" then ui_icon_wrench else
  485 + if ic = "ui-icon-gear" then ui_icon_gear else
  486 + if ic = "ui-icon-heart" then ui_icon_heart else
  487 + if ic = "ui-icon-star" then ui_icon_star else
  488 + if ic = "ui-icon-link" then ui_icon_link else
  489 + if ic = "ui-icon-cancel" then ui_icon_cancel else
  490 + if ic = "ui-icon-plus" then ui_icon_plus else
  491 + if ic = "ui-icon-plusthick" then ui_icon_plusthick else
  492 + if ic = "ui-icon-minus" then ui_icon_minus else
  493 + if ic = "ui-icon-minusthick" then ui_icon_minusthick else
  494 + if ic = "ui-icon-close" then ui_icon_close else
  495 + if ic = "ui-icon-closethick" then ui_icon_closethick else
  496 + if ic = "ui-icon-key" then ui_icon_key else
  497 + if ic = "ui-icon-lightbulb" then ui_icon_lightbulb else
  498 + if ic = "ui-icon-scissors" then ui_icon_scissors else
  499 + if ic = "ui-icon-clipboard" then ui_icon_clipboard else
  500 + if ic = "ui-icon-copy" then ui_icon_copy else
  501 + if ic = "ui-icon-contact" then ui_icon_contact else
  502 + if ic = "ui-icon-image" then ui_icon_image else
  503 + if ic = "ui-icon-video" then ui_icon_video else
  504 + if ic = "ui-icon-script" then ui_icon_script else
  505 + if ic = "ui-icon-alert" then ui_icon_alert else
  506 + if ic = "ui-icon-info" then ui_icon_info else
  507 + if ic = "ui-icon-notice" then ui_icon_notice else
  508 + if ic = "ui-icon-help" then ui_icon_help else
  509 + if ic = "ui-icon-check" then ui_icon_check else
  510 + if ic = "ui-icon-bullet" then ui_icon_bullet else
  511 + if ic = "ui-icon-radio-off" then ui_icon_radio_off else
  512 + if ic = "ui-icon-radio-on" then ui_icon_radio_on else
  513 + if ic = "ui-icon-pin-w" then ui_icon_pin_w else
  514 + if ic = "ui-icon-pin-s" then ui_icon_pin_s else
  515 + if ic = "ui-icon-play" then ui_icon_play else
  516 + if ic = "ui-icon-pause" then ui_icon_pause else
  517 + if ic = "ui-icon-seek-next" then ui_icon_seek_next else
  518 + if ic = "ui-icon-seek-prev" then ui_icon_seek_prev else
  519 + if ic = "ui-icon-seek-end" then ui_icon_seek_end else
  520 + if ic = "ui-icon-seek-first" then ui_icon_seek_first else
  521 + if ic = "ui-icon-stop" then ui_icon_stop else
  522 + if ic = "ui-icon-eject" then ui_icon_eject else
  523 + if ic = "ui-icon-volume-off" then ui_icon_volume_off else
  524 + if ic = "ui-icon-volume-on" then ui_icon_volume_on else
  525 + if ic = "ui-icon-power" then ui_icon_power else
  526 + if ic = "ui-icon-signal-diag" then ui_icon_signal_diag else
  527 + if ic = "ui-icon-signal" then ui_icon_signal else
  528 + if ic = "ui-icon-battery-0" then ui_icon_battery_0 else
  529 + if ic = "ui-icon-battery-1" then ui_icon_battery_1 else
  530 + if ic = "ui-icon-battery-2" then ui_icon_battery_2 else
  531 + if ic = "ui-icon-battery-3" then ui_icon_battery_3 else
  532 + if ic = "ui-icon-circle-plus" then ui_icon_circle_plus else
  533 + if ic = "ui-icon-circle-minus" then ui_icon_circle_minus else
  534 + if ic = "ui-icon-circle-close" then ui_icon_circle_close else
  535 + if ic = "ui-icon-circle-triangle-e" then ui_icon_circle_triangle_e else
  536 + if ic = "ui-icon-circle-triangle-s" then ui_icon_circle_triangle_s else
  537 + if ic = "ui-icon-circle-triangle-w" then ui_icon_circle_triangle_w else
  538 + if ic = "ui-icon-circle-triangle-n" then ui_icon_circle_triangle_n else
  539 + if ic = "ui-icon-circle-arrow-e" then ui_icon_circle_arrow_e else
  540 + if ic = "ui-icon-circle-arrow-s" then ui_icon_circle_arrow_s else
  541 + if ic = "ui-icon-circle-arrow-w" then ui_icon_circle_arrow_w else
  542 + if ic = "ui-icon-circle-arrow-n" then ui_icon_circle_arrow_n else
  543 + if ic = "ui-icon-circle-zoomin" then ui_icon_circle_zoomin else
  544 + if ic = "ui-icon-circle-zoomout" then ui_icon_circle_zoomout else
  545 + if ic = "ui-icon-circle-check" then ui_icon_circle_check else
  546 + if ic = "ui-icon-circlesmall-plus" then ui_icon_circlesmall_plus else
  547 + if ic = "ui-icon-circlesmall-minus" then ui_icon_circlesmall_minus else
  548 + if ic = "ui-icon-circlesmall-close" then ui_icon_circlesmall_close else
  549 + if ic = "ui-icon-squaresmall-plus" then ui_icon_squaresmall_plus else
  550 + if ic = "ui-icon-squaresmall-minus" then ui_icon_squaresmall_minus else
  551 + if ic = "ui-icon-squaresmall-close" then ui_icon_squaresmall_close else
  552 + if ic = "ui-icon-grip-dotted-vertical" then ui_icon_grip_dotted_vertical else
  553 + if ic = "ui-icon-grip-dotted-horizontal" then ui_icon_grip_dotted_horizontal else
  554 + if ic = "ui-icon-grip-solid-vertical" then ui_icon_grip_solid_vertical else
  555 + if ic = "ui-icon-grip-solid-horizontal" then ui_icon_grip_solid_horizontal else
  556 + if ic = "ui-icon-gripsmall-diagonal-se" then ui_icon_gripsmall_diagonal_se else
  557 + if ic = "ui-icon-grip-diagonal-se" then ui_icon_grip_diagonal_se else
  558 + if ic = "" then jq_icon_none else
  559 + jq_custom_icon(ic)
  560 + .
web/jQuery/CXM_jquery_tabs.anubis
  Show/Hide comments   View file @4bb6387
@@ -4,7 +4,7 @@ @@ -4,7 +4,7 @@
4 * Date: 04/09/2012 4 * Date: 04/09/2012
5 * Time: 16:19 5 * Time: 16:19
6 * 6 *
7 - * To change this template use Tools | Options | Coding | Edit Standard Headers. 7 + *
8 */ 8 */
9 9
10 read calexium_lib/web/CXM_making_a_web_site.anubis 10 read calexium_lib/web/CXM_making_a_web_site.anubis
web/jQuery/CXM_jquery_tiptip.anubis
  Show/Hide comments   View file @4bb6387
@@ -4,7 +4,7 @@ @@ -4,7 +4,7 @@
4 * Date: 18/09/2012 4 * Date: 18/09/2012
5 * Time: 15:42 5 * Time: 15:42
6 * 6 *
7 - * To change this template use Tools | Options | Coding | Edit Standard Headers. 7 + *
8 */ 8 */
9 9
10 read calexium_lib/web/CXM_making_a_web_site.anubis 10 read calexium_lib/web/CXM_making_a_web_site.anubis