Patch title: Release 94 bulk changes
Abstract:
File: /pliant/graphic/layout/helper/position.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/unsafe.pli"
module "/pliant/graphic/layout/prototype.pli"
module "/pliant/graphic/browser/client/context.pli"


method p set_position bbox
  arg_rw LayoutPrototype p ; arg LayoutArea bbox
  if bbox:x0<>undefined
    (addressof:p translate LayoutPrototype) map LayoutArea := bbox
    p set_position


method c setup w s x0 y0 x1 y1 flags
  arg_rw LayoutPC c ; arg BrowserWindow w ; arg LayoutStyle s ; arg Float x0 y0 x1 y1 ; arg Int flags
  c window :> w
  c style :> s
  c:area x0 := x0
  c:area y0 := y0
  c:area x1 := x1
  c:area y1 := y1
  c all_areas := var List:LayoutArea empty_list
  c all_areas += c area
  c current_area :> c:all_areas first
  c flags := flags

method c setup w s bl flags
  arg_rw LayoutPC c ; arg BrowserWindow w ; arg LayoutStyle s ; arg List:LayoutArea bl ; arg Int flags
  c window :> w
  c style :> s
  c all_areas := bl
  c current_area :> c:all_areas first
  c area := c current_area
  c flags := flags


export '. set_position'
export '. setup'