ivanski

set destWindowIsNew to true

set optionList to {"Copy Tabs", "Move Tabs"}
set tabsAction to choose from list optionList with prompt "What to do with tabs:" default items {"Move Tabs"}
set closeTabs to tabsAction contains "Move Tabs"

tell application "Safari"
	set sourceWindow to front window
	set sourceTabs to tabs of sourceWindow
	set startSourceTabIndex to index of current tab of sourceWindow