Update of /cvsroot/eas-dev/eas/client
In directory sc8-pr-cvs17:/tmp/cvs-serv18032/client
Modified Files:
main.prg
Log Message:
Show error of form opening. Small fixes.
Index: main.prg
===================================================================
RCS file: /cvsroot/eas-dev/eas/client/main.prg,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- main.prg 12 Mar 2007 17:14:22 -0000 1.13
+++ main.prg 22 May 2007 08:44:27 -0000 1.14
@@ -149,7 +149,7 @@
if valtype(vRet) <> 'O' .or. .not. 'ANSWER' $ vRet .or. .not. vRet:answer
// Access denied
if loginWindow != NIL
- loginWindow:dialogBox(i18n("ERROR"),i18n("Access denied.&\nPlease, contact your system administratior."),,,NIL, IMG_ERROR)
+ loginWindow:dialogBox(i18n("Error"),i18n("Access denied.&\nPlease, contact your system administrator."),,,NIL, IMG_ERROR)
endif
eDebug( 1, "Access denied. Program is terminated.")
return NIL
@@ -183,7 +183,7 @@
eDebug( 1, "Cannot open main form.")
if loginWindow != NIL
- loginWindow:dialogBox(i18n("ERROR"),i18n("Cannot open main form."),,,NIL, IMG_ERROR)
+ loginWindow:dialogBox(i18n("Error"),i18n("Cannot open main form."),,,NIL, IMG_ERROR)
endif
elseif loginWindow == NIL
messages:ui:run()
@@ -203,7 +203,7 @@
if loginInProgress == 1
eDebug( 1, "Error connect to server" )
loginInProgress := 2
- loginWindow:dialogBox(i18n("ERROR"),i18n("Cannot connect to server!&\nContact your system administratior."),,,NIL, IMG_ERROR)
+ loginWindow:dialogBox(i18n("Error"),i18n("Cannot connect to server!&\nContact your system administrator."),,,NIL, IMG_ERROR)
return .F.
endif
@@ -422,7 +422,7 @@
t:add(UILabel(i18n("Client software for E/AS platform")), "2,1-4+")
t:add(UILabel(i18n("Version:")+" "+EASGetVersion()), "3,1-4+")
t:add(UILabel(i18n("Driver:")+" "+driver:driver), "4,1-4+")
- t:add(UILabel(i18n("(c) 2003-2006, E/AS Software Foundation. All rights reserved.")), "5,1-4+")
+ t:add(UILabel(i18n("(c) 2003-2007, E/AS Software Foundation. All rights reserved.")), "5,1-4+")
t:add(UILabel(i18n("This software is distributed under the GPL")), "6,1-4+")
t:add(UILabel(i18n("Web: http://eas.lrn.ru")), "7,1-4+")
|
