var NS4 = (navigator.appName.indexOf("Netscape")>=0 && parseFloat(navigator.appVersion) >= 4 && parseFloat(navigator.appVersion) < 5)? true : false;
var IE4 = (document.all)? true : false;
var NS6plus = (parseFloat(navigator.appVersion) >= 5 && navigator.appName.indexOf("Netscape")>=0 )? true: false;
var isMac = (navigator.appVersion.indexOf("Mac")!=-1) ? true : false;
var IEmac = ((document.all) && (isMac)) ? true : false;
var IE4plus = (document.all) ? true : false;
var IE5 = ((document.all)&&(navigator.appVersion.indexOf("MSIE 5.")!=-1)) ? true : false;
var IE6 = ((document.all)&&(navigator.appVersion.indexOf("MSIE 6.")!=-1)) ? true : false;
var Opera7plus = ((document.all)&&(navigator.userAgent.indexOf("Opera 7")!=-1)) ? true : false;
var FF1 = (navigator.userAgent.indexOf("Firefox\/1")!=-1) ? true : false;
var Opera = (navigator.userAgent.indexOf("Opera")!=-1) ? true : false;
var Mozilla = (NS6plus && (navigator.userAgent.indexOf("Netscape") < 0));
var IsLocal = (location.href.indexOf("file://")>-1)? true : false;
var initPlayer = 0; 
var idI;

var oPres = 
{'SLIDES':[
{'SlideSeq': '1', 'Title': 'Declining Populations', 'ClipFile': '1.wma', 'SlideFile': 'slide_1_1.png', 'TimePoint': 0},
{'SlideSeq': '2', 'Title': 'Population Decline', 'ClipFile': '1.wma', 'SlideFile': 'slide_2_3.png', 'TimePoint': 116000},
{'SlideSeq': '3', 'Title': 'Countries and Territories ExperiencingPopulation Decline as of 2007:U.S. Census Bureau Estimates and Projections', 'ClipFile': '1.wma', 'SlideFile': 'slide_3_4.png', 'TimePoint': 171000},
{'SlideSeq': '4', 'Title': 'Births, Deaths, and Natural Increase in Population: Russian Federation, 1960-2007', 'ClipFile': '1.wma', 'SlideFile': 'slide_4_5.png', 'TimePoint': 341000},
{'SlideSeq': '5', 'Title': 'Estimated “Excess Mortality” in Russia, 1992-2006[Benchmarked against Russian Mortality Schedules for 1986/87; rounded]', 'ClipFile': '1.wma', 'SlideFile': 'slide_5_6.png', 'TimePoint': 405000},
{'SlideSeq': '6', 'Title': 'Total Fertility Rate of Less Than 2.1: U.S. Census Bureau Projections for the World, 2008', 'ClipFile': '1.wma', 'SlideFile': 'slide_6_7.png', 'TimePoint': 493000},
{'SlideSeq': '7', 'Title': 'How Much Of Humanity Currently Lives in Places With Fertility Levels Below Replacement?Some Recent Estimates, Approximations and Projections', 'ClipFile': '1.wma', 'SlideFile': 'slide_7_8.png', 'TimePoint': 606000},
{'SlideSeq': '8', 'Title': 'TFR, 1950/55 – 2005/2010', 'ClipFile': '1.wma', 'SlideFile': 'slide_8_9.png', 'TimePoint': 659000},
{'SlideSeq': '9', 'Title': 'How Low Can We Go? We Don’t Know!Total Fertility Rates for Japan and “Asian Tigers”, 1975-2007', 'ClipFile': '1.wma', 'SlideFile': 'slide_9_10.png', 'TimePoint': 730000},
{'SlideSeq': '10', 'Title': 'But we do know fertility rates can turn on a dime…Total Fertility Rate: Iran, 1972-2000', 'ClipFile': '1.wma', 'SlideFile': 'slide_10_11.png', 'TimePoint': 789000},
{'SlideSeq': '11', 'Title': 'Population Living in Countries Experiencing Population Decline', 'ClipFile': '1.wma', 'SlideFile': 'slide_11_12.png', 'TimePoint': 833000},
{'SlideSeq': '12', 'Title': 'World Population Living in Countries w/NRR \<1', 'ClipFile': '1.wma', 'SlideFile': 'slide_12_13.png', 'TimePoint': 888000},
{'SlideSeq': '13', 'Title': 'Germany’s Population Prospects 1950-2050,As Assessed by the German Federal Statistical Office in 2006', 'ClipFile': '1.wma', 'SlideFile': 'slide_13_14.png', 'TimePoint': 976000},
{'SlideSeq': '14', 'Title': 'Germany 2005 vs. 2050', 'ClipFile': '1.wma', 'SlideFile': 'slide_14_15.png', 'TimePoint': 984000},
{'SlideSeq': '15', 'Title': 'Italy 2005 vs. 2050', 'ClipFile': '1.wma', 'SlideFile': 'slide_15_16.png', 'TimePoint': 1018000},
{'SlideSeq': '16', 'Title': 'Japan 2005 vs. 2050', 'ClipFile': '1.wma', 'SlideFile': 'slide_16_17.png', 'TimePoint': 1027000},
{'SlideSeq': '17', 'Title': '“Replacement Migration”? Average Annual Net Number of Migrants between 2000 and 2050, per Million Inhabitants in 2000, by UNPD Scenario and Country or Region', 'ClipFile': '1.wma', 'SlideFile': 'slide_17_18.png', 'TimePoint': 1041000},
{'SlideSeq': '18', 'Title': 'Someone Has To Live There“Replacement Migration”: Per cent of post-1995 migrants and their descendants in total population in 2050, by scenario and country or region', 'ClipFile': '1.wma', 'SlideFile': 'slide_18_19.png', 'TimePoint': 1134000},
{'SlideSeq': '19', 'Title': 'Graying Societies: Made by BabiesIllustrative Percentages of Population 65+:  Stable Populations, Coale-Demeny “West Model”, With Alternative Fertility (GRR) and Mortality (LE) Schedules {Population structures with over 12% over 65 in boldface]', 'ClipFile': '1.wma', 'SlideFile': 'slide_19_20.png', 'TimePoint': 1169000},
{'SlideSeq': '20', 'Title': 'Where Have All The Families Gone?Population Structure of Shanghai: 2000 (Shaded) vs. 2040 (projected)', 'ClipFile': '1.wma', 'SlideFile': 'slide_20_21.png', 'TimePoint': 1270000},
{'SlideSeq': '21', 'Title': 'Will Demographic Differentiation Mean International Discord?', 'ClipFile': '1.wma', 'SlideFile': 'slide_21_22.png', 'TimePoint': 1312000},
{'SlideSeq': '22', 'Title': 'Declining populations', 'ClipFile': '1.wma', 'SlideFile': 'slide_22_23.png', 'TimePoint': 1378000},
{'SlideSeq': '23', 'Title': 'Projected number of countries with deaths exceeding births', 'ClipFile': '1.wma', 'SlideFile': 'slide_23_24.png', 'TimePoint': 1461000},
{'SlideSeq': '24', 'Title': 'Countries with population reductions exceeding one million, 2005-2050', 'ClipFile': '1.wma', 'SlideFile': 'slide_24_25.png', 'TimePoint': 1554000},
{'SlideSeq': '25', 'Title': 'Countries with population reductions exceeding 15 per cent, 2005-2050', 'ClipFile': '1.wma', 'SlideFile': 'slide_25_26.png', 'TimePoint': 1637000},
{'SlideSeq': '26', 'Title': 'Russian Federation: population by broad age groups 2005 and 2050', 'ClipFile': '1.wma', 'SlideFile': 'slide_26_27.png', 'TimePoint': 1720000},
{'SlideSeq': '27', 'Title': 'Bulgaria: population by broad age groups 2005 and 2050', 'ClipFile': '1.wma', 'SlideFile': 'slide_27_28.png', 'TimePoint': 1892000},
{'SlideSeq': '28', 'Title': 'Discussion', 'ClipFile': '1.wma', 'SlideFile': 'slide_28_29.png', 'TimePoint': 2139000}
]}
var currSlideSeq=1;
var currDivId = "nt1";

function TabSelected(sel) { 
	tmpC=(parent.tabs.document.getElementById('tabNavigation').children.length -1)
	
	for (var i = 0; i < tmpC; i++) { 
		style2=parent.tabs.document.getElementById('tabNavigation').children[i]		
		if (i==sel) { 
			style2.className="selectedTab"
		} else { 
			style2.className=""	
		}
		
	} 

} 

function ChangeTab() {	
	var argv = ChangeTab.arguments;
	var argc = argv.length;
	for (var i = 0; i < argc; i++) {		
		style1=parent.tabcontent.document.getElementById(argv[i]).style
			
		if (i==0) { 
			style1.display="block"			
		} else { 
			style1.display="none"			
		} 
		if (argv[i]=='outline') { 
			parent.tabs.document.getElementById('tabNavBar').innerHTML="<div id='tabNavBar' style='background: #6D6FF9;border-top: line-height: 20px;text-align:right;padding: 0 0 0 0;color: #FFF;font-weight: bold;'>&nbsp;</div>"
		} else { 
			parent.tabs.document.getElementById('tabNavBar').innerHTML="<div id='tabNavBar' style='background: #6D6FF9;border-top: line-height: 20px;text-align:right;padding: 0 0 0 0;color: #FFF;font-weight: bold;'>Time Point</div>"
		} 
	}	
	return false; 	
}

var win=null;
function NewWindow(mypage,myname,w,h,scroll,pos) {
	if(pos=="random"){LeftPosition=(screen.width)?Math.floor(Math.random()*(screen.width-w)):100;TopPosition=(screen.height)?Math.floor(Math.random()*((screen.height-h)-75)):100;}
	if(pos=="center"){LeftPosition=(screen.width)?(screen.width-w)/2:100;TopPosition=(screen.height)?(screen.height-h)/2:100;}
	else if((pos!="center" && pos!="random") || pos==null){LeftPosition=0;TopPosition=20}
	settings='width='+w+',height='+h+',top='+TopPosition+',left='+LeftPosition+',scrollbars='+scroll+',location=no,directories=no,status=no,menubar=yes,toolbar=no,resizable=yes';
	win=window.open(mypage,myname,settings);
}

function SetCurrentSlide(sSeq){
	for (i=0;i<parent.oPres.SLIDES.length;i++) { 
		elem = parent.tabcontent.document.getElementById('row_' + parent.oPres.SLIDES[i].SlideSeq);
		elem1 = parent.thumbs.document.getElementById('trow_' + parent.oPres.SLIDES[i].SlideSeq);
		elem2 = parent.thumbs.document.getElementById('trow_' + parent.oPres.SLIDES[i].SlideSeq + 'a');
		elem3 = parent.thumbs.document.getElementById('trow_' + parent.oPres.SLIDES[i].SlideSeq + 'b');
		if (sSeq == parent.oPres.SLIDES[i].SlideSeq) { 			
			elem.className = 'current';
			elem1.className = 'current';
			elem2.className = 'current';
			elem3.className = 'current';			
			currSlideSeq=sSeq; 			
		}  else { 
			elem.className = '';
			elem1.className = '';
			elem2.className = '';
			elem3.className = '';
		} 

	} 

}
function GetSlideIdxByTimepoint(tMS) { 
	for (j=0; j<oPres.SLIDES.length; j++) { 		
		if (tMS==oPres.SLIDES[j].TimePoint) { 				
			return j;
		} 
	}
}