David RENÉ / hayamiki_lib

Commit 7a8ff83c22790cfdf3ed774a66df739b006b8914

Authored by totoro
1 parent 3fd0eef6

continue working on HK form... Still not finished

Showing 31 changed files with 257 additions and 132 deletions   Show diff stats
Inline Side-by-side
ds_files/ds_types.anubis
  Show/Hide comments   View file @7a8ff83
@@ -254,5 +254,27 @@ public define List(DS_Type) hayamiki_lib_types_description = @@ -254,5 +254,27 @@ public define List(DS_Type) hayamiki_lib_types_description =
254 ]) 254 ])
255 ]), 255 ]),
256 256
  257 + ds_type("HK_Form_Tab", [
  258 + alternative("hk_form_tab", [
  259 + component(string, "fk_table_name"),
  260 + component(string, "fk_col_name"),
  261 + component(string, "list_view_name")
  262 + ])
  263 + ]),
  264 +
  265 + ds_type("HK_Form", no_message, [
  266 + alternative("hk_form_in_list", [
  267 + component(string, "table_name", comment("database table name which belonging this form")),
  268 + component(string, "view_name", comment("name of the view")),
  269 + component(list, extern_type("HK_Form_Entry", view_types+"hk_form_entry.anubis"), "list"),
  270 + component(list, extern_type("HK_Form_Tab", view_types+"hk_form_tab.anubis"), "tabs")
  271 + ]),
  272 + alternative("hk_form_in_table", [
  273 + component(string, "table_name", comment("database table name which belonging this form")),
  274 + component(string, "view_name", comment("name of the view")),
  275 + component(extern_type("HK_Form_Table", view_types+"hk_form_table.anubis"), "form_in_table")
  276 + ])
  277 + ])
  278 +
257 ] 279 ]
258 . 280 .
model/types/hk_app.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_app_name.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_database.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_datetime_field_attr.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_display.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_edit_view.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_edit_view_table.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_edit_view_table_cell.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_edit_view_table_line.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_fk_view.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_help_text.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_icon.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_int_choice.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_int_choices.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_list_view.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_model.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_model_attr.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_model_column.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_model_field.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_table.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_text_choice.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_text_choices.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
model/types/hk_text_field_attr.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:12:46
6 * 6 *
7 */ 7 */
8 8
view/types/hk_form.anubis
  Show/Hide comments   View file @7a8ff83
1 -/*  
2 - * Created by PyramIDE.  
3 - * User: Totoro  
4 - * Date: 15/11/2011  
5 - * Time: 20:32 1 +/*
  2 + * Created by 伝作 (Densaku).
  3 + * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
  4 + * Date: 2017-04-04
  5 + * Time: 17:26:31
  6 + *
6 */ 7 */
7 8
8 -read calexium_lib/web/CXM_making_a_web_site.anubis  
9 -transmit calexium_lib/web/CXM_common.anubis  
10 -read hayamiki_lib/types/hayamiki.anubis  
11 -read hayamiki_lib/view/types/hk_form_table.anubis  
12 -  
13 -//public type VT_edit_selector:  
14 -// vt_edit_selector((SQLite3DataBase db, HK_Referer referer, String filter) -> List((List(CoreAttrs), WebArgValue, String)) get).  
15 -//  
16 -//  
17 -//public type VT_edit_entry:  
18 -// hidden (String name, String value),  
19 -// label (String s_name),  
20 -// primary_key (String idx),  
21 -// information (String s_name, String c_name, String v_name, Int width, HK_Help_Text help), //s_name = show_name for translation, v_name = string to show  
22 -// text (String s_name, String c_name, String value, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name  
23 -// password (String s_name, String c_name, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name  
24 -// foreign_text(String s_name, String c_name, DB_id selected, VT_edit_selector selector, HK_Help_Text help),  
25 -// choices_text(String s_name, String c_name, String selected, VT_edit_selector selector, HK_Help_Text help),  
26 -// text_area (String s_name, String c_name, String value, HK_Text_Field_Attr area_att, HK_Help_Text help), //s_name = show_name for translate, c_name = table column name  
27 -// boolean (String s_name, String c_name, Bool value, HK_Help_Text help),  
28 -// integer (String s_name, String c_name, Int value, HK_Help_Text help),  
29 -// float (String s_name, String c_name, Float value, HK_Help_Text help),  
30 -// choices_int (String s_name, String c_name, Int selected, VT_edit_selector selector, HK_Help_Text help),  
31 -// date (String s_name, String c_name, String value, HK_Help_Text help),  
32 -// time (String s_name, String c_name, String value, HK_Help_Text help),  
33 -// datetime (String s_name, String c_name, String value, HK_Help_Text help),  
34 -// color (String s_name, String c_name, String value, HK_Help_Text help)  
35 -//.  
36 -  
37 -//public define VT_edit_entry text (String s_name, String c_name, String value) = text(s_name, c_name, value, no_help_text).  
38 -//public define VT_edit_entry foreign_text(String s_name, String c_name, DB_id selected, VT_edit_selector selector) = foreign_text(s_name, c_name, selected, selector, no_help_text).  
39 -//public define VT_edit_entry text_area (String s_name, String c_name, String value) = text_area(s_name, c_name, value, none, no_help_text).  
40 -//public define VT_edit_entry boolean(String s_name, String c_name, Bool value) = boolean(s_name, c_name, value, no_help_text).  
41 -//public define VT_edit_entry integer(String s_name, String c_name, Int value) = integer(s_name, c_name, value, no_help_text).  
42 -//public define VT_edit_entry float(String s_name, String c_name, Float value) = float(s_name, c_name, value, no_help_text).  
43 -//public define VT_edit_entry information(String s_name, String c_name, String v_name, HK_Help_Text help) = information(s_name, c_name, v_name, 0, help).  
44 -  
45 -  
46 -public type HK_Form_Tab: //HK_V_Edit_Tab:  
47 - hk_ve_form_tab(String fk_table_name, String fk_col_name, String list_view_name)  
48 -.  
49 -  
50 -public type HK_Form: //VT_edit:  
51 - hk_form_in_list (String table_name, String view_name, List(HK_Form_Entry) list, List(HK_Form_Tab) tabs),  
52 - hk_form_in_table(String table_name, String view_name, HK_Form_Table ve_table)  
53 -.  
54 -  
55 -  
56 -public type VT_view_model_entry:  
57 - //hidden (String name, String value),  
58 - primary_key ,  
59 - information (String label, String column_name, Int width, HK_Help_Text help), //s_name = show_name for translation, v_name = string to show  
60 - text (String label, String column_name, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name  
61 - password (String label, String column_name, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name  
62 - foreign_text(String label, String column_name, HK_Form_Selector selector, HK_Help_Text help),  
63 - choices_text(String label, String column_name, HK_Form_Selector selector, HK_Help_Text help),  
64 - text_area (String label, String column_name, HK_Help_Text help), //s_name = show_name for translate, c_name = table column name  
65 - boolean (String label, String column_name, HK_Help_Text help),  
66 - integer (String label, String column_name, HK_Help_Text help),  
67 - float (String label, String column_name, HK_Help_Text help),  
68 - choices_int (String label, String column_name, HK_Form_Selector selector, HK_Help_Text help),  
69 - date (String label, String column_name, HK_Help_Text help),  
70 - time (String label, String column_name, HK_Help_Text help),  
71 - datetime (String label, String column_name, HK_Help_Text help),  
72 - color (String label, String column_name, HK_Help_Text help).  
73 -  
74 -  
75 -public type VT_view_model:  
76 - vt_view_model(List(VT_view_model_entry) list).  
77 -  
78 -public type VT_view_entry:  
79 - text(String text),  
80 - link(String id, String text),  
81 - link_id_action(String id, String text, WEB_Action_Name link_id_action),  
82 - icon(String icon_path).  
83 -  
84 -public type VT_view_row_header:  
85 - vt_view_row_header(List(VT_view_entry) list).  
86 -  
87 -public type VT_view_row:  
88 - vt_view_row(Int db_id, List(VT_view_entry) list).  
89 -  
90 -public type VT_View_DB_Calls:  
91 - vt_view_db_calls(  
92 - (SQLite3DataBase db, String clause) -> Int get_count,  
93 - (SQLite3DataBase db, HK_Referer referer, String clause) -> JsonMember get_rows_json  
94 -// (SQLite3DataBase db, String clause) -> List(VT_view_row) get_rows 9 +transmit system/muscle.anubis
  10 +transmit system/convert.anubis
  11 +transmit tools/basis.anubis
  12 +
  13 +transmit hayamiki_lib/view/types/hk_form_table.anubis
  14 +transmit hayamiki_lib/view/types/hk_form_tab.anubis
  15 +transmit hayamiki_lib/view/types/hk_form_entry.anubis
  16 +
  17 +public type HK_Form:
  18 + hk_form_in_list(
  19 + String table_name, //database table name which belonging this form
  20 + String view_name, //name of the view
  21 + List(HK_Form_Entry) list,
  22 + List(HK_Form_Tab) tabs
  23 + ),
  24 + hk_form_in_table(
  25 + String table_name, //database table name which belonging this form
  26 + String view_name, //name of the view
  27 + HK_Form_Table form_in_table
95 ) 28 )
96 . 29 .
97 -  
98 -public type VT_view:  
99 - vt_view(String table_name, String view_name, VT_view_model view_model, VT_view_row_header header, VT_View_DB_Calls db_calls).  
100 -  
101 -  
102 -public type HK_Form_action:  
103 - new_entry,  
104 - edit_entry(String idx).  
105 -  
106 -public define String default_select = "--------------------". //20 dash  
107 -public define (List(CoreAttrs),WebArgValue,String) selector_default_entry = ([], wav("none"),default_select).  
view/types/hk_form_tab.anubis 0 → 100644
  Show/Hide comments   View file @7a8ff83
  1 +/*
  2 + * Created by 伝作 (Densaku).
  3 + * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
  4 + * Date: 2017-04-04
  5 + * Time: 17:26:31
  6 + *
  7 + */
  8 +
  9 +transmit system/muscle.anubis
  10 +transmit system/convert.anubis
  11 +transmit tools/basis.anubis
  12 +
  13 +
  14 +public type HK_Form_Tab:
  15 + hk_form_tab(
  16 + String fk_table_name,
  17 + String fk_col_name,
  18 + String list_view_name
  19 + )
  20 +.
  21 +
  22 + HK_Form_Tab message format
  23 + ==========================
  24 +
  25 +
  26 +public define Message
  27 + to_Message
  28 + (
  29 + HK_Form_Tab _hk_form_tab
  30 + )=
  31 + with _hk_form_tab_message = message((Word32)0), //
  32 + forget(add_string(_hk_form_tab_message, "__TYPE__", "HK_Form_Tab"));
  33 + if _hk_form_tab is
  34 + {
  35 + //Alternative hk_form_tab
  36 + hk_form_tab(_fk_table_name, _fk_col_name, _list_view_name) then
  37 + forget(add_string(_hk_form_tab_message, "__TYPE_ALT__", "hk_form_tab"));
  38 + // [type = String] hk_form_tab.fk_table_name
  39 + forget(add_string(_hk_form_tab_message, "fk_table_name", _fk_table_name));
  40 + // [type = String] hk_form_tab.fk_col_name
  41 + forget(add_string(_hk_form_tab_message, "fk_col_name", _fk_col_name));
  42 + // [type = String] hk_form_tab.list_view_name
  43 + forget(add_string(_hk_form_tab_message, "list_view_name", _list_view_name)),
  44 +
  45 + };
  46 + _hk_form_tab_message
  47 +.
  48 +
  49 +public define Maybe(HK_Form_Tab)
  50 + from_Message
  51 + (
  52 + Message _hk_form_tab_message
  53 + )=
  54 + if find_string(_hk_form_tab_message, "__TYPE__") is {failure then failure, success(__type__) then
  55 + if find_string(_hk_form_tab_message, "__TYPE_ALT__") is {failure then failure, success(__type_alt__) then
  56 + if __type__ = "HK_Form_Tab" then
  57 + //Alternative hk_form_tab
  58 + if __type_alt__ = "hk_form_tab" then //Alternative hk_form_tab
  59 + // [type = String] hk_form_tab.fk_table_name
  60 + if find_string(_hk_form_tab_message, "fk_table_name") is {failure then failure, success(fk_table_name) then
  61 + // [type = String] hk_form_tab.fk_col_name
  62 + if find_string(_hk_form_tab_message, "fk_col_name") is {failure then failure, success(fk_col_name) then
  63 + // [type = String] hk_form_tab.list_view_name
  64 + if find_string(_hk_form_tab_message, "list_view_name") is {failure then failure, success(list_view_name) then
  65 +
  66 + success(hk_form_tab(fk_table_name, fk_col_name, list_view_name))
  67 + }}}
  68 + else
  69 + failure //No valid Alternative found !
  70 + else
  71 + failure //Type not found in message !
  72 + }}
  73 +.
  74 +
view/types/hk_form_table.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:26:31
6 * 6 *
7 */ 7 */
8 8
view/types/hk_form_table_cell.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:26:31
6 * 6 *
7 */ 7 */
8 8
view/types/hk_form_table_line.anubis
  Show/Hide comments   View file @7a8ff83
@@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
2 * Created by 伝作 (Densaku). 2 * Created by 伝作 (Densaku).
3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ) 3 * Types & Messages generator written by フランスのトトロ aka (David RENÉ)
4 * Date: 2017-04-04 4 * Date: 2017-04-04
5 - * Time: 01:16:47 5 + * Time: 17:26:31
6 * 6 *
7 */ 7 */
8 8
view/types/hk_view.anubis 0 → 100644
  Show/Hide comments   View file @7a8ff83
  1 +/*
  2 + * Created by PyramIDE.
  3 + * User: Totoro
  4 + * Date: 15/11/2011
  5 + * Time: 20:32
  6 + */
  7 +
  8 +read calexium_lib/web/CXM_making_a_web_site.anubis
  9 +transmit calexium_lib/web/CXM_common.anubis
  10 +read hayamiki_lib/types/hayamiki.anubis
  11 +read hayamiki_lib/view/types/hk_form_table.anubis
  12 +
  13 +//public type VT_edit_selector:
  14 +// vt_edit_selector((SQLite3DataBase db, HK_Referer referer, String filter) -> List((List(CoreAttrs), WebArgValue, String)) get).
  15 +//
  16 +//
  17 +//public type VT_edit_entry:
  18 +// hidden (String name, String value),
  19 +// label (String s_name),
  20 +// primary_key (String idx),
  21 +// information (String s_name, String c_name, String v_name, Int width, HK_Help_Text help), //s_name = show_name for translation, v_name = string to show
  22 +// text (String s_name, String c_name, String value, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name
  23 +// password (String s_name, String c_name, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name
  24 +// foreign_text(String s_name, String c_name, DB_id selected, VT_edit_selector selector, HK_Help_Text help),
  25 +// choices_text(String s_name, String c_name, String selected, VT_edit_selector selector, HK_Help_Text help),
  26 +// text_area (String s_name, String c_name, String value, HK_Text_Field_Attr area_att, HK_Help_Text help), //s_name = show_name for translate, c_name = table column name
  27 +// boolean (String s_name, String c_name, Bool value, HK_Help_Text help),
  28 +// integer (String s_name, String c_name, Int value, HK_Help_Text help),
  29 +// float (String s_name, String c_name, Float value, HK_Help_Text help),
  30 +// choices_int (String s_name, String c_name, Int selected, VT_edit_selector selector, HK_Help_Text help),
  31 +// date (String s_name, String c_name, String value, HK_Help_Text help),
  32 +// time (String s_name, String c_name, String value, HK_Help_Text help),
  33 +// datetime (String s_name, String c_name, String value, HK_Help_Text help),
  34 +// color (String s_name, String c_name, String value, HK_Help_Text help)
  35 +//.
  36 +
  37 +//public define VT_edit_entry text (String s_name, String c_name, String value) = text(s_name, c_name, value, no_help_text).
  38 +//public define VT_edit_entry foreign_text(String s_name, String c_name, DB_id selected, VT_edit_selector selector) = foreign_text(s_name, c_name, selected, selector, no_help_text).
  39 +//public define VT_edit_entry text_area (String s_name, String c_name, String value) = text_area(s_name, c_name, value, none, no_help_text).
  40 +//public define VT_edit_entry boolean(String s_name, String c_name, Bool value) = boolean(s_name, c_name, value, no_help_text).
  41 +//public define VT_edit_entry integer(String s_name, String c_name, Int value) = integer(s_name, c_name, value, no_help_text).
  42 +//public define VT_edit_entry float(String s_name, String c_name, Float value) = float(s_name, c_name, value, no_help_text).
  43 +//public define VT_edit_entry information(String s_name, String c_name, String v_name, HK_Help_Text help) = information(s_name, c_name, v_name, 0, help).
  44 +
  45 +
  46 +public type HK_Form_Tab: //HK_V_Edit_Tab:
  47 + hk_ve_form_tab(String fk_table_name, String fk_col_name, String list_view_name)
  48 +.
  49 +
  50 +public type HK_Form: //VT_edit:
  51 + hk_form_in_list (String table_name, String view_name, List(HK_Form_Entry) list, List(HK_Form_Tab) tabs),
  52 + hk_form_in_table(String table_name, String view_name, HK_Form_Table ve_table)
  53 +.
  54 +
  55 +
  56 +public type VT_view_model_entry:
  57 + //hidden (String name, String value),
  58 + primary_key ,
  59 + information (String label, String column_name, Int width, HK_Help_Text help), //s_name = show_name for translation, v_name = string to show
  60 + text (String label, String column_name, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name
  61 + password (String label, String column_name, HK_Help_Text help), //s_name = show_name for translation, c_name = table column name
  62 + foreign_text(String label, String column_name, HK_Form_Selector selector, HK_Help_Text help),
  63 + choices_text(String label, String column_name, HK_Form_Selector selector, HK_Help_Text help),
  64 + text_area (String label, String column_name, HK_Help_Text help), //s_name = show_name for translate, c_name = table column name
  65 + boolean (String label, String column_name, HK_Help_Text help),
  66 + integer (String label, String column_name, HK_Help_Text help),
  67 + float (String label, String column_name, HK_Help_Text help),
  68 + choices_int (String label, String column_name, HK_Form_Selector selector, HK_Help_Text help),
  69 + date (String label, String column_name, HK_Help_Text help),
  70 + time (String label, String column_name, HK_Help_Text help),
  71 + datetime (String label, String column_name, HK_Help_Text help),
  72 + color (String label, String column_name, HK_Help_Text help).
  73 +
  74 +
  75 +public type VT_view_model:
  76 + vt_view_model(List(VT_view_model_entry) list).
  77 +
  78 +public type VT_view_entry:
  79 + text(String text),
  80 + link(String id, String text),
  81 + link_id_action(String id, String text, WEB_Action_Name link_id_action),
  82 + icon(String icon_path).
  83 +
  84 +public type VT_view_row_header:
  85 + vt_view_row_header(List(VT_view_entry) list).
  86 +
  87 +public type VT_view_row:
  88 + vt_view_row(Int db_id, List(VT_view_entry) list).
  89 +
  90 +public type VT_View_DB_Calls:
  91 + vt_view_db_calls(
  92 + (SQLite3DataBase db, String clause) -> Int get_count,
  93 + (SQLite3DataBase db, HK_Referer referer, String clause) -> JsonMember get_rows_json
  94 +// (SQLite3DataBase db, String clause) -> List(VT_view_row) get_rows
  95 + )
  96 +.
  97 +
  98 +public type VT_view:
  99 + vt_view(String table_name, String view_name, VT_view_model view_model, VT_view_row_header header, VT_View_DB_Calls db_calls).
  100 +
  101 +
  102 +public type HK_Form_action:
  103 + new_entry,
  104 + edit_entry(String idx).
  105 +
  106 +public define String default_select = "--------------------". //20 dash
  107 +public define (List(CoreAttrs),WebArgValue,String) selector_default_entry = ([], wav("none"),default_select).
view/view_table_renderer.anubis
  Show/Hide comments   View file @7a8ff83
@@ -6,7 +6,7 @@ @@ -6,7 +6,7 @@
6 * 6 *
7 */ 7 */
8 8
9 -read hayamiki_lib/view/view_table_types.anubis 9 +read hayamiki_lib/view/types/hk_form_entry.anubis
10 read hayamiki_lib/view/jqgrid.anubis 10 read hayamiki_lib/view/jqgrid.anubis
11 read hayamiki_lib/view/view_table_manager_types.anubis 11 read hayamiki_lib/view/view_table_manager_types.anubis
12 read hayamiki_lib/view/view_table_manager.anubis 12 read hayamiki_lib/view/view_table_manager.anubis
@@ -377,7 +377,7 @@ public define List(CXM_Form_Field) @@ -377,7 +377,7 @@ public define List(CXM_Form_Field)
377 String fk_clause, 377 String fk_clause,
378 HK_Referer table_referer, 378 HK_Referer table_referer,
379 (String) -> String _T, 379 (String) -> String _T,
380 - List(VT_edit_entry) list, 380 + List(HK_Form_Entry) list,
381 Bool new_entry, 381 Bool new_entry,
382 List(CXM_Form_Field) so_far 382 List(CXM_Form_Field) so_far
383 )= 383 )=
@@ -460,7 +460,7 @@ define HTML_Head_Tag @@ -460,7 +460,7 @@ define HTML_Head_Tag
460 define List(HTML_Head_Tag) 460 define List(HTML_Head_Tag)
461 get_editor_header 461 get_editor_header
462 ( 462 (
463 - List(VT_edit_entry) list 463 + List(HK_Form_Entry) list
464 )= 464 )=
465 [js(js_file("ckeditor/ckeditor.js")), 465 [js(js_file("ckeditor/ckeditor.js")),
466 get_rich_editor_inline(list), 466 get_rich_editor_inline(list),