mirror of
https://github.com/ruby/ruby.git
synced 2025-08-25 05:55:46 +02:00
1ac70e2f77
* 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/branches/ruby_1_8@6630 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
53 lines
972 B
Ruby
53 lines
972 B
Ruby
#
|
|
# tkextlib/tcllib/style.rb
|
|
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
|
|
#
|
|
# * Part of tcllib extension
|
|
# * select and use some 'style' of option (resource) DB
|
|
#
|
|
|
|
require 'tk'
|
|
require 'tkextlib/tcllib.rb'
|
|
|
|
module Tk::Tcllib
|
|
module Style
|
|
def self.package_version
|
|
begin
|
|
TkPackage.require('style')
|
|
rescue
|
|
''
|
|
end
|
|
end
|
|
|
|
def self.not_available
|
|
fail RuntimeError, "'tkextlib/tcllib/style' extension is not available on your current environment."
|
|
end
|
|
|
|
def self.names
|
|
Tk::Tcllib::Style.not_available
|
|
end
|
|
|
|
def self.use(style)
|
|
Tk::Tcllib::Style.not_available
|
|
end
|
|
end
|
|
end
|
|
|
|
# TkPackage.require('style', '0.1')
|
|
TkPackage.require('style')
|
|
|
|
module Tk::Tcllib
|
|
class << Style
|
|
undef not_available
|
|
end
|
|
|
|
module Style
|
|
def self.names
|
|
tk_split_simplelist(tk_call('style::names'))
|
|
end
|
|
|
|
def self.use(style)
|
|
tk_call('style::use', style)
|
|
end
|
|
end
|
|
end
|