Patch title: Release 95 bulk changes
Abstract:
File: /pliant/graphic/layout/helper/event.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/compiler.pli"
module "/pliant/graphic/layout/prototype.pli"
module "/pliant/graphic/browser/client/context.pli"
module "/pliant/graphic/browser/client/connect.pli"
module "/pliant/graphic/browser/client/window.pli"
module "/pliant/graphic/console/prototype.pli"
module "/pliant/graphic/layout/sequence.pli"
module "/pliant/graphic/layout/hook.pli"


method s set_focus_index index
  arg_rw BrowserSession s ; arg Int index
  s focus_index := index
  s focus_scroll_stage := 0
module "/pliant/language/compiler.pli"
module "/pliant/graphic/layout/prototype.pli"
module "/pliant/graphic/browser/client/context.pli"
module "/pliant/graphic/browser/client/connect.pli"
module "/pliant/graphic/browser/client/window.pli"
module "/pliant/graphic/console/prototype.pli"
module "/pliant/graphic/layout/sequence.pli"
module "/pliant/graphic/layout/hook.pli"


method s set_focus_index index
  arg_rw BrowserSession s ; arg Int index
  s focus_index := index
  s focus_scroll_stage := 0
  s focus_scroll
  # s focus_scroll
  
method ec set_focus target index
  arg_rw LayoutEC ec ; oarg_rw LayoutPrototype target ; arg 
  var Pointer:BrowserSession s :> ec:window session
  var Link:LayoutPrototype t :> s focus_target
  s focus_target :> null map LayoutPrototype
  if exists:t
    var LayoutEC ec2
    ec2 style :> s:console default_style
    ec2 event := "focus"
    ec2 key := "off"
    ec2 window :> s focus_window
    t event ec2
    if false
      var Link:LayoutPrototype p :> t parent
      while exists:p
        p event ec2
        p :> p parent
  s focus_window :> ec window
  s focus_target :> target
  s focus_index := index
  s focus_value := ""
  s focus_scroll_stage := 0
  if exists:target
    var LayoutEC ec2
    ec2 style :> s:console default_style
    ec2 event := "focus"
    ec2 key := "on"
    ec2 window :> ec window
    s:focus_target event ec2
    if false
      var Link:LayoutPrototype p :> target parent
      while exists:p
        p event ec2
        p :> p parent


  
method ec set_focus target index
  arg_rw LayoutEC ec ; oarg_rw LayoutPrototype target ; arg 
  var Pointer:BrowserSession s :> ec:window session
  var Link:LayoutPrototype t :> s focus_target
  s focus_target :> null map LayoutPrototype
  if exists:t
    var LayoutEC ec2
    ec2 style :> s:console default_style
    ec2 event := "focus"
    ec2 key := "off"
    ec2 window :> s focus_window
    t event ec2
    if false
      var Link:LayoutPrototype p :> t parent
      while exists:p
        p event ec2
        p :> p parent
  s focus_window :> ec window
  s focus_target :> target
  s focus_index := index
  s focus_value := ""
  s focus_scroll_stage := 0
  if exists:target
    var LayoutEC ec2
    ec2 style :> s:console default_style
    ec2 event := "focus"
    ec2 key := "on"
    ec2 window :> ec window
    s:focus_target event ec2
    if false
      var Link:LayoutPrototype p :> target parent
      while exists:p
        p event ec2
        p :> p parent