icons.anubis
1.45 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
/*
* Created by PyramIDE.
* User: フランスのトトロ aka (David RENÉ)
* Date: 13/02/2016
* Time: 11:15
* © David RENÉ
*/
read xlib/web/widgets/icons_set.anubis
read hayamiki_lib/model/columns.anubis
read hayamiki_lib/model/icons.anubis
public define String
/** to_String return the String of the given model of the column 'col'
*/
to_Icon
(
HK_Model_Column col,
String current_type_name,
String general_type_name
) =
since col is hk_column(name, col_type, _, _),
if col_type is
{
p_key then icn16_key,
boolean_field then "to_Icon("+current_type_name+"."+name+")",
date_field(attrs) then icn16_clock,
time_field(attrs) then icn16_clock,
datetime_field(attrs) then icn16_clock,
foreign_key(app,foreign_table,_,_,_) then icn16_question,
integer_field(choice) then icn16_question,
float_field then icn16_question,
char_field(choice, size) then icn16_question,
password_field(min_size) then icn16_question,
text_field(_) then icn16_question,
color_field then icn16_question,
phone_field(_) then icn16_phone,
url_field then icn16_question,
email_field then icn16_email
}.