# 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