Ruby/Tk：如何使用图像获得更小的按钮小部件

Question

我正在 Mac OS X 10.6 上的 Ruby 1.8.7 上使用 ActiveTcl 在 Tk 8.5.9 上进行编码。

为了满足我的应用程序要求，我需要使按钮小部件与 gif 图像一样小，但我无法做到。我花了几个小时进行搜索和实验，结果却是负面的。

提前非常感谢您提供任何线索。

以下是我试图从中获取小按钮的代码。

require 'tk'
require 'tkextlib/tile'

$up_img = TkPhotoImage.new("file"=>"arrowup-n.gif")
$down_img = TkPhotoImage.new("file"=>"arrowdown-n.gif")

root = TkRoot.new {title "Ek Composer"}

content = Tk::Tile::Frame.new(root).pack
Tk::Tile::Button.new(content) {width 1;image $up_img;  command {move_up}  }.pack
Tk::Tile::Button.new(content) {width 1;image $down_img;command {move_down}}.pack

def move_up
    p "move up"
end

def move_down
    p "move down"
end

Tk.mainloop

但按钮仍然太大:(。

Answer 1

很尴尬。 OSX 主题确实希望在按钮的两端添加额外的空间。

您可以尝试切换到经典按钮（在 tk 本身中），但这会在垂直方向上放置更多空间，并且看起来不太原生。或者，您可以将图像放入标签中（可以精确缩小）并向其添加绑定以使其响应鼠标单击。

Answer 2

我添加了标签绑定。工作正常。谢谢。遵循带有绑定作为按钮的标签代码片段。

require 'tk'


$resultsVar = TkVariable.new
root = TkRoot.new
root.title = "Window"

$up_img = TkPhotoImage.new("file"=>"arrowup-n.gif")
$down_img = TkPhotoImage.new("file"=>"arrowdown-n.gif")

Lbl = TkLabel.new(root) do
  image $up_img
  borderwidth 0
  font TkFont.new('times 20 bold')
  foreground  "red"
  relief      "groove"
  pack("side" => "right",  "padx"=> "50", "pady"=> "50")
end

Lbl.bind("ButtonPress-1")  {
    Lbl.configure("image"=>$down_img) 
}

Lbl.bind("ButtonRelease-1") { 
    Lbl.configure("image"=>$up_img) 
}

Lbl['textvariable'] = $resultsVar
$resultsVar.value = 'New value to display'

Tk.mainloop