
// Script function: Creates a periodic table.

// Unless named starting with GlobalSino, EM, My, Self, the function commands are defined 
//by Gatan DM, please see at link: http://www.globalsino.com/EM/page2597.html


number EMSquareSize=25 
number EMFontSize=16 
number EMPositionLeft=1, EMPositionTop=1  

class GlobalSinoPeriodicTable : uiframe
{
string EMAllElementSymbols(object EMSymbol, number EMAtomicNumber)
{
	if(EMAtomicNumber==1) return "H "
	if(EMAtomicNumber==2) return "He"
	if(EMAtomicNumber==3) return "Li"
	if(EMAtomicNumber==4) return "Be"
	if(EMAtomicNumber==5) return "B"
	if(EMAtomicNumber==6) return "C"
	if(EMAtomicNumber==7) return "N"
	if(EMAtomicNumber==8) return "O"
	if(EMAtomicNumber==9) return "F"
	if(EMAtomicNumber==10) return "Ne"
	if(EMAtomicNumber==11) return "Na"
	if(EMAtomicNumber==12) return "Mg"
	if(EMAtomicNumber==13) return "Al"
	if(EMAtomicNumber==14) return "Si"
	if(EMAtomicNumber==15) return "P"
	if(EMAtomicNumber==16) return "S"
	if(EMAtomicNumber==17) return "Cl"
	if(EMAtomicNumber==18) return "Ar"
	if(EMAtomicNumber==19) return "K"
	if(EMAtomicNumber==20) return "Ca"
	if(EMAtomicNumber==21) return "Sc"
	if(EMAtomicNumber==22) return "Ti"
	if(EMAtomicNumber==23) return "V"
	if(EMAtomicNumber==24) return "Cr"
	if(EMAtomicNumber==25) return "Mn"
	if(EMAtomicNumber==26) return "Fe"
	if(EMAtomicNumber==27) return "Co"
	if(EMAtomicNumber==28) return "Ni"
	if(EMAtomicNumber==29) return "Cu"
	if(EMAtomicNumber==30) return "Zn"
	if(EMAtomicNumber==31) return "Ga"
	if(EMAtomicNumber==32) return "Ge"
	if(EMAtomicNumber==33) return "As"
	if(EMAtomicNumber==34) return "Se"
	if(EMAtomicNumber==35) return "Br"
	if(EMAtomicNumber==36) return "Kr"
	if(EMAtomicNumber==37) return "Rb"
	if(EMAtomicNumber==38) return "Sr"
	if(EMAtomicNumber==39) return "Y"
	if(EMAtomicNumber==40) return "Zr"
	if(EMAtomicNumber==41) return "Nb"
	if(EMAtomicNumber==42) return "Mo"
	if(EMAtomicNumber==43) return "Tc"
	if(EMAtomicNumber==44) return "Ru"
	if(EMAtomicNumber==45) return "Rh"
	if(EMAtomicNumber==46) return "Pd"
	if(EMAtomicNumber==47) return "Ag"
	if(EMAtomicNumber==48) return "Cd"
	if(EMAtomicNumber==49) return "In"
	if(EMAtomicNumber==50) return "Sn"
	if(EMAtomicNumber==51) return "Sb"
	if(EMAtomicNumber==52) return "Te"
	if(EMAtomicNumber==53) return "I"
	if(EMAtomicNumber==54) return "Xe"
	if(EMAtomicNumber==55) return "Cs"
	if(EMAtomicNumber==56) return "Ba"
	if(EMAtomicNumber==57) return "La"
	if(EMAtomicNumber==58) return "Ce"
	if(EMAtomicNumber==59) return "Pr"
	if(EMAtomicNumber==60) return "Nd"
	if(EMAtomicNumber==61) return "Pm"
	if(EMAtomicNumber==62) return "Sm"
	if(EMAtomicNumber==63) return "Eu"
	if(EMAtomicNumber==64) return "Gd"
	if(EMAtomicNumber==65) return "Tb"
	if(EMAtomicNumber==66) return "Dy"
	if(EMAtomicNumber==67) return "Ho"
	if(EMAtomicNumber==68) return "Er"
	if(EMAtomicNumber==69) return "Tm"
	if(EMAtomicNumber==70) return "Yb"
	if(EMAtomicNumber==71) return "Lu"
	if(EMAtomicNumber==72) return "Hf"
	if(EMAtomicNumber==73) return "Ta"
	if(EMAtomicNumber==74) return "W"
	if(EMAtomicNumber==75) return "Re"
	if(EMAtomicNumber==76) return "Os"
	if(EMAtomicNumber==77) return "Ir"
	if(EMAtomicNumber==78) return "Pt"
	if(EMAtomicNumber==79) return "Au"
	if(EMAtomicNumber==80) return "Hg"
	if(EMAtomicNumber==81) return "Tl"
	if(EMAtomicNumber==82) return "Pb"
	if(EMAtomicNumber==83) return "Bi"
	if(EMAtomicNumber==84) return "Po"
	if(EMAtomicNumber==85) return "At"
	if(EMAtomicNumber==86) return "Rn"
	if(EMAtomicNumber==87) return "Fr"
	if(EMAtomicNumber==88) return "Ra"
	if(EMAtomicNumber==89) return "Ac"
	if(EMAtomicNumber==90) return "Th"
	if(EMAtomicNumber==91) return "Pa"
	if(EMAtomicNumber==92) return "U"
	if(EMAtomicNumber==93) return "Np"
	if(EMAtomicNumber==94) return "Pu"
	if(EMAtomicNumber==95) return "Am"
	if(EMAtomicNumber==96) return "Cm"
	if(EMAtomicNumber==97) return "Bk"
	if(EMAtomicNumber==98) return "Cf"
	if(EMAtomicNumber==99) return "Es"
	if(EMAtomicNumber==100) return "Fm"
	if(EMAtomicNumber==101) return "Md"
	if(EMAtomicNumber==102) return "No"
	if(EMAtomicNumber==103) return "Lr"
    if(EMAtomicNumber==5771) return ""
	if(EMAtomicNumber==89103) return ""	
}

taggroup EMElementSquare(object EMSymbol, number GlobalSinoAtomicNumber, rgbnumber GlobalSinoSymbol) 

	{
	rgbimage GlobalSinoElementSymbolA:=realimage("",8,EMSquareSize, EMSquareSize) 
	GlobalSinoElementSymbolA=GlobalSinoSymbol
	string EMElement=EMSymbol.EMAllElementSymbols(GlobalSinoAtomicNumber)
	component EMText=NewTextAnnotation(EMPositionLeft,EMPositionTop,EMElement,EMFontSize) 
	EMText.ComponentSetForegroundColor(1,1,1) 
	GlobalSinoElementSymbolA.SetZoom(1) 
	ImageDisplay EMDisplay=GlobalSinoElementSymbolA.ImageGetImageDisplay(0) 
	EMDisplay.ComponentAddChildAtEnd(EMText) 

	rgbimage GlobalSinoElementSymbolB=CreateImageFromDisplay(GlobalSinoElementSymbolA)
	rgbimage GlobalSinoElementSymbolC=DLGMakeRaised(GlobalSinoElementSymbolB)
					
	taggroup EMCreatedSquare=DLGCreateDualStateBevelButton(EMElement, GlobalSinoElementSymbolC, GlobalSinoElementSymbolC, "")
	return EMCreatedSquare
	}

taggroup EMDialog(object EMSymbol)
	{
	taggroup GlobalSinoItems 
	taggroup GlobalSinoBox=DLGCreateBox("", GlobalSinoItems)
		
	rgbnumber GlobalSinoSymbol 
	GlobalSinoSymbol=RGB(100,100,100) 		
	
    TagGroup H = EMSymbol.EMElementSquare(1, GlobalSinoSymbol)
    TagGroup He = EMSymbol.EMElementSquare(2, GlobalSinoSymbol)	
	TagGroup Li = EMSymbol.EMElementSquare(3, GlobalSinoSymbol)
	TagGroup Be = EMSymbol.EMElementSquare(4, GlobalSinoSymbol)
	TagGroup B = EMSymbol.EMElementSquare(5, GlobalSinoSymbol)
	TagGroup C = EMSymbol.EMElementSquare(6, GlobalSinoSymbol)
	TagGroup N = EMSymbol.EMElementSquare(7, GlobalSinoSymbol)
	TagGroup O = EMSymbol.EMElementSquare(8, GlobalSinoSymbol)
	TagGroup F = EMSymbol.EMElementSquare(9, GlobalSinoSymbol)
	TagGroup Ne = EMSymbol.EMElementSquare(10, GlobalSinoSymbol)
	TagGroup Na = EMSymbol.EMElementSquare(11, GlobalSinoSymbol)
	TagGroup mg = EMSymbol.EMElementSquare(12, GlobalSinoSymbol)
	TagGroup Al = EMSymbol.EMElementSquare(13, GlobalSinoSymbol)
	TagGroup Si = EMSymbol.EMElementSquare(14, GlobalSinoSymbol)
	TagGroup P = EMSymbol.EMElementSquare(15, GlobalSinoSymbol)
	TagGroup S = EMSymbol.EMElementSquare(16, GlobalSinoSymbol)
	TagGroup Cl = EMSymbol.EMElementSquare(17, GlobalSinoSymbol)
	TagGroup Ar = EMSymbol.EMElementSquare(18, GlobalSinoSymbol)
	TagGroup K = EMSymbol.EMElementSquare(19, GlobalSinoSymbol)
	TagGroup Ca = EMSymbol.EMElementSquare(20, GlobalSinoSymbol)
	TagGroup Sc = EMSymbol.EMElementSquare(21, GlobalSinoSymbol)
	TagGroup Ti = EMSymbol.EMElementSquare(22, GlobalSinoSymbol)
	TagGroup V = EMSymbol.EMElementSquare(23, GlobalSinoSymbol)
	TagGroup Cr = EMSymbol.EMElementSquare(24, GlobalSinoSymbol)
	TagGroup Mn = EMSymbol.EMElementSquare(25, GlobalSinoSymbol)
	TagGroup Fe = EMSymbol.EMElementSquare(26, GlobalSinoSymbol)
	TagGroup Co = EMSymbol.EMElementSquare(27, GlobalSinoSymbol)
	TagGroup Ni = EMSymbol.EMElementSquare(28, GlobalSinoSymbol)
	TagGroup Cu = EMSymbol.EMElementSquare(29, GlobalSinoSymbol)
	TagGroup Zn = EMSymbol.EMElementSquare(30, GlobalSinoSymbol)
	TagGroup Ga = EMSymbol.EMElementSquare(31, GlobalSinoSymbol)
	TagGroup Ge = EMSymbol.EMElementSquare(32, GlobalSinoSymbol)
	TagGroup As = EMSymbol.EMElementSquare(33, GlobalSinoSymbol)
	TagGroup Se = EMSymbol.EMElementSquare(34, GlobalSinoSymbol)
	TagGroup Br = EMSymbol.EMElementSquare(35, GlobalSinoSymbol)
	TagGroup Kr = EMSymbol.EMElementSquare(36, GlobalSinoSymbol)
	TagGroup Rb = EMSymbol.EMElementSquare(37, GlobalSinoSymbol)
	TagGroup Sr = EMSymbol.EMElementSquare(38, GlobalSinoSymbol)
	TagGroup Y = EMSymbol.EMElementSquare(39, GlobalSinoSymbol)
	TagGroup Zr = EMSymbol.EMElementSquare(40, GlobalSinoSymbol)
	TagGroup Nb = EMSymbol.EMElementSquare(41, GlobalSinoSymbol)
	TagGroup Mo = EMSymbol.EMElementSquare(42, GlobalSinoSymbol)
	TagGroup Tc = EMSymbol.EMElementSquare(43, GlobalSinoSymbol)
	TagGroup Ru = EMSymbol.EMElementSquare(44, GlobalSinoSymbol)
	TagGroup Rh = EMSymbol.EMElementSquare(45, GlobalSinoSymbol)
	TagGroup Pd = EMSymbol.EMElementSquare(46, GlobalSinoSymbol)
	TagGroup Ag = EMSymbol.EMElementSquare(47, GlobalSinoSymbol)
	TagGroup Cd = EMSymbol.EMElementSquare(48, GlobalSinoSymbol)
	TagGroup In = EMSymbol.EMElementSquare(49, GlobalSinoSymbol)
	TagGroup Sn = EMSymbol.EMElementSquare(50, GlobalSinoSymbol)
	TagGroup Sb = EMSymbol.EMElementSquare(51, GlobalSinoSymbol)
	TagGroup Te = EMSymbol.EMElementSquare(52, GlobalSinoSymbol)
	TagGroup I = EMSymbol.EMElementSquare(53, GlobalSinoSymbol)
	TagGroup Xe = EMSymbol.EMElementSquare(54, GlobalSinoSymbol)
	TagGroup Cs = EMSymbol.EMElementSquare(55, GlobalSinoSymbol)
	TagGroup Ba = EMSymbol.EMElementSquare(56, GlobalSinoSymbol)
	TagGroup La = EMSymbol.EMElementSquare(57, GlobalSinoSymbol)
	TagGroup Hf = EMSymbol.EMElementSquare(72, GlobalSinoSymbol)
	TagGroup Ta = EMSymbol.EMElementSquare(73, GlobalSinoSymbol)
	TagGroup W = EMSymbol.EMElementSquare(74, GlobalSinoSymbol)
	TagGroup Re = EMSymbol.EMElementSquare(75, GlobalSinoSymbol)
	TagGroup Os = EMSymbol.EMElementSquare(76, GlobalSinoSymbol)
	TagGroup Ir = EMSymbol.EMElementSquare(77, GlobalSinoSymbol)
	TagGroup Pt = EMSymbol.EMElementSquare(78, GlobalSinoSymbol)
	TagGroup Au = EMSymbol.EMElementSquare(79, GlobalSinoSymbol)
	TagGroup Hg = EMSymbol.EMElementSquare(80, GlobalSinoSymbol)
	TagGroup Tl = EMSymbol.EMElementSquare(81, GlobalSinoSymbol)
	TagGroup Pb = EMSymbol.EMElementSquare(82, GlobalSinoSymbol)
	TagGroup Bi = EMSymbol.EMElementSquare(83, GlobalSinoSymbol)
	TagGroup Po = EMSymbol.EMElementSquare(84, GlobalSinoSymbol)
	TagGroup At = EMSymbol.EMElementSquare(85, GlobalSinoSymbol)
	TagGroup Rn = EMSymbol.EMElementSquare(86, GlobalSinoSymbol)
	TagGroup Fr = EMSymbol.EMElementSquare(87, GlobalSinoSymbol)
	TagGroup Ra = EMSymbol.EMElementSquare(88, GlobalSinoSymbol)
	TagGroup Ac = EMSymbol.EMElementSquare(89, GlobalSinoSymbol)
	TagGroup Ce = EMSymbol.EMElementSquare(58, GlobalSinoSymbol)
	TagGroup Pr = EMSymbol.EMElementSquare(59, GlobalSinoSymbol)
	TagGroup Nd = EMSymbol.EMElementSquare(60, GlobalSinoSymbol)
	TagGroup Pm = EMSymbol.EMElementSquare(61, GlobalSinoSymbol)
	
	taggroup LanthanideanideSpacer=DLGCreateLabel("").DLGExternalPadding(28,0)
	taggroup LanthanideanideA=DLGGroupItems(LanthanideanideSpacer, La, Ce,Pr).DLGTableLayout(4,1,0) 

	TagGroup Sm = EMSymbol.EMElementSquare(62, GlobalSinoSymbol)
	TagGroup eu = EMSymbol.EMElementSquare(63, GlobalSinoSymbol)
	TagGroup gd = EMSymbol.EMElementSquare(64, GlobalSinoSymbol)
	TagGroup tb = EMSymbol.EMElementSquare(65, GlobalSinoSymbol)

	taggroup LanthanideanideB=DLGGroupItems(Nd, Pm, Sm,Eu).DLGTableLayout(4,1,0)

	TagGroup dy = EMSymbol.EMElementSquare(66, GlobalSinoSymbol)
	TagGroup ho = EMSymbol.EMElementSquare(67, GlobalSinoSymbol)
	TagGroup er = EMSymbol.EMElementSquare(68, GlobalSinoSymbol)
	TagGroup tm = EMSymbol.EMElementSquare(69, GlobalSinoSymbol)
		
	taggroup LanthanideanideC=DLGGroupItems(Gd, Tb, Dy,Ho).DLGTableLayout(4,1,0).dlganchor("East")

	TagGroup yb = EMSymbol.EMElementSquare(70, GlobalSinoSymbol)
	TagGroup lu = EMSymbol.EMElementSquare(71, GlobalSinoSymbol)
		
	taggroup LanthanideanideD=DLGGroupItems(Er, Tm, Yb,Lu).DLGTableLayout(4,1,0)
		
	taggroup EMLanthanideanideanides=DLGGroupItems(LanthanideanideA, LanthanideanideB, LanthanideanideC, LanthanideanideD).DLGTableLayout(4,1,0).dlganchor("West") 	
		
	TagGroup th = EMSymbol.EMElementSquare(90, GlobalSinoSymbol)
	TagGroup pa = EMSymbol.EMElementSquare(91, GlobalSinoSymbol)
	TagGroup u = EMSymbol.EMElementSquare(92, GlobalSinoSymbol)
	TagGroup np = EMSymbol.EMElementSquare(93, GlobalSinoSymbol)

	taggroup ActinideideideSpacer=DLGCreateLabel("").DLGExternalPadding(28,0)
	taggroup ActinideideideA=DLGGroupItems(ActinideideideSpacer, Ac, Th,Pa).DLGTableLayout(4,1,0) 

	TagGroup pu = EMSymbol.EMElementSquare(94, GlobalSinoSymbol)
	TagGroup am = EMSymbol.EMElementSquare(95, GlobalSinoSymbol)
	TagGroup cm = EMSymbol.EMElementSquare(96, GlobalSinoSymbol)
	TagGroup bk = EMSymbol.EMElementSquare(97, GlobalSinoSymbol)

	taggroup ActinideideideB=DLGGroupItems(U, Np, Pu,Am).DLGTableLayout(4,1,0)

	TagGroup cf = EMSymbol.EMElementSquare(98, GlobalSinoSymbol)
	TagGroup es = EMSymbol.EMElementSquare(99, GlobalSinoSymbol)
	TagGroup Fm = EMSymbol.EMElementSquare(100, GlobalSinoSymbol)
	TagGroup md = EMSymbol.EMElementSquare(101, GlobalSinoSymbol)

	taggroup ActinideideideC=DLGGroupItems(Cm, Bk, Cf,Es).DLGTableLayout(4,1,0)

	TagGroup No = EMSymbol.EMElementSquare(102, GlobalSinoSymbol)
	TagGroup Lr = EMSymbol.EMElementSquare(103, GlobalSinoSymbol)

	TagGroup LaLu = EMSymbol.EMElementSquare(5771, GlobalSinoSymbol)
	TagGroup AcLr = EMSymbol.EMElementSquare(89103, GlobalSinoSymbol)

	taggroup ActinideideideD=DLGGroupItems(Fm, Md, No,Lr).DLGTableLayout(4,1,0) 
        
	taggroup EMActinideideideides=DLGGroupItems(ActinideideideA, ActinideideideB, ActinideideideC, ActinideideideD).DLGTableLayout(4,1,0).dlganchor("West")
				
	taggroup HHeSpacer=DLGCreateLabel("").DLGExternalPadding(242,0)
	taggroup GlobalSinoHHe=DLGGroupItems(H, HHeSpacer, He).DLGTableLayout(3,1,0).dlganchor("West")
			
	taggroup BeBSpacer=DLGCreateLabel("").DLGExternalPadding(150,0)					
	taggroup GlobalSinoLiNeA=DLGGroupItems(Li, Be, BeBSpacer, B).DLGTableLayout(4,1,0)		
	taggroup GlobalSinoLiNeB=DLGGroupItems(C, N, O).DLGTableLayout(3,1,0)
	taggroup GlobalSinoLiNeC=DLGGroupItems(F, Ne).DLGTableLayout(2,1,0)			
	taggroup GlobalSinoLiNe=DLGGroupItems(GlobalSinoLiNeA, GlobalSinoLiNeB, GlobalSinoLiNeC).DLGTableLayout(3,1,0).dlganchor("West")
					
	taggroup MgAlSpacer=DLGCreateLabel("").DLGExternalPadding(150,0)						
	taggroup GlobalSinoNaArA=DLGGroupItems(Na, Mg, MgAlSpacer, Al).DLGTableLayout(4,1,0)		
	taggroup GlobalSinoNaArB=DLGGroupItems(Si, P, S).DLGTableLayout(3,1,0)
	taggroup GlobalSinoNaArC=DLGGroupItems(Cl, Ar).DLGTableLayout(2,1,0)			
	taggroup GlobalSinoNaAr=DLGGroupItems(GlobalSinoNaArA, GlobalSinoNaArB, GlobalSinoNaArC).DLGTableLayout(3,1,0).dlganchor("West")
				
	taggroup GlobalSinoKKrA=DLGGroupItems(K, Ca, Sc, Ti).DLGTableLayout(4,1,0)		
	taggroup GlobalSinoKKrB=DLGGroupItems(V, Cr, Mn, Fe).DLGTableLayout(4,1,0)		
	taggroup GlobalSinoKKrC=DLGGroupItems(Co, Ni, Cu, Zn).DLGTableLayout(4,1,0)		
	taggroup GlobalSinoKKrD=DLGGroupItems(Ga, Ge, As, Se).DLGTableLayout(4,1,0)		
	taggroup GlobalSinoKKrE=DLGGroupItems(Br, Kr).DLGTableLayout(4,1,0)		

	taggroup GlobalSinoKKrFirstHalf=DLGGroupItems(GlobalSinoKKrA, GlobalSinoKKrB, GlobalSinoKKrC).DLGTableLayout(3,1,0)
	taggroup GlobalSinoKKrSecondHalf=DLGGroupItems(GlobalSinoKKrD, GlobalSinoKKrE).DLGTableLayout(2,1,0)
	taggroup GlobalSinoKKr=DLGGroupItems(GlobalSinoKKrFirstHalf, GlobalSinoKKrSecondHalf).DLGTableLayout(2,1,0).dlganchor("East")
							
	taggroup GlobalSinoRbXeA=DLGGroupItems(Rb, Sr, Y, Zr).DLGTableLayout(4,1,0)		
	taggroup GlobalSinoRbXeB=DLGGroupItems(Nb, Mo, Tc, Ru).DLGTableLayout(4,1,0)		
	taggroup GlobalSinoRbXeC=DLGGroupItems(Rh, Pd, Ag, Cd).DLGTableLayout(4,1,0)		
	taggroup GlobalSinoRbXeD=DLGGroupItems(In, Sn, Sb, Te).DLGTableLayout(4,1,0)		
	taggroup GlobalSinoRbXeE=DLGGroupItems(I, Xe).DLGTableLayout(4,1,0)		

	taggroup GlobalSinoRbXeFirstHalf=DLGGroupItems(GlobalSinoRbXeA, GlobalSinoRbXeB, GlobalSinoRbXeC).DLGTableLayout(3,1,0)
	taggroup GlobalSinoRbXeSecondHalf=DLGGroupItems(GlobalSinoRbXeD, GlobalSinoRbXeE).DLGTableLayout(2,1,0)
	taggroup GlobalSinoRbXe=DLGGroupItems(GlobalSinoRbXeFirstHalf, GlobalSinoRbXeSecondHalf).DLGTableLayout(2,1,0).dlganchor("East")
				
	taggroup GlobalSinoCsRnA=DLGGroupItems(Cs, Ba, LaLu, Hf).DLGTableLayout(4,1,0)	
	taggroup GlobalSinoCsRnB=DLGGroupItems(Ta, W, Re, Os).DLGTableLayout(4,1,0)		
	taggroup GlobalSinoCsRnC=DLGGroupItems(Ir, Pt, Au, Hg).DLGTableLayout(4,1,0)		
	taggroup GlobalSinoCsRnD=DLGGroupItems(Tl, Pb, Bi, Po).DLGTableLayout(4,1,0)		
	taggroup GlobalSinoCsRnE=DLGGroupItems(At, Rn).DLGTableLayout(4,1,0)		

	taggroup GlobalSinoCsRnFirstHalf=DLGGroupItems(GlobalSinoCsRnA, GlobalSinoCsRnB, GlobalSinoCsRnC).DLGTableLayout(3,1,0)
	taggroup GlobalSinoCsRnSecondHalf=DLGGroupItems(GlobalSinoCsRnD, GlobalSinoCsRnE).DLGTableLayout(2,1,0)
	taggroup GlobalSinoCsRn=DLGGroupItems(GlobalSinoCsRnFirstHalf, GlobalSinoCsRnSecondHalf).DLGTableLayout(2,1,0).dlganchor("East")
		
	taggroup GlobalSinoFrAc=DLGGroupItems(Fr, Ra, AcLr).DLGTableLayout(3,1,0).dlganchor("West") 
		
	taggroup GlobalSinoMainGroupFirstHalf=DLGGroupItems(GlobalSinoHHe, GlobalSinoLiNe, GlobalSinoNaAr, GlobalSinoKKr).DLGTableLayout(1,4,0).dlganchor("East")		
	taggroup GlobalSinoMainGroupSecondHalf=DLGGroupItems(GlobalSinoRbXe, GlobalSinoCsRn, GlobalSinoFrAc).DLGTableLayout(1,3,0).dlganchor("East")		
	taggroup GlobalSinoMainGroup=DLGGroupItems(GlobalSinoMainGroupFirstHalf, GlobalSinoMainGroupSecondHalf).DLGTableLayout(1,2,0).dlganchor("East")		

	GlobalSinoItems.DLGAddElement(GlobalSinoMainGroup) 
		
	GlobalSinoItems.DLGAddElement(EMLanthanideanideanides) 
	GlobalSinoItems.DLGAddElement(EMActinideideideides) 			
				
	TagGroup GlobalSinoDialog;	
	TagGroup EMCreatedDialog = DLGCreateDialog("", GlobalSinoDialog)// =================	
		
	GlobalSinoDialog.DLGAddElement(GlobalSinoBox)
	return EMCreatedDialog		
	}

GlobalSinoPeriodicTable(object EMSymbol)
	{
		EMSymbol.Init( EMSymbol.EMDialog() )
		EMSymbol.Display("GlobalSino Periodic Table")
	}
~GlobalSinoPeriodicTable(object EMSymbol)
	{
	}
}
	if (Alloc(GlobalSinoPeriodicTable)) Exit (0)
