/usr/lib/ruby/1.8/tk/palette.rb is in libtcltk-ruby1.8 1.8.7.352-2ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 | #
# tk/palette.rb : methods for Tcl/Tk standard library 'palette.tcl'
# 1998/06/21 by Hidetoshi Nagai <nagai@ai.kyutech.ac.jp>
#
require 'tk'
module TkPalette
include Tk
extend Tk
TkCommandNames = [
'tk_setPalette'.freeze,
'tk_bisque'.freeze,
'tkDarken'.freeze
].freeze
def TkPalette.set(*args)
args = args[0].to_a.flatten if args[0].kind_of? Hash
tk_call('tk_setPalette', *args)
end
def TkPalette.setPalette(*args)
TkPalette.set(*args)
end
def TkPalette.bisque
tk_call('tk_bisque')
end
def TkPalette.darken(color, percent)
tk_call('tkDarken', color, percent)
end
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
def recolorTree(colors)
TkPalette.recolorTree(self, colors)
end
end
|