1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
ruby--ruby/ext/tk/lib/tkextlib/iwidgets/hierarchy.rb
nagai 3dd3b2136b * ext/tk/extconf.rb: improbe messages [ruby-core:06325].
* ext/tk/lib/tk.rb, ext/tk/lib/tk/canvas.rb, ext/tk/lib/tk/entry.rb,
  ext/tk/lib/tk/frame.rb, ext/tk/lib/tk/image.rb,
  ext/tk/lib/tk/itemconfig.rb, ext/tk/lib/tk/labelframe.rb,
  ext/tk/lib/tk/listbox.rb, ext/tk/lib/tk/menu.rb,
  ext/tk/lib/tk/radiobutton.rb, ext/tk/lib/tk/scale.rb,
  ext/tk/lib/tk/spinbox.rb, ext/tk/lib/tk/text.rb,
  ext/tk/lib/tk/toplevel.rb: improve conversion of option values.
* ext/tk/lib/tkextlib/*: ditto.
* ext/tk/lib/tkextlib/*: update to support ActiveTcl8.4.11.2.
* ext/tk/lib/tkextlib/trofs/*: support Trofs 0.4.3.
* ext/tk/lib/tkextlib/tile/*: support Tile 0.7.2.
* ext/tk/lib/tkextlib/vu/*: support vu 2.3.0.
* ext/tk/lib/tkextlib/tcllib/*: support Tcllib 1.8 (Tklib 0.3).


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9448 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2005-10-22 22:17:08 +00:00

309 lines
6.4 KiB
Ruby

#
# tkextlib/iwidgets/hierarchy.rb
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
#
require 'tk'
require 'tk/text'
require 'tkextlib/iwidgets.rb'
module Tk
module Iwidgets
class Hierarchy < Tk::Iwidgets::Scrolledwidget
end
end
end
class Tk::Iwidgets::Hierarchy
ItemConfCMD = ['tag'.freeze, 'configure'.freeze].freeze
include TkTextTagConfig
TkCommandNames = ['::iwidgets::hierarchy'.freeze].freeze
WidgetClassName = 'Hierarchy'.freeze
WidgetClassNames[WidgetClassName] = self
####################################
include Tk::ValidateConfigure
class QueryCommand < TkValidateCommand
class ValidateArgs < TkUtil::CallbackSubst
KEY_TBL = [ [?n, ?s, :node], nil ]
PROC_TBL = [ [?s, TkComm.method(:string) ], nil ]
_setup_subst_table(KEY_TBL, PROC_TBL);
def self.ret_val(val)
val
end
end
def self._config_keys
# array of config-option key (string or symbol)
['querycommand']
end
end
class IndicatorCommand < TkValidateCommand
class ValidateArgs < TkUtil::CallbackSubst
KEY_TBL = [
[ ?n, ?s, :node ],
[ ?s, ?b, :status ],
nil
]
PROC_TBL = [
[ ?s, TkComm.method(:string) ],
[ ?b, TkComm.method(:bool) ],
nil
]
_setup_subst_table(KEY_TBL, PROC_TBL);
def self.ret_val(val)
val
end
end
def self._config_keys
# array of config-option key (string or symbol)
['iconcommand', 'icondblcommand', 'imagedblcommand']
end
end
class IconCommand < TkValidateCommand
class ValidateArgs < TkUtil::CallbackSubst
KEY_TBL = [
[ ?n, ?s, :node ],
[ ?i, ?s, :icon ],
nil
]
PROC_TBL = [ [ ?s, TkComm.method(:string) ], nil ]
_setup_subst_table(KEY_TBL, PROC_TBL);
def self.ret_val(val)
val
end
end
def self._config_keys
# array of config-option key (string or symbol)
['dblclickcommand', 'imagecommand', 'selectcommand']
end
end
def __validation_class_list
super() << QueryCommand << IndicatorCommand << IconCommand
end
Tk::ValidateConfigure.__def_validcmd(binding, QueryCommand)
Tk::ValidateConfigure.__def_validcmd(binding, IndicatorCommand)
Tk::ValidateConfigure.__def_validcmd(binding, IconCommand)
####################################
def __boolval_optkeys
super() << 'alwaysquery' << 'expanded' << 'filter'
end
private :__boolval_optkeys
def __strval_optkeys
super() << 'markbackground' << 'markforeground' << 'textbackground'
end
private :__strval_optkeys
def __font_optkeys
super() << 'textfont'
end
private :__font_optkeys
def clear
tk_call(@path, 'clear')
self
end
def collapse(node)
tk_call(@path, 'collapse')
self
end
def current
tk_call(@path, 'current')
end
def draw(mode=None)
case mode
when None
# do nothing
when 'now', :now
mode = '-now'
when 'eventually', :eventually
mode = '-eventually'
when String, Symbol
mode = mode.to_s
mode = '-' << mode if mode[0] != ?-
end
tk_call(@path, 'draw', mode)
end
def expand(node)
tk_call(@path, 'expand', node)
self
end
def expanded?(node)
bool(tk_call(@path, 'expanded', node))
end
def exp_state
list(tk_call(@path, 'expState'))
end
alias expand_state exp_state
alias expanded_list exp_state
def mark_clear
tk_call(@path, 'mark', 'clear')
self
end
def mark_add(*nodes)
tk_call(@path, 'mark', 'add', *nodes)
self
end
def mark_remove(*nodes)
tk_call(@path, 'mark', 'remove', *nodes)
self
end
def mark_get
list(tk_call(@path, 'mark', 'get'))
end
def refresh(node)
tk_call(@path, 'refresh', node)
self
end
def prune(node)
tk_call(@path, 'prune', node)
self
end
def selection_clear
tk_call(@path, 'selection', 'clear')
self
end
def selection_add(*nodes)
tk_call(@path, 'selection', 'add', *nodes)
self
end
def selection_remove(*nodes)
tk_call(@path, 'selection', 'remove', *nodes)
self
end
def selection_get
list(tk_call(@path, 'selection', 'get'))
end
def toggle(node)
tk_call(@path, 'toggle', node)
self
end
# based on TkText widget
def bbox(index)
list(tk_send_without_enc('bbox', _get_eval_enc_str(index)))
end
def compare(idx1, op, idx2)
bool(tk_send_without_enc('compare', _get_eval_enc_str(idx1),
op, _get_eval_enc_str(idx2)))
end
def debug
bool(tk_send_without_enc('debug'))
end
def debug=(boolean)
tk_send_without_enc('debug', boolean)
#self
boolean
end
def delete(first, last=None)
tk_send_without_enc('delete', first, last)
self
end
def dlineinfo(index)
list(tk_send_without_enc('dlineinfo', _get_eval_enc_str(index)))
end
def get(*index)
_fromUTF8(tk_send_without_enc('get', *index))
end
def index(index)
tk_send_without_enc('index', _get_eval_enc_str(index))
end
def insert(index, chars, *tags)
if tags[0].kind_of? Array
# multiple chars-taglist argument :: str, [tag,...], str, [tag,...], ...
args = [chars]
while tags.size > 0
args << tags.shift.collect{|x|_get_eval_string(x)}.join(' ') # taglist
args << tags.shift if tags.size > 0 # chars
end
super(index, *args)
else
# single chars-taglist argument :: str, tag, tag, ...
if tags.size == 0
super(index, chars)
else
super(index, chars, tags.collect{|x|_get_eval_string(x)}.join(' '))
end
end
end
def scan_mark(x, y)
tk_send_without_enc('scan', 'mark', x, y)
self
end
def scan_dragto(x, y)
tk_send_without_enc('scan', 'dragto', x, y)
self
end
def see(index)
tk_send_without_enc('see', index)
self
end
# based on tk/scrollable.rb
def xview(*index)
if index.size == 0
list(tk_send_without_enc('xview'))
else
tk_send_without_enc('xview', *index)
self
end
end
def xview_moveto(*index)
xview('moveto', *index)
end
def xview_scroll(*index)
xview('scroll', *index)
end
def yview(*index)
if index.size == 0
list(tk_send_without_enc('yview'))
else
tk_send_without_enc('yview', *index)
self
end
end
def yview_moveto(*index)
yview('moveto', *index)
end
def yview_scroll(*index)
yview('scroll', *index)
end
end