mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
* ext/tk/lib : bug fix
* ext/tk/lib/tkextlib/itcl : add [incr Tcl] support * ext/tk/lib/tkextlib/itk : add [incr Tk] support * ext/tk/lib/tkextlib/iwidgets : midway point of [incr Widgets] support * ext/tk/sample/tkextlib/iwidgets : very simple examples of [incr Widgets] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6602 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nagai
parent
aa4878589c
commit
afcfca607e
64 changed files with 2441 additions and 122 deletions
376
ext/tk/lib/tkextlib/itk/incr_tk.rb
Normal file
376
ext/tk/lib/tkextlib/itk/incr_tk.rb
Normal file
|
|
@ -0,0 +1,376 @@
|
|||
#
|
||||
# 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
|
||||
|
||||
#### [incr Tk] public methods
|
||||
def component
|
||||
simplelist(tk_send('component'))
|
||||
end
|
||||
|
||||
def component_path(name)
|
||||
window(tk_send('component', name))
|
||||
end
|
||||
|
||||
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
|
||||
13
ext/tk/lib/tkextlib/itk/setup.rb
Normal file
13
ext/tk/lib/tkextlib/itk/setup.rb
Normal file
|
|
@ -0,0 +1,13 @@
|
|||
#
|
||||
# setup.rb -- setup script before calling TkPackage.require()
|
||||
#
|
||||
# If you need some setup operations (for example, add a library path
|
||||
# to the library search path) before using Tcl/Tk library packages
|
||||
# wrapped by Ruby scripts in this directory, please write the setup
|
||||
# operations in this file.
|
||||
#
|
||||
|
||||
|
||||
# set [incr Tk] library directory
|
||||
|
||||
# ENV['ITK_LIBRARY'] = '/usr/local/ActiveTcl/lib/itk3.2/'
|
||||
Loading…
Add table
Add a link
Reference in a new issue