activate application \"Safari\"
tell application \"System Events\"
    tell process \"Safari\"
        keystroke \"b\" using {command down, shift down}
        keystroke \"|\" using command down
    end tell
end tell

tell application \"System Events\"
    tell application \"Safari\" to activate
    tell process \"Safari\"
        try
            click menu item \"Hide Bookmarks Bar\" of menu \"View\" of menu bar 1
            click menu item \"Hide Toolbar\" of menu \"View\" of menu bar 1
        on error
            click menu item \"Show Bookmarks Bar\" of menu \"View\" of menu bar 1
            click menu item \"Show Toolbar\" of menu \"View\" of menu bar 1
        end try
    end tell
end tell

29.10.08 29.10 19:02:11  diskarbitrationd daemon Error FastScripts [233]:36611 not responding.

set myVolumes to getSelectedVolumes()
if (count myVolumes) < 1 then return

set myImages to getImageList()

repeat with myVolume in myVolumes
    set myImagePath to \"\"
    set myImageFile to null
    repeat with myImage in myImages
        set mountPoint to |mount-point| of item 3 of |system-entities| of myImage
        displayed name of myVolume
        if mountPoint = (\"/Volumes/\" & displayed name of myVolume) then
            set myImagePath to |image-path| of myImage
            set myImageFile to POSIX file myImagePath
        end if
    end repeat
    
    tell application \"Finder\"
        eject myVolume
        if myImageFile is not null then
            try
                delete file myImageFile
            end try
        end if
    end tell
end repeat



on getSelectedVolumes()
    set volumeList to {}
    tell application \"Finder\"
        set mySelection to selection
        repeat with myItem in mySelection
            set myItem to contents of myItem
            --            log class of myItem
            if kind of myItem is \"Volume\" then
                set end of volumeList to myItem
            end if
        end repeat
    end tell
    return volumeList
end getSelectedVolumes



on getImageList()
    set diskinfo to do shell script \"hdiutil info -plist\"
    tell application \"System Events\"
        set diskinfo to value of (make new property list item with properties {text:diskinfo})
        set imageList to |images| of diskinfo
    end tell
    return imageList
end getImageList