1  #
   2  #  tkbgerror -- bgerror ( tkerror ) module
   3  #                     1998/07/16 by Hidetoshi Nagai <nagai@ai.kyutech.ac.jp>
   4  #
   5  require 'tk'
   6 
   7  module 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
  29  end