← Back to branch summary

~edutictac/+junk/easyinstall

« back to all changes in this revision

Viewing changes to src/easyinstall/Restaurar2.class

  • Committer: Samuel Soriano
  • Date: 2011-06-26 19:12:00 UTC
  • Revision ID: sasogu@gmail.com-20110626191200-kel3s8utrde06rj0
canvis i millores ara es poden clonar totes les aplicacions d'un pc

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/easyinstall/Restaurar2.class
 
1
' Gambas class file
 
2
 
 
3
PUBLIC SUB Form_Open()
 
4
 
 
5
 
 
6
END
 
7
 
 
8
PUBLIC SUB Run() AS Boolean
 
9
 
 
10
  RETURN NOT ME.ShowModal()
 
11
 
 
12
END
 
13
 
 
14
PUBLIC SUB btnOK_Click()
 
15
 
 
16
  ME.Close(TRUE)
 
17
 
 
18
END
 
19
 
 
20
PUBLIC SUB btnCancel_Click()
 
21
 
 
22
  ME.Close
 
23
 
 
24
END
 
25
 
 
26
 
 
27
PUBLIC SUB Process_Read()
 
28
  
 
29
  DIM cad AS String
 
30
  
 
31
  LINE INPUT #LAST, Cad
 
32
  salida.Text &= Cad & gb.NewLine
 
33
  WAIT 0.1
 
34
  
 
35
END
 
36
 
 
37
PUBLIC SUB Process_Error(err AS String)
 
38
  
 
39
  IF Left(err, 8) <> "debconf:" THEN  'los warnings sobre stdin y stdout
 
40
    salida.Text &= err & gb.NewLine
 
41
    WAIT 0.1
 
42
  ENDIF 
 
43
  
 
44
END
 
45
 
 
46
 
 
47
 
 
48
 
 
49
PUBLIC SUB bInstalar_Click()
 
50
 
 
51
    DIM instala AS String
 
52
  DIM pr AS process
 
53
 
 
54
  
 
55
  INC Application.Busy
 
56
 
 
57
 pr = SHELL "echo " & Clave.Text & " |sudo -S apt-get -y -u dselect-upgrade " FOR READ
 
58
  
 
59
 
 
60
  WHILE pr.State = Process.Running
 
61
    WAIT 0.1
 
62
  WEND
 
63
  DEC Application.Busy
 
64
  
 
65
  
 
66
END