文件操作 - dialog1.tcl
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/tk8.6/demos/dialog1.tcl
编辑文件内容
# dialog1.tcl -- # # This demonstration script creates a dialog box with a local grab. after idle {.dialog1.msg configure -wraplength 4i} set i [tk_dialog .dialog1 "Dialog with local grab" {This is a modal dialog box. It uses Tk's "grab" command to create a "local grab" on the dialog box. The grab prevents any pointer-related events from getting to any other windows in the application until you have answered the dialog by invoking one of the buttons below. However, you can still interact with other applications.} \ info 0 OK Cancel {Show Code}] switch $i { 0 {puts "You pressed OK"} 1 {puts "You pressed Cancel"} 2 {showCode .dialog1} }
修改文件时间
将文件时间修改为当前时间的前一年
删除文件