home *** CD-ROM | disk | FTP | other *** search
/ Webster's Millennium Amer…Sign Language Dictionary / ASL.ISO / mac / SHARED.cst / 00033_Script_33 < prev    next >
Text File  |  2001-09-17  |  2KB  |  48 lines
  1. --∂ï
  2. on help
  3.   global myHelpWindow
  4.   if objectP(myHelpWindow) then
  5.     close myHelpWindow
  6.     forget myHelpWindow
  7.     finishHelpMovie
  8.   else 
  9.     set myHelpWindow to window "help.dir"
  10.     set the windowType of window "help.dir" = 3
  11.     
  12.     if the machineType = 256 then
  13.       set the fileName of myHelpWindow to the pathName & "MIAWs\help.dir"
  14.     else set the fileName of myHelpWindow to the pathName & "MIAWs:help.dir"
  15.     
  16.     set the titleVisible of myHelpWindow to FALSE
  17.     set the modal of myHelpWindow to TRUE
  18.     if the movieName = "Main.dir" then tell myHelpWindow to setPopUp "Main Menu" 
  19.     if the movieName = "Dict.dir" then tell myHelpWindow to setPopUp "Dictionary" 
  20.     if the movieName = "Skills.dir" then tell myHelpWindow to setPopUp "Skills" 
  21.     if the movieName = "FS.dir" then tell myHelpWindow to setPopUp "FingerSpelling" 
  22.     if the movieName = "OverView.dir" then tell myHelpWindow to setPopUp "ASL Overview" 
  23.     if the movieName = "Tour.dir" then tell myHelpWindow to setPopUp "Tour" 
  24.     
  25.     put the rect of myHelpWindow into currentRect
  26.     set the rect of myHelpWindow to centerRect(currentRect)
  27.     
  28.     hideEntry "all"
  29.     sound Stop 3
  30.     enableMenu(FALSE)
  31.     
  32.     pupPal(myHelpWindow)
  33.     
  34.     open myHelpWindow
  35.     moveToFront myHelpWindow
  36.   end if 
  37. end
  38.  
  39. on finishHelpMovie
  40.   -- alert "finishHelpMovie"
  41.   global myHelpWindow
  42.   if objectP(myHelpWindow) then 
  43.     close myHelpWindow
  44.     forget myHelpWindow
  45.     showEntry "all"
  46.   end if
  47.   
  48. end