From d8b02b509608c5b90056c7befa89fa29fda45f8f Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 18 Jun 2003 19:46:20 +0000
Subject: tk.rb :  * small bug fix  * rename 'no_create' option to
 'without_creating'  * add TkWindow#pack_in,  TkWindow#grid_in, 
 TkWindow#place_in  * add TkWindow#bind_class and TkWindow#database_class   
 If defined specific_class (@db_class), bind_class returns @db_class.    In
 other case, bind_class returns TkWinow#class().    It is useful for binding. 
   TkWindow#database_class is defined for querying the option database.   
 It's same to TkWinfo.classname(self).  * add TkBindTag.new_by_name and
 TkDatabaseClass for binding to database class  * check varname whether
 already exsist or not. (TkVarAccess.new)  * TkTextWin#bbox returns an array
 of four numbers  * autoload TkDialog2, TkWarning2  * scan event callback
 arguments and convert to proper type  * TkBindTag.new accepts a block (
 TkBindTag.new(context){callback} )  * If given taglist,
 TkWindow#bindtags(taglist) returns taglist  * add TkWindow#bindtags=(taglist)
  * Tk.focue and Tk.focus_lastfor return nil if there is no target widget.  *
 Tk::Wm.client returns the argument string when setting name  *
 TkGrid.columnconfiginfo and rowconfiginfo given a slot return a number.  *
 TkWindow.grid_columnconfiginfo and grid_rowconfiginfo :: ditto  * rename and
 define alias :: TkOption ==> TkOptionDB  * define alias :: TkTimer ==>
 TkAfter  * some instance methods change from public to private  * some TkComm
 methods change to module functions    (help to treat return values from Tk) 
 * add support for -displayof option to some TkWinfo methods  * bind,
 bind_append and bind_remove :: returns the target of event-binding  * add
 Tk8.4 features  * add TkPaneWindow

tkdialog.rb:
 * classes without showing at initialize : TkDialog2, TkWarning2
 * add show method to reuse TkDialog object
 * some instance methods change from public to private
 * add new features for configuration

tktext.rb :
 * small bug fix
 * some methods return self
 * add TkTextMark#+(mod) and TkTextMark#-(mod) (e.g. mark + '3 chars')
 * add some methods

tkcanvas.rb :
 * small bug fix
 * some methods return self

tkentry.rb :
 * some methods return self
 * TkEntry#bbox returns an array of four numbers
 * scan validatecommand arguments and convert to proper type

tkbgerror.rb :
 * support to define a error handler by user

tcltklib.rb :
 * reported by Ferenc Engard <engard@all.hu> on [ruby-talk:60759]

                                     ... and so on


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3960 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tkbgerror.rb | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'ext/tk/lib/tkbgerror.rb')

diff --git a/ext/tk/lib/tkbgerror.rb b/ext/tk/lib/tkbgerror.rb
index 8022077a3f..e068155b1c 100644
--- a/ext/tk/lib/tkbgerror.rb
+++ b/ext/tk/lib/tkbgerror.rb
@@ -12,6 +12,16 @@ module TkBgError
   end
   alias tkerror bgerror
   alias show bgerror
-
   module_function :bgerror, :tkerror, :show
+
+  def set_handler(hdlr = Proc.new) #==> handler :: proc{|msg| ...body... }
+    tk_call('proc', 'bgerror', 'msg', install_cmd(hdlr) + ' $msg')
+  end
+  def set_default
+    begin
+      tk_call('rename', 'bgerror', '')
+    rescue RuntimeError
+    end
+  end
+  module_function :set_handler, :set_default
 end
-- 
cgit v1.2.3