Patch title: Release 94 bulk changes
Abstract:
File: /pliant/graphic/browser/naive/tag/header.pli
Key:
    Removed line
    Added line
module "/pliant/language/unsafe.pli"
module "/pliant/graphic/browser/naive/core.pli"


tag_position head
  void

tag_draw head
  void


method c header_position node size
  arg_rw BrowserContext c ; arg_rw BrowserNode node ; arg Float size
  implicit c
    newline
    area_y0 += size/72*25.4
    newline
    set "font" "size" string:size
    set "b"
    position_recurse node
    newline
    area_y0 += 0.5*size/72*25.4
    newline

method c header_draw node size
  arg_rw BrowserContext c ; arg_rw BrowserNode node ; arg Float size
  implicit c
    set "font" "size" string:size
    set "b"
    draw_recurse node


tag_position h1
  header_position node 24

tag_draw h1
  header_draw node 24


tag_position h2
  header_position node 20

tag_draw h2
  header_draw node 20


tag_position h3
  header_position node 16

tag_draw h3
  header_draw node 16