home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / ricerca.dxr / 00005_Hyperlink.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  2.8 KB  |  100 lines
  1. on mouseWithin me
  2.   global gNomeFile, gID, gLineaSelezionata
  3.   the itemDelimiter = "-"
  4.   linea = the mouseLine
  5.   if the text of field "risultato ricerca" = "Spiacente, la parola cercata non ├¿ stata trovata." then
  6.     exit
  7.   end if
  8.   if the text of field "risultato ricerca" = "Inserire una parola di almeno tre lettere." then
  9.     exit
  10.   end if
  11.   tmp = the member of sprite the currentSpriteNum
  12.   if line linea of field tmp = EMPTY then
  13.     set the textStyle of line gLineaSelezionata of field tmp to "plain"
  14.     set the member of sprite 4 to member("dummy")
  15.     gLineaSelezionata = linea
  16.     cursor(-1)
  17.     exit
  18.   end if
  19.   if linea <> gLineaSelezionata then
  20.     set the textStyle of line gLineaSelezionata of field tmp to "plain"
  21.     gLineaSelezionata = linea
  22.     set the textStyle of line gLineaSelezionata of field tmp to "underline"
  23.   end if
  24.   dati = line linea of field "risultato ricerca"
  25.   x = the number of chars in dati
  26.   if x < 3 then
  27.     exit
  28.   end if
  29.   cursor(280)
  30.   titolo = item 1 of dati
  31.   n = the number of chars in titolo
  32.   delete char n of titolo
  33.   the itemDelimiter = "#"
  34.   repeat with i = 1 to the number of lines in field "titolo#nomefile"
  35.     linea2 = line i of field "titolo#nomefile"
  36.     gNomeFile = item 1 of linea2
  37.     if gNomeFile = titolo then
  38.       gNomeFile = item 2 of linea2
  39.       gID = item 3 of linea2
  40.       gID = integer(gID + 0)
  41.       set the member of sprite 4 to member(gNomeFile)
  42.       updateStage()
  43.       exit repeat
  44.     end if
  45.   end repeat
  46.   updateStage()
  47. end
  48.  
  49. on mouseDown me
  50.   global gInsolite, gEtude
  51.   gInsolite = 0
  52.   gEtude = 0
  53. end
  54.  
  55. on mouseUp me
  56.   global gNomeFile, gQuadro, gLineaSelezionata, gElencoVisualizzato, gWrongAccess, gFrame, gMovie, gOrigineElenco
  57.   gFrame = the frame
  58.   tmp = the clickOn
  59.   elenco = the member of sprite tmp
  60.   linea = the mouseLine
  61.   if line linea of field elenco = EMPTY then
  62.     set the member of sprite 4 to member("dummy")
  63.     cursor(-1)
  64.     exit
  65.   end if
  66.   if the text of field "risultato ricerca" = "Spiacente, la parola cercata non ├¿ stata trovata." then
  67.     exit
  68.   end if
  69.   if the text of field "risultato ricerca" = "Inserire una parola di almeno tre lettere." then
  70.     exit
  71.   end if
  72.   dati = line linea of field "risultato ricerca"
  73.   x = the number of chars in dati
  74.   if x < 3 then
  75.     exit
  76.   end if
  77.   gElencoVisualizzato = the member of sprite tmp
  78.   gLineaSelezionata = the mouseLine
  79.   Ntema = char 1 of gNomeFile
  80.   if charToNum(Ntema) > 65 then
  81.     exit
  82.   end if
  83.   gWrongAccess = 1
  84.   gMovie = "Theme" & Ntema
  85.   gQuadro = char 1 to 5 of gNomeFile
  86.   gOrigineElenco = "ricerca"
  87.   aggiungiBACKCamuffo()
  88.   go("scheda", gMovie)
  89. end
  90.  
  91. on mouseLeave
  92.   global gLineaSelezionata
  93.   gLineaSelezionata = 0
  94.   cursor(-1)
  95.   tmp = the member of sprite the currentSpriteNum
  96.   set the textStyle of field tmp to "plain"
  97.   set the member of sprite 4 to member("dummy")
  98.   updateStage()
  99. end
  100.