原创 snow leopard下执行tcl代码的简单流程

   set result 1 

   while {$p > 0} {

      set result [expr $result*$base] 

      set p [expr $p-1]

   } 

return $result

} 

entry .base -width 6 -relief sunken -textvariable base 

label .label1 -text "to the power" 

entry .power -width 6 -relief sunken -textvariable power 

label .label2 -text "is" 

label .result -textvariable result 

pack .base .label1 .power .label2 .result \

    -side left -padx 1m -pady 2m 

bind .base <Return> {set result [power $base $power]} 

bind .power <Return> {set result [power $base $power]}

4.保存退出

5.chmod 775 power

6.然后进入wish

7.source power，这样就生成了一个小窗口，如下所示，输入数据后回车能够计算出结果啦