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


type D2LineBreak
  inherit D2Box

D2Box maybe D2LineBreak

method b position c
  oarg_rw D2LineBreak b ; arg_rw D2Context c
  c newline
  b x0 := undefined ; b y0 := undefined ; b x1 := undefined ; b y1 := undefined

html_tags insert "br" true addressof:D2LineBreak


type D2Paragraph
  inherit D2Box
  field (List Link:D2Box) content

D2Box maybe D2Paragraph

method p list -> l
  oarg_rw D2Paragraph p ; arg Pointer:(List Link:D2Box) l
  l :> p content

method p position c
  oarg_rw D2Paragraph p ; arg_rw D2Context c
  c newline
  c:font box " " 0 0 c:scale (var Float x0) (var Float y0) (var Float x1) (var Float y1)
  var Float memo := c y0
  c y0 += (y1-y0)/2
  p position_container c
  c newline
  c y0 += (y1-y0)/2
  p y0 := memo
  p y1 := c y0
    
method p draw img c
  oarg_rw D2Paragraph p ; oarg_rw ImagePrototype img ; arg_rw D2Context c
  each b p:content
    b draw img c

html_tags insert "p" true addressof:D2Paragraph