[Gambas-devel] Added functionality to the Translation Dialog

[Marco Bauer]

Did I mention that this code concerns gambas version 0.63?
Also I have some errata for the code send in my last mail.
Sorry for the inconvenience.

Concerning the changes I made, I encountered a strange problem:

  sLang = Project.Config.ReadString("/Language", System.Language)
  PRINT System.Language; " "; sLang

The above lines give the following output:

  de_DE at ...52... ar_TN

What's wrong? I did spend quite some time to figure this out but I have no 
clue. The same line in the unchanged FTransalte.class gives the right output:

  de_DE at ...52... de

Does anybody have an idea what's wrong?

Marco


Am Mittwoch, 20. August 2003 20:13 schrieb Marco Bauer:
> Hi,
>
> I've made some changes to the FTranslate.class and FTranslate.form to show
> the number of translations per language (see screenshot and diff-files).
> Please take a look and tell me if you like it, maybe it could be included
> into the next release.
>
> Gruss
> Marco
-------------- next part --------------
# Gambas Form File 1.0

{ FTranslate Form
  Move(72,102,729,559)
  Text = ("Translate project")
  Border = Window.Fixed
  { Label1 Label
    Move(8,8,184,24)
    Text = ("Translation language [Translations] :")
  }
  { cmbLang ComboBox
    Move(192,8,304,24)
    Text = (" ")
    ReadOnly = True
    Sorted = True
  }
  { btnSave Button
    Move(8,40,24,24)
    ToolTip = ("Save translation")
    Text = ("")
    Picture = Picture["img/16/save-all.png"]
    Border = False
  }
  { btnUndo Button
    Move(32,40,24,24)
    ToolTip = ("Reload translation")
    Text = ("")
    Picture = Picture["img/16/undo.png"]
    Border = False
  }
  { btnDelete Button
    Move(56,40,24,24)
    ToolTip = ("Delete translation")
    Text = ("")
    Picture = Picture["img/16/delete.png"]
    Border = False
  }
  { btnOpen Button
    Move(80,40,24,24)
    ToolTip = ("Duplicate a translation")
    Text = ("")
    Picture = Picture["img/16/copy.png"]
    Border = False
  }
  { btnExport Button
    Move(104,40,24,24)
    ToolTip = ("Export a translation")
    Text = ("")
    Picture = Picture["img/16/save.png"]
    Border = False
  }
  { btnImport Button
    Move(128,40,24,24)
    ToolTip = ("Import a translation")
    Text = ("")
    Picture = Picture["img/16/open-file.png"]
    Border = False
  }
  { btnVerify Button
    Move(152,40,24,24)
    ToolTip = ("Verify the translation")
    Text = ("")
    Picture = Picture["img/16/watch.png"]
    Border = False
  }
  { txtFind TextBox
    Move(192,40,256,24)
    Text = ("")
  }
  { btnFind Button
    Move(456,40,24,24)
    ToolTip = ("Find a string in translation")
    Text = ("")
    Picture = Picture["img/16/find.png"]
    Border = False
  }
  { cvwTranslate ColumnView
    Move(8,72,712,232)
    Sorted = True
    Resizable = False
    ScrollBar = Scroll.Vertical
  }
  { Label2 Label
    Move(8,312,408,24)
    Text = ("Untranslated string")
  }
  { txtOrig TextArea
    Move(8,336,712,72)
    Text = ("")
    ReadOnly = True
    Wrap = True
  }
  { Label3 Label
    Move(8,416,136,24)
    Text = ("Translation")
  }
  { btnDoNotTranslate Button
    Move(648,416,24,24)
    ToolTip = ("This string must not be translated")
    Text = ("")
    Picture = Picture["img/16/warning.png"]
    Border = False
  }
  { btnCopy Button
    Move(672,416,24,24)
    ToolTip = ("Copy untranslated string")
    Text = ("")
    Picture = Picture["img/16/down-b.png"]
    Border = False
  }
  { btnClear Button
    Move(696,416,24,24)
    ToolTip = ("Clear this translation")
    Text = ("")
    Picture = Picture["img/16/kill.png"]
    Border = False
  }
  { txtTranslate TextArea
    Move(8,440,712,72)
    Text = ("")
    Wrap = True
  }
  { lblInfo Label
    Move(8,528,240,24)
    Text = ("")
  }
  { btnOK Button
    Move(616,528,104,24)
    Text = ("&Close")
  }
}
-------------- next part --------------
A non-text attachment was scrubbed...
Name: FTranslate.class
Type: application/x-java
Size: 13924 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/devel/attachments/20030822/0f3f6b8a/attachment.bin>