# File tk/lib/tk/palette.rb, line 25
def TkPalette.bisque
tk_call('tk_bisque')
end
# File tk/lib/tk/palette.rb, line 29
def TkPalette.darken(color, percent)
tk_call('tkDarken', color, percent)
end
# File tk/lib/tk/palette.rb, line 33
def TkPalette.recolorTree(win, colors)
if not colors.kind_of?(Hash)
fail "2nd arg need to be Hash"
end
tk_call('global', "tkPalette")
colors.each{|key, value|
begin
if win.cget(key) == tk_call('set', "tkPalette(#{key})")
win[key] = colors[key]
end
rescue
# ignore
end
}
TkWinfo.children(win).each{|w| TkPalette.recolorTree(w, colors)}
end