diff options
author | usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2013-05-14 11:39:21 +0000 |
---|---|---|
committer | usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2013-05-14 11:39:21 +0000 |
commit | e76eb06feb024828034379797129d92522e28516 (patch) | |
tree | 1326c625c233ba2554043203a7697f5e3d4c49e5 /ruby_1_9_3/ext/tk/lib/tkextlib/tkDND/shape.rb | |
parent | aa6e98139c8e1ea442fb2182341aaa08ff55b529 (diff) | |
parent | bede15ac5e701ed08f3fc64c2dba03d3f393c652 (diff) |
add tag v1_9_3_426v1_9_3_426
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_9_3_426@40737 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ruby_1_9_3/ext/tk/lib/tkextlib/tkDND/shape.rb')
-rw-r--r-- | ruby_1_9_3/ext/tk/lib/tkextlib/tkDND/shape.rb | 125 |
1 files changed, 0 insertions, 125 deletions
diff --git a/ruby_1_9_3/ext/tk/lib/tkextlib/tkDND/shape.rb b/ruby_1_9_3/ext/tk/lib/tkextlib/tkDND/shape.rb deleted file mode 100644 index d44068ed33..0000000000 --- a/ruby_1_9_3/ext/tk/lib/tkextlib/tkDND/shape.rb +++ /dev/null @@ -1,125 +0,0 @@ -# -# tkextlib/tkDND/shape.rb -# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp) -# - -require 'tk' - -# call setup script for general 'tkextlib' libraries -require 'tkextlib/setup.rb' - -# call setup script -require 'tkextlib/tkDND/setup.rb' - -# TkPackage.require('Shape', '0.3') -TkPackage.require('Shape') - -module Tk - module TkDND - module Shape - extend TkCore - - PACKAGE_NAME = 'Shape'.freeze - def self.package_name - PACKAGE_NAME - end - -=begin - def self.package_version - begin - TkPackage.require('Shape') - rescue - '' - end - end -=end - class << self - def package_version - Tk.tk_call('set', 'shape_version') - end - alias shape_version package_version - - def package_patchlevel - Tk.tk_call('set', 'shape_patchLevel') - end - alias shape_patchlevel package_patchlevel - - def version - tk_call('shape', 'version') - end - alias xshape_version version - end - - ############################ - - def shape_bounds(kind=nil) - if kind - ret = tk_call('shape', 'bounds', @path, "-#{kind}") - else - ret = tk_call('shape', 'bounds', @path) - end - if ret == "" - nil - else - list(ret) - end - end - - def shape_get(kind=nil) - if kind - list(tk_call('shape', 'get', @path, "-#{kind}")) - else - list(tk_call('shape', 'get', @path)) - end - end - - def shape_offset(x, y, kind=nil) - if kind - tk_call('shape', 'get', @path, "-#{kind}", x, y) - else - tk_call('shape', 'get', @path, x, y) - end - self - end - - def _parse_shapespec_param(args) - cmd = [] - - kind_keys = ['bounding', 'clip', 'both'] - offset_keys = ['offset'] - srckind_keys = ['bitmap', 'rectangles', 'reset', 'test', 'window'] - - cmd << "-#{args.shift}" if kind_keys.member?(args[0].to_s) - - if offset_keys.member?(args[0].to_s) - cmd << "-#{args.shift}" - cmd << args.shift # xOffset - cmd << args.shift # yOffset - end - - if srckind_keys.member?(args[0].to_s) - cmd << "-#{args.shift}" - end - - cmd.concat(args) - - cmd - end - private :_parse_shapespec_param - - def shape_set(*args) # ?kind? ?offset <x> <y>? srckind ?arg ...? - tk_call('shape', 'set', @path, *(_parse_shapespec_param(args))) - self - end - - def shape_update(op, *args) # ?kind? ?offset <x> <y>? srckind ?arg ...? - tk_call('shape', 'update', @path, op, *(_parse_shapespec_param(args))) - self - end - end - end -end - -class TkWindow - include Tk::TkDND::Shape -end |