[Eas-dev-commit] eas/client main.prg,1.6,1.7

[Andrey C. <sku...@us...>]

Update of /cvsroot/eas-dev/eas/client
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv2049/client

Modified Files:
	main.prg 
Log Message:
Fix another connection. Concurrent connections are still broken.

Index: main.prg
===================================================================
RCS file: /cvsroot/eas-dev/eas/client/main.prg,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- main.prg	6 Jun 2006 13:29:30 -0000	1.6
+++ main.prg	16 Jun 2006 15:22:20 -0000	1.7
@@ -19,6 +19,9 @@
 #define C_HOST		"localhost"
 #define C_PORT		"3000"
 
+// Main form name
+#define EAS_MAIN_FORM "main"
+
 static messages
 static loginParams := map()
 static loginInProgress := 0
@@ -112,7 +115,7 @@
 
 /* Login to server */
 function login()
-	local cfg, packet, vRet, form:=map(), i, params:=array(0), res
+	local cfg, packet, vRet, i, params:=array(0), res
 	
 	if loginInProgress == 2
 		return NIL
@@ -167,9 +170,11 @@
 	endif
 	
 	/* quit on failed to open main window */
-	form:name := 'main'		
-	eDebug( 20, "Open main form")
-	if .not. messages:ui:openForm( form )
+	eDebug( 12, "Open main form")
+	if .not. lcomponent('sys.ui', 'openForm', 'name', EAS_MAIN_FORM )
+//	form := map()
+//	form:name := EAS_MAIN_FORM
+//	if .not. messages:ui:openForm( form )
 		
 		// Close session 
 		packet := messageNew( 'session', 'close', NIL )