1#
2#  tkbgerror -- bgerror ( tkerror ) module
3#                     1998/07/16 by Hidetoshi Nagai <nagai@ai.kyutech.ac.jp>
4#
5require 'tk'
6
7module TkBgError
8  extend Tk
9
10  TkCommandNames = ['bgerror'.freeze].freeze
11
12  def bgerror(message)
13    tk_call('bgerror', message)
14  end
15  alias tkerror bgerror
16  alias show bgerror
17  module_function :bgerror, :tkerror, :show
18
19  def set_handler(hdlr = Proc.new) #==> handler :: proc{|msg| ...body... }
20    tk_call('proc', 'bgerror', 'msg', install_cmd(hdlr) + ' $msg')
21  end
22  def set_default
23    begin
24      tk_call('rename', 'bgerror', '')
25    rescue RuntimeError
26    end
27  end
28  module_function :set_handler, :set_default
29end
30