mirror of
https://github.com/ruby/ruby.git
synced 2025-09-18 18:13:58 +02:00
cdd3e130f2
* ext/tk/lib/tk/variable.rb: fix namespace trouble when autoloading * ext/tk/lib/tk/palette.rb: define Tcl variable 'tkPalette' as global * ext/tk/lib/tk/dialog.rb: use array2tk_list method when calling Tk.ip_eval. * ext/tk/lib/tk/autoload.rb: add autoload entry 'TkDialogObj' and 'TkWarningObj' * ext/tk/lib/tkextlib/treectrl/tktreectrl.rb: support TreeCtrl's cvs head. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@8239 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
55 lines
1.1 KiB
Ruby
55 lines
1.1 KiB
Ruby
#
|
|
# 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.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(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
|