%
% lookup for operating lower screen xhelp for photoshop
%
% stack: perform-post
%
%|Xreturn
% x/(>
%

|Xstart
% "taskarea"
 pop
 "LowLeft" *helplocx
 false

%|Xop
% Ent._E4 unescape
% execstr
% Ent._E3 unescape *operator
%

|Xtend
% "taskarea"
 pop
 help@
 *archsize
 Task.@
 "LowLeft" *helplocx
 false

|Xnorm
% "archarea"
 pop
 "LowRight" *helplocx
 false

|Xarch
% *archarea
 pop
 "LowRight" *helplocx *
 false

%|InitXhelp
% x/(>
%
%|DoneXhelp
% *xhelback
%
%|BackXhelp
% *xhelback
%
%|InitEpid
%
%|AcceptEpid
% "=" !Help.Url
% *xhelnorm
%
%|RejectEpid
% "=" !Help.Url
% *xhelnorm
%

|InitView
 pop
 *xheltoom(
 false

|DoneView
 pop
 true !Xhelp.Retreat
 empty !Help.Actions
 *pshpnotp
 *archbacl
 false !Arching
 *deskshow(
 false

%|BackView
% false !Xhelp.Retreat
%
% make sure downstream task and xhelp sizing is correct
%
% *archbacl
%

|TreeView
 pop
 *pshpnotp
 "Left" *tasksize
 "xhelbotn" !Help.Actions
 empty !Help.Url
 *xhelnorm
 *deskontp(
 *desknotp(
 false

|EditView
 pop
 *pshpnotp
 "Left" *tasksize
 "Xhelp" *helpsize
 "xhelbotn" !Help.Actions
 *deskontp(
 *desknotp(
 false

%|EscView
% *archbacl
% false !Arching
%
% stack: perform-post
%