%
% acceptance vectors for Photoshop and Bridge control
%
page@sel
<

|Phocus
 wireop(
"phocus" log)(
 <
 |Initial
  *phocacpt
  *pshpaths
  *chaining(

 |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
%
    empty *enteronm
    Pho.!
    *phocusoz
%
% this menu is opened, the destination application is on the stack
%
%%%    *chaining

   > not
   {

   } if

  |Ps
%
% after possible photoshop deployment bring it to the front
% this may require starting photoshop
%
   "phofront" true *phodeply

  |Desk
%
% show the Desk surface
%
   *gotodesk

  |BrDesk
   
/*
  |Bridge

  |DeskPs

   "deskpshd" true *phodeply

  |BrPs

*/

  > pop

 |Documents
"//+Documents
//*
"
  *phocperf

 |Document
  "Pshop Doc" *taskanew
  "doc"
/*
 |Panels
  _Pho.Pals not !Pho.Palettes
  *phopalts
*/

 |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$
   {
    "Tabber(4);"
    Pho.!
   }
   {
    *phoctogl
   } ifelse
  } if

 |PhoUsrC
%
% activate the Photoshop tab
%
 _Photoshop
 {
%%%  @Phocus
  "Tabber(0);"
  Pho.!
  *rephocus(
 } if

 |PhoUsrD
  *deskshow

 |PhoTgl
  *phoctogl
 
 |GetSel

 |GetCont

 |RunJsx
  wirex( *phocomnd

 |Clear
%%%  @Phocus
  "ClearRun();"
  Pho.!

 |Loader
  Ent._E5 unescape
  *phoconlo

 |Built
  wirex( "//*" slice
  *phoconbu

 |PerfJsx
  wirex(
  *phocperf

 |Groups
  *deskontp

  *phocusof(

  *desknotp(


 > not
 {
  false !found
 } if

>

*acceptun

%
% stack: found
%