/* init the selected menu item states */
arg window

/* Get selected region  Image Editor */
rc=VpImgEdt(window, 1010, 'GETSELECTION')
PARSE VAR rc x1 y1 x2 y2
if rc='0 0 0 0' then do
   /* Disable item ~Crop Menu Item */
   CALL VpItem window,286,'DISABLE'
   /* DISABLE item Cut Menu Item */
   CALL VpItem window,266,'DISABLE'
   /* DISABLE item Copy Menu Item */
   CALL VpItem window,267,'DISABLE'
   /* DISABLE item Paste Menu Item */
   CALL VpItem window,268,'DISABLE'
   end
else do
   /* Enable item ~Crop Menu Item */
   CALL VpItem window,286,'ENABLE'
   /* Enable item Cut Menu Item */
   CALL VpItem window,266,'ENABLE'
   /* Enable item Copy Menu Item */
   CALL VpItem window,267,'ENABLE'
   /* Enable item Paste Menu Item */
   CALL VpItem window,268,'ENABLE'
end
