Tcl/Tk

這個語言聽說了好耐了,係一種都幾舊的語言,但相對少人用,
但也有其特色,作為Component Glue和Interface 就很不錯。
這幾天就用了來做一個Dialog的Application,在Knoppix上運行。
佢的tk部份對寫gui相當不錯,好過Java那種無限Container好得多。

這裏就寫一些Hello World級數的筆記先
#################################################
#!/usr/bin/wish
# 定義一個中文字型,如果唔係就會出亂碼
font create bsmilpfont -family “ar pl mingti2l big5″ -size 12

# 一個Place Holder
frame .f

proc toExecute {} {
tk_messageBox -message “我好” -type ok
}

# .a.aLabel 代表著 aLabel呢樣野係在.f上面,同Java的Container差唔多
# -font 就是叫系統用之前所字義好的中文字
label .f.aLabel -text “你好嗎” -height 1 -font bsmilpfont

# 留意-command 的 toExecute,當按下它時會執行toExecute
button .f.aButton -text “確定” -command toExecute -font bsmilpfont

# 把 .f.aLabel放係.f入面的上方
pack .f.aLabel -side top
pack .f.aButton

pack .f

參考文件

Leave a Reply