在线咨询
eetop公众号 创芯大讲堂 创芯人才网
切换到宽版

EETOP 创芯网论坛 (原名:电子顶级开发网)

手机号码,快捷登录

手机号码,快捷登录

找回密码

  登录   注册  

快捷导航
搜帖子
查看: 3762|回复: 3

[求助] 求教一个laker下的tcl程序问题

[复制链接]
发表于 2011-6-16 17:02:50 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册

x
小弟初来乍到,有个tcl的问题,求教高手帮忙解答。我在laker下的程序是这么写的:
Set addLoc [gtCreateButton -name addSymbol -buttonText “Add Location”\
-callback {for {set a 1} {$a <= 7} {incr a 1} {
Set location($a) [gtCreatePointField -name Location($a)\
-editable t\
-prompt “Location”\
-value (0,0)\
-defValue (0,0) ]
gtAddFields –handle $form –fields [ list $location($a)]}}]
set form [gtCreateAppForm -name Form\
-title "Form:"
-buttonLayout OKCancelDefApply
-fields [list $addLoc]
-callback {for {set a 1} {$a <= 7} {incr a 1} {
set data $Form(Location($a):value)
puts "$data"}}]
getDisplay -handle $form

结果报错,*GuiTcl* Error: can't read "Form(Location(1)": no such element in array.
请问这个问题应该如何解决呢?
发表于 2011-6-17 10:50:52 | 显示全部楼层
好久没用laker了,看了一下,觉得这一句:
gtAddFields –handle $form –fields [ list $location($a)]}}]
应该放在这一句:
getDisplay -handle $form
的前面。即最后几行应该这样:
set form [gtCreateAppForm -name Form\
-title "Form:"
-buttonLayout OKCancelDefApply
-fields [list $addLoc]
-callback {for {set a 1} {$a <= 7} {incr a 1} {
set data $Form(Location($a):value)
puts "$data"}}]
gtAddFields –handle $form –fields [ list $location($a)]}}]
getDisplay -handle $form
 楼主| 发表于 2011-6-17 14:38:11 | 显示全部楼层
谢谢楼上的帮助了,问题是,如果将gtAddFields –handle $form –fields [ list $location($a)]放在getDisplay -handle $form后面的话,那么前面
Set addLoc [gtCreateButton -name addSymbol -buttonText “Add Location”\
-callback {for {set a 1} {$a <= 7} {incr a 1} {
Set location($a) [gtCreatePointField -name Location($a)\
-editable t\
-prompt “Location”\
-value (0,0)\
-defValue (0,0) ]}]
的执行按钮就无法callback一个可见的PointField
发表于 2011-6-21 09:40:25 | 显示全部楼层
等高手解决...
弱弱的问一句,请问楼主解决了么?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐 上一条 /2 下一条

小黑屋| 手机版| 关于我们| 联系我们| 隐私声明| EETOP 创芯网
( 京ICP备:10050787号 京公网安备:11010502037710 )

GMT+8, 2025-2-13 11:23 , Processed in 0.020895 second(s), 8 queries , Gzip On, Redis On.

eetop公众号 创芯大讲堂 创芯人才网
快速回复 返回顶部 返回列表