Dictionnaire Multimedia Multilingue (Home PC 42)/dictionarvizual.iso/hpc95.exe/hpc95.dxr/00043.ls

Text File | 1998-08-06 | 435 b | 19 lines

on mouseUp
  global exe, nbchar, typeprod
  set nbchar to the number of chars in exe
  set typeprod to exe
  delete char 1 to nbchar - 3 of typeprod
  if typeprod = "exe" then
    open(exe)
    set the mouseDownScript to "continue"
    pause()
  else
    if typeprod <> "exe" then
      LicenceMasterApp()
      put gMasterAppObject(mOpenDocument, exe)
      set the mouseDownScript to "continue"
      pause()
    end if
  end if
end