/* This is a forced series of steps.  It is called each time the user has the*/
/* transform setup window open and clicks on the image map.                  */
Arg window

select 
   when SetupStep='ORIGIN' then do
         CALL VpItem TransformWindowId,'IMAGE_ORIGIN_XY','ENABLE'
         xy=ComputeUnscaledImageXY(xy)
         CALL VpSetItemValue TransformWindowId,'IMAGE_ORIGIN_XY',xy

         CALL VpItem TransformWindowId,1005,'FORECOLOR','BLUE'

         CALL VpItem TransformWindowId,1011,'ENABLE'
         CALL VpItem TransformWindowId,1011,'FORECOLOR','RED'
         CALL VpItem TransformWindowId,'DATA_ORIGIN_XY','ENABLE'
         CALL VpItem TransformWindowId,'DATA_ORIGIN_XY','FOCUS'
         CALL VpItem TransformWindowId,'OK_ORIGIN','ENABLE'

         end
      when SetupStep='MAX_X' then do
         CALL VpItem TransformWindowId,'IMAGE_XMAX_XY','ENABLE'
         xy=ComputeUnscaledImageXY(xy)
         CALL VpSetItemValue TransformWindowId,'IMAGE_XMAX_XY',xy

         CALL VpItem TransformWindowId,1013,'FORECOLOR','BLUE'

         CALL VpItem TransformWindowId,1006,'ENABLE'
         CALL VpItem TransformWindowId,1006,'FORECOLOR','RED'
         CALL VpItem TransformWindowId,'DATA_XMAX','ENABLE'
         CALL VpItem TransformWindowId,'DATA_XMAX','FOCUS'
         CALL VpItem TransformWindowId,'OK_XMAX','ENABLE'
         
         end
      when SetupStep='MAX_Y' then do
         CALL VpItem TransformWindowId,'IMAGE_YMAX_XY','ENABLE'
         xy=ComputeUnscaledImageXY(xy)
         CALL VpSetItemValue TransformWindowId,'IMAGE_YMAX_XY',xy

         CALL VpItem TransformWindowId,1015,'FORECOLOR','BLUE'

         CALL VpItem TransformWindowId,1003,'ENABLE'
         CALL VpItem TransformWindowId,1003,'FORECOLOR','RED'
         CALL VpItem TransformWindowId,'DATA_YMAX','ENABLE'
         CALL VpItem TransformWindowId,'DATA_YMAX','FOCUS'
         CALL VpItem TransformWindowId,'OK_YMAX','ENABLE'
         
         end
      when SetupStep='COMPLETE' then do
         xy=ComputeUnscaledImageXY(xy)
         CALL VpSetItemValue CoordinateWindowId,'IMAGE_XY',xy
         end
      otherwise say 'Waht has Doug messed up now?'
      end /* end select */

