Zzot!

on menuselect(menuName, itemName)
    return false
end menuselect
 
on postmenuselect(menuName, itemName)
    tell application "BBEdit"
        tell text window 1
            select insertion point before last character of selection
        end tell
    end tell
end postmenuselect

-- Script property to save the image we're supposed to mount
property diskImage : missing value
 
-- If the property has a value, but it doesn't point anywhere
tell application "Finder" to exists diskImage
if diskImage is not missing value and the result is false then
    display dialog ¬
        "The disk image is missing.  Please choose another." with icon stop
    if dialog reply is "Cancel" then
        return
    end if
    set diskImage to missing value
end if
 
-- Ask the user, if needed, and mount the image
activate
if diskImage is missing value then
    choose file of type "pgd" with prompt "Select the Finances PGP Disk"
    set diskImage to the result
end if
tell application "PGP"
    activate
    open diskImage
end tell
 
-- Switch to Quicken, and we're done
tell application "Quicken 2004" to activate