mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
ce1b23b7a5
* ext/tk/lib/tk.rb: better operation for SIGINT when processing callbacks. * ext/tk/lib/tk/msgcat.rb: ditto. * ext/tk/lib/tk/variable.rb: ditto. * ext/tk/lib/tk/timer.rb: ditto. * ext/tk/lib/tk/validation.rb: add Tk::ValidateConfigure.__def_validcmd() to define validatecommand methods easier * ext/tk/lib/tk.rb (_genobj_for_tkwidget): support autoload Tk ext classes * ext/tk/lib/tk/canvas.rb and so on: remove the parent widget type check for items (e.g. canvas items; depends on the class) to avoid some troubles on Tk extension widget class definition. * ext/tk/lib/tkextlib/: add Iwidget and TkTable extension support * ext/tk/sample/tkextlib/: add samples of Iwidget and TkTable git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6630 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
381 lines
7.8 KiB
Ruby
381 lines
7.8 KiB
Ruby
#
|
|
# tkextlib/itk/incr_tk.rb
|
|
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
|
|
#
|
|
|
|
require 'tk'
|
|
require 'tk/menuspec'
|
|
require 'tkextlib/itcl.rb'
|
|
|
|
# call setup script
|
|
require 'tkextlib/itk.rb'
|
|
|
|
#TkPackage.require('Itk', '3.2')
|
|
TkPackage.require('Itk')
|
|
|
|
module Tk
|
|
module Itk
|
|
include Tk
|
|
extend Tk
|
|
|
|
LIBRARY = TkVarAccess.new('::itk::library')
|
|
|
|
def self.package_version
|
|
begin
|
|
TkPackage.require('Itk')
|
|
rescue
|
|
''
|
|
end
|
|
end
|
|
|
|
def self.usual(arg, *args)
|
|
tk_call('::itk::usual', arg, *args)
|
|
end
|
|
|
|
def self.usual_names
|
|
list(tk_call('::itk::usual'))
|
|
end
|
|
|
|
############################
|
|
|
|
class Archetype < TkWindow
|
|
TkCommandNames = [].freeze
|
|
# WidgetClassName = 'Archetype'.freeze
|
|
# WidgetClassNames[WidgetClassName] = self
|
|
|
|
def self.to_eval
|
|
'::itk::' << self::WidgetClassName
|
|
end
|
|
|
|
def __destroy_hook__
|
|
Tk::Itk::Component::ComponentID_TBL.delete(self.path)
|
|
end
|
|
|
|
#### [incr Tk] public methods
|
|
def component
|
|
simplelist(tk_send('component'))
|
|
end
|
|
|
|
def component_path(name)
|
|
window(tk_send('component', name))
|
|
end
|
|
alias component_widget component_path
|
|
|
|
def component_invoke(name, cmd, *args)
|
|
window(tk_send('component', name, cmd, *args))
|
|
end
|
|
|
|
def component_obj(*names)
|
|
names = component if names.empty?
|
|
names.collect{|name| Tk::Itk::Component.new(self.path, name) }
|
|
end
|
|
|
|
#### [incr Tk] protected methods
|
|
=begin
|
|
def itk_component_add(visibility, name, create_cmds, option_cmds=None)
|
|
args = []
|
|
visibility.each{|v| v = v.to_s; args << ( (v[0] == ?-)? v: "-#{v}" )}
|
|
args << '--' << name << create_cmd << option_cmds
|
|
tk_call('itk_component', 'add', *args)
|
|
end
|
|
|
|
def itk_component_delete(*names)
|
|
tk_call('itk_component', 'delete', *names)
|
|
end
|
|
|
|
def itk_initialize(keys={})
|
|
tk_call('itk_initialize', keys)
|
|
end
|
|
|
|
def itk_option_add(*args)
|
|
tk_call('itk_option', 'add', *args)
|
|
end
|
|
|
|
def itk_option_define(name, resource, klass, init, config=None)
|
|
tk_call('itk_option', 'define', name, resource, klass, init, config)
|
|
end
|
|
|
|
def itk_option_remove(*args)
|
|
tk_call('itk_option', 'remove', *args)
|
|
end
|
|
=end
|
|
end
|
|
|
|
############################
|
|
|
|
class Toplevel < Archetype
|
|
TkCommandNames = ['::itk::Toplevel'].freeze
|
|
WidgetClassName = 'Toplevel'.freeze
|
|
WidgetClassNames[WidgetClassName] = self
|
|
|
|
include Wm
|
|
include TkMenuSpec
|
|
end
|
|
|
|
############################
|
|
|
|
class Widget < Archetype
|
|
TkCommandNames = ['::itk::Widget'].freeze
|
|
WidgetClassName = 'Widget'.freeze
|
|
WidgetClassNames[WidgetClassName] = self
|
|
end
|
|
|
|
|
|
############################
|
|
|
|
class Component < TkObject
|
|
def __cget_cmd
|
|
[self.master, 'component', self.name, 'cget']
|
|
end
|
|
|
|
def __config_cmd
|
|
[self.master, 'component', self.name, 'configure']
|
|
end
|
|
|
|
ComponentID_TBL = TkCore::INTERP.create_table
|
|
Itk_Component_ID = ['itk:component'.freeze, '00000'.taint].freeze
|
|
|
|
TkCore::INTERP.init_ip_env{ ComponentID_TBL.clear }
|
|
|
|
def self.id2obj(master, id)
|
|
if master.kind_of?(TkObject)
|
|
master = master.path
|
|
else
|
|
master = master.to_s
|
|
end
|
|
return id unless ComponentID_TBL.key?(master)
|
|
(ComponentID_TBL.key?(id))? ComponentID_TBL[master][id]: id
|
|
end
|
|
|
|
def self.new(master, component=nil)
|
|
if master.kind_of?(TkObject)
|
|
master = master.path
|
|
else
|
|
master = master.to_s
|
|
end
|
|
|
|
if component.kind_of?(Tk::Itk::Component)
|
|
component = component.name
|
|
elsif component
|
|
component = component.to_s
|
|
else
|
|
component = Itk_Component_ID.join(TkCore::INTERP._ip_id_)
|
|
Itk_Component_ID[1].succ!
|
|
end
|
|
|
|
if ComponentID_TBL.key?(master)
|
|
if ComponentID_TBL[master].key?(component)
|
|
return ComponentID_TBL[master][component]
|
|
end
|
|
else
|
|
ComponentID_TBL[master] = {}
|
|
end
|
|
|
|
super(master, component)
|
|
end
|
|
|
|
def initialize(master, component)
|
|
@master = master
|
|
@component = component
|
|
|
|
ComponentID_TBL[@master][@component] = self
|
|
|
|
begin
|
|
@widget = window(tk_call(@master, 'component', @component))
|
|
@path = @widget.path
|
|
rescue
|
|
@widget = nil
|
|
@path = nil
|
|
end
|
|
end
|
|
|
|
def path
|
|
unless @path
|
|
begin
|
|
@widget = window(tk_call(@master, 'component', @component))
|
|
@path = @widget.path
|
|
rescue
|
|
fail RuntimeError, 'component is not assigned to a widget'
|
|
end
|
|
end
|
|
@path
|
|
end
|
|
|
|
def epath
|
|
path()
|
|
end
|
|
|
|
def to_eval
|
|
path()
|
|
end
|
|
|
|
def master
|
|
@master
|
|
end
|
|
|
|
def name
|
|
@component
|
|
end
|
|
|
|
def widget
|
|
unless @widget
|
|
begin
|
|
@widget = window(tk_call(@master, 'component', @component))
|
|
@path = @widget.path
|
|
rescue
|
|
fail RuntimeError, 'component is not assigned to a widget'
|
|
end
|
|
end
|
|
@widget
|
|
end
|
|
|
|
def widget_class
|
|
unless @widget
|
|
begin
|
|
@widget = window(tk_call(@master, 'component', @component))
|
|
@path = @widget.path
|
|
@widget.classname
|
|
rescue
|
|
nil
|
|
end
|
|
end
|
|
end
|
|
|
|
def method_missing(id, *args)
|
|
name = id.id2name
|
|
|
|
# try 1 : component command
|
|
begin
|
|
return tk_call(@master, 'component', @component, name, *args)
|
|
rescue
|
|
end
|
|
|
|
# try 2 : component configure
|
|
len = args.length
|
|
begin
|
|
case len
|
|
when 1
|
|
if name[-1] == ?=
|
|
return configure(name[0..-2], args[0])
|
|
else
|
|
return configure(name, args[0])
|
|
end
|
|
when 0
|
|
return cget(name)
|
|
end
|
|
rescue
|
|
end
|
|
|
|
# try 3 : widget method or widget configure
|
|
begin
|
|
unless @widget
|
|
@widget = window(tk_call(@master, 'component', @component))
|
|
@path = @widget.path
|
|
end
|
|
@widget.__send__(id, *args)
|
|
rescue
|
|
end
|
|
|
|
# unknown method
|
|
fail RuntimeError, "unknown method '#{name}' for #{self.inspect}"
|
|
end
|
|
|
|
def tk_send(cmd, *rest)
|
|
begin
|
|
tk_call(@master, 'component', @component, cmd, *rest)
|
|
rescue
|
|
unless @path
|
|
begin
|
|
@widget = window(tk_call(@master, 'component', @component))
|
|
@path = @widget.path
|
|
rescue
|
|
fail RuntimeError, 'component is not assigned to a widget'
|
|
end
|
|
end
|
|
tk_call(@path, cmd, *rest)
|
|
end
|
|
end
|
|
|
|
def tk_send_without_enc(cmd, *rest)
|
|
begin
|
|
tk_call_without_enc(@master, 'component', @component, cmd, *rest)
|
|
rescue
|
|
unless @path
|
|
begin
|
|
@widget = window(tk_call(@master, 'component', @component))
|
|
@path = @widget.path
|
|
rescue
|
|
fail RuntimeError, 'component is not assigned to a widget'
|
|
end
|
|
end
|
|
tk_call_without_enc(@path, cmd, *rest)
|
|
end
|
|
end
|
|
|
|
def tk_send_with_enc(cmd, *rest)
|
|
begin
|
|
tk_call_with_enc(@master, 'component', @component, cmd, *rest)
|
|
rescue
|
|
unless @path
|
|
begin
|
|
@widget = window(tk_call(@master, 'component', @component))
|
|
@path = @widget.path
|
|
rescue
|
|
fail RuntimeError, 'component is not assigned to a widget'
|
|
end
|
|
end
|
|
tk_call_with_enc(@path, cmd, *rest)
|
|
end
|
|
end
|
|
|
|
def bind(*args)
|
|
unless @widget
|
|
begin
|
|
@widget = window(tk_call(@master, 'component', @component))
|
|
@path = @widget.path
|
|
rescue
|
|
fail RuntimeError, 'component is not assigned to a widget'
|
|
end
|
|
end
|
|
@widget.bind(*args)
|
|
end
|
|
|
|
def bind_append(*args)
|
|
unless @widget
|
|
begin
|
|
@widget = window(tk_call(@master, 'component', @component))
|
|
@path = @widget.path
|
|
rescue
|
|
fail RuntimeError, 'component is not assigned to a widget'
|
|
end
|
|
end
|
|
@widget.bind_append(*args)
|
|
end
|
|
|
|
def bind_remove(*args)
|
|
unless @widget
|
|
begin
|
|
@widget = window(tk_call(@master, 'component', @component))
|
|
@path = @widget.path
|
|
rescue
|
|
fail RuntimeError, 'component is not assigned to a widget'
|
|
end
|
|
end
|
|
@widget.bind_remove(*args)
|
|
end
|
|
|
|
def bindinfo(*args)
|
|
unless @widget
|
|
begin
|
|
@widget = window(tk_call(@master, 'component', @component))
|
|
@path = @widget.path
|
|
rescue
|
|
fail RuntimeError, 'component is not assigned to a widget'
|
|
end
|
|
end
|
|
@widget.bindinfo(*args)
|
|
end
|
|
|
|
end
|
|
end
|
|
end
|