摘要：
.t element create.t style create .t style element.t style layout.t column configure C0.t item create.t item element configure $I C0 .t item lastchild root $I 阅读全文
posted @ 2011-09-18 23:42
greencolor
阅读(127)
评论(0)
推荐(0)
摘要：
=>file tail $fileimovie-05.gif=>file root [file tail $file]imovie-05 阅读全文
posted @ 2011-09-18 22:58
greencolor
阅读(102)
评论(0)
推荐(0)
摘要：
glob *.tclFind all the Tcl files in the user's home directory, irrespective of what the current directory is:glob -directory ~ *.tclFind all subdirectories of the current directory:glob -type d *Find all files whose name contains an "a", a "b" or the sequence "cde": 阅读全文
posted @ 2011-09-18 22:56
greencolor
阅读(230)
评论(0)
推荐(1)
摘要：
namespace eval DemoIMovie {}treectrl .t -height 900 -width 900pack .tset ScriptDir [file normalize [file dirname [info script]]]set ::thisPlatform unixproc Path {args} { return [file normalize [eval [list file join $::ScriptDir] $args]]}proc DemoIMovie::Button1 {T x y} { focus $T set id [$T identify 阅读全文
posted @ 2011-09-18 21:28
greencolor
阅读(233)
评论(0)
推荐(0)
摘要：
namespace eval test {}proc test::aa {args} {puts "hello world $args"}test::aa yous 阅读全文
posted @ 2011-09-18 19:38
greencolor
阅读(337)
评论(0)
推荐(0)
摘要：
catch { if {[ttk::style layout TreeCtrl] ne ""} {set tile 1set tileFull 1 }} 阅读全文
posted @ 2011-09-18 11:15
greencolor
阅读(131)
评论(0)
推荐(0)
浙公网安备 33010602011771号