Anubis / Xlib

Commit 52634f44d093b64753aaa0f5fb3ecbc2024becf4

Authored by David RENE
1 parent 3919c7c0

Remove useless normalize which became identity (this mean that the function alwa… 

…ys return incoming parameter). So normalize was no effect
Showing 1 changed file with 4 additions and 20 deletions   Show diff stats
Inline Side-by-side
calexium_lib/web/CXM_making_a_web_site.anubis
  Show/Hide comments   View file @52634f4
... ... @@ -3522,24 +3522,8 @@ define String
3522 3522 }
3523 3523 + format(t)
3524 3524 }.
3525   -
3526   -
3527   - Normalizing a list of cell options (horizontal position must be specified; the default
3528   - is 'left').
3529   -
3530   -define List(Cell_Option)
3531   - normalize
3532   - (
3533   - List(Cell_Option) l
3534   - ) =
3535   - if member(l,left) then l else
3536   - if member(l,h_center) then l else
3537   - if member(l,right) then l else
3538   - //[left . l]. CR: why ? there is no default because we can use CSS
3539   - l.
3540   -
3541   -
3542   - Formating cells in a row.
  3525 +
  3526 + Formating cells in a row.
3543 3527  
3544 3528 define Printable_tree
3545 3529 format
... ... @@ -3551,7 +3535,7 @@ define Printable_tree
3551 3535 {
3552 3536 [ ] then [ ],
3553 3537 [h . t] then if h is cell(options,element) then
3554   - ["<td",format(reverse(normalize(options))),">",
  3538 + ["<td",format(reverse(options)),">",
3555 3539 format_element(element),
3556 3540 "</td>"
3557 3541 . format(t,format_element)]
... ... @@ -3567,7 +3551,7 @@ define Printable_tree
3567 3551 {
3568 3552 [ ] then [ ],
3569 3553 [h . t] then if h is header_cell(options,element) then
3570   - ["<th ",format(reverse(normalize(options))),">",
  3554 + ["<th ",format(reverse(options)),">",
3571 3555 format_element(element),
3572 3556 "</th>"
3573 3557 . format(t,format_element)]
... ...