創建Tcl的Tk的一個CAPS按鈕

Question

我需要創建具有輸入線和一個按鈕的窗口，將工作是這樣的：

按鈕將被標記爲「CAPS」，當它被按下，輸入行上的文本將變爲大寫字符。與此同時，按鈕標籤將變爲「小」，當再次按下時，輸入行中的所有字符將變成小寫字符，並且該按鈕將再次被標記爲「CAPS」以重置其功能。

Answer 1

如果「算法」是非常基本的，我會見了TCL的最大困難是這種語法，這似乎有點怪：

#!/usr/bin/env wish 

pack [entry .e] 
pack [button .b -text "Uppercase" -command "ToggleCase"] 

proc ToggleCase {} { 
    set temp [.e get] 
    .e delete 0 end 
    if {[.b cget -text] eq "Uppercase"} { 
     .e insert 0 [string toupper $temp] 
     .b configure -text "Lowercase" 
    } else { 
     .e insert 0 [string tolower $temp] 
     .b configure -text "Uppercase" 
    } 
}