7 string.menu
/*
/*   Called by:	arcedit.menu
/*  Calls made: string.aml
/*		getstring.aml
/*
/* Description:	Allows the user to store command strings in a scrolling list
/*		that can be selected and executed anytime during the current
/*		edit session.
 %strings







 Add string:%addstring
 %remove %removeall %save %restore
%strings input string 40 return '&if ^ [null %string%] &then; ~
  &run string [quote %string%]' rows 7 scroll yes typein no choice %.ae$strings%
%addstring input newstring 28 return ~
 '&if [null %.ae$strings%] &then; &s .ae$strings [quote %newstring%]; ~
  &else; &s .ae$strings [quote %newstring%] %.ae$strings%; ~
  &s string %newstring%; &s newstring' scroll no typein yes char
%removeall button 'Remove All' &s .ae$strings ' '
%remove button 'Remove' &s .ae$strings ~
  [token %.ae$strings% -delete [token %.ae$strings% -find [quote %string%]]]
%save button 'Save' &s mess [show &mess]; ~
  &s echo [show &echo]; &mess &on; &echo &on; &watch &off; &watch string.wat; ~
  &ty %.ae$strings%; &watch &off; &echo %echo%; &mess %mess%
%restore button 'Restore' &thread &create getstring &modal &run getstring