Chinaunix

标题: Ruby 完整布局管理示例 [打印本页]

---

作者: boy11-2    时间: 2011-01-16 18:32
标题: Ruby 完整布局管理示例

1. require "tk"
   
2. 
   
3. $top  = { 'side' => 'top', 'padx'=>5, 'pady'=>5 }
   
4. $left = { 'side' => 'left', 'padx'=>5, 'pady'=>5 }
   
5. $bottom = { 'side' => 'bottom', 'padx'=>5, 'pady'=>5 }
   
6. 
   
7. $temp = 74   # Starting temperature...
   
8. 
   
9. root = TkRoot.new { title "Thermostat" }
   
10. 
    
11. top = TkFrame.new(root) { background "#606060" }
    
12. bottom = TkFrame.new(root)
    
13. 
    
14. $tlab = TkLabel.new(top) do
    
15.   text $temp.to_s
    
16.   font "{Arial} 54 {bold}"
    
17.   foreground "green"
    
18.   background "#606060"
    
19.   pack $left
    
20. end
    
21. 
    
22. TkLabel.new(top) do         # the "degree" symbol
    
23.   text "o"
    
24.   font "{Arial} 14 {bold}"
    
25.   foreground "green"
    
26.   background "#606060"
    
27.   # Add anchor-north to the hash (make a superscript)
    
28.   pack $left.update({ 'anchor' => 'n' })
    
29. end
    
30. 
    
31. TkButton.new(bottom) do
    
32.   text " Up "
    
33.   command proc { $tlab.configure("text"=>($temp+=1).to_s) }
    
34.   pack $left
    
35. end
    
36. 
    
37. TkButton.new(bottom) do
    
38.   text "Down"
    
39.   command proc { $tlab.configure("text"=>($temp-=1).to_s) }
    
40.   pack $left
    
41. end
    
42. 
    
43. top.pack $top
    
44. bottom.pack $bottom
    
45. 
    
46. Tk.mainloop

复制代码

---

作者: 2gua    时间: 2011-01-16 23:16
是Tk的。

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2