home *** CD-ROM | disk | FTP | other *** search
/ 1&1 Multimedia Trend 1996 11 B / MM_TREND.ISO / prog / t_online / shared.dir / 00307.ls < prev    next >
Encoding:
Text File  |  1996-09-18  |  445 b   |  27 lines
  1. on InitTheMac
  2.   global bg
  3.   exit
  4.   if the machineType < 255 then
  5.     if objectp(bg) = 0 then
  6.       openXLib("backdrop xobj")
  7.       set bg to backdrop(mnew)
  8.       closeXLib("backdrop xobj")
  9.     end if
  10.     if objectp(bg) then
  11.       bg(mHideInBack, 0)
  12.       bg(mSetColor, 256)
  13.       bg(mShow)
  14.     end if
  15.   end if
  16. end
  17.  
  18. on ResetTheMac
  19.   global bg
  20.   exit
  21.   if the machineType < 255 then
  22.     if objectp(bg) then
  23.       bg(mHide)
  24.     end if
  25.   end if
  26. end
  27.