itcl

1热度

2回答

我有这样一段代码验证true或false值的语法，像1是真，0是假的，如果有什么人再出错OFF： itcl::body boolean::validateSyntax {} \ { if {![string equal [getData] "1"] && \ ![string equal [getData] "0"] && \ ![string equal [g

0热度

1回答

差

我已经使用一个类变量的以下两个版本： ::itcl::class Subcase { variable _id } 和 ::itcl::class Subcase { variable _id -1 } 显然，只有明显的差别，在于前者没有初始值。当我使用我的访问器，其定义为： public method ::hwascii::Subcase::Id {{newVa

0热度

1回答

如何在incr tcl中调用类似bind的事件？

比如我尝试这样做： package require Itcl package require Tk ::itcl::class X { constructor { } { canvas .c -height 200 -width 200 bind .c <ButtonPress-1> {::itcl::code $this A} } method A { }

-3热度

2回答

需要正则表达式从文件路径

我有叫这个文件路径的末尾提取字符串：图像/ Linux的/ RHEL7-64/PTSVPL/ptsvpl-的ESXi-x86_64-7.20.0302.vmdk ，我想从这个末端提取字符串，即我想要的字符串： ptsvpl-esxi-x86_64-7.20.0302.vmdk 从整行，请帮助我一样。每个路径vairies和子文件夹延伸成教从去年只获取串并时有“/”在这我intented串后

0热度

1回答

tcl需要一种方法来从巨大的字符串中获取作业ID无正则表达式使用作为案例可能会失败

需要从这个巨大的字符串（1618252）中获取作业ID并且没有正则表达式来执行此操作，因为它可能会失败时作业ID是没有找到---------- % set invoc [[$this cget -testrun] cget -invocation] tcl profilemgr -configNetwork {} -startBefore now -releaseUnusedEquip 0 \

0热度

1回答

ITCL/TCOM /的Tcl /线程：这是线程连续运行

在的地方我在杀死Excel中 method Kill_XL {} { thread::create { set rc [catch {exec taskkill /t /f /im Excel*} output] } sleep 5 } 之后，几个不同的愿望炮弹以下命令调用线程写入ITCL代码Excel的应用程序，但我可以看到它立即在任务管理器退出

0热度

2回答

的Tcl/Tk - 无法附加类方法，如按钮命令

我尝试的方法附加到命令按钮，但有以下错误消息。它的工作很好，如果我附加一个proc。如何做到这一点？ % itcl::class a { method test {} {puts test} constructor {} { button .t.b -command test; grid config .t.b -column 0 -row 0

1热度

1回答

Itcl中的类方法中的自我否定

是否可以在类的成员方法内引用当前对象？笑纳下面的代码： itcl::class widget { private variable inst method ChildCount {} { return [llength [keylkeys inst children]] } method AddChild {childWidget} {

0热度

1回答

itcl tabnotebook在Windows上缺少标签

我有一个在Linux上运行良好的itcl/tk应用程序（大部分也在Windows上运行）。有一个框架，我打包了iwidgets :: scrolledframe，并在其中添加了两个选项卡的iwidgets :: tabnotebook。从来没有在Linux上的问题，但在Windows（使用Win7）通常第二个选项卡丢失。有时在Windows上退出并重新启动应用程序，它会出现，但通常它永远不会。我

2热度

1回答

Itcl：$这个变量的不一致性

从Tcl 8.5.9/Itcl 3.4到Tcl 8.6.6/Itcl 4.0.5进行项目迁移时，根据访问方式，我遇到了$this变量的不一致性。下面是最小化测试用例： puts "Tcl version : $tcl_patchLevel" puts "Itcl version : [package require Itcl]" itcl::class Base { public