home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Mare / SHAREDM.CST / 03090_Script_3090 < prev    next >
Text File  |  1997-09-15  |  1KB  |  40 lines
  1. on cambia_hilite
  2.   set trovato =  0
  3.   put "***** INIZIO CAMBIA_HILITE *****"
  4.   repeat with x = 1 to 2800
  5.     set tipo to the castType of cast  x 
  6.     --    put tipo
  7.     
  8.     
  9.     if  tipo=#script  then
  10.       
  11.       --   beep
  12.       set pgm to the scripttext of cast x
  13.       --   put pgm
  14.       if pgm contains "at_hil_sottoinv" then
  15.         set trovato = 1
  16.         put "ho trovato  at_hil al cast  "&x&RETURN
  17.         repeat with b = 1 to (the number of words in pgm)
  18.           if word b of pgm CONTAINS ( "at_hil_sottoinv" ) then
  19.             put "PAROLA: " & b&RETURN
  20.             put "PAROLA TROVATA: "& word b of pgm&RETURN
  21.             if word b of pgm = ( "at_hil_sottoinv" ) then
  22.               put  ( "at_hil") into  word b  of  pgm
  23.               
  24.               set the scripttext of cast x to pgm
  25.               put "SOSTITUITA CON:  " &word b of  the scripttext of cast x&RETURN
  26.             ELSE
  27.               PUT "IMPOSSIBILE EFFETTUARE LA MODIFICA"&RETURN
  28.             END IF
  29.           else
  30.           end if
  31.         end repeat
  32.       end if
  33.     END IF
  34.   end repeat    
  35.   if trovato = 0 then
  36.     put "AT_HIL_SOTTOINV non trovato. Non Φ stata apportata nessuna modifica."&RETURN
  37.   end if
  38.   put "***** FINE CAMBIA_HILITE *****"
  39. end
  40.