← Back to branch summary

~edutictac/+junk/easyinstall

« back to all changes in this revision

Viewing changes to src/easyinstall/iniciar.module

  • Committer: Samuel Soriano
  • Date: 2011-06-08 07:40:48 UTC
  • Revision ID: sasogu@gmail.com-20110608074048-mamdez9gguxcaked
configuració idioma

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/easyinstall/iniciar.module
1
1
' Gambas module file
 
2
PUBLIC SUB Main() 'Select language from command line args. You need to install selected locales to work
 
3
    'USAGE dfhLog.gambas -xx  (where xx is your selected language)
 
4
    DIM es AS String
 
5
    DIM ca AS String
 
6
    DIM en AS String
 
7
    DIM f AS Form
 
8
    
 
9
    es = User.Home & ("/.easyinstall/es")
 
10
    ca = User.Home & ("/.easyinstall/ca")
 
11
    en = User.Home & ("/.easyinstall/en")
 
12
    
 
13
    IF Exist(es) THEN 'if no args, it shows in your default lang
 
14
      
 
15
      System.Language = "es_ES.UTF-8"
 
16
           
 
17
    ENDIF
 
18
    
 
19
     IF Exist(ca) THEN 'if no args, it shows in your default lang
 
20
      
 
21
      System.Language = "ca_ES.UTF-8"
 
22
           
 
23
    ENDIF
 
24
    
 
25
    IF Exist(en) THEN 'if no args, it shows in your default lang
 
26
      
 
27
      System.Language = "en_GB.UTF-8"
 
28
           
 
29
    ENDIF
 
30
    f = NEW FMain
 
31
    f.Show
 
32
END
 
33