Patch title: Release 95 bulk changes
Abstract:
File: /pliant/graphic/browser/sample/run.pli
Key:
    Removed line
    Added line
   
# pliant 'precompile /binary/browser.dump module /pliant/gra
# pliant 'precompile /binary/rip.dump module /pliant/graphic


# pliant 'precompile /binary/browser.dump module /pliant/gra
# pliant 'precompile /binary/rip.dump module /pliant/graphic



module "/pliant/language/unsafe.pli"
module "/pliant/language/context.pli"

module "/pliant/graphic/browser/server/main.pli"
module "/pliant/util/pml/multiplexer.pli"
module "/pliant/language/stream/loopback.pli"
module "/pliant/graphic/browser/client/main.pli"
module "/pliant/language/unsafe.pli"
module "/pliant/language/context.pli"

module "/pliant/graphic/browser/server/main.pli"
module "/pliant/util/pml/multiplexer.pli"
module "/pliant/language/stream/loopback.pli"
module "/pliant/graphic/browser/client/main.pli"
module "/pliant/graphic/console/http_proxy.pli"

module "/pliant/graphic/browser/server/api.pli"
module "test.pli"

module "/pliant/graphic/browser/server/api.pli"
module "test.pli"
module "db_test.pli"
module "filemanager.pli"
module "editor.pli"
module "document.pli"
module "status.pli"

module "filemanager.pli"
module "editor.pli"
module "document.pli"
module "status.pli"

constant service_test true
constant service_test false
constant service_http false
constant service_floppy false



browser_page "/"
  window main
constant service_http false
constant service_floppy false



browser_page "/"
  window main
    text "Welcome"
    if user_name<>""
      text " "+user_name
    text " on '"+computer_fullname+"'."
    section "main"
      para
        text "Welcome"
        if user_name<>""
          text " "+user_name
        text " on '"+computer_fullname+"'."
    section "errors"
      void
  window left
  window left
    button "test" key "alt t" stretch
    button "test" key "alt t" stretch help "See the result of test.pli sample applet"
      url_call "/test"
    eol
      url_call "/test"
    eol
    button "db test" key "alt b" stretch help "Another sample applet using a database"
      url_call "/db_test"
    eol
    button "documents" key "alt d" stretch
      url_call "/document/"+computer_fullname+"/document/roo
    eol
    button "files" key "alt f" help "See and edit disk files
      url_call "/file/"
    eol
    button "status" key "alt s" over stretch
      if over_on
        section_overwrite "help"
          text "Display controls about the computer"
      eif over_off
        section_overwrite "help"
          void
      else
        url_call "/status/"
    if service_test
      eol
    button "documents" key "alt d" stretch
      url_call "/document/"+computer_fullname+"/document/roo
    eol
    button "files" key "alt f" help "See and edit disk files
      url_call "/file/"
    eol
    button "status" key "alt s" over stretch
      if over_on
        section_overwrite "help"
          text "Display controls about the computer"
      eif over_off
        section_overwrite "help"
          void
      else
        url_call "/status/"
    if service_test
      eol
      button "bug" key "alt b" over stretch help "Shortcut t
      button "bug" key "alt u" over stretch help "Shortcut to test some browser bugs."
        url_call "/file/tmp/console"
    if service_floppy
      eol
      button "floppy" key "alt f" over stretch help "Build b
        kernel_load_module "floppy"
        kernel_make_device "device:/fd0"
        file_copy "file:/backup/floppy.dd" "device:/fd0" red
        url_call "/file/tmp/console"
    if service_floppy
      eol
      button "floppy" key "alt f" over stretch help "Build b
        kernel_load_module "floppy"
        kernel_make_device "device:/fd0"
        file_copy "file:/backup/floppy.dd" "device:/fd0" red
    eol
    eol
    button "refresh" key "alt r" over stretch help "Recompile modified pages."
      var List:Str errors := browser_page_refresh
      section_overwrite "errors"
        para
          each err errors
            text err ; eol
  window bottom
    section "help"
      void


  window bottom
    section "help"
      void


export run_server run_clear_client run_secured_client run_bo
function run_framebuffer
  browser_server
  multiplexer_port "loopback:/server/browser" "loopback:/client/browser"
  sleep 0.1
  browser_client "console [dq]framebuffer[dq] terminal 2 url [dq]loopback:/[dq] fullscreen windows_manager [dq]loopback:/windows_manager[dq]"

function run_http_proxy
  browser_server
  multiplexer_port "loopback:/server/browser" "loopback:/client/browser"
  sleep 0.1
  console_http_proxy port 8080 root_url "loopback:"

export run_server run_clear_client run_secured_client run_both run_fullscreen run_framebuffer run_http_proxy