mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
* ext/tk/lib/tk/canvas.rb: improve coords support for canvas items.
Now, supports all of the followings.
TkcLine.new(c, 0, 0, 100, 100, :fill=>'red')
TkcLine.new(c, [0, 0, 100, 100], :fill=>'red')
TkcLine.new(c, [0, 0], [100, 100], :fill=>'red')
TkcLine.new(c, [[0, 0], [100, 100]], :fill=>'red')
TkcLine.new(c, :coords=>[0, 0, 100, 100], :fill=>'red')
TkcLine.new(c, :coords=>[[0, 0], [100, 100]], :fill=>'red')
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6309 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nagai
parent
dca0de4191
commit
d3a8f9b361
4 changed files with 99 additions and 116 deletions
11
ChangeLog
11
ChangeLog
|
|
@ -1,3 +1,14 @@
|
|||
Fri May 14 18:37:49 2004 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp>
|
||||
|
||||
* ext/tk/lib/tk/canvas.rb: improve coords support for canvas
|
||||
items. Now, supports all of the followings.
|
||||
TkcLine.new(c, 0, 0, 100, 100, :fill=>'red')
|
||||
TkcLine.new(c, [0, 0, 100, 100], :fill=>'red')
|
||||
TkcLine.new(c, [0, 0], [100, 100], :fill=>'red')
|
||||
TkcLine.new(c, [[0, 0], [100, 100]], :fill=>'red')
|
||||
TkcLine.new(c, :coords=>[0, 0, 100, 100], :fill=>'red')
|
||||
TkcLine.new(c, :coords=>[[0, 0], [100, 100]], :fill=>'red')
|
||||
|
||||
Fri May 14 13:30:39 Hirokazu Yamamoto <ocean@m2.ccsnet.ne.jp>
|
||||
|
||||
* test/ruby/test_float.rb: Add test for util.c revision 1.42.
|
||||
|
|
|
|||
|
|
@ -60,12 +60,9 @@ class TkCanvas<TkWindow
|
|||
private :tagid
|
||||
|
||||
|
||||
def create(type, *args)
|
||||
# create a canvas item without creating a TkcItem object
|
||||
if type.kind_of?(TkcItem)
|
||||
fail ArgumentError, 'TkcItem class expected for 1st argument'
|
||||
end
|
||||
type.create(@path, *args)
|
||||
def create(type, *args)
|
||||
type.create(self, *args)
|
||||
end
|
||||
|
||||
|
||||
|
|
@ -252,6 +249,9 @@ class TkCanvas<TkWindow
|
|||
def itemconfigure(tagOrId, key, value=None)
|
||||
if key.kind_of? Hash
|
||||
key = _symbolkey2str(key)
|
||||
coords = key.delete('coords')
|
||||
self.coords(tagOrId, coords) if coords
|
||||
|
||||
if ( key['font'] || key['kanjifont'] \
|
||||
|| key['latinfont'] || key['asciifont'] )
|
||||
tagfont_configure(tagid(tagOrId), key.dup)
|
||||
|
|
@ -261,7 +261,9 @@ class TkCanvas<TkWindow
|
|||
end
|
||||
|
||||
else
|
||||
if ( key == 'font' || key == :font ||
|
||||
if ( key == 'coords' || key == :coords )
|
||||
self.coords(tagOrId, value)
|
||||
elsif ( key == 'font' || key == :font ||
|
||||
key == 'kanjifont' || key == :kanjifont ||
|
||||
key == 'latinfont' || key == :latinfont ||
|
||||
key == 'asciifont' || key == :asciifont )
|
||||
|
|
@ -292,6 +294,8 @@ class TkCanvas<TkWindow
|
|||
if TkComm::GET_CONFIGINFO_AS_ARRAY
|
||||
if key
|
||||
case key.to_s
|
||||
when 'coords'
|
||||
return ['coords', '', '', '', self.coords(tagOrId)]
|
||||
when 'dash', 'activedash', 'disableddash'
|
||||
conf = tk_split_simplelist(tk_send_without_enc('itemconfigure', tagid(tagOrId), "-#{key}"))
|
||||
if conf[3] && conf[3] =~ /^[0-9]/
|
||||
|
|
@ -342,18 +346,21 @@ class TkCanvas<TkWindow
|
|||
conf[1] = conf[1][1..-1] if conf.size == 2 # alias info
|
||||
conf
|
||||
}
|
||||
|
||||
fontconf = ret.assoc('font')
|
||||
if fontconf
|
||||
ret.delete_if{|item| item[0] == 'font' || item[0] == 'kanjifont'}
|
||||
fontconf[4] = tagfont_configinfo(tagid(tagOrId), fontconf[4])
|
||||
ret.push(fontconf)
|
||||
else
|
||||
ret
|
||||
end
|
||||
|
||||
ret << ['coords', '', '', '', self.coords(tagOrId)]
|
||||
end
|
||||
else # ! TkComm::GET_CONFIGINFO_AS_ARRAY
|
||||
if key
|
||||
case key.to_s
|
||||
when 'coords'
|
||||
{'coords' => ['', '', '', self.coords(tagOrId)]}
|
||||
when 'dash', 'activedash', 'disableddash'
|
||||
conf = tk_split_simplelist(tk_send_without_enc('itemconfigure',
|
||||
tagid(tagOrId),
|
||||
|
|
@ -410,6 +417,7 @@ class TkCanvas<TkWindow
|
|||
ret[key] = conf
|
||||
end
|
||||
}
|
||||
|
||||
fontconf = ret['font']
|
||||
if fontconf
|
||||
ret.delete('font')
|
||||
|
|
@ -417,6 +425,9 @@ class TkCanvas<TkWindow
|
|||
fontconf[3] = tagfont_configinfo(tagid(tagOrId), fontconf[3])
|
||||
ret['font'] = fontconf
|
||||
end
|
||||
|
||||
ret['coords'] = ['', '', '', self.coords(tagOrId)]
|
||||
|
||||
ret
|
||||
end
|
||||
end
|
||||
|
|
@ -513,6 +524,7 @@ class TkcItem<TkObject
|
|||
extend Tk
|
||||
include TkcTagAccess
|
||||
|
||||
CItemTypeName = nil
|
||||
CItemTypeToClass = {}
|
||||
CItemID_TBL = TkCore::INTERP.create_table
|
||||
|
||||
|
|
@ -529,8 +541,39 @@ class TkcItem<TkObject
|
|||
end
|
||||
|
||||
########################################
|
||||
def self._parse_create_args(args)
|
||||
fontkeys = {}
|
||||
if args[-1].kind_of? Hash
|
||||
keys = _symbolkey2str(args.pop)
|
||||
if args.size == 0
|
||||
args = keys.delete('coords')
|
||||
unless args.kind_of?(Array)
|
||||
fail "coords parameter must be given by an Array"
|
||||
end
|
||||
end
|
||||
|
||||
['font', 'kanjifont', 'latinfont', 'asciifont'].each{|key|
|
||||
fontkeys[key] = keys.delete(key) if keys.key?(key)
|
||||
}
|
||||
|
||||
args = args.flatten.concat(hash_kv(keys))
|
||||
else
|
||||
args = args.flatten
|
||||
end
|
||||
|
||||
[args, fontkeys]
|
||||
end
|
||||
private_class_method :_parse_create_args
|
||||
|
||||
def self.create(canvas, *args)
|
||||
fail RuntimeError, "TkcItem is an abstract class"
|
||||
unless self::CItemTypeName
|
||||
fail RuntimeError, "#{self} is an abstract class"
|
||||
end
|
||||
args, fontkeys = _parse_create_args(args)
|
||||
idnum = tk_call_without_enc(canvas.path, 'create',
|
||||
self::CItemTypeName, *args)
|
||||
canvas.itemconfigure(idnum, fontkeys) unless fontkeys.empty?
|
||||
idnum.to_i # 'canvas item id' is an integer number
|
||||
end
|
||||
########################################
|
||||
|
||||
|
|
@ -540,42 +583,13 @@ class TkcItem<TkObject
|
|||
end
|
||||
@parent = @c = parent
|
||||
@path = parent.path
|
||||
fontkeys = {}
|
||||
if args.size == 1 && args[0].kind_of?(Hash)
|
||||
args[0] = _symbolkey2str(args[0])
|
||||
coords = args[0].delete('coords')
|
||||
unless coords.kind_of?(Array)
|
||||
fail "coords parameter must be given by an Array"
|
||||
end
|
||||
args[0,0] = coords.flatten
|
||||
end
|
||||
if args[-1].kind_of? Hash
|
||||
keys = _symbolkey2str(args.pop)
|
||||
['font', 'kanjifont', 'latinfont', 'asciifont'].each{|key|
|
||||
fontkeys[key] = keys.delete(key) if keys.key?(key)
|
||||
}
|
||||
args.concat(hash_kv(keys))
|
||||
end
|
||||
@id = create_self(*args).to_i ;# 'canvas item id' is integer number
|
||||
|
||||
@id = create_self(*args) # an integer number as 'canvas item id'
|
||||
CItemID_TBL[@path] = {} unless CItemID_TBL[@path]
|
||||
CItemID_TBL[@path][@id] = self
|
||||
configure(fontkeys) unless fontkeys.empty?
|
||||
|
||||
######## old version
|
||||
# if args[-1].kind_of? Hash
|
||||
# keys = args.pop
|
||||
# end
|
||||
# @id = create_self(*args).to_i ;# 'canvas item id' is integer number
|
||||
# CItemID_TBL[@path] = {} unless CItemID_TBL[@path]
|
||||
# CItemID_TBL[@path][@id] = self
|
||||
# if keys
|
||||
# # tk_call @path, 'itemconfigure', @id, *hash_kv(keys)
|
||||
# configure(keys) if keys
|
||||
# end
|
||||
########
|
||||
end
|
||||
def create_self(*args)
|
||||
self.class.create(@path, *args)
|
||||
self.class.create(@c, *args) # return an integer number as 'canvas item id'
|
||||
end
|
||||
private :create_self
|
||||
|
||||
|
|
@ -593,105 +607,65 @@ class TkcItem<TkObject
|
|||
end
|
||||
|
||||
class TkcArc<TkcItem
|
||||
CItemTypeToClass['arc'] = self
|
||||
def self.create(path, *args)
|
||||
if args[-1].kind_of?(Hash)
|
||||
keys = args.pop
|
||||
args.concat(hash_kv(keys))
|
||||
end
|
||||
tk_call_without_enc(path, 'create', 'arc', *args)
|
||||
end
|
||||
CItemTypeName = 'arc'.freeze
|
||||
CItemTypeToClass[CItemTypeName] = self
|
||||
end
|
||||
|
||||
class TkcBitmap<TkcItem
|
||||
CItemTypeToClass['bitmap'] = self
|
||||
def self.create(path, *args)
|
||||
if args[-1].kind_of?(Hash)
|
||||
keys = args.pop
|
||||
args.concat(hash_kv(keys))
|
||||
end
|
||||
tk_call_without_enc(path, 'create', 'bitmap', *args)
|
||||
end
|
||||
CItemTypeName = 'bitmap'.freeze
|
||||
CItemTypeToClass[CItemTypeName] = self
|
||||
end
|
||||
|
||||
class TkcImage<TkcItem
|
||||
CItemTypeToClass['image'] = self
|
||||
def self.create(path, *args)
|
||||
if args[-1].kind_of?(Hash)
|
||||
keys = args.pop
|
||||
args.concat(hash_kv(keys))
|
||||
end
|
||||
tk_call_without_enc(path, 'create', 'image', *args)
|
||||
end
|
||||
CItemTypeName = 'image'.freeze
|
||||
CItemTypeToClass[CItemTypeName] = self
|
||||
end
|
||||
|
||||
class TkcLine<TkcItem
|
||||
CItemTypeToClass['line'] = self
|
||||
def self.create(path, *args)
|
||||
if args[-1].kind_of?(Hash)
|
||||
keys = args.pop
|
||||
args.concat(hash_kv(keys))
|
||||
end
|
||||
tk_call_without_enc(path, 'create', 'line', *args)
|
||||
end
|
||||
CItemTypeName = 'line'.freeze
|
||||
CItemTypeToClass[CItemTypeName] = self
|
||||
end
|
||||
|
||||
class TkcOval<TkcItem
|
||||
CItemTypeToClass['oval'] = self
|
||||
def self.create(path, *args)
|
||||
if args[-1].kind_of?(Hash)
|
||||
keys = args.pop
|
||||
args.concat(hash_kv(keys))
|
||||
end
|
||||
tk_call_without_enc(path, 'create', 'oval', *args)
|
||||
end
|
||||
CItemTypeName = 'oval'.freeze
|
||||
CItemTypeToClass[CItemTypeName] = self
|
||||
end
|
||||
|
||||
class TkcPolygon<TkcItem
|
||||
CItemTypeToClass['polygon'] = self
|
||||
def self.create(path, *args)
|
||||
if args[-1].kind_of?(Hash)
|
||||
keys = args.pop
|
||||
args.concat(hash_kv(keys))
|
||||
end
|
||||
tk_call_without_enc(path, 'create', 'polygon', *args)
|
||||
end
|
||||
CItemTypeName = 'polygon'.freeze
|
||||
CItemTypeToClass[CItemTypeName] = self
|
||||
end
|
||||
|
||||
class TkcRectangle<TkcItem
|
||||
CItemTypeToClass['rectangle'] = self
|
||||
def self.create(path, *args)
|
||||
if args[-1].kind_of?(Hash)
|
||||
keys = args.pop
|
||||
args.concat(hash_kv(keys))
|
||||
end
|
||||
tk_call_without_enc(path, 'create', 'rectangle', *args)
|
||||
end
|
||||
CItemTypeName = 'rectangle'.freeze
|
||||
CItemTypeToClass[CItemTypeName] = self
|
||||
end
|
||||
|
||||
class TkcText<TkcItem
|
||||
CItemTypeToClass['text'] = self
|
||||
def self.create(path, *args)
|
||||
CItemTypeName = 'text'.freeze
|
||||
CItemTypeToClass[CItemTypeName] = self
|
||||
def self.create(canvas, *args)
|
||||
if args[-1].kind_of?(Hash)
|
||||
keys = args.pop
|
||||
args.concat(hash_kv(keys))
|
||||
keys = _symbolkey2str(args.pop)
|
||||
txt = keys['text']
|
||||
keys['text'] = _get_eval_enc_str(txt) if txt
|
||||
args.push(keys)
|
||||
end
|
||||
#tk_call_without_enc(path, 'create', 'text',
|
||||
# *(args.each{|arg| _get_eval_enc_str(arg)}))
|
||||
tk_call(path, 'create', 'text', *args)
|
||||
super(canvas, *args)
|
||||
end
|
||||
end
|
||||
|
||||
class TkcWindow<TkcItem
|
||||
CItemTypeToClass['window'] = self
|
||||
def self.create(path, *args)
|
||||
CItemTypeName = 'window'.freeze
|
||||
CItemTypeToClass[CItemTypeName] = self
|
||||
def self.create(canvas, *args)
|
||||
if args[-1].kind_of?(Hash)
|
||||
keys = _symbolkey2str(args.pop)
|
||||
win = keys['window']
|
||||
# keys['window'] = win.epath if win.kind_of?(TkWindow)
|
||||
keys['window'] = _epath(win) if win
|
||||
args.concat(hash_kv(keys))
|
||||
args.push(keys)
|
||||
end
|
||||
tk_call_without_enc(path, 'create', 'window', *args)
|
||||
super(canvas, *args)
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -184,7 +184,7 @@ TkcText.new(cvs, '22.5c', '9c', 'anchor'=>'n', 'font'=>font1, 'width'=>'4c',
|
|||
'text'=>'A short string of text, word-wrapped, justified left, and anchored north (at the top). The rectangles show the anchor points for each piece of text.', 'tags'=>$tag_item )
|
||||
TkcRectangle.new(cvs, '25.4c','10.9c','25.6c','11.1c')
|
||||
TkcText.new(cvs, '25.5c', '11c', 'anchor'=>'w', 'font'=>font1, 'fill'=>blue,
|
||||
'text'=>'Several lines,\n each centered\nindividually,\nand all anchored\nat the left edge.', 'justify'=>'center', 'tags'=>$tag_item )
|
||||
'text'=>"Several lines,\n each centered\nindividually,\nand all anchored\nat the left edge.", 'justify'=>'center', 'tags'=>$tag_item )
|
||||
TkcRectangle.new(cvs, '24.9c','13.9c','25.1c','14.1c')
|
||||
if $tk_version =~ /^4\.[01]/
|
||||
TkcText.new(cvs, '25c', '14c', 'anchor'=>'c', 'font'=>font2, 'fill'=>red,
|
||||
|
|
|
|||
|
|
@ -178,12 +178,10 @@ TkcOval.new(cvs, '16c','10c','19c','15c', 'outline'=>'',
|
|||
TkcText.new(cvs, '25c', '8.2c', 'text'=>'¥Æ¥¥¹¥È', 'anchor'=>'n')
|
||||
TkcRectangle.new(cvs, '22.4c','8.9c','22.6c','9.1c')
|
||||
TkcText.new(cvs, '22.5c', '9c', 'anchor'=>'n', 'font'=>font1, 'width'=>'4c',
|
||||
'text'=>'短いテキスト。ワードラップ、左揃え、アンカーは北 (上)。\
|
||||
□は各テキストのアンカーポイントを示す。', 'tags'=>$tag_item )
|
||||
'text'=>'短いテキスト。ワードラップ、左揃え、アンカーは北(上)。□は各テキストのアンカーポイントを示す。', 'tags'=>$tag_item )
|
||||
TkcRectangle.new(cvs, '25.4c','10.9c','25.6c','11.1c')
|
||||
TkcText.new(cvs, '25.5c', '11c', 'anchor'=>'w', 'font'=>font1, 'fill'=>blue,
|
||||
'text'=>'いくつかの行。\nそれぞれ独立に\n行揃え。\n\
|
||||
全て左端がアンカーされている。', 'justify'=>'center', 'tags'=>$tag_item )
|
||||
'text'=>"いくつかの行。\nそれぞれ独立に\n行揃え。\n全て左端がアンカーされている。", 'justify'=>'center', 'tags'=>$tag_item )
|
||||
TkcRectangle.new(cvs, '24.9c','13.9c','25.1c','14.1c')
|
||||
if $tk_version =~ /^4\.[01]/
|
||||
TkcText.new(cvs, '25c', '14c', 'anchor'=>'c', 'font'=>font2, 'fill'=>red,
|
||||
|
|
|
|||
Loading…
Reference in a new issue