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