home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / tema / MINICAD / MC7DEMO / MINICAD.1 / TOGLACTA.MPC < prev    next >
Text File  |  1997-04-30  |  220b  |  12 lines
  1. PROCEDURE ToggleClassVis;
  2. CONST
  3. className='Acting Area';
  4. VAR
  5. vis:REAL;
  6. BEGIN
  7. vis:= GetCVis(className);
  8. IF (vis = 0) THEN HideClass(className);
  9. IF (vis =-1) THEN ShowClass(className);
  10. END;
  11. RUN(ToggleClassVis);
  12.