%
% acceptance vectors for Custom Edit interaction control
%
page@sel
<

|Rhocus
 wireop(
"rhocus" log)(
 <
 |Initial
  "main" !Phoc.Pri
  "Hidden" !Phoc.Sec
  *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
%
   "custcomp" !Pshop.Deferral
   true !Pshop.Deferred
   "phogront" true *phodeply

  |Tools


  |Desk
%
% show the Desk surface
%
   false !Customer.Editing

   *gotodesk

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

  > pop

%
% Edit mask
%
 |EditMain1
  "mask" *phocbars
  "mask+" *phocdist
%
% Move and size
%
 |EditMain2
  "move" *phocbars
  "move+" *phocdist
%
% Color enhance
%
 |EditMain3
  "color" *phocbars
  "color+" *phocdist
%
% Text editing
%
 |EditMain4
  "text" *phocbars
  "text+" *phocdist

%
% Reset
%
 |EditMain5
  *phocrimg

%
% Prior edit
%
 |EditMain6
  *phocpimg

%
% Next edit
%
 |EditMain7
  *phocnimg
%
% Exit edit menu
%
 |EditMain8
  *phocdone

 |Editmask1
  _Phoc.Pri &"1" *phocdist
 |Editmask2
  _Phoc.Pri &"2" *phocdist
 |Editmask3
  _Phoc.Pri &"3" *phocdist
 |Editmask4
  _Phoc.Pri &"4" *phocdist
 |Editmask5
  _Phoc.Pri &"5" *phocdist
 |Editmask6
  _Phoc.Pri &"6" *phocdist
 |Editmask7
  _Phoc.Pri &"7" *phocdist
 |Editmask8
  _Phoc.Pri &"8" *phocdist

 |PerfJsx
  wirex(
  *phocperf

 |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
%