Patch title: Release 90 bulk changes
Abstract:
File: /graphic/browser/tag/para.pli
Key:
    Removed line
    Added line
module "/pliant/language/unsafe.pli"
module "prototype.pli"
module "/pliant/graphic/vector/font.pli"

constant debug false


tag_position br
  if debug
    x0 := line_x-0.5 ; y0 := line_y-0.5
    x1 := x0+1 ; y1 := y0+1
  if line_x=area_x0
    area_y0 += 6/72*25.4
  newline
  x0 := undefined ; y0 := undefined ; x1 := undefined ; y1 := undefined

if debug
  tag_draw br
    var Int color := 0FFh
    rectangle x0 y0 x1 y1 addressof:color
  

tag_draw p
  each s tree
    void

tag_position p
  area_y0 += 6/72*25.4
  newline
  var Link:Font font :> font (context query "" "face")
  if exists:font
    font bbox " " null (var Float x0) (var Float y0) (var Float x1) (var Float y1)
    var Float memo := context y0
    context y0 += (y1-y0)/2
    tree position_container context
    context newline
    context y0 += (y1-y0)/2
    y0 := memo
    y1 := context y0
  each sub tree
    position sub
  area_y0 += 6/72*25.4
  newline