CXM_jquery_toolbar.anubis 703 Bytes

Edit Raw Blame History

/*
 * Created by PyramIDE.
 * User: フランスのトトロ
 * Date: 26/07/2014
 * Time: 01:25
 * © David RENÉ
 */

read calexium_lib/web/CXM_making_a_web_site.anubis
read calexium_lib/web/jQuery/CXM_jquery_button.anubis

public define HTML_Partial_Content
  _jquery_toolbar
  (
    List(JQuery_img_button) buttons,
    List(HTML_Cell(HTML_Off_Form))     so_far
  )=
  if buttons is
  {
    []  then
      partial_content([],
      table([row(reverse(so_far))])),
    [h . t] then
      _jquery_toolbar(t, [ cell(partial(jquery_button(h))) . so_far])
  }.

public define HTML_Partial_Content
  jquery_toolbar
  (
    List(JQuery_img_button) buttons
  )=
  _jquery_toolbar(buttons, []).