← Back to branch summary

~edutictac/+junk/easyinstall

« back to all changes in this revision

Viewing changes to src/easyinstall/FMain.class

  • 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/FMain.class
23
23
    DIM c AS String 
24
24
    DIM arr_cadenas AS String[] 
25
25
    DIM destino AS String
 
26
     DIM es AS String
 
27
    DIM ca AS String
 
28
    DIM en AS String
 
29
    DIM f AS Form
 
30
    
 
31
    es = User.Home & ("/.easyinstall/es")
 
32
    ca = User.Home & ("/.easyinstall/ca")
 
33
    en = User.Home & ("/.easyinstall/en")
 
34
    
26
35
'copiamos los archivos en el directorio home
27
36
IF NOT Exist(User.Home &/ ".easyinstall/fonts.data" &/ ".easyinstall/jocs.data")
28
37
      TRY MKDIR User.Home &/ ".easyinstall"
136
145
    TextAreaGraficos.Insert(c)
137
146
     NEXT 
138
147
     
 
148
     'inici descripció cuadres de texto -------------------->
 
149
     
139
150
      destino = User.Home &/ ".easyinstall/descmusica.data"
140
151
    arr_cadenas = Split(File.LOAD(destino)) 
141
152
    TextAreadescMusica.Clear() 
142
153
        FOR EACH c IN arr_cadenas 
143
154
    TextAreadescMusica.Insert(c)
144
 
     NEXT 
 
155
     
 
156
   NEXT 
 
157
    
 
158
   
 
159
   
145
160
     
146
161
     destino = User.Home &/ ".easyinstall/descjocs.data"
147
162
        arr_cadenas = Split(File.LOAD(destino)) 
225
240
    TextAreapropis.Insert(c)
226
241
     NEXT 
227
242
      ME.center
 
243
      
 
244
 
228
245
END 
229
246
 
230
247