Unix上用Tcl/Tk做到界面window实例

arthur

给个Tcl/Tk的实例给大家看看，Tk的X-windows界面是什么样子

1. #!/image/bin.rls/custom/qa_custom/scripts/scan_startlot_endlot/STATS/ESUMMARY/bin/wish8.5 -f
   
2. ##################################################################################
   
3. label .l1 -text "MT1805 O/S Testing Guider\n" \
   
4. -font {-family helvetica -size 14 -weight bold} \
   
5. -foreground blue -bd 2
   
6. label .l11 -text "Please select \[Production DIR\]\n\
   
7. Image Version: 7.0D11 \n\n" \
   
8. -foreground red -bd 2
   
9. 
   
10. label .l6 -text "Hardware Infomartion:\n\
    
11. -----------------------------------\n\
    
12. Load board: DB1200 & DB1201 (SHARING MOTHER BOARD WITH MT6235/NT6223) on 4th floor HW \n\n\
    
13. Socket: M0601-00013-01 (MD015 ... MD018) \n"
    
14. label .l7 -text "Yield Control Infomartion:\n\
    
15. -----------------------------------\n\
    
16. Yield Limit: 99.5%, O/S Limit: 0.5%, \n\
    
17. Retest until recovery rate < 20%! \n\n"\
    
18. -font {-family arial -size 12} -foreground purple
    
19. 
    
20. label .l8 -text "Bin Infomartion:\n\
    
21. -----------------------------------\n\
    
22. Bin1: Good,   Bin4: Open,  Bin3: Short,   Bin5: Leakage, Bin2: Error\n\
    
23.   Conty Bin is Bin3 and Bin4\n\n\n"\
    
24. -foreground DarkBlue
    
25. pack .l1 .l11 .l6 .l7 .l8

复制代码

arthur

具体，每个命令是什么意思，大家上www.tck.tk官网去查询，需要的同学可以把每个命令都练习一边，以后如果在Unix和Linux上做窗体应用程序还是用得到的