flanguage.class

Gambas is a graphical development environment based on a Basic interpreter, like Visual Basic. It us

' Gambas class file

STATIC PRIVATE $sLang AS String

STATIC PUBLIC FUNCTION Run() AS String

  DIM hForm AS Form

  hForm = NEW FLanguage
  hForm.ShowModal
  
  RETURN $sLang

END

PUBLIC SUB _new()
  
  DIM sLang AS String
  
  FOR EACH sLang IN Dir(File.Dir(Project.Path) &/ ".lang", "*.po")
    lstLanguage.Add(Language.ToName(File.BaseName(sLang)))
  NEXT

  TRY lstLanguage.Index = 0

END


PUBLIC SUB btnOK_Click()

  $sLang = Language.FromName(lstLanguage.Text)
  ME.Close

END

PUBLIC SUB btnCancel_Click()

  $sLang = ""
  ME.Close

END