/* string.aml
/*
/*   Called by: string.menu
/*  Calls made: setec.aml
/*		edit.aml
/*
/* Description:	Executes the selected string and checks if the editcover and
/*		edit feature has been changed

/* AML setup
&args string
&severity &error &routine ERROR
&messages &on

/* Set initial settings for edit cover and edit feature
&s editcover [show editcover]
&s editfeature [show editfeature]

/* Execute string
&tty [unquote %string%]

/* Check if edit cover and/or edit feature has changed
&call CHANGES

&return

&routine ERROR
&severity &error &ignore
&call CHANGES
&return; &return

&routine CHANGES
&if [show editcover] <> %editcover% &then
  &thread &create setec &modal &run setec .FALSE.
&if %editfeature% <> [show editfeature] &then &do
  &if [show &thread *exists edit] &then
    &thread &delete edit
  &thread &create edit &run edit [show editfeature] .FALSE.
  &end /* then do
&return