%
% events from Atos, default
% events here are generated by the Spar subform
%

@Micros

*panlevnt

%
% Steer: deltax,deltay,deltascale,deltaturn
% Sets: x,y,width,height,scale,turn
%

%
% perform the response to the event
%
<

%
% executable instructions sent by communicators
%
|Data
 *panldata

|Warn
 wireop( "warn " log()
 dup 1 left
 <
 |*    % *button
  dup -1 left
  <
  |Image19
   false @^Pmou
   false *xlsrmetl
  > pop
 |(    % (oscale,oturn,x,y,width,height,imgx,imgy,imgwidth,imgheight)
 |^    % ^button longer press
 |@    % @x,y,width,height,scaler   (settled)
 |;    % ;... (ready)
 > pop
 pop

|Startup
 true true @^Pmou
 @_DimF
 Str.Raw(4) ^"fl " log#
 !Micros.H !Micros.W !Micros.Y !Micros.X
 "_micros" text_bin
 any?
 {
  "Sets" @^Adance
 } if

|Msg
 _Ent.ExitData entdec execstr

|Xml
%
% seed the original xml string ahead of the exec for xml*(
%

|Click
 @@
 wired( "micrclik" look pop

> pop