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

|Nhocus
 wireop(
"nhocus" log)(
 <
 |Initial
  *phocacpt
  *pshpaths

 |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
%
% after possible photoshop deployment bring it to the front
% this may require starting photoshop
%
   "phofront" true *phodeply

  |Bridge

  |Desk
%
% show the Desk surface
%
   *gotodesk

  |DeskPs

   "deskpshd" true *phodeply

  |BrPs

  |BrDesk

  > 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
%
   0 *pshpdskr

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

 |PhoUsrD
  *deskshow

 |PhoTgl
%%%   *phoctogl
 
 |GetSel

 |GetCont

 |RunJsx
  wirex( *phocomnd

 |Clear
  @Phocus
  "ClearRun();" Url.!

 |Loader
  Ent._E5 unescape
  *phoconlo

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

 |PerfJsx
  wirex(
  *phocperf

 |Groups
  *deskontp

  *phocusof(

  *desknotp(


 > not
 {
  false !found
 } if

>

*acceptun

%
% stack: found
%