📄 test.txt
字号:
toplevel .dbg
pack [text .dbg.t]
proc Debug {t} {
.dbg.t insert end "$t\n"
}
proc onerror {w id t} {
if {$id} {tk_messageBox -message "$id:$t" -title error -icon error}
}
proc toto {} {
.avi begincompression
.avi capture toto.avi
set clk [clock seconds]
tk_messageBox -message Stop
.avi stopcapture
.avi endcompression
puts "Dur閑=[expr [clock seconds]-$clk] secondes"
}
set framenumber 0
proc cb {args} {
global framenumber
incr framenumber
puts "cb ([llength $args] args) : $framenumber"
}
cd d:/vfwtcl/release;load vfwtcl.dll;avicap .avi;pack .avi;.avi connect 0
.avi cbkonerror onerror
.avi setcapturesetup -thread 1 -captureaudio 0 -rightbuttonaborts 0 -leftbuttonaborts 0
.avi compressdlg
.avi cbkonvideostream cb
.avi begincompression
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -