home *** CD-ROM | disk | FTP | other *** search
/ A Field Trip to the Sky (Demo) / Mac_Sunburst_AFieldTripToTheSky-Demo.iso / DIR / NewList.DIR / 00001_Script_init-ok-cancel next >
Text File  |  1996-03-25  |  415b  |  22 lines
  1. global gAddListWdw, gListName
  2.  
  3. on doOk
  4.   
  5.   tell the stage to set the mouseDownScript to ""
  6.   
  7.   -- close ourselves
  8.   close gAddListWdw
  9.   
  10.   -- and set the current city to be this new one
  11.   set gListName to char 1 to 20 of field "New Loc List Entry Field"
  12.   tell the stage to addLocationList
  13.   
  14. end
  15.  
  16. on doCancel  
  17.   
  18.   tell the stage to set the mouseDownScript to ""
  19.   
  20.   close gAddListWdw
  21. end
  22.