xstartbu

来自「一套客户/服务器模式的备份系统代码,跨平台,支持linux,AIX, IRIX,」· 代码 · 共 14 行

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