home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Credits.dxr / 00001_main.ls next >
Encoding:
Text File  |  2000-12-21  |  871 b   |  34 lines
  1. on startMovie
  2.   global gMovie, gTutorial
  3.   gMovie = "credits"
  4.   member("Credits").scrollTop = 1
  5.   gTutorial = "Tmain"
  6. end
  7.  
  8. on stopMovie
  9.   global Connessione
  10.   Connessione = dcGetDefaultInternetConnection()
  11.   status = dcGetConnectionStatus(Connessione)
  12.   if status = 100 then
  13.     pippo = dosMessageBox("La connessione ├¿ ancora attiva." & RETURN & "Desideri chiuderla?", "AVVISO", "Yes No", "Warning", "Yes")
  14.     if pippo = "yes" then
  15.       disconnessione()
  16.     end if
  17.   end if
  18. end
  19.  
  20. on disconnessione
  21.   global Connessione
  22.   status = dcGetConnectionStatus(Connessione)
  23.   if status = 100 then
  24.     put "Disconnessione in corso da" && Connessione & "." into field "Status"
  25.     cursor(4)
  26.     dcHangUp(Connessione)
  27.     if the result = 0 then
  28.       put "Errore: " & dcGetLastErrorMessage() into field "Status"
  29.     end if
  30.   end if
  31.   cursor(-1)
  32.   put EMPTY into field "Status"
  33. end
  34.