Patch title: Release 94 bulk changes
Abstract:
File: /pliant/graphic/browser/naive/sample/supervisor.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/unsafe.pli"
module "/pliant/language/stream.pli"
module "/pliant/graphic/browser/naive/server.pli"
module "/pliant/graphic/browser/naive/lib/all.pli"


browser_page "/supervisor/"
  if false # browser_thread
    while stream=success
      sleep 0.5
      section_replay "time"
      display
      stream flush anytime
  window main
    para
      font size 16*25.5/72
        center
          bold
            text "Welcome to the Pliant browser"
    para
      text "The Pliant browser enables you to open 12 sessions at once." ; eol
      text "The browser screen center can be divided in up to four parts, enabling you to view up to four sessions simultaneously." ; eol
      text "The top, left and bottom parts of the screen display information about the current session, so they change each time you switch to another session." ; eol
      text "The right part of the screen always displays information about the window manager session." ; eol
    para
      text "When you start the browser, session 1 is the current session and displays your home page." ; eol
      text "Session 12 is always running the window manager." ; eol
    para
      text "Below we list the various special keys used by the Pliant browser and their respective meanings:" ; eol
      table border 0.3 padding 1
        row
          cell
            text "Key"
          cell
            text "Action"
        row
          cell
            text "Shift F1 ... F11"
          cell
            text "Duplicates current session on session 1 .. 11"
        row
          cell
            text "Ctrl F1 ... F12"
          cell
            text "Switches to session 1 ... 12"
        row
          cell
            table border 0
              row
                cell void
                cell text:"A"
                cell text:"Z"
                cell text:"E"
              row
                cell text:"Ctrl + "
                cell text:"Q"
                cell text:"S"
                cell text:"D"
              row
                cell void
                cell text:"W"
                cell text:"X"
                cell text:"C"
          cell
            text "Defines which part of the screen the current session is using." ; eol
            text "As an example, Ctrl + Q means current session will use only the left side of the screen, and Ctrl + S means the current session will use all the screen."
        row
          cell
            text "Ctrl " ; italic text:"an_arrow"
          cell
            text "Changes the position of the middle of the screen."
        row
          cell
            text "Ctrl escape"
          cell
            text "Forces screen high quality redraw."
        row
          cell
            text "Alt " ; italic text:"any_key"
          cell
            text "Toggles the button which has the selected yellow-painted key."
  window right
    section "time" dynamic
      para 
        font size 8*25.4/72 color (color rgb 128 128 128)
          var DateTime now := datetime
          var Str day :=day_name now:date:day_of_week 
          text upper:(day 0 1)+(day 1 2)+" "+(string now:date:day) ; eol
          text ((string now:time) 0 5)
    para 'button:size' 8*25.4/72 'button:space_x' 2
      button "help"
        void