[Eas-dev-commit] eas/client eas-logo.png, NONE, 1.1 main.prg, 1.3, 1.4

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

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

Modified Files:
	main.prg 
Added Files:
	eas-logo.png 
Log Message:
Continues fix client and small changes in documentation

--- NEW FILE: eas-logo.png ---
(This appears to be a binary file; contents omitted.)

Index: main.prg
===================================================================
RCS file: /cvsroot/eas-dev/eas/client/main.prg,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- main.prg	2 Jun 2006 14:48:10 -0000	1.3
+++ main.prg	5 Jun 2006 14:12:19 -0000	1.4
@@ -190,7 +190,7 @@
 /* Open dialog for connection parameters */
 function connectionDialog( msg ) 
 	//local oConnectData := map(), auth_info:=map(), packet, vRet
-	local cfg, win, t, bb, cap, pF, bD
+	local cfg, win, t, bb, cap, pF, bD, gTitle, wIcon, wVer
 	local oIni, name:="", a
 	local server, port
         
@@ -220,27 +220,35 @@
 	loginWindow := win
 	
 	// Grid
-	t   := UIGrid(,6,4)
+	t := UIGrid(,6,4)
 	t:setSpacing(0)
 	t:setPadding(3)
 	win:userSpace:add(t,.T.,.T.)
 	
-        // Title
-        cap := UILabel(i18n("Login to E/AS system"))
+    // Title
+    cap := UIFrame()
+    cap:setType( 2 ) // TODO: Sunken
+    gTitle := UIHBox()
+    cap:add( gTitle )
+    wIcon := UIImage("~/pro/setup/eas/eas/client/eas-logo.png") // TODO: set data path
+    gTitle:add( wIcon )
+    wVer := UILabel( EASGetVersion() )
+    gTitle:addEnd( wVer )
+    //UILabel(i18n("Login to E/AS system"))
 	//cap:setProperty("font.style", "BOLD") // TODO: setProperty connect to widget!!!
-	t:add(cap, "1,1-3",.T.)
+	t:add(cap, "1,1-4+",.T.)
 
 	t:add(UILabel(i18n("Login")), "2,1")
-	t:add(win:setName("name",UIEdit(name)),"2,2-4",.T.)
+	t:add(win:setName("name",UIEdit(name)),"2,2-4+",.T.)
 	t:add(UILabel(i18n("Password")), "3,1")
 	pF := win:setName("password",UIEdit("")) 
 	pF:setPassword()
-	t:add(pF,"3,2-4",.T.)
+	t:add(pF,"3,2-4+",.T.)
 
 	t:add(UILabel(i18n("Server name")), "5,1")
-	t:add(win:setName("server",UIEdit(server)),"5,2",.T.)
+	t:add(win:setName("server",UIEdit(server)),"5,2+",.T.)
 	t:add(UILabel(i18n("Port")), "5,3")
-	t:add(win:setName("port",UIEdit(port)),"5,4",.T.)
+	t:add(win:setName("port",UIEdit(port)),"5,4+",.T.)
 
 	bb  := UIButtonBar()
 	bb:setAlignment( ALIGN_CENTER )