Invenzioni E Inventori 1: Lavoro E Vita Quotidiana/invenzioni-inventori-1.iso/mac/Invenzio/Mare/SHAREDM.CST/03106_Script_3106

Text File | 1997-09-15 | 2KB | 69 lines

on corr_curs
  -- corregge la script del cursore del testo
  put "Sostituzione script del cursore di articolo"

  set cur to 0
  repeat with x=1 to 10000
    if the type of member x = #bitmap then
      --    set nome to the name of cast x
      set pgm to the scripttext of cast x
      if x=100 then put pgm


      if offset("ss > integer((a-64)",pgm)>0 then
        set cur to x
        exit repeat
      end if
    end if

  end repeat
  if x> 0 and x<9999 then
    put x
    set the scripttext of member x  to scommenta( the scripttext of member "nuovo_cursore")
    put "OK - sostituzione effettuata al cast ",x
  else
    put "ATTENZIONE **** cast del cursore di Articolo NON trovato"
  end if

  set cur to 0
  repeat with x=1 to 2000

    --    set nome to the name of cast x
    if the casttype of cast x = #script    then
      set pgm to the scripttext of cast x
      if offset("on su ",pgm)>0 or  offset("on su" & return ,pgm)>0 then
        set cur to x
        exit repeat
      end if
    end  if



  end repeat
  if x>0 and x<1999 then
    set pgm to the scripttext of cast x
    set pgm to ""
    set the scripttext of cast x to pgm
  end if


  set cur to 0
  repeat with x=1 to 2000
    if the casttype of cast x = #script    then
      set pgm to the scripttext of cast x
      if offset("on giu ",pgm)>0 or  offset("on giu" & return ,pgm)>0 then
        set cur to x
        exit repeat
      end if
    end if

  end repeat
  if x>0 and x<1999 then
    set pgm to the scripttext of cast x
    set pgm to ""
    set the scripttext of cast x to pgm
  end if


end