2011年9月3日
pack forget
摘要： button .a \ -text "aaa" \ -command {pack forget .b}button .b \ -text "bbb" \button .c \ -text "ccc" \ -command {pack .b}pack .apack .cpack .b 阅读全文
posted @ 2011-09-03 22:37 greencolor 阅读(167) 评论(0) 推荐(0) 编辑
tail
摘要： puts $this.bb.c.body.cellref.normal.rf.sf.sc.eenamespace tail $this.bb.c.body.cellref.normal.rf.sf.sc 阅读全文
posted @ 2011-09-03 21:09 greencolor 阅读(107) 评论(0) 推荐(0) 编辑
socket class
摘要： class testt {inherit itk::Widget private variable socket public method acceptSocketConnectionpublic method processMessagepublic method sendCommandconstructor {args} {set server [socket -server acceptSocketConnection -myaddr 127.0.0.1 2200] itk_component add buttone { button .b \-text "aaa" 阅读全文
posted @ 2011-09-03 10:53 greencolor 阅读(198) 评论(0) 推荐(0) 编辑
socket class / button
摘要： set socket ""class testt { private variable socket public method acceptSocketConnectionpublic method processMessageconstructor {args} {set server [socket -server acceptSocketConnection -myaddr 127.0.0.1 2200]vwait forever }}body testt::acceptSocketConnection { a_sock an_addr a_port } { glo 阅读全文
posted @ 2011-09-03 10:16 greencolor 阅读(173) 评论(0) 推荐(0) 编辑