luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[DEVELOPMENT ENVIRONMENT]

Browse source 
* BUG: missed a comparison


git-svn-id: svn://localhost/gambas/trunk@7248 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Charlie Reinl 2015-08-29 17:50:07 +00:00
parent 9a1e1a4191
commit efa38ac0d3
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
app/src/gambas3/.src/Project.module
View file

@ -390,13 +390,13 @@ Private Sub InitVersion()
Endif
' sVer = VersionControl.GetVersion(File.Dir(File.Dir(File.Dir(Application.Path))))
' getting whole Version from the Compiler, it knows about the real used revision, if any
' getting whole Version infos from the Compiler, it knows about the real used revision, if any
Exec [System.Path &/ "bin/gbc" & System.Version, "-V"] To sVer
sVer = Replace(sVer, gb.NewLine, Null)
aVer = Split(sVer, " ")
sVer = Trim(aVer[aVer.Max])
If sVer Then
If sVer And sVer <> FullVersionWithRevision Then
'Version &= " (r" & sVer & ")"
FullVersionWithRevision &= " (" & sVer & ")"
Endif

2
app/src/gambas3/.src/Welcome/FSystemInfo.class
View file

@ -105,7 +105,7 @@ Static Public Sub GetInfo() As String[]
aText.Add("[System]")
' aText.Add("Gambas=" & System.FullVersion)
' getting Version set to FullVersionWithRevision at Project.initVersion
' getting Version: set to FullVersionWithRevision at Project.initVersion
aText.Add("Gambas=" & Project.FullVersionWithRevision)
aText.Add("OperatingSystem=" & System.Family)