Patch title: Release 85 bulk changes
Abstract:
File: /pliant/appli/type_browser/page.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/compiler.pli"
module "/pliant/admin/file.pli"
submodule "internals.pli"
module "/pliant/protocol/http/server.pli"
module "/pliant/protocol/http/style/default.style"


method page show_type t
  arg_rw HtmlPage page; arg Type t
  implicit page
module "/pliant/language/compiler.pli"
module "/pliant/admin/file.pli"
submodule "internals.pli"
module "/pliant/protocol/http/server.pli"
module "/pliant/protocol/http/style/default.style"


method page show_type t
  arg_rw HtmlPage page; arg Type t
  implicit page
    table columns 2 border 1
      cell header
        [Field]
      cell header
        [Type]
    table border 1
      row
        cell header
          [Field]
        cell header
          [Type]
      for (var Int i) 0 t:nb_fields-1
        var Pointer:TypeField f :> t field i
      for (var Int i) 0 t:nb_fields-1
        var Pointer:TypeField f :> t field i
        cell color lsh 100 50 180
          text f:name
        cell color lsh 100 50 240
          text f:type:name 
        row
          cell color (color hsl 180 50 75)
            text f:name
          cell color (color hsl 240 50 75)
            text f:type:name 
      if t:nb_fields=0
      if t:nb_fields=0
        html "<tr><td colspan=2>"
        color rgb 255 0 0
          text "No registered field"
        html "</td></tr>"
        cell colspan 2
          font color (color rgb 255 0 0)
            text "No registered field"