kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* ext/tk/lib/tk/composite.rb: improve configure methods. (based on the proposal of [ruby-talk:99671])

Browse source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6294 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nagai 2004-05-12 04:24:55 +00:00
parent 3b3b856669
commit 6e0085b137
3 changed files with 308 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
ChangeLog
View file

@ -1,3 +1,8 @@
Wed May 12 13:20:19 2004 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp>
* ext/tk/lib/tk/composite.rb: improve configure methods (based on
the proposal of [ruby-talk:99671]).
Wed May 12 11:51:08 2004 Dave Thomas <dave@pragprog.com> Wed May 12 11:51:08 2004 Dave Thomas <dave@pragprog.com>
* class.c (rb_obj_singleton_methods): fix rdoc * class.c (rb_obj_singleton_methods): fix rdoc

263
ext/tk/lib/tk/composite.rb
View file

@ -8,18 +8,18 @@ module TkComposite
extend Tk extend Tk
def initialize(parent=nil, *args) def initialize(parent=nil, *args)
@delegates = {} @delegates = {}
@option_methods = {}
@option_setting = {}
if parent.kind_of? Hash if parent.kind_of? Hash
keys = _symbolkey2str(parent) keys = _symbolkey2str(parent)
parent = keys.delete('parent') parent = keys.delete('parent')
@frame = TkFrame.new(parent) @frame = TkFrame.new(parent)
@delegates['DEFAULT'] = @frame
@path = @epath = @frame.path @path = @epath = @frame.path
initialize_composite(keys) initialize_composite(keys)
else else
@frame = TkFrame.new(parent) @frame = TkFrame.new(parent)
@delegates['DEFAULT'] = @frame
@path = @epath = @frame.path @path = @epath = @frame.path
initialize_composite(*args) initialize_composite(*args)
end end
@ -32,32 +32,261 @@ module TkComposite
def initialize_composite(*args) end def initialize_composite(*args) end
private :initialize_composite private :initialize_composite
def delegate(option, *wins) def option_methods(*opts)
if @delegates[option].kind_of?(Array) opts.each{|m_set, m_cget, m_info|
for i in wins m_set = m_set.to_s
@delegates[option].push(i) m_cget = m_set if !m_cget && self.method(m_set).arity == -1
m_cget = m_cget.to_s if m_cget
m_info = m_info.to_s if m_info
@option_methods[m_set] = {
:set => m_set, :cget => m_cget, :info => m_info
}
}
end
def delegate_alias(alias_opt, option, *wins)
if wins.length == 0
fail ArgumentError, "target widgets are not given"
end
if alias_opt != option && (alias_opt == 'DEFAULT' || option == 'DEFAULT')
fail ArgumentError, "cannot alias 'DEFAULT' option"
end
alias_opt = alias_opt.to_s
option = option.to_s
if @delegates[alias_opt].kind_of?(Array)
if (elem = @delegates[alias_opt].assoc(option))
wins.each{|w| elem[1].push(w)}
else
@delegates[alias_opt] << [option, wins]
end end
else else
@delegates[option] = wins @delegates[alias_opt] = [ [option, wins] ]
end end
end end
def delegate(option, *wins)
delegate_alias(option, option, *wins)
end
def cget(slot)
slot = slot.to_s
if @option_methods.include?(slot)
if @option_methods[slot][:cget]
return self.__send__(@option_methods[slot][:cget])
else
if @option_setting[slot]
return @option_setting[slot]
else
return ''
end
end
end
tbl = @delegates[slot]
tbl = @delegates['DEFAULT'] unless tbl
begin
if tbl
opt, wins = tbl[-1]
opt = slot if opt == 'DEFAULT'
if wins && wins[-1]
return wins[-1].cget(opt)
end
end
rescue
end
super
end
def configure(slot, value=None) def configure(slot, value=None)
if slot.kind_of? Hash if slot.kind_of? Hash
slot.each{|slot,value| configure slot, value} slot.each{|slot,value| configure slot, value}
else return self
if @delegates and @delegates[slot] end
for i in @delegates[slot]
if not i slot = slot.to_s
i = @delegates['DEFALUT']
redo if @option_methods.include?(slot)
unless @option_methods[slot][:cget]
if value.kind_of?(Symbol)
@option_setting[slot] = value.to_s
else
@option_setting[slot] = value
end
end
return self.__send__(@option_methods[slot][:set], value)
end
tbl = @delegates[slot]
tbl = @delegates['DEFAULT'] unless tbl
begin
if tbl
last = nil
tbl.each{|opt, wins|
opt = slot if opt == 'DEFAULT'
wins.each{|w| last = w.configure(opt, value)}
}
return last
end
rescue
end
super
end
def configinfo(slot = nil)
if TkComm::GET_CONFIGINFO_AS_ARRAY
if slot
slot = slot.to_s
if @option_methods.include?(slot)
if @option_methods[slot][:info]
return self.__send__(@option_methods[slot][:info])
else else
last = i.configure(slot, value) return [slot, '', '', '', self.cget(slot)]
end end
end end
last
else tbl = @delegates[slot]
tbl = @delegates['DEFAULT'] unless tbl
begin
if tbl
if tbl.length == 1
opt, wins = tbl[0]
if slot == opt || opt == 'DEFAULT'
return wins[-1].configinfo(slot)
else
info = wins[-1].configinfo(opt)
info[0] = slot
return info
end
else
opt, wins = tbl[-1]
return [slot, '', '', '', wins[-1].cget(opt)]
end
end
rescue
end
super super
else # slot == nil
info_list = super
tbl = @delegates['DEFAULT']
if tbl
wins = tbl[0][1]
if wins && wins[-1]
wins[-1].configinfo.each{|info|
slot = info[0]
info_list.delete_if{|i| i[0] == slot} << info
}
end
end
@delegates.each{|slot, tbl|
next if slot == 'DEFAULT'
if tbl.length == 1
opt, wins = tbl[0]
next unless wins && wins[-1]
if slot == opt
info_list.delete_if{|i| i[0] == slot} <<
wins[-1].configinfo(slot)
else
info = wins[-1].configinfo(opt)
info[0] = slot
info_list.delete_if{|i| i[0] == slot} << info
end
else
opt, wins = tbl[-1]
info_list.delete_if{|i| i[0] == slot} <<
[slot, '', '', '', wins[-1].cget(opt)]
end
}
@option_methods.each{|slot, m|
if m[:info]
info = self.__send__(m[:info])
else
info = [slot, '', '', '', self.cget(slot)]
end
info_list.delete_if{|i| i[0] == slot} << info
}
info_list
end
else # ! TkComm::GET_CONFIGINFO_AS_ARRAY
if slot
slot = slot.to_s
if @option_methods.include?(slot)
if @option_methods[slot][:info]
return self.__send__(@option_methods[slot][:info])
else
return {slot => ['', '', '', self.cget(slot)]}
end
end
tbl = @delegates[slot]
tbl = @delegates['DEFAULT'] unless tbl
begin
if tbl
if tbl.length == 1
opt, wins = tbl[0]
if slot == opt || opt == 'DEFAULT'
return wins[-1].configinfo(slot)
else
return {slot => wins[-1].configinfo(opt)[opt]}
end
else
opt, wins = tbl[-1]
return {slot => ['', '', '', wins[-1].cget(opt)]}
end
end
rescue
end
super
else # slot == nil
info_list = super
tbl = @delegates['DEFAULT']
if tbl
wins = tbl[0][1]
info_list.update(wins[-1].configinfo) if wins && wins[-1]
end
@delegates.each{|slot, tbl|
next if slot == 'DEFAULT'
if tbl.length == 1
opt, wins = tbl[0]
next unless wins && wins[-1]
if slot == opt
info_list.update(wins[-1].configinfo(slot))
else
info_list.update({slot => wins[-1].configinfo(opt)[opt]})
end
else
opt, wins = tbl[-1]
info_list.update({slot => ['', '', '', wins[-1].cget(opt)]})
end
}
@option_methods.each{|slot, m|
if m[:info]
info = self.__send__(m[:info])
else
info = {slot => ['', '', '', self.cget(slot)]}
end
info_list.update(info)
}
info_list
end end
end end
end end

58
ext/tk/sample/tktextframe.rb
View file

@ -35,8 +35,20 @@ class TkTextFrame < TkText
hscroll(keys.delete('hscroll'){true}) hscroll(keys.delete('hscroll'){true})
# set background of the text widget # set background of the text widget
=begin
color = keys.delete('textbackground') color = keys.delete('textbackground')
textbackground(color) if color textbackground(color) if color
=end
# please check the differences of the following definitions
option_methods(
[:scrollbarwidth, :get_scrollbarwidth],
[:textbackground, nil, :textbg_info],
:textborderwidth,
:textrelief
)
# set receiver widgets for configure methods (with alias)
delegate_alias('scrollbarrelief', 'relief', @h_scroll, @v_scroll)
# set receiver widgets for configure methods # set receiver widgets for configure methods
delegate('DEFAULT', @text) delegate('DEFAULT', @text)
@ -62,6 +74,46 @@ class TkTextFrame < TkText
end end
end end
def textbg_info
info = @text.configinfo(:background)
if TkComm::GET_CONFIGINFO_AS_ARRAY
info[0] = 'textbackground'
info
else # ! TkComm::GET_CONFIGINFO_AS_ARRAY
{'textbackground' => info['background']}
end
end
# get/set borderwidth of text widget
def set_textborderwidth(width)
@text.borderwidth(width)
end
def get_textborderwidth
@text.borderwidth
end
def textborderwidth(width = nil)
if width
set_textborderwidth(width)
else
get_textborderwidth
end
end
# set relief of text widget
def textrelief(type)
@text.relief(type)
end
# get/set width of scrollbar
def get_scrollbarwidth
@v_scroll.width
end
def set_scrollbarwidth(width)
@v_scroll.width(width)
@h_scroll.width(width)
end
alias :scrollbarwidth :set_scrollbarwidth
# vertical scrollbar : ON/OFF # vertical scrollbar : ON/OFF
def vscroll(mode) def vscroll(mode)
st = TkGrid.info(@v_scroll) st = TkGrid.info(@v_scroll)
@ -93,7 +145,11 @@ end
################################################ ################################################
if __FILE__ == $0 if __FILE__ == $0
f = TkFrame.new.pack('fill'=>'x') f = TkFrame.new.pack('fill'=>'x')
t = TkTextFrame.new.pack #t = TkTextFrame.new.pack
t = TkTextFrame.new(:textborderwidth=>3,
:textrelief=>:ridge,
:scrollbarrelief=>:ridge).pack
p t.configinfo
TkButton.new(f, 'text'=>'vscr OFF', TkButton.new(f, 'text'=>'vscr OFF',
'command'=>proc{t.vscroll(false)}).pack('side'=>'right') 'command'=>proc{t.vscroll(false)}).pack('side'=>'right')
TkButton.new(f, 'text'=>'vscr ON', TkButton.new(f, 'text'=>'vscr ON',