随笔分类 -  tcl/tk

tcl/t字符串操作【二】
摘要:确定字符串类型:string isdigit 1234=>1string is digit “abc”=>0默认如果字符串为空,对任何类型string is都返回1,可以指定-strict选项强制要求在字符串为空是返回0:string is control “”=>1string is control –strict “”=>0string is命令支持的字符类型类型测试对象Alnum全为Unicode字母或数字alpha全为Unicode字母ascii全为7位ASCII字符boolean可以识别为布尔型值(0 1 no yes true false on off)co 阅读全文

posted @ 2011-12-19 22:49 balabala已被注册 阅读(6442) 评论(0) 推荐(0) 编辑

tcl/tk字符串操作【一】
摘要:取得字符:string index和string rangestring index语法:string index oriString indexindex如果是0,对应字符串开头,如果是end,对应字符串结尾eg:string index “Sample string” 3=>pstring index “Sample string ” end-1=>nstring range语法:string range oriString startIndex endIndexEg:string range “Sample string” 3 7=>ple s长度:string len 阅读全文

posted @ 2011-12-19 22:49 balabala已被注册 阅读(1600) 评论(0) 推荐(0) 编辑

tcl/tk窗口管理器
摘要:窗口尺寸:设置窗口的宽高:wm geometry .window 300x200恢复窗口到其自然尺寸:wm geometry .window {}设置窗口最大最小尺寸wm minsize .window 100 50wm maxsize .window 400 150宽度范围100~400像素,高度范围50~150像素设置窗口是否尺寸可调:wm resizable .window 0 10:尺寸不可调1:尺寸可调限制宽高比范围:wm aspect .window 1 3 4 1告诉窗口管理器不允许用户将窗口的宽高比设置为小于1/3或大于4。窗口位置:设置窗口相对显示器的位置:wm geomet 阅读全文

posted @ 2011-12-19 22:48 balabala已被注册 阅读(4334) 评论(0) 推荐(0) 编辑

tcl/tk过程
摘要:过程基础:过程由proc命令创建,格式如下:proc 过程名 参数列表 过程体实例如下:proc plus {a b} {expr {$a + $b}}plus命令的返回值就是它的过程块中最有一个命令的返回值。可以用return提前返回,return的参数就是该过程的返回值。下面是使用return命令的阶乘功能实现:proc fac {x} {if {$x <= 1} {return 1;}return [expr{$x * [fac [expr {$x - 1}]]}]}fac 4=>24fac 0=>1局部和全局变量:过程可以使用global命令引用全局变量。例如,下面这 阅读全文

posted @ 2011-12-19 22:48 balabala已被注册 阅读(2758) 评论(2) 推荐(0) 编辑

一个简单的tcl/tk程序,包含了几乎所有常用组件的基本用法,仅供自己参考
摘要:############################ # set the size of the vanvas ############################ set x 0 set y 1 set z 0.8 set p 0 set q 1 set l 0.8 set monkeyImage [] set glassesImage [] set beardImage [] set sheepImage [] set step1Image [] set top .top43 ################### # CREATING WIDGETS ############## 阅读全文

posted @ 2011-12-19 22:47 balabala已被注册 阅读(5074) 评论(2) 推荐(1) 编辑

tcl/tk之流程控制命令
摘要:作为学习笔记,写下来仅供自己查阅。tcl脚本命令风格有些类似linux命令,比较古老和原始的语言,学过linux的看起来应该毫无压力if命令if {$x < 0} {set x 0}if {$x < 0} {...} elseif {$x == 0} {...} elseif {$x == 1} {...} else {...}每一个左大括号都必须在它的前一个单词的同一行,因为换行符就是命令分隔符。下面这段脚本就会被解析为两个命令,报告if命令因参数不足而报错:if {$x < 0}{...}switch命令:switch $x {a {incr t1}b {incr t2} 阅读全文

posted @ 2011-12-19 22:47 balabala已被注册 阅读(3318) 评论(0) 推荐(0) 编辑

导航