Question

I m coding on Tk 8.5.9 from ActiveTcl on Ruby 1.8.7 on a Mac OS X 10.6.

满足我的申请要求我需要把 but子作为小块植被,而我却无法做到。我有数小时的搜索和实验结果。

Greatly thankful in advance for any clues.

下面是一部法典,试图从小县获得。

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

它 s。 <really的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

友情链接