greencolor - 博客园

2011年9月25日

摘要： #include <stdio.h>#include <tcl.h>main (int argc, char *argv[]) { Tcl_Interp *myinterp; int status; printf ("Your Tcl Program will run ... \n"); myinterp = Tcl_CreateInterp(); status = Tcl_EvalFile(myinterp,argv[1]); printf ("Your Tcl Program has completed\n");} 阅读全文

posted @ 2011-09-25 23:42 greencolor 阅读(156) 评论(0) 推荐(0)

2011年9月22日

convert image size

摘要： proc resizeImageMagick {sourceFile destFile} { exec convert -resize 480x360 $sourceFile $destFile return ""} 阅读全文

posted @ 2011-09-22 12:40 greencolor 阅读(233) 评论(0) 推荐(0)

2011年9月20日

scrollbar

摘要： proc autoscroll { scrollbar first last} { if {$first <= 0 && $last >= 1} {grid remove $scrollbar } else {grid $scrollbar } $scrollbar set $first $last}itk_component add viewcryst_scroll {scrollbar $itk_interior.iscroll \ -command [code $this component treectrlcom yview] \ -orient verti 阅读全文

posted @ 2011-09-20 15:24 greencolor 阅读(133) 评论(0) 推荐(0)

2011年9月18日

treectrl steps

摘要： .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 阅读(121) 评论(0) 推荐(0)

get file name part

摘要： =>file tail $fileimovie-05.gif=>file root [file tail $file]imovie-05 阅读全文

posted @ 2011-09-18 22:58 greencolor 阅读(95) 评论(0) 推荐(0)

glob

摘要： 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 阅读(226) 评论(0) 推荐(1)

treectrl

摘要： 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 阅读(226) 评论(0) 推荐(0)

namespace eval

摘要： namespace eval test {}proc test::aa {args} {puts "hello world $args"}test::aa yous 阅读全文

posted @ 2011-09-18 19:38 greencolor 阅读(334) 评论(0) 推荐(0)

catch error

摘要： catch { if {[ttk::style layout TreeCtrl] ne ""} {set tile 1set tileFull 1 }} 阅读全文

posted @ 2011-09-18 11:15 greencolor 阅读(128) 评论(0) 推荐(0)

2011年9月17日

sharedlibextension

摘要： set pattern libtreectrl*[info sharedlibextension]*libtreectrl*.so* 阅读全文

posted @ 2011-09-17 23:21 greencolor 阅读(118) 评论(0) 推荐(0)

公告