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