%
% acceptance vectors for Photoshop documents
%
page@sel
<

|Docer

 wireop(
">Instruct" log)(
 <
 |Initial
  "Documents" *helpface
  @@
  *unrootch
  *documnts(

 |Tab
%
% react to the tab selection
%
  wired(
">>Tab" log)(
  <
  |Options
%
% check for first time entering
%
   wirex(
">>>Options" log)(
   <
   |-1
%
% this is startup, the first time form loaded
% user selects the desired path from here
%
    lockdis
    0 !JS.CompA
    0 !JS.CompB

   > not
   {
    lockdis
   } if

  |Info
   nonroot
   {
   }
   {
    zerotab
   } ifelse

  |Find

  |Instruct
   nonroot
   {
   }
   {
    zerotab
   } ifelse

  |Close
   nonroot
   {
   }
   {
    zerotab
   } ifelse

  > pop

 |LayerIns
  *layrtred

 |Help
  "Documents" x!/*

 > pop

>

*acceptun

%
% stack: found
%