home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / nct08020.geo / 00102_08 BookMark & FAQ.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  2.1 KB  |  84 lines
  1. on OpenBookMarkWD
  2.   global BookMarkWd1, PCDEL
  3.   set the visible of sprite 48 to 1
  4.   set the cursor of sprite 48 to [400, 401]
  5.   RestoreHilites()
  6.   if objectp(BookMarkWd1) then
  7.     forget(BookMarkWd1)
  8.   end if
  9.   set BookMarkWd1 to window (the pathName & "BM" & PCDEL & "BM_FONE1.GEO")
  10.   set the rect of BookMarkWd1 to rect(the stageLeft + 48, the stageTop + 58, the stageLeft + 272, the stageTop + 257)
  11.   set the titleVisible of BookMarkWd1 to 0
  12.   tell BookMarkWd1
  13.     init()
  14.     loadTitle()
  15.   end tell
  16.   open(BookMarkWd1)
  17.   pause()
  18. end
  19.  
  20. on CloseBookMarkWindow2
  21.   global BookMarkWd2
  22.   if objectp(BookMarkWd2) then
  23.     forget(BookMarkWd2)
  24.   end if
  25. end
  26.  
  27. on CloseBookMarkWindows
  28.   global BookMarkWd1, BookMarkWd2
  29.   if objectp(BookMarkWd1) then
  30.     forget(BookMarkWd1)
  31.   end if
  32.   if objectp(BookMarkWd2) then
  33.     forget(BookMarkWd2)
  34.   end if
  35.   set the castNum of sprite 37 to the number of cast "BOOKMARK_UP"
  36.   set the visible of sprite 48 to 0
  37.   set the cursor of sprite 48 to 0
  38.   RestoreHilites()
  39.   continue()
  40. end
  41.  
  42. on openSubMenuWindow
  43.   global BookMarkWd2, PCDEL
  44.   if objectp(BookMarkWd2) then
  45.     tell BookMarkWd2
  46.       CancelLastSp()
  47.       go("start")
  48.     end tell
  49.   else
  50.     set BookMarkWd2 to window (the pathName & "BM" & PCDEL & "BM_FONE2.GEO")
  51.     set the rect of BookMarkWd2 to rect(the stageLeft + 273, the stageTop + 58, the stageLeft + 609, the stageTop + 257)
  52.     set the titleVisible of BookMarkWd2 to 0
  53.     tell BookMarkWd2
  54.       init()
  55.       PlaceMySlider()
  56.     end tell
  57.     open(BookMarkWd2)
  58.   end if
  59. end
  60.  
  61. on OpenFAQwindow
  62.   global FAQwd, PCDEL
  63.   set the cursor of sprite 48 to [400, 401]
  64.   if objectp(FAQwd) then
  65.     forget(FAQwd)
  66.   end if
  67.   set FAQwd to window (the pathName & "FAQ" & PCDEL & "FAQ_FONE.GEO")
  68.   set the rect of FAQwd to rect(the stageLeft + 120, the stageTop + 80, the stageLeft + 520, the stageTop + 400)
  69.   set the titleVisible of FAQwd to 0
  70.   set the modal of FAQwd to 1
  71.   open(FAQwd)
  72.   pause()
  73. end
  74.  
  75. on closeFAQwindow
  76.   global FAQwd
  77.   if objectp(FAQwd) then
  78.     forget(FAQwd)
  79.   end if
  80.   set the cursor of sprite 48 to 0
  81.   set the castNum of sprite 38 to the number of cast "FAQ_UP"
  82.   continue()
  83. end
  84.