%
% stack: message-str
%
unescape !Ent.ExitData
%
% Atop message vector
%
Task.@
Ent._E1 !Atop.Ident Ent._E2 !Atop.Owner
%
% AIR communication
%
Ent._E3
">Atop " log()
<

|Text
 _Ent.ExitData ^"Text message: " logs
 Ent._E4 unescape logs

|Message
 Ent._E5
">>>> " log()
 <
 |Entering
  false !Atop.About
  false !Atop.Atop
  false !Atop.Show
  false !Atop.Direct
  false !Atop.Nav
  false !Atop.Shooter
  false !Atop.Configure
  empty !Pho.Tab
  Ent._E6 !View.Leaving
  Ent._E7
"width " log()
  !Pho.ViewX
  Ent._E8
"height " log()
  !Pho.ViewY
%
% going to
%
  Ent._E4
">>> " log()
  <
  |Atop
   true !Atop.Atop
   "Atop" !Pho.Tab
  |About
   true !Atop.About
   "About" !Pho.Tab
  |Direct
   true !Atop.Direct
   "Direct" !Pho.Tab
   *atopttre
  |Nav
   true !Atop.Nav
   "Nav" !Pho.Tab
%
% calculate the width of the slideshow item
%
   _Pho.StageW 9.7 div normint !Pho.ShowX
%
% the height of the slideshow item
%
   _Pho.StageH
"remshow " log()
   .20 mul normint
   !Pho.ShowY
%
% calculate the width of the nav item
%
   _Pho.StageX .50 mul 3.3 div normint !Pho.NavX
%
% the height of the nav item
%
   _Pho.StageY .75 mul 3.3 div normint !Pho.NavY
   *atopxtre

  |Shooter
%
% now in shooter mode
%
   true !Atop.Shooter
   "Shooter" !Pho.Tab

  |Config
   true !Atop.Config
   "Config" !Pho.Tab

  > pop

 |Resize
  _Ent.ExitData
  "|Resize|" Str.Right
  "|" 0 12 1 parse
  zeronull !Pho.StakeLRy
  zeronull !Pho.StakeLRx
  zeronull !Pho.StakeULy
  zeronull !Pho.StakeULx
%
% calculate the distance from left to right
% and top to bottom
%
  _Pho.StakeLRx _Pho.StakeULx sub !Pho.StakeW
  _Pho.StakeLRy _Pho.StakeULy sub !Pho.StakeH

  zeronull !Pho.Vheight
  zeronull !Pho.Vwidth
  !Pho.StageH
  !Pho.StageW
  !Pho.ViewH
  !Pho.ViewW
  !Pho.Oheight
  !Pho.Owidth
  _Pho.Tab
  <
  |Atop
  |About
  |Direct
  |Nav
  |Config
  |Show
  |Shooter
  > pop

 |Xml
%%%   true *tre0acts
  Ent._E6
">>>> " log()
%%%   "Run" *xmldstar
  _Pshop.Counter 6 prezero ^"msg" &".rtr" photon
  write

 |Exec
  Ent._E6 unescape
">>>>> " log()
  execstr
 > not
 {

  Ent._E4
">>> " log()
  <
  |Atop
   Ent._E5
">>>> " log()
   <
   |Start
%
% photoshop has started connecting with remote
% absorb the ownership details
%
    "_owner.txt" ofdesk exec
    Ent._E6 !Pho.StageW Ent._E7 !Pho.StageH
    _Pho.StageW _Pho.StageH gt !Pho.Landscape
    "Atop" !Pho.Tab
   > pop
  |About
  |Config
  |Direct
   Ent._E5
">>>> " log()
   <
   |Screen
    Ent._E6
">>>>> " log()
    <
    |Continue
     _Atop.Direct { *atopttre } if
    > pop
   > pop

  |Nav
   Ent._E5
">>>> " log()
   <
   |Mobile
    Ent._E6
">>>>> " log()
    <
    |Continue

    |Slick
     Ent._E7
">>>>>> " log()
     "showslik" look pop

    |Click
     Ent._E7
">>>>>> " log()
     "showclik" look pop
    > pop
   > pop   

  |Show
   Ent._E5
">>>> " log()
   <
   |Flip
    Ent._E6
">>>>> " log()
    <
    > pop
   > pop   

  |Shooter
   Ent._E5
">>>> " log()
   <
   |Start
   |Shoot
    Ent._E6
">>>>> " log()
    <
/*
    |NextFile
     Ent._E7 unescape
"next " log()
     !Pho.File

     *atopnext
%
% add any information to be attached to the file at the Photoshop node
%

     "Response.jsx" ofdesk write

     "Received" *atopttrg
*/
    > pop

   > pop

  > pop

 } if

> pop