Anubis / Xlib | GitLab

Commit e64143ab009397998faf650348cc534f35053a7f

Authored by totoro 2014-12-13 01:05:14 +0100

create CXM_form.anubis based on long time use MailFountain forms

create CXM_html_tooltip based on MF tooltip which use jTip
create CXM_widgets which is collection of useful HMTL "object". The first is IP input which show 4 frames to enter IP address

Showing 3 changed files with 733 additions and 0 deletions Show diff stats

Inline Side-by-side

web/CXM_form.anubis 0 → 100644

Wrap text Show/Hide comments View file @e64143a

	1	+/*
	2	+ * Created by PyramIDE.
	3	+ * User: フランスのトトロ
	4	+ * Date: 07/12/2014
	5	+ * Time: 16:49
	6	+ * © Calexium
	7	+ */
	8	+
	9	+// *************************************************************************************
	10	+// *** Generic form
	11	+// *************************************************************************************
	12	+read tools/basis.anubis
	13	+read system/string.anubis
	14	+read calexium_lib/web/CXM_common.anubis
	15	+read calexium_lib/web/CXM_making_a_web_site.anubis
	16	+read calexium_lib/web/CXM_html_tooltip.anubis
	17	+read calexium_lib/web/CXM_widgets.anubis
	18	+
	19	+public type Mandatory: // used to mark fields as mandatory.
	20	+ mandatory,
	21	+ non_mandatory.
	22	+
	23	+public type Width:
	24	+ small,
	25	+ narrow,
	26	+ wide,
	27	+ custom(Int).
	28	+
	29	+public type FormFieldWidth:
	30	+ auto,
	31	+ custom(Int).
	32	+
	33	+public type CXM_FormTooltip:
	34	+ tooltip(String title, String content, Int width).
	35	+
	36	+public type CXM_FormField:
	37	+ no_field, // empty field
	38	+
	39	+ //--- title field ---------------------------------------------------------------------
	40	+ title (String text),
	41	+// title (Int text_size,
	42	+// String text),
	43	+// title_f (List(Text_Option) -> HTML_In_Form),
	44	+
	45	+ //--- message field -------------------------------------------------------------------
	46	+ message (String text),
	47	+
	48	+ //--- text input field ----------------------------------------------------------------
	49	+ input (List(InputAttrs) options,
	50	+ String label,
	51	+ HtmlId id,
	52	+ WebArgName web_arg_name,
	53	+ InitialValue init_value,
	54	+ Width width,
	55	+ Mandatory mandatory),
	56	+ input_readonly (List(InputAttrs) options,
	57	+ String label,
	58	+ HtmlId id,
	59	+ WebArgName web_arg_name,
	60	+ InitialValue init_value,
	61	+ Width width),
	62	+
	63	+ //--- text area field -----------------------------------------------------------------
	64	+ text_area (List(TextAreaOption) options,
	65	+ String label,
	66	+ HtmlId id,
	67	+ WebArgName web_arg_name,
	68	+ InitialValue init_value,
	69	+ Width width,
	70	+ Int height,
	71	+ Mandatory mandatory),
	72	+
	73	+ //--- password input field ------------------------------------------------------------
	74	+ password_input (List(InputAttrs) options,
	75	+ String label,
	76	+ HtmlId id,
	77	+ WebArgName web_arg_name,
	78	+ InitialValue init_value,
	79	+ Width width,
	80	+ Mandatory mandatory),
	81	+
	82	+ //--- hidden field ------------------------------------------------------------
	83	+ hidden (HtmlId id,
	84	+ WebArgName web_arg_name,
	85	+ InitialValue init_value),
	86	+ //--- explanation field ---------------------------------------------------------------
	87	+ explain (String text),
	88	+
	89	+ //--- selector field ------------------------------------------------------------------
	90	+ selector (List(InputAttrs) options,
	91	+ String label,
	92	+ HtmlId id,
	93	+ WebArgName web_arg_name,
	94	+ Int size,
	95	+ List(String) items,
	96	+ Maybe(InitialValue) selected,
	97	+ Mandatory mandatory),
	98	+ selector_c (List(InputAttrs) options,
	99	+ String label,
	100	+ HtmlId id,
	101	+ WebArgName web_arg_name,
	102	+ Int size,
	103	+ List((List(CoreAttrs),WebArgValue,String)) items,
	104	+ Maybe(InitialValue) selected,
	105	+ Mandatory mandatory),
	106	+
	107	+
	108	+
	109	+ //--- checkbox field ------------------------------------------------------------------
	110	+ checkbox (List(InputAttrs) options,
	111	+ String label,
	112	+ HtmlId id,
	113	+ WebArgName web_arg_name,
	114	+ WebArgValue web_arg_value,
	115	+ Bool checked,
	116	+ Mandatory mandatory),
	117	+ // the same one, but with the tag on the right of the checkbox
	118	+ checkboxr (List(InputAttrs) options,
	119	+ String label,
	120	+ HtmlId id,
	121	+ WebArgName web_arg_name,
	122	+ WebArgValue web_arg_value,
	123	+ Bool checked,
	124	+ Mandatory mandatory),
	125	+
	126	+ //--- radio-button field --------------------------------------------------------------
	127	+ radio_button (List(InputAttrs) options,
	128	+ String label,
	129	+ HtmlId id,
	130	+ WebArgName web_arg_name,
	131	+ WebArgValue web_arg_value,
	132	+ Bool checked,
	133	+ Mandatory mandatory),
	134	+ // the same one, but with the tag on the right of the radio_button
	135	+ radio_buttonr (List(InputAttrs) options,
	136	+ String label,
	137	+ HtmlId id,
	138	+ WebArgName web_arg_name,
	139	+ WebArgValue web_arg_value,
	140	+ Bool checked,
	141	+ Mandatory mandatory),
	142	+
	143	+ radio_button_list (List(InputAttrs) options,
	144	+ String label,
	145	+ HtmlId id,
	146	+ WebArgName web_arg_name,
	147	+ List((WebArgValue, String)) web_arg_value,
	148	+ Maybe(InitialValue) selected,
	149	+ Mandatory mandatory,
	150	+ Bool is_wide),
	151	+
	152	+// //--- fields table --------------------------------------------------------------------
	153	+// fields_table (String tag,
	154	+// List(FormField) fields),
	155	+//
	156	+// //--- fields line ---------------------------------------------------------------------
	157	+// fields_line (String tag,
	158	+// List(FormField) fields),
	159	+ one_line_fields (List(CXM_FormField) fields),
	160	+
	161	+//
	162	+// //--- preview field -------------------------------------------------------------------
	163	+// preview (String html_text),
	164	+
	165	+ //--- upload field -------------------------------------------------------------------
	166	+ upload (List(InputAttrs) options,
	167	+ String label,
	168	+ HtmlId id,
	169	+ WebArgName name,
	170	+ Width width,
	171	+ Mandatory mandatory),
	172	+
	173	+ raw_in_form (HTML_In_Form html),
	174	+ raw_in_form (String label,
	175	+ HtmlId id,
	176	+ HTML_In_Form input),
	177	+ partial (HTML_Partial_Content p_content),
	178	+ input_with_help (CXM_FormField field,
	179	+ Maybe(String) help_title,
	180	+ String help_text,
	181	+ Int width),
	182	+
	183	+ sub_fieldset (HTML_In_Form fieldset),
	184	+
	185	+ blank_space,
	186	+ blank_space (HtmlClass class),
	187	+
	188	+ //--- submit button -------------------------------------------------------------------
	189	+ submit (List(CoreAttrs) options,
	190	+ HtmlClass class,
	191	+ String action_name,
	192	+ Maybe(String) label,
	193	+ String button_text,
	194	+ List((String,String)) extra_operands),
	195	+ empty.
	196	+
	197	+// //////////////////////////////////////////////
	198	+// Alternative constructors:
	199	+
	200	+public define CXM_FormField
	201	+ input(WebArgName n, InitialValue init_value, Width width)
	202	+ = input([], "", htmlId(n.name), n, init_value, width, non_mandatory).
	203	+
	204	+public define CXM_FormField
	205	+ input(String label, WebArgName n, InitialValue init_value, Width width)
	206	+ = input([], label, htmlId(n.name), n, init_value, width, non_mandatory).
	207	+
	208	+public define CXM_FormField
	209	+ input(String label, WebArgName n, InitialValue init_value, Width width, Mandatory mand)
	210	+ = input([], label, htmlId(n.name), n, init_value, width, mand).
	211	+
	212	+public define CXM_FormField
	213	+ input_readonly(String label, WebArgName n, InitialValue init_value, Width width)
	214	+ = input_readonly([], label, htmlId(n.name), n, init_value, width).
	215	+
	216	+public define CXM_FormField
	217	+ password_input(String label, WebArgName n, InitialValue init_value, Width width, Mandatory mand)
	218	+ = password_input([], label, htmlId(n.name), n, init_value, width, mand).
	219	+
	220	+public define CXM_FormField
	221	+ checkbox(String label, WebArgName n, WebArgValue value, Bool checked, Mandatory mand)
	222	+ = checkbox([], label, htmlId(n.name), n, value, checked, mand).
	223	+
	224	+public define CXM_FormField
	225	+ checkboxr(String label, WebArgName n, WebArgValue value, Bool checked, Mandatory mand)
	226	+ = checkboxr([], label, htmlId(n.name), n, value, checked, mand).
	227	+
	228	+public define CXM_FormField
	229	+ radio_button(String label, WebArgName n, WebArgValue value, Bool checked, Mandatory mand)
	230	+ = radio_button([], label, htmlId(n.name), n, value, checked, mand).
	231	+
	232	+public define CXM_FormField
	233	+ radio_buttonr(String label, WebArgName n, WebArgValue value, Bool checked, Mandatory mand)
	234	+ = radio_buttonr([], label, htmlId(n.name), n, value, checked, mand).
	235	+
	236	+public define CXM_FormField
	237	+ submit(String action_name, HtmlClass class, Maybe(String) label, String button_text, List((String,String)) extra_operands)
	238	+ = submit([], class, action_name, label, button_text, extra_operands).
	239	+
	240	+public define CXM_FormField
	241	+ submit(String action_name, Maybe(String) label, String button_text, List((String,String)) extra_operands)
	242	+ = submit([], htmlClass(""), action_name, label, button_text, extra_operands).
	243	+
	244	+public define CXM_FormField
	245	+ upload(String label, HtmlId id, WebArgName name, Width width)
	246	+ = upload([], label, id, name, width, non_mandatory).
	247	+
	248	+public define CXM_FormField
	249	+ upload(String label, HtmlId id, WebArgName name, Width width, Mandatory mand)
	250	+ = upload([], label, id, name, width, mand).
	251	+
	252	+public define CXM_FormField
	253	+ input_with_help (CXM_FormField field, String help_text)
	254	+ = input_with_help (field, failure, help_text, 250).
	255	+
	256	+public define CXM_FormField
	257	+ input_with_help (CXM_FormField field, String help_text, Int width)
	258	+ = input_with_help (field, failure, help_text, width).
	259	+
	260	+public define CXM_FormField
	261	+ ip_input
	262	+ (
	263	+ String label,
	264	+ HtmlId id,
	265	+ WebArgName wan_prefix,
	266	+ String ip
	267	+ )=
	268	+ raw_in_form(
	269	+ label,
	270	+ id,
	271	+ ip_input(id, wan_prefix, ip)
	272	+ ).
	273	+
	274	+
	275	+public define CXM_FormField
	276	+ partial_ip_input
	277	+ (
	278	+ String label,
	279	+ HtmlId id,
	280	+ WebArgName wan_prefix,
	281	+ List(String) ip_fixed_part,
	282	+ String ip
	283	+ )=
	284	+ raw_in_form(
	285	+ label,
	286	+ id,
	287	+ partial_ip_input(id, wan_prefix, ip_fixed_part, ip)
	288	+ ).
	289	+
	290	+public define CXM_FormField
	291	+ hidden
	292	+ (
	293	+ WebArgName web_arg_name,
	294	+ InitialValue init_value
	295	+ )=
	296	+ if web_arg_name is wan(name) then
	297	+ hidden(htmlId(name), web_arg_name, init_value).
	298	+
	299	+
	300	+ //--- explanation field ---------------------
	301	+
	302	+// //////////////////////////////////////////////////////////
	303	+
	304	+public define HTML_In_Form
	305	+ cxm_format_form_field
	306	+ (
	307	+ CXM_FormField ff
	308	+ ) =
	309	+ with star = (Mandatory m) \|-> (String)
	310	+ if m is
	311	+ {
	312	+ mandatory then "<span>*</span>",
	313	+ non_mandatory then ""
	314	+ },
	315	+ pixels = (Width width) \|->
	316	+ if width is
	317	+ {
	318	+ small then 10,
	319	+ narrow then 50,
	320	+ wide then 70,
	321	+ custom(n) then n
	322	+ },
	323	+ // special case out of the div("inputable") tag.
	324	+// if ff is submit(attrs, action_name, mb_label, button_text, extra_operands) then
	325	+// mf_format_form_field_inside_inputable(ff, star, pixels)
	326	+// else if ff is hidden(name, init) then
	327	+// mf_format_form_field_inside_inputable(ff, star, pixels)
	328	+// else if ff is sub_fieldset(fieldset) then
	329	+// mf_format_form_field_inside_inputable(ff, star, pixels)
	330	+// else
	331	+// div([class("inputable")],
	332	+// mf_format_form_field_inside_inputable(ff, star, pixels))
	333	+
	334	+// sequence([
	335	+// literal(" <tr class=\"form_row\">\n"),
	336	+// mf_format_form_field_inside_inputable(ff, star, pixels, failure),
	337	+// literal(" </tr>\n"),
	338	+// ])
	339	+
	340	+ if ff is
	341	+ {
	342	+ no_field then
	343	+ literal(""),
	344	+
	345	+ title(t) then
	346	+ literal("<h2>" + t + "</h2>"),
	347	+
	348	+// title(s,t) then
	349	+// text([h_center, size(s),bold,color(rgb(0,0,0))], t),
	350	+//
	351	+// title_f(t) then
	352	+// t([h_center, size(16),bold,color(rgb(0,0,0))]),
	353	+
	354	+ message(t) then
	355	+ literal(t),
	356	+
	357	+ input(options, label, id, name, init, w, mand) then
	358	+ text_input([class("in") . options], label + star(mand), id, name, init, pixels(w)),
	359	+
	360	+ input_readonly(options, label, id, name, init, w) then
	361	+ text_input_ro([class("in") . options], label, id, name, init, pixels(w)),
	362	+
	363	+ text_area(options, label, id, name, init, w, height, mand) then
	364	+ text_area([input_attrs([class("in")]) . options], label + star(mand), id, name, init, pixels(w), height),
	365	+
	366	+ password_input(options, label, id, name, init, w, mand) then
	367	+ password_input([class("in") . options], label + star(mand), id, name, init, pixels(w)),
	368	+
	369	+ hidden(id, name, init) then
	370	+ hidden(id, name, init),
	371	+
	372	+ explain(t) then
	373	+ div([class("sub")], literal(t)),
	374	+
	375	+ selector(options, label, id, wan, size, items, selected, mand) then
	376	+ if selected is
	377	+ {
	378	+ failure then selector(options, label + star(mand), id, wan, size, items),
	379	+ success(init) then selector(options, label + star(mand), id, wan, size, items, init),
	380	+ },
	381	+
	382	+ selector_c(options, label, id, wan, size, items, selected, mand) then
	383	+ if selected is
	384	+ {
	385	+ failure then selector_c(options, label + star(mand), id, wan, size, items),
	386	+ success(init) then selector_c(options, label + star(mand), id, wan, size, items, init),
	387	+ },
	388	+
	389	+ checkbox(options, label, id, name, val, checked, mand) then
	390	+ check_box(options, label + star(mand), id, name, val, checked),
	391	+
	392	+ checkboxr(options, label, id, name, val, checked, mand) then
	393	+ check_box_r(options, label + star(mand), id, name, val, checked),
	394	+
	395	+ radio_button(options, label, id, name, val, checked, mand) then
	396	+ radio_button(options, label + star(mand), id, name, val, checked),
	397	+
	398	+ radio_buttonr(options, label, id, name, val, checked, mand) then
	399	+ radio_button_r(options, label + star(mand), id, name, val, checked),
	400	+
	401	+ radio_button_list (options, label, id, wan, items, selected, mand, wide) then
	402	+ sequence([
	403	+ literal("<label for=\"" + wan.name + "\">" + label + star(mand) + "</label>"),
	404	+ div( [class("radiolist")], sequence(
	405	+ with i = var((Int)-1),
	406	+ itemclass = if wide then "radiolistitem_wide" else "radiolistitem",
	407	+ map( ((WebArgValue, String) item) \|->
	408	+ i <- *i + 1;
	409	+ if item is (wav, item_label) then
	410	+ with id = if id is htmlId(the_id) then htmlId(the_id + "_radio_" + *i),
	411	+ div([class(itemclass)], radio_button_r(options, item_label, id, wan, wav,
	412	+ if selected is success(v) then wav.value = v.value else false)),
	413	+ items))
	414	+ ),
	415	+ ]),
	416	+ one_line_fields(fields) then
	417	+ table([nude],[row([],
	418	+ map((CXM_FormField ff2) \|-> cell([],cxm_format_form_field(ff2)),fields))])
	419	+ ,
	420	+
	421	+
	422	+ upload(options, label, id, name, w, mand) then
	423	+ file_upload(options, label + star(mand), id, name, pixels(w)),
	424	+
	425	+ raw_in_form(html) then
	426	+ html,
	427	+// div([class("in")], html),
	428	+ raw_in_form(label, id, input) then
	429	+ sequence([
	430	+ if id is htmlId(id) then
	431	+ literal("<label for=\"" + id + "\">" + label + "</label>"),
	432	+ input]),
	433	+ partial(p_content) then
	434	+ partial(p_content),
	435	+ input_with_help(input, help_title, help_text, width) then
	436	+ sequence([
	437	+ cxm_format_form_field(input),
	438	+ html_tooltip(force_String(help_title), help_text, width),
	439	+ ]),
	440	+
	441	+ sub_fieldset(fieldset) then
	442	+ fieldset,
	443	+
	444	+ blank_space then
	445	+ div([class("blank_space")], literal("&nbsp")),
	446	+
	447	+ blank_space(htmlClass) then
	448	+ div([class(htmlClass.class)], literal("&nbsp")),
	449	+
	450	+ submit(attrs, htmlClass, action_name, mb_label, button_text, extra_operands) then
	451	+ actioner( same, // TODO change this to allow external URL
	452	+ if mb_label is
	453	+ {
	454	+ failure then same,
	455	+ success(n) then same(n)
	456	+ },
	457	+ submit(attrs + [class(htmlClass.class)], button_text),
	458	+ action_name,
	459	+ extra_operands
	460	+ ),
	461	+ empty then literal("")
	462	+ }.
	463	+
	464	+public define HTML_In_Form
	465	+ cxm_fieldset
	466	+ (
	467	+ List(CoreAttrs) options,
	468	+ String legend,
	469	+ List(CXM_FormField) fields
	470	+ ) =
	471	+ sequence([
	472	+ literal("<fieldset" + format_attrs(options) + ">"),
	473	+ literal(if length(legend) > 0 then "<legend>" + legend + "</legend>" else ""),
	474	+ sequence( map((CXM_FormField ff) \|-> div([class("form_field")], cxm_format_form_field(ff)), fields) ),
	475	+ literal("</fieldset>")]).
	476	+
	477	+public define HTML_In_Form
	478	+ cxm_fieldset
	479	+ (
	480	+ HtmlId fieldSetId,
	481	+ List(CXM_FormField) fields
	482	+ ) =
	483	+ cxm_fieldset([id(fieldSetId.id), class("aligned")], "", fields).
	484	+
	485	+public define HTML_Off_Form
	486	+ cxm_form
	487	+ (
	488	+ String form_name,
	489	+ List(CoreAttrs) options,
	490	+ String action_name,
	491	+ List((String,String)) extra_ops,
	492	+ List(HTML_In_Form) fieldSets
	493	+ ) =
	494	+ //div([class("formulaire")],
	495	+ form( form_name,
	496	+ [class("formulaire") . options],
	497	+ action_name,
	498	+ extra_ops,
	499	+ sequence( fieldSets )
	500	+ // )
	501	+ ).
	502	+
	503	+public define HTML_Off_Form
	504	+ cxm_form
	505	+ (
	506	+ String form_name,
	507	+ List(CoreAttrs) options,
	508	+ List(HTML_In_Form) fieldSets
	509	+ ) =
	510	+ //div([class("formulaire")],
	511	+ form( form_name,
	512	+ [class("formulaire") . options],
	513	+ sequence( fieldSets )
	514	+ // )
	515	+ ).
	516	+
	517	+public define HTML_Off_Form
	518	+ cxm_form
	519	+ (
	520	+ String form_name,
	521	+ List(CoreAttrs) options,
	522	+ String action_name,
	523	+ List((String,String)) extra_ops,
	524	+ HtmlId fieldSetId,
	525	+ List(CXM_FormField) fields
	526	+ ) =
	527	+ cxm_form(form_name, options, action_name, extra_ops,
	528	+ [
	529	+ cxm_fieldset([id(fieldSetId.id), class("aligned")], "", fields)
	530	+ ]).
	531	+
	532	+public define HTML_Off_Form
	533	+ cxm_form
	534	+ (
	535	+ String form_name,
	536	+ List(CoreAttrs) options,
	537	+ HtmlId fieldSetId,
	538	+ List(CXM_FormField) fields
	539	+ ) =
	540	+ cxm_form(form_name, options,
	541	+ [
	542	+ cxm_fieldset([id(fieldSetId.id), class("aligned")], "", fields)
	543	+ ]).
	544	+
	545	+public define HTML_Off_Form
	546	+ cxm_form
	547	+ (
	548	+ String form_name,
	549	+ List(HTML_In_Form) fieldSets
	550	+ ) =
	551	+ cxm_form(form_name, [], fieldSets).
	552	+
	553	+public define HTML_Off_Form
	554	+ cxm_form
	555	+ (
	556	+ String form_name,
	557	+ HtmlId fieldSetId,
	558	+ List(CXM_FormField) fields
	559	+ ) =
	560	+ cxm_form(form_name, [], fieldSetId, fields).
	561	+
...	...

web/CXM_html_tooltip.anubis 0 → 100644

Wrap text Show/Hide comments View file @e64143a

	1	+/*
	2	+ * Created by PyramIDE.
	3	+ * User: フランスのトトロ
	4	+ * Date: 07/12/2014
	5	+ * Time: 17:12
	6	+ * © Calexium
	7	+ */
	8	+
	9	+read tools/basis.anubis
	10	+
	11	+read calexium_lib/web/CXM_common.anubis
	12	+read calexium_lib/web/CXM_making_a_web_site.anubis
	13	+
	14	+public define HTML_Off_Form
	15	+ html_tooltip
	16	+ (
	17	+ String title,
	18	+ String keyword,
	19	+ ) =
	20	+ literal("<a id=\"help_"+keyword+"\" class=\"jTipu jTip_help\" name=\""+title+"\" href=\"/?a=ajax_show_tooltip&tooltip_id="+keyword+"\"></a>").
	21	+
	22	+ actioner(same,same, link([id("help_" + keyword), class("jTip jTip_help"), attr("target", "_blank")], " ", success(title)), "ajax_show_tooltip", [("tooltip_id", keyword)], []).
	23	+
	24	+public define HTML_Off_Form
	25	+ html_tooltip
	26	+ (
	27	+ String title,
	28	+ String keyword,
	29	+ Int width,
	30	+ ) =
	31	+ literal("<a id=\"help_"+keyword+"\" class=\"jTipu jTip_help\" name=\""+title+"\" href=\"/?a=ajax_show_tooltip&tooltip_id="+keyword+"&width="+width+"\"></a>").
	32	+
	33	+ actioner(same,same, link([id("help_" + keyword), class("jTip jTip_help"), attr("target", "_blank")], " ", success(title)), "ajax_show_tooltip", [("tooltip_id", keyword), ("width", to_decimal(width))], []).
	34	+
	35	+public define HTML_In_Form
	36	+ html_tooltip
	37	+ (
	38	+ String title,
	39	+ String keyword,
	40	+ ) =
	41	+ literal("<a id=\"help_"+keyword+"\" class=\"jTipu jTip_help\" name=\""+title+"\" href=\"/?a=ajax_show_tooltip&tooltip_id="+keyword+"\"></a>").
	42	+
	43	+ actioner(same,same, link([id("help_" + keyword), class("jTip jTip_help"), attr("target", "_blank")], " ", success(title)), "ajax_show_tooltip", [("tooltip_id", keyword)], []).
	44	+
	45	+public define HTML_In_Form
	46	+ html_tooltip
	47	+ (
	48	+ String title,
	49	+ String keyword,
	50	+ Int width,
	51	+ ) =
	52	+ literal("<a id=\"help_"+keyword+"\" class=\"jTipu jTip_help\" name=\""+title+"\" href=\"/?a=ajax_show_tooltip&tooltip_id="+keyword+"&width="+width+"\"></a>").
	53	+
	54	+ actioner(same,same, link([id("help_" + keyword), class("jTip jTip_help"), attr("target", "_blank")], " ", success(title)), "ajax_show_tooltip", [("tooltip_id", keyword), ("width", to_decimal(width))], []).
	55	+
	56	+ public define HTML_Off_Form
	57	+ html_tooltip_ext
	58	+ (
	59	+ String title,
	60	+ String keyword,
	61	+ String class_suffix
	62	+ ) =
	63	+ actioner(same,same, link([id("help_" + keyword), class("jTip jTip_"+class_suffix), attr("target", "_blank")], " ", success(title)), "ajax_show_tooltip", [("tooltip_ext", keyword)], []).
	64	+
	65	+public define HTML_Off_Form
	66	+ html_tooltip_ext
	67	+ (
	68	+ String title,
	69	+ String keyword,
	70	+ String class_suffix,
	71	+ List((String, String)) ext_args
	72	+ ) =
	73	+ with extra_args = format_extra_operands(ext_args),
	74	+ literal("<a id=\"help_"+keyword+"\" class=\"jTipu jTip_"+class_suffix+"\" name=\""+title+"\" href=\"/?a=ajax_show_tooltip&tooltip_ext="+keyword+extra_args+"\"></a>").
	75	+
	76	+ actioner(same,same, link([id("help_" + keyword), class("jTip jTip_"+class_suffix), attr("target", "_blank")], " ", success(title)), "ajax_show_tooltip", [("tooltip_ext", keyword)] + ext_args, []).
	77	+
	78	+ public define HTML_In_Form
	79	+ html_tooltip_ext
	80	+ (
	81	+ String title,
	82	+ String keyword,
	83	+ String class_suffix
	84	+ ) =
	85	+ actioner(same,same, link([id("help_" + keyword), class("jTipu jTip_"+class_suffix), attr("target", "_blank")], " ", success(title)), "ajax_show_tooltip", [("tooltip_ext", keyword)], []).
	86	+
	87	+public define HTML_In_Form
	88	+ html_tooltip_ext
	89	+ (
	90	+ String title,
	91	+ String keyword,
	92	+ String class_suffix,
	93	+ List((String, String)) ext_args
	94	+ ) =
	95	+ with extra_args = format_extra_operands(ext_args),
	96	+ literal("<a id=\"help_"+keyword+"\" class=\"jTipu jTip_"+class_suffix+"\" name=\""+title+"\" href=\"/?a=ajax_show_tooltip&tooltip_ext="+keyword+extra_args+"\"></a>").
	97	+
	98	+
	99	+ href=\"/?a=ajax_show_tooltip&tooltip_id="+keyword+"\" id=\"help_"+keyword+HELP_HMS_MODE" class="jTip jTip_help" target="_blank" name="Aide sur la fonctionnalité 'No Limit'"> </a>").
	100	+
	101	+ actioner(same,same, link([id("help_" + keyword), class("jTip jTip_"+class_suffix), attr("target", "_blank")], " ", success(title)), "ajax_show_tooltip", [("tooltip_ext", keyword)] + ext_args, []).
...	...

web/CXM_widgets.anubis 0 → 100644

Wrap text Show/Hide comments View file @e64143a

	1	+/*
	2	+ * Created by PyramIDE.
	3	+ * User: フランスのトトロ
	4	+ * Date: 07/12/2014
	5	+ * Time: 18:10
	6	+ * © Calexium
	7	+ */
	8	+
	9	+read system/string.anubis
	10	+read tools/basis.anubis
	11	+
	12	+read calexium_lib/web/CXM_making_a_web_site.anubis
	13	+
	14	+public define HTML_In_Form
	15	+ ip_input
	16	+ (
	17	+ HtmlId the_id,
	18	+ WebArgName wan_prefix,
	19	+ String ip
	20	+ )=
	21	+ with ip_fields = split(ip, '.'),
	22	+ if the_id is htmlId(id_str) then
	23	+ if wan_prefix is wan(field_prefix) then
	24	+ div([id(id_str)],
	25	+ sequence(
	26	+ [
	27	+ text_input([class("ip_input")], "", htmlId(""), wan(field_prefix+"_0"), init(force_nth(0,ip_fields,"")), 3),
	28	+ text("."),
	29	+ text_input([class("ip_input")], "", htmlId(""), wan(field_prefix+"_1"), init(force_nth(1,ip_fields,"")), 3),
	30	+ text("."),
	31	+ text_input([class("ip_input")], "", htmlId(""), wan(field_prefix+"_2"), init(force_nth(2,ip_fields,"")), 3),
	32	+ text("."),
	33	+ text_input([class("ip_input")], "", htmlId(""), wan(field_prefix+"_3"), init(force_nth(3,ip_fields,"")), 3),
	34	+ ]))
	35	+ .
	36	+
	37	+// ---------------------------------------------------------------------------
	38	+
	39	+public define HTML_In_Form
	40	+ partial_ip_input
	41	+ (
	42	+ HtmlId the_id,
	43	+ WebArgName wan_prefix,
	44	+ List(String) ip_fixed_part,
	45	+ String ip
	46	+ )=
	47	+ with ip_fields = split(ip, '.'),
	48	+ if the_id is htmlId(id_str) then
	49	+ if wan_prefix is wan(field_prefix) then
	50	+ with make_field = (Int index)
	51	+ \|-> if index < length(ip_fixed_part) then
	52	+ text([], force_nth(index, ip_fixed_part, ""))
	53	+ else
	54	+ text_input([class("ip_input")],
	55	+ "",
	56	+ htmlId(""),
	57	+ wan(field_prefix + "_" + index),
	58	+ init(force_nth(index, ip_fields, "")),
	59	+ 3),
	60	+ div([id(id_str)],
	61	+ sequence(
	62	+ [
	63	+ make_field(0),
	64	+ text("."),
	65	+ make_field(1),
	66	+ text("."),
	67	+ make_field(2),
	68	+ text("."),
	69	+ make_field(3),
	70	+ ]))
	71	+ .
...	...