home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / 0_end.dir / 00033_apriNavEnd.ls < prev    next >
Encoding:
Text File  |  2000-11-13  |  885 b   |  32 lines
  1. on apriNavEnd
  2.   if getPos(the windowList, window "m_navend") = 0 then
  3.     set loaded to 0
  4.   else
  5.     set loaded to 1
  6.   end if
  7.   set f to window "m_navend"
  8.   if loaded then
  9.     set pLeft to stageRight() - 96
  10.     set pTop to stageTop()
  11.     set r to the drawRect of f
  12.     set h to getAt(r, 3) - getAt(r, 1)
  13.     set v to getAt(r, 4) - getAt(r, 2)
  14.     set the rect of f to rect(pLeft, pTop, pLeft + h, pTop + v)
  15.     set the titleVisible of f to 0
  16.     set the modal of f to 0
  17.     set the windowType of f to 2
  18.     moveToFront(f)
  19.   else
  20.     set the titleVisible of f to 0
  21.     set the modal of f to 0
  22.     set the windowType of f to 2
  23.     set pLeft to stageRight() - 96
  24.     set pTop to stageTop()
  25.     set r to the drawRect of f
  26.     set h to getAt(r, 3) - getAt(r, 1)
  27.     set v to getAt(r, 4) - getAt(r, 2)
  28.     set the rect of f to rect(pLeft, pTop, pLeft + h, pTop + v)
  29.     open(f)
  30.   end if
  31. end
  32.