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

[DEVELOPMENT ENVIRONMENT]

Browse source 
* BUG: Don't crash when opening the translation dialog whereas no project 
  string is translatable.


git-svn-id: svn://localhost/gambas/trunk@6386 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2014-07-16 23:44:32 +00:00
parent fbb0571940
commit 076e53d577
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
app/src/gambas3/.src/Translation/FTranslate.class
View file

@ -194,6 +194,8 @@ Private Sub SetLang(Optional sLang As String) As Boolean
VersionControl.AddFile(sPath)
$bDeleteIfVoid = True
'SHELL "cp " & Project.Quote(sDir &/ ".pot") & " " & Project.Quote(sPath) WAIT
Else If Stat(sPath).Size = 0 Then
$bDeleteIfVoid = True
Else
Try MergeMessage(sPath, Shell$(sPath) & " " & Shell$(sDir &/ ".pot"))
If Error Then
@ -1249,12 +1251,15 @@ Private Sub ShiftToSort(Optional sSortText As String)
End With
Try cvwTranslate.MoveTo(sLastKey)
If Not cvwTranslate.Available Then
cvwTranslate.MoveFirst
If cvwTranslate.Count Then
Try cvwTranslate.MoveTo(sLastKey)
If Not cvwTranslate.Available Then
cvwTranslate.MoveFirst
Endif
cvwTranslate.item.Selected = True
cvwTranslate.Item.EnsureVisible()
Endif
cvwTranslate.item.Selected = True
cvwTranslate.Item.EnsureVisible()
DisplayTrans
ResizeTable