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