'Merge All Windows' AppleScript

A friend reminded me of how nice it would be to merge all the windows in Safari back together using LaunchBar (or QuickSilver for that matter). So I wrote a quick AppleScript to accomplish the task;

on gui_scripting_status()
    tell application "System Events"
        set ui_enabled to UI elements enabled
    end tell
    if ui_enabled is false then
        tell application "System Preferences"
            activate
                set current pane to pane id "com.apple.preference.universalaccess"
                    display dialog "The GUI scripting architecture of Mac OS X is currently disabled." & return & return & "To activate GUI Scripting select the checkbox \"Enable access for assistive devices\" in the Universal Access preference pane." with icon 1 buttons {"Okay"} default button 1
        end tell
    end if
    return ui_enabled
end gui_scripting_status

on click_menu(app_name, menu_name, menu_item)
    try
        tell application app_name
            activate
        end tell
        tell application "System Events"
            click menu item menu_item of menu menu_name of menu bar 1 of process app_name
        end tell
        return true
    on error error_message
        return false
    end try
end click_menu

if gui_scripting_status() then
    click_menu("Safari", "Window", "Merge All Windows")
end if

The ‘gui_scripting_status()’ routine is taken and modified from code that can be found here: http://www.macosxautomation.com/applescript/uiscripting/index.html.

Check back soon.

There are currently no comments available for this post.