Create New Notebook With Options

Function IgorMenuHook(isSel, menuStr, itemStr, itemNo, topWindowName, wt)
	Variable isSel, itemNo, wt
	String menuStr, itemStr, topWindowName

	Variable handled= 0
	switch(isSel)
		case 0:
			break
		case 1:
			if ( (cmpstr(menuStr,"New") == 0) && (cmpstr(itemStr,"Notebook") == 0) )
				Execute/P/Q/Z "IMH_CreateNewNotebook()"
				handled= 1
			endif
			break
	endswitch
	return handled
End

Function IMH_CreateNewNotebook()

	string ttxt="", ntxt
	variable TtN=2, format=2, kill=1
	prompt ttxt "Title:"
	prompt TtN "Derive Name from Title?", popup "No;Yes;"
	prompt format "Format", popup "UnFormatted;Formatted;"
	prompt kill "Kill As", popup "Normal;Silent;NO KILL;Hide Only;"
	DoPrompt "Create New Notebook", ttxt,TtN, format, kill
	if (V_flag)
		return -1
	endif
	
	format+=-1
	TtN+=-1
	kill+=-1
	if (TtN)
		ntxt = CleanUpName(ttxt,0)
	else
		ntxt = "Notebook"+CleanUpName(time(),0)
	endif
	NewNotebook/F=(format)/N=$ntxt/K=(kill) as ttxt
	return 0
end