home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / navig2.dir / 00384_Script_384 < prev    next >
Text File  |  1997-10-10  |  2KB  |  65 lines
  1. ON ARCHIVIO
  2. --    if the colorDepth<=8 then exit
  3. --  if (the mouseh >= 51 and the mouseh <= 548) and (the mousev >=0 and the mousev <= 429) then
  4. --    GLOBAL LISTA, TIPO, NOME, MATERIALE,utente,var_dll
  5. --    
  6. --    set cst to the mousecast
  7. --    set var_dll to 0
  8. --    SET TIPO= chars(STRING(THE CASTTYPE OF CAST (cst )),1,length(STRING(THE CASTTYPE OF CAST (cst ))))
  9. --    
  10. --    if tipo ="digitalVideo" then  set materiale to the fileName of cast (cst)
  11. --    if tipo ="bitmap" then 
  12. --      if  the height of cast (cst)=480 and the width of cast (cst)=640 then
  13. --        
  14. --        if the machineType<256 then
  15. --          linkdll "stagetc"
  16. --          put StageToCast(mNew,0,51,430,570) into mauro
  17. --          set materiale to mauro(mgethandle)
  18. --          mauro(mDispose)
  19. --                    UNLINKDLL "stagetc"
  20. --          
  21. --        else          
  22. --          global copyObj, savePicHandle, pictureFlag,cobalto
  23. --          linkdll "dataproj"
  24. --          put dataproj (mNew ) into cobalto
  25. --          cobalto(mSetCaptureRect,51,0,570,430)
  26. --          cobalto(mdispose)
  27. --          
  28. --        end if
  29. --      else
  30. --        put the picture of cast (cst) into materiale
  31. --      end if
  32. --    end if
  33. --    
  34. --    
  35. --    
  36. --    if tipo ="text" then 
  37. --      SET XX=1
  38. --      SET MATERIALE= ""
  39. --      REPEAT WHILE XX<=the number of lines of the text of cast (cst)
  40. --        set materiale to MATERIALE && line XX of the text of cast (cst)
  41. --        SET XX=XX+1
  42. --      END REPEAT
  43. --    END IF
  44. --    
  45. --    
  46. --    
  47. --    global mywindow
  48. --    if objectp(mywindow) then forget mywindow 
  49. --    
  50. --    if the machinetype = 256 then
  51. --      set ttt=char 1 to 2 of the pathName&"\invenzio\NOME.DIR"
  52. --    else
  53. --      set ttt="INVENZIONI:INVENZIO:NOME.DIR"
  54. --    end if
  55. --    
  56. --    set mywindow to window  "RACCOLTA"
  57. --    SET THE FILENAME OF MYWINDOW TO TTT
  58. --     set the rect of mywindow to mywindowrect
  59. --    set the titlevisible of mywindow to true
  60. --    set the windowType of window ttt to 0
  61. --    
  62. --    open mywindow
  63. --  end if    
  64. end
  65.