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