File: xstartbu

package info (click to toggle)
afbackup 3.1beta1-1
  • links: PTS
  • area: main
  • in suites: slink
  • size: 1,500 kB
  • ctags: 1,685
  • sloc: ansic: 22,406; csh: 3,597; tcl: 964; sh: 403; makefile: 200
file content (13 lines) | stat: -rw-r--r-- 297 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 

proc run_full_backup {
  global env
}

frame .title
frame .full
frame .incr
button .full.start -text "Full Backup" -command run_full_backup
button .incr.start -text "Incremental Backup" -command run_incr_backup
pack .full.start -fill x
pack .incr.start -fill x
pack .full .incr -side top -fill x