[+] add dialog showing available language. The argument 'action' is a call back …

…for action when one of the flag is clicked. Generally it's javascript function call during onclick event. So this function action let add at the end the language argument into javascript calling function.

[+] add dialog showing available language. The argument 'action' is a call back …
…for action when one of the flag is clicked. Generally it's javascript function call during onclick event. So this function action let add at the end the language argument into javascript calling function.
David RENÉ
1 parent e782d548
Showing 1 changed file with 59 additions and 0 deletions Show diff stats
web_controllers/language/language_management.anubis
@@ -163,6 +163,19 @@ define HTML_Off_Form
       event(onclick, "language_changed('"+language_code+"');")], text(language))
 .
  
+define HTML_Off_Form
+  language_line
+  (
+    String language_code,
+    String language,
+    String -> String action
+  )=
+  div([class("clickable"), event(onclick, action(language_code))],[
+    img("/xlib/flags/24x24/"+language_code+".png"),
+    text(language)
+  ])
+.
+
 public define HTML_Partial_Content 
   flags_menu
   (
@@ -214,3 +227,49 @@ public define HTML_Partial_Content
  
   flags_menu(app_dictionnary, lang, show_symbolic)
 .
+
+public define HTML_Partial_Content
+  choose_lang_dialog
+  (
+    String           dictionary_collection_name,
+    String -> String action,
+    Bool             show_symbolic,
+  )=
+    with make_line = (L3LangDicProperty dico_prop) |-> 
+                    if dico_prop is l3LangDicProperty( _, sha1, lang_code, user_def, creat, update) then
+                    with lang_info = l3_get_language_info(lang_code),
+                    language_line(lang_code, self_name(lang_info), action),
+                      
+   partial_content([
+      css(css_file("/xlib/css/flags_menu.css")),
+      js(js_file("/xlib/js/xlib.js"))
+    ],
+    [
+      dl([
+      //img([event(onmouseover, "showObject('l3-flag');"), event(onmouseout, "hideObject('l3-flag');")], "/xlib/flags/24x24/"+lang+".png" ),
+      dd([style("display: block"),id("l3-flag")],
+      ul(
+        map(make_line, l3_get_all_dicos(dictionary_collection_name))+
+        [
+          if show_symbolic then
+            language_line("symb", "symbolic", action)
+          else
+            empty
+        ]
+      )),
+      ])  //!dl
+    ]
+  )
+.
+
+public define HTML_Partial_Content 
+  choose_lang_dialog
+  (
+    WEB_Session       _session,
+    String -> String  action
+  ) =
+  with        lang = _session.language,
+   app_dictionnary = get_dictionary(_session),
+   
+  choose_lang_dialog(app_dictionnary, action, false)
+.