* 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


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@6608 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 25 insertions, 4 deletions

diff --git a/ext/tk/lib/tkextlib/tcllib.rb b/ext/tk/lib/tkextlib/tcllib.rb
index 2955416b2b..831cc5a327 100644
--- a/ext/tk/lib/tkextlib/tcllib.rb
+++ b/ext/tk/lib/tkextlib/tcllib.rb
@@ -11,15 +11,31 @@ require 'tkextlib/setup.rb'
 # call setup script
 require 'tkextlib/tcllib/setup.rb'
 
+err = ''
+
 # package:: autoscroll
-require 'tkextlib/tcllib/autoscroll'
+target = 'tkextlib/tcllib/autoscroll'
+begin
+  require target
+rescue => e
+  err << "\n  ['" << target << "'] "  << e.class.name << ' : ' << e.message
+end
 
 # package:: cursor
-require 'tkextlib/tcllib/cursor'
+target = 'tkextlib/tcllib/cursor'
+begin
+  require target
+rescue => e
+  err << "\n  ['" << target << "'] "  << e.class.name << ' : ' << e.message
+end
 
 # package:: style
-require 'tkextlib/tcllib/style'
-
+target = 'tkextlib/tcllib/style'
+begin
+  require target
+rescue => e
+  err << "\n  ['" << target << "'] "  << e.class.name << ' : ' << e.message
+end
 
 # autoload
 module Tk
@@ -41,3 +57,8 @@ module Tk
     autoload :Tkpiechart, 'tkextlib/tcllib/tkpiechart'
   end
 end
+
+unless err.empty?
+  warn("Warning: some sub-packages are failed to require : " + err)
+end
+