mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
fd46a1da0a
configure.in : add --enable-setreuid option
tcltklib.c : TclTkIp.new accepts 'ip-name' and 'options'
( e.g. TclTkIp.new('FOO', '-geometry 500x200 -use 0x2200009') )
tk.rb : support arguments of TclTkIp.new
( see TkCore::IP_NAME, TkCore::IP_OPTS )
tk*.rb : preparations for multi-Tk interpreter support
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4127 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
54 lines
1.1 KiB
Ruby
54 lines
1.1 KiB
Ruby
#
|
|
# tkpalette.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.to_a.flatten if args.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(window, colors)
|
|
if not colors.kind_of?(Hash)
|
|
fail "2nd arg need to be Hash"
|
|
end
|
|
|
|
colors.each{|key, value|
|
|
begin
|
|
if window.cget(key) == tk_call('set', "tkPalette(#{key})")
|
|
window[key] = colors[key]
|
|
end
|
|
rescue
|
|
# ignore
|
|
end
|
|
}
|
|
|
|
TkWinfo.children(window).each{|w| TkPalette.recolorTree(w, colors)}
|
|
end
|
|
|
|
def recolorTree(colors)
|
|
TkPalette.recolorTree(self, colors)
|
|
end
|
|
end
|