home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / mem / MPW Helpers / Scripts / SetIconTrace < prev    next >
Encoding:
Text File  |  1992-05-29  |  264 b   |  12 lines  |  [TEXT/MPS ]
  1. set SetIconTrace_opt "`getlistitem -m 'Choose Icon trace option:' -d 'Off' 'On (-1)' -c -q`"
  2. if "{SetIconTrace_opt}" != ""
  3.     if "{SetIconTrace_opt}" == "On (-1)"
  4.       set TRACE -1
  5.       export TRACE
  6.     else
  7.       unset TRACE
  8.       unexport TRACE
  9.     end
  10. end
  11. unset SetIconTrace_opt
  12.