Patch title: Release 95 bulk changes
Abstract:
File: /pliant/graphic/layout/prototype.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/compiler.pli"
module "/pliant/language/compiler.pli"
module "/pliant/language/stream.pli"
module "/pliant/graphic/color/gamut.pli"
module "/pliant/graphic/color/color.pli"
module "/pliant/graphic/vector/font.pli"
module "/pliant/graphic/draw/prototype.pli"


method a intersects a2 -> c
  arg_rw LayoutArea a ; arg LayoutArea a2 ; arg CBool c
  c := a:x0<a2:x1 and a:y0<a2:y1 and a:x1>a2:x0 and a:y1>a2:
    
module "/pliant/graphic/color/gamut.pli"
module "/pliant/graphic/color/color.pli"
module "/pliant/graphic/vector/font.pli"
module "/pliant/graphic/draw/prototype.pli"


method a intersects a2 -> c
  arg_rw LayoutArea a ; arg LayoutArea a2 ; arg CBool c
  c := a:x0<a2:x1 and a:y0<a2:y1 and a:x1>a2:x0 and a:y1>a2:
    
method a intersects a2 extend -> c
  arg_rw LayoutArea a ; arg LayoutArea a2 ; arg Float extend ; arg CBool c
  c := a:x0<a2:x1+extend and a:y0<a2:y1+extend and a:x1+extend>a2:x0 and a:y1+extend>a2:y0
    
method a intersects_y a2 -> c
  arg_rw LayoutArea a ; arg LayoutArea a2 ; arg CBool c
  c := a:y0<a2:y1 and a:y1>a2:y0
    




method l focusable -> c
  oarg_rw LayoutPrototype l ; arg CBool c
  generic
  c := false



if true # HTTP proxy support
  
  method l html context_address http
    oarg_rw LayoutPrototype l ; arg Address context_address ; arg_rw Stream http
    generic
    console "'html' method should not be called for '"+(entry_type addressof:l):name+"'" eol
    error "'html' method should not be called for '"+(entry_type addressof:l):name+"'"


method l set_parent p
   arg_rw LayoutPrototype l ; arg LayoutPrototype p
   l parent_and_flags := cast addressof:p Int


if false
  method l unlink
    oarg_rw LayoutPrototype l
    var Link:LayoutPrototype cur :> l first
    while exists:cur
      var Link:LayoutPrototype next :> cur next
      cur next :> null map LayoutPrototype
      cur :> next
method l set_parent p
   arg_rw LayoutPrototype l ; arg LayoutPrototype p
   l parent_and_flags := cast addressof:p Int


if false
  method l unlink
    oarg_rw LayoutPrototype l
    var Link:LayoutPrototype cur :> l first
    while exists:cur
      var Link:LayoutPrototype next :> cur next
      cur next :> null map LayoutPrototype
      cur :> next