THAI: multi-instance add SlientRefreshIndex

xml/menutab/page_catalog_group_coffee.xml

@@ -157,6 +157,13 @@
 
     SetInstanceIgnoreTouch
 
+	DEBUGVAR SlientRefreshIndex
+	
+	If SlientRefreshIndex = 2 Then
+		Var SlientRefreshIndex = 3
+
+	EndIf
+
 </EventOpen>
 
 
@@ -172,7 +179,6 @@
 </Image>
 
 
-
 <Timeout> 1000 </Timeout>
 <EventTimeout> 
     ;DEBUGVAR ICE_PROCESS_STATUS
@@ -185,13 +191,13 @@
     EndIf
 
 
-    GetVisible inst_show
+     GetVisible inst_show2
-    ;DEBUGVAR inst_show
+    ;DEBUGVAR inst_show2
 
+
+    If inst_show2 = 1 Then
         InstanceGetString SaveStringInst
         ;DEBUGVAR SaveStringInst
-
-    If inst_show = 1 Then
         If SaveStringInst = "RefreshNow" Then
             GetXMLFileNameCurrentRunning CurrentOpenFile
             Open CurrentOpenFile
@@ -201,7 +207,6 @@
             Else
                 InstanceSetString "ShowThai"
             EndIf
-       
         EndIf
     EndIf
 
@@ -222,6 +227,16 @@
         EndIf
     EndIf
 
+	 If SlientRefreshIndex = 2 Then
+		If inst_show2 = 0 Then
+			GetXMLFileNameCurrentRunning CurrentOpenFile2
+			Open CurrentOpenFile2
+			
+		Else
+			Var SlientRefreshIndex = 3
+		EndIf
+    EndIf
+
 
     TimerReset
 </EventTimeout> 

xml/menutab/page_catalog_group_forkid.xml

@@ -165,6 +165,12 @@
 
     SetInstanceIgnoreTouch
 
+	DEBUGVAR SlientRefreshIndex
+
+	If SlientRefreshIndex = 5 Then
+		Var SlientRefreshIndex = 6
+	EndIf
+
 </EventOpen>
 
 
@@ -194,13 +200,13 @@
     EndIf
 
 
-    GetVisible inst_show
+    GetVisible inst_show5
-    ;DEBUGVAR inst_show
+    ;DEBUGVAR inst_show5
 
+
+    If inst_show5 = 1 Then
         InstanceGetString SaveStringInst
         ;DEBUGVAR SaveStringInst
-
-    If inst_show = 1 Then
         If SaveStringInst = "RefreshNow" Then
             GetXMLFileNameCurrentRunning CurrentOpenFile
             Open CurrentOpenFile
@@ -210,7 +216,6 @@
             Else
                 InstanceSetString "ShowThai"
             EndIf
-       
         EndIf
     EndIf
 
@@ -232,6 +237,16 @@
     EndIf
 
 
+	If SlientRefreshIndex = 5 Then
+		If inst_show5 = 0 Then
+			GetXMLFileNameCurrentRunning CurrentOpenFile5
+			Open CurrentOpenFile5
+		Else
+			Var SlientRefreshIndex = 6
+		EndIf
+    EndIf
+
+
     TimerReset
 </EventTimeout> 
 

xml/menutab/page_catalog_group_health.xml

@@ -156,6 +156,12 @@
 
     SetInstanceIgnoreTouch
 
+	DEBUGVAR SlientRefreshIndex
+
+    If SlientRefreshIndex = 6 Then
+		Var SlientRefreshIndex = 7
+	EndIf
+
 </EventOpen>
 
 
@@ -185,13 +191,14 @@
     EndIf
 
 
-    GetVisible inst_show
+    GetVisible inst_show6
-    ;DEBUGVAR inst_show
+    ;DEBUGVAR inst_show6
 
+    
+
+    If inst_show6 = 1 Then
         InstanceGetString SaveStringInst
         ;DEBUGVAR SaveStringInst
-
-    If inst_show = 1 Then
         If SaveStringInst = "RefreshNow" Then
             GetXMLFileNameCurrentRunning CurrentOpenFile
             Open CurrentOpenFile
@@ -222,6 +229,15 @@
         EndIf
     EndIf
 
+	If SlientRefreshIndex = 6 Then
+		If inst_show6 = 0 Then
+			GetXMLFileNameCurrentRunning CurrentOpenFile6
+			Open CurrentOpenFile6
+		Else
+			Var SlientRefreshIndex = 7
+		EndIf
+    EndIf
+
 
     TimerReset
 </EventTimeout> 

xml/menutab/page_catalog_group_milk.xml

@@ -155,6 +155,12 @@
 
     SetInstanceIgnoreTouch
 
+	DEBUGVAR SlientRefreshIndex
+
+	If SlientRefreshIndex = 4 Then
+		Var SlientRefreshIndex = 5
+	EndIf
+
 </EventOpen>
 
 
@@ -171,6 +177,7 @@
 
 
 
+
 <Timeout> 1000 </Timeout>
 <EventTimeout> 
     ;DEBUGVAR ICE_PROCESS_STATUS
@@ -183,13 +190,14 @@
     EndIf
 
 
-    GetVisible inst_show
+    GetVisible inst_show4
-    ;DEBUGVAR inst_show
+    ;DEBUGVAR inst_show4
 
+    
+
+    If inst_show4 = 1 Then
         InstanceGetString SaveStringInst
         ;DEBUGVAR SaveStringInst
-
-    If inst_show = 1 Then
         If SaveStringInst = "RefreshNow" Then
             GetXMLFileNameCurrentRunning CurrentOpenFile
             Open CurrentOpenFile
@@ -220,6 +228,17 @@
         EndIf
     EndIf
 
+	If SlientRefreshIndex = 4 Then
+		If inst_show4 = 0 Then
+			GetXMLFileNameCurrentRunning CurrentOpenFile4
+			Open CurrentOpenFile4
+			
+		Else
+			Var SlientRefreshIndex = 5
+			
+		EndIf
+    EndIf
+
 
     TimerReset
 </EventTimeout> 

xml/menutab/page_catalog_group_other.xml

@@ -156,6 +156,12 @@
 
     SetInstanceIgnoreTouch
 
+	DEBUGVAR SlientRefreshIndex
+
+	If SlientRefreshIndex = 7 Then
+		Var SlientRefreshIndex = 8
+	EndIf
+
 </EventOpen>
 
 
@@ -172,6 +178,7 @@
 
 
 
+
 <Timeout> 1000 </Timeout>
 <EventTimeout> 
     ;DEBUGVAR ICE_PROCESS_STATUS
@@ -184,13 +191,14 @@
     EndIf
 
 
-    GetVisible inst_show
+    GetVisible inst_show7
-    ;DEBUGVAR inst_show
+    ;DEBUGVAR inst_show7
 
+    
+
+    If inst_show7 = 1 Then
         InstanceGetString SaveStringInst
         ;DEBUGVAR SaveStringInst
-
-    If inst_show = 1 Then
         If SaveStringInst = "RefreshNow" Then
             GetXMLFileNameCurrentRunning CurrentOpenFile
             Open CurrentOpenFile
@@ -222,6 +230,16 @@
     EndIf
 
 
+	If SlientRefreshIndex = 7 Then
+		If inst_show7 = 0 Then
+			GetXMLFileNameCurrentRunning CurrentOpenFile7
+			Open CurrentOpenFile7
+		Else
+			Var SlientRefreshIndex = 8
+		EndIf
+    EndIf
+
+
     TimerReset
 </EventTimeout>  
 

xml/menutab/page_catalog_group_tea.xml

@@ -156,6 +156,14 @@
 
     SetInstanceIgnoreTouch
 
+	DEBUGVAR SlientRefreshIndex
+
+	If SlientRefreshIndex = 3 Then
+		Var SlientRefreshIndex = 4
+
+	EndIf
+
+
 </EventOpen>
 
 
@@ -185,13 +193,14 @@
     EndIf
 
 
-    GetVisible inst_show
+    GetVisible inst_show3
-    ;DEBUGVAR inst_show
+    ;DEBUGVAR inst_show3
 
+    
+
+    If inst_show3 = 1 Then
         InstanceGetString SaveStringInst
         ;DEBUGVAR SaveStringInst
-
-    If inst_show = 1 Then
         If SaveStringInst = "RefreshNow" Then
             GetXMLFileNameCurrentRunning CurrentOpenFile
             Open CurrentOpenFile
@@ -203,21 +212,18 @@
             EndIf
        
         EndIf
+		
     EndIf
 
     ; setvarint SlientRefreshEnable 1
     ;DEBUGVAR SlientRefreshEnable
 
-    If SlientRefreshEnable = 1 Then
+    If SlientRefreshIndex = 3 Then
-        If SaveStringInst = "RefreshNow" Then
+		If inst_show3 = 0 Then
-            GetXMLFileNameCurrentRunning CurrentOpenFile
+			GetXMLFileNameCurrentRunning CurrentOpenFile3
-            Open CurrentOpenFile
+			Open CurrentOpenFile3	
-
-            If show_eng = "true" Then 
-                InstanceSetString "ShowEng"
 		Else
-                InstanceSetString "ShowThai"
+			Var SlientRefreshIndex = 4
-            EndIf
 			
 		EndIf
     EndIf

xml/menutab/page_catalog_group_whey.xml

@@ -161,6 +161,12 @@
 
     SetInstanceIgnoreTouch
 
+	DEBUGVAR SlientRefreshIndex
+
+	If SlientRefreshIndex = 8 Then
+		Var SlientRefreshIndex = 9
+	EndIf
+
 </EventOpen>
 
 
@@ -177,7 +183,6 @@
 </Image>
 
 
-
 <Timeout> 1000 </Timeout>
 <EventTimeout> 
     ;DEBUGVAR ICE_PROCESS_STATUS
@@ -190,13 +195,15 @@
     EndIf
 
 
-    GetVisible inst_show
+    GetVisible inst_show8
-    ;DEBUGVAR inst_show
+    ;DEBUGVAR inst_show8
 
     InstanceGetString SaveStringInst
     ;DEBUGVAR SaveStringInst
 
-    If inst_show = 1 Then
+    If inst_show8 = 1 Then
+        InstanceGetString SaveStringInst
+        ;DEBUGVAR SaveStringInst
         If SaveStringInst = "RefreshNow" Then
             GetXMLFileNameCurrentRunning CurrentOpenFile
             Open CurrentOpenFile
@@ -228,6 +235,16 @@
     EndIf
 
 
+	If SlientRefreshIndex = 8 Then
+		If inst_show8 = 0 Then
+			GetXMLFileNameCurrentRunning CurrentOpenFile8
+			Open CurrentOpenFile8
+		Else
+			Var SlientRefreshIndex = 9
+		EndIf
+    EndIf
+
+
     TimerReset
 </EventTimeout>