Celestin Apprentice 4/Apprentice-Release4.iso/Source Code/C++/Applications/Lookup 1.0d2/Example Script

Text File | 1995-10-22 | 374 b | 9 lines | [TEXT/ToyS]

tell application "Lookup68K_d"
    activate
    set theDoc to make new document
    make new entry at end of theDoc with properties {name:"Future"}
    make new entry at end of theDoc with properties {name:"Sound"}
    make new entry at end of theDoc with properties {name:"Of"}
    make new entry at end of theDoc with properties {name:"London"}
    name of entry 1 through 3 of theDoc
end tell