summaryrefslogtreecommitdiff
path: root/lib/tkpalette.rb
diff options
context:
space:
mode:
authormatz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>1998-06-18 07:47:15 +0000
committermatz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>1998-06-18 07:47:15 +0000
commit992923053cfb51dc04c6a7ee07ca6fff1b61d1a5 (patch)
tree2b2857adc35295dcd45c57c338c440ec16f99eff /lib/tkpalette.rb
parent16487ee284f17cfbf6fad9f6b2fedc57f0f37e0a (diff)
1.1b9_26
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/v1_1r@244 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'lib/tkpalette.rb')
-rw-r--r--lib/tkpalette.rb46
1 files changed, 46 insertions, 0 deletions
diff --git a/lib/tkpalette.rb b/lib/tkpalette.rb
new file mode 100644
index 00000000000..b317330937b
--- /dev/null
+++ b/lib/tkpalette.rb
@@ -0,0 +1,46 @@
+#
+# tkpalette.rb : methods for Tcl/Tk standard library 'palette.tcl'
+# 1998/06/18 by Hidetoshi Nagai <nagai@ai.kyutech.ac.jp>
+#
+module TkPalette
+ include Tk
+ extend Tk
+
+ 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