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 )
|
