下面是编程之家 jb51.cc 通过网络收集整理的代码片段。
编程之家小编现在分享给大家,也给大家做个参考。
require "tk" $top = { 'side' => 'top','padx'=>5,'pady'=>5 } $left = { 'side' => 'left','pady'=>5 } $bottom = { 'side' => 'bottom','pady'=>5 } $temp = 74 # Starting temperature... root = TkRoot.new { title "Thermostat" } top = TkFrame.new(root) { background "#606060" } bottom = TkFrame.new(root) $tlab = TkLabel.new(top) do text $temp.to_s font "{Arial} 54 {bold}" foreground "green" background "#606060" pack $left end TkLabel.new(top) do # the "degree" symbol text "o" font "{Arial} 14 {bold}" foreground "green" background "#606060" # Add anchor-north to the hash (make a superscript) pack $left.update({ 'anchor' => 'n' }) end TkButton.new(bottom) do text " Up " command proc { $tlab.configure("text"=>($temp+=1).to_s) } pack $left end TkButton.new(bottom) do text "Down" command proc { $tlab.configure("text"=>($temp-=1).to_s) } pack $left end top.pack $top bottom.pack $bottom Tk.mainloop
以上是编程之家(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。