diff options
Diffstat (limited to 'ruby_1_8_6/ext/tk/lib/tkextlib/tclx/tclx.rb')
-rw-r--r-- | ruby_1_8_6/ext/tk/lib/tkextlib/tclx/tclx.rb | 74 |
1 files changed, 0 insertions, 74 deletions
diff --git a/ruby_1_8_6/ext/tk/lib/tkextlib/tclx/tclx.rb b/ruby_1_8_6/ext/tk/lib/tkextlib/tclx/tclx.rb deleted file mode 100644 index 5a908fcd0b..0000000000 --- a/ruby_1_8_6/ext/tk/lib/tkextlib/tclx/tclx.rb +++ /dev/null @@ -1,74 +0,0 @@ -# -# tclx/tclx.rb -# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp) -# -require 'tk' - -# call setup script for general 'tkextlib' libraries -require 'tkextlib/setup.rb' - -# call setup script -require 'tkextlib/tclx/setup.rb' - -# TkPackage.require('Tclx', '8.0') -TkPackage.require('Tclx') - -module Tk - module TclX - PACKAGE_NAME = 'Tclx'.freeze - def self.package_name - PACKAGE_NAME - end - - def self.package_version - begin - TkPackage.require('Tclx') - rescue - '' - end - end - - def self.infox(*args) - Tk.tk_call('infox', *args) - end - - def self.signal(*args) - warn("Warning: Don't recommend to use TclX's 'signal' command. Please use Ruby's 'Signal.trap' method") - Tk.tk_call('signal', *args) - end - - def self.signal_restart(*args) - warn("Warning: Don't recommend to use TclX's 'signal' command. Please use Ruby's 'Signal.trap' method") - Tk.tk_call('signal', '-restart', *args) - end - - ############################## - - class XPG3_MsgCat - class << self - alias open new - end - - def initialize(catname, fail_mode=false) - if fail_mode - @msgcat_id = Tk.tk_call('catopen', '-fail', catname) - else - @msgcat_id = Tk.tk_call('catopen', '-nofail', catname) - end - end - - def close(fail_mode=false) - if fail_mode - Tk.tk_call('catclose', '-fail', @msgcat_id) - else - Tk.tk_call('catclose', '-nofail', @msgcat_id) - end - self - end - - def get(setnum, msgnum, defaultstr) - Tk.tk_call('catgets', @msgcat_id, setnum, msgnum, defaultstr) - end - end - end -end |