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


type D2Link
  inherit D2Box
  field (List Link:D2Box) content
  field Str url

D2Box maybe D2Link

method a configure attribute value options
  oarg_rw D2Link a ; arg Str attribute value options
  if attribute="href"
    a url := value

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

method a position c
  oarg_rw D2Link a ; arg_rw D2Context c
  a position_undefined c
    
method a draw img c
  oarg_rw D2Link a ; oarg_rw ImagePrototype img ; arg_rw D2Context c
  var Int memo := c color
  c color := 0FF0000h
  each b a:content
    b draw img c
  c color := memo

method a event e
  oarg_rw D2Link a ; arg_rw D2Event e
  var Str memo := e url
  e potencial_url := a url
  each b a:content
    b event e
  e potencial_url := memo

html_tags insert "a" true addressof:D2Link