%
% acceptance vectors for AAMedia interaction control
%
page@sel
<

|Qhocus
 wireop(
"Qhocus" log)(
 <
 |Initial
  *phocacpt

 |Tab
%
% react to the tab selection
%
  wired(
">>Tab" log)(
  <
  |Options
%
% check for first time entering
%
   wirex(
">>>Options" log)(
   <
   |-1
%
% preset the menu flag to be expanded, starting that way
% 
    true !Pho.Menu
%
% force the menu on top
%
    @Phocus
    empty *enteronm Url.!
    *phocusoz
%
% this menu is opened, the destination application is on the stack
%
    *chaining

   > not
   {

   } if

  |Ps
%
% make sure bridge not on top
%
   *brignotp
%
% after possible photoshop deployment bring it to the front
% this may require starting photoshop
%
   "phogront" true *phodeply

  |Tools
%
% go to the extended form of Xhelp at the bottom of screen
%
   view? not
   {
    *xheltool
   } if

  |Desk
%
% show the Desk surface
%
   *gotodesk

  |DeskPs
%
% make sure bridge not on top
%
   *brignotp
   "deskpshd" true *phodeply

  |Tell

  |Problem

  > pop

 |PhoOpt
%
% the button for menu show/hide in controlling Photoshop
% toggle the size of the menu to allow/disallow menu tabs
%
  _DeskPs
"DeskPs exit" log)(
  <
  |6
%
% in listening mode, stop listener
%
   *lstnstop
   0 *pshpdskr

  |1 ~ |3 ~ |4
%
% this is deskps action mode, return to deskps xhelp mode
%
%%%jib   2 *pshpdskr
   0 *pshpdskr
%
% bring back the Desk surface
%
   *gotodesk
%
% the next xhelp destination has been set, go to it
%
%%%jib   x/(>
   *pshpincd
  > not
  {
%
% by default the option button acts like the listen process
% or a toggle
%
   _Helping "Lstner"
"chlstn " &3 log)(
   eq$
   {
    @Phocus
    "Tabber(4);" Url.!
   }
   {
    *phoctogl
   } ifelse
  } if

 |PhoUsrC
%
% activate Photoshop
%
  *rephocus

 |PhoUsrD
  *deskshow

 |PhoTgl
  *phoctogl
 
 > not
 {
  false !found
 } if

>

*acceptun

%
% stack: found
%