← Back to branch summary

~gusions/ubucompilator/trunk-1

« back to all changes in this revision

Viewing changes to Ubucompilator/FUNZIP.class

  • Committer: gusions.docky at gmail
  • Date: 2011-08-15 12:34:28 UTC
  • Revision ID: gusions.docky@gmail.com-20110815123428-j20t7xdib16mo80k
Stable version 1.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
Ubucompilator/FUNZIP.class
 
1
' Gambas class file
 
2
 
 
3
 
 
4
 
 
5
PUBLIC SUB Button1_Click()
 
6
 
 
7
  DIM indirizzo AS String
 
8
 
 
9
   indirizzo = FileChooser1.SelectedPath
 
10
  SHELL "unzip " & indirizzo & ""
 
11
 
 
12
 
 
13
END
 
14
 
 
15
PUBLIC SUB Button2_Click()
 
16
   DIM indirizzo AS String
 
17
   DIM percorso AS String
 
18
   
 
19
   indirizzo = FileChooser1.SelectedPath
 
20
   
 
21
 SHELL "tar xzf " & indirizzo & "" 
 
22
 
 
23
  
 
24
  
 
25
 
 
26
END
 
27
 
 
28
 
 
29
 
 
30
PUBLIC SUB Button3_Click()
 
31
 
 
32
  DIM indirizzo AS String
 
33
 
 
34
   indirizzo = FileChooser1.SelectedPath
 
35
  SHELL "tar jxvf " & indirizzo & ""
 
36
 
 
37
 
 
38
END
 
39