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


tag_draw a
  set "font" "color" "#0000FF"
  draw_recurse tree


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 D2C
  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

tag_event a
  if key="press button1"
    url := full_url (query "a" "href")