# File tk/lib/tk.rb, line 1556 def mainloop(check_root = true) TclTkLib.mainloop(check_root) end
#<RDoc::Comment:0x00000000034c8260>
#<RDoc::Comment:0x00000000033af158>
#<RDoc::Comment:0x0000000003288b58>
#<RDoc::Comment:0x0000000003193a40>
#<RDoc::Comment:0x00000000030f24b0>
#<RDoc::Comment:0x00000000030130a8>
#<RDoc::Comment:0x0000000002f757b8>
#<RDoc::Comment:0x0000000002ef3970>
#<RDoc::Comment:0x00000000033a6d28>
#<RDoc::Comment:0x0000000002f562f0>
#<RDoc::Comment:0x00000000033d9700>
#<RDoc::Comment:0x00000000032f2788>
#<RDoc::Comment:0x00000000032add68>
# File tk/lib/tk.rb, line 1318 def TkCore.callback(*arg) begin if TkCore::INTERP.tk_cmd_tbl.kind_of?(Hash) #TkCore::INTERP.tk_cmd_tbl[arg.shift].call(*arg) normal_ret = false ret = catch(:IRB_EXIT) do # IRB hack retval = TkCore::INTERP.tk_cmd_tbl[arg.shift].call(*arg) normal_ret = true retval end unless normal_ret # catch IRB_EXIT exit(ret) end ret end rescue SystemExit=>e exit(e.status) rescue Interrupt=>e fail(e) rescue Exception => e begin msg = _toUTF8(e.class.inspect) + ': ' + _toUTF8(e.message) + "\n" + "\n---< backtrace of Ruby side >-----\n" + _toUTF8(e.backtrace.join("\n")) + "\n---< backtrace of Tk side >-------" msg.instance_variable_set(:@encoding, 'utf-8') rescue Exception msg = e.class.inspect + ': ' + e.message + "\n" + "\n---< backtrace of Ruby side >-----\n" + e.backtrace.join("\n") + "\n---< backtrace of Tk side >-------" end # TkCore::INTERP._set_global_var('errorInfo', msg) # fail(e) fail(e, msg) end end
# File tk/lib/tk.rb, line 1126 def inspect sprintf("#<Class(TkCallbackEntry):%0x>", self.__id__) end
# File tk/lib/tk.rb, line 1765 def _tk_call_to_list_core(depth, arg_enc, val_enc, *args) args = _conv_args([], arg_enc, *args) val = _tk_call_core(false, *args) if !depth.kind_of?(Integer) || depth == 0 tk_split_simplelist(val, false, val_enc) else tk_split_list(val, depth, false, val_enc) end end
# File tk/lib/tk.rb, line 1400 def after(ms, cmd=Proc.new) crit_bup = Thread.critical Thread.critical = true myid = _curr_cmd_id cmdid = install_cmd(proc{ret = cmd.call;uninstall_cmd(myid); ret}) Thread.critical = crit_bup tk_call_without_enc("after",ms,cmdid) # return id # return # if false #defined? Thread # Thread.start do # ms = Float(ms)/1000 # ms = 10 if ms == 0 # sleep ms/1000 # cmd.call # end # else # cmdid = install_cmd(cmd) # tk_call("after",ms,cmdid) # end end
# File tk/lib/tk.rb, line 1436 def after_cancel(afterId) tk_call_without_enc('after','cancel',afterId) end
# File tk/lib/tk.rb, line 1424 def after_idle(cmd=Proc.new) crit_bup = Thread.critical Thread.critical = true myid = _curr_cmd_id cmdid = install_cmd(proc{ret = cmd.call;uninstall_cmd(myid); ret}) Thread.critical = crit_bup tk_call_without_enc('after','idle',cmdid) end
# File tk/lib/tk.rb, line 1472 def appname(name=None) tk_call('tk', 'appname', name) end
# File tk/lib/tk.rb, line 1480 def appsend(interp, async, *args) if $SAFE >= 4 fail SecurityError, "cannot send Tk commands at level 4" elsif $SAFE >= 1 && args.find{|obj| obj.tainted?} fail SecurityError, "cannot send tainted Tk commands at level #{$SAFE}" end if async != true && async != false && async != nil args.unshift(async) async = false end if async tk_call('send', '-async', '--', interp, *args) else tk_call('send', '--', interp, *args) end end
# File tk/lib/tk.rb, line 1476 def appsend_deny tk_call('rename', 'send', '') end
# File tk/lib/tk.rb, line 1515 def appsend_displayof(interp, win, async, *args) if $SAFE >= 4 fail SecurityError, "cannot send Tk commands at level 4" elsif $SAFE >= 1 && args.find{|obj| obj.tainted?} fail SecurityError, "cannot send tainted Tk commands at level #{$SAFE}" end win = '.' if win == nil if async != true && async != false && async != nil args.unshift(async) async = false end if async tk_call('send', '-async', '-displayof', win, '--', interp, *args) else tk_call('send', '-displayor', win, '--', interp, *args) end end
# File tk/lib/tk.rb, line 1137 def call(*args) @ip.cb_eval(@cmd, *args) end
# File tk/lib/tk.rb, line 1306 def callback_break fail TkCallbackBreak, "Tk callback returns 'break' status" end
# File tk/lib/tk.rb, line 1310 def callback_continue fail TkCallbackContinue, "Tk callback returns 'continue' status" end
# File tk/lib/tk.rb, line 1314 def callback_return fail TkCallbackReturn, "Tk callback returns 'return' status" end
# File tk/lib/tk.rb, line 1655 def chooseColor(keys = nil) tk_call('tk_chooseColor', *hash_kv(keys)) end
# File tk/lib/tk.rb, line 1659 def chooseDirectory(keys = nil) tk_call('tk_chooseDirectory', *hash_kv(keys)) end
# File tk/lib/tk.rb, line 1581 def do_one_event(flag = TclTkLib::EventFlag::ALL) TclTkLib.do_one_event(flag) end
# File tk/lib/tk.rb, line 1622 def event_generate(win, context, keys=nil) #win = win.path if win.kind_of?(TkObject) if context.kind_of?(TkEvent::Event) context.generate(win, ((keys)? keys: {})) elsif keys tk_call_without_enc('event', 'generate', win, "<#{tk_event_sequence(context)}>", *hash_kv(keys, true)) else tk_call_without_enc('event', 'generate', win, "<#{tk_event_sequence(context)}>") end nil end
# File tk/lib/tk.rb, line 1644 def getMultipleOpenFile(keys = nil) simplelist(tk_call('tk_getOpenFile', '-multiple', '1', *hash_kv(keys))) end
# File tk/lib/tk.rb, line 1651 def getMultipleSaveFile(keys = nil) simplelist(tk_call('tk_getSaveFile', '-multiple', '1', *hash_kv(keys))) end
# File tk/lib/tk.rb, line 1641 def getOpenFile(keys = nil) tk_call('tk_getOpenFile', *hash_kv(keys)) end
# File tk/lib/tk.rb, line 1648 def getSaveFile(keys = nil) tk_call('tk_getSaveFile', *hash_kv(keys)) end
# File tk/lib/tk.rb, line 1589 def get_eventloop_tick() TclTkLib.get_eventloop_tick end
# File tk/lib/tk.rb, line 1605 def get_eventloop_weight() TclTkLib.get_eventloop_weight end
# File tk/lib/tk.rb, line 1597 def get_no_event_wait() TclTkLib.get_no_eventloop_wait end
# File tk/lib/tk.rb, line 1459 def inactive Integer(tk_call_without_enc('tk', 'inactive')) end
# File tk/lib/tk.rb, line 1462 def inactive_displayof(win) Integer(tk_call_without_enc('tk', 'inactive', '-displayof', win)) end
# File tk/lib/tk.rb, line 1140 def inspect sprintf("#<cb_entry:%0x>", self.__id__) end
# File tk/lib/tk.rb, line 1679 def ip_eval(cmd_string) _ip_eval_core(nil, cmd_string) end
# File tk/lib/tk.rb, line 1687 def ip_eval_with_enc(cmd_string) _ip_eval_core(true, cmd_string) end
# File tk/lib/tk.rb, line 1683 def ip_eval_without_enc(cmd_string) _ip_eval_core(false, cmd_string) end
# File tk/lib/tk.rb, line 1707 def ip_invoke(*args) _ip_invoke_core(nil, *args) end
# File tk/lib/tk.rb, line 1715 def ip_invoke_with_enc(*args) _ip_invoke_core(true, *args) end
# File tk/lib/tk.rb, line 1711 def ip_invoke_without_enc(*args) _ip_invoke_core(false, *args) end
# File tk/lib/tk.rb, line 1572 def is_mainloop? TclTkLib.mainloop_thread? == true end
def TkCore.callback(arg_str) # arg = tk_split_list(arg_str) arg = tk_split_simplelist(arg_str) #_get_eval_string(TkUtil.eval_cmd(Tk_CMDTBL[arg.shift], *arg)) #_get_eval_string(TkUtil.eval_cmd(TkCore::INTERP.tk_cmd_tbl[arg.shift], # *arg)) # TkCore::INTERP.tk_cmd_tbl[arg.shift].call(*arg) begin TkCore::INTERP.tk_cmd_tbl[arg.shift].call(*arg) rescue Exception => e raise(e, e.class.inspect + ': ' + e.message + "\n" + "\n---< backtrace of Ruby side >-----\n" + e.backtrace.join("\n") + "\n---< backtrace of Tk side >-------") end
#=begin # cb_obj = MultiTkIp.tk_cmd_tbl # unless $DEBUG # cb_obj.call(*arg) # else # begin # raise 'check backtrace' # rescue # # ignore backtrace before 'callback' # pos = -($!.backtrace.size) # end # begin # cb_obj.call(*arg) # rescue # trace = $!.backtrace # raise $!, “n#{trace}: #{$!.message} (#{$!.class})n” + # “tfrom #{trace.join(”ntfrom “)}” # end # end #=end
end
# File tk/lib/tk.rb, line 1396 def load_cmd_on_ip(tk_cmd) bool(tk_call('auto_load', tk_cmd)) end
# File tk/lib/tk.rb, line 1556 def mainloop(check_root = true) TclTkLib.mainloop(check_root) end
# File tk/lib/tk.rb, line 1568 def mainloop_exist? TclTkLib.mainloop_thread? != nil end
# File tk/lib/tk.rb, line 1560 def mainloop_thread? # true : current thread is mainloop # nil : there is no mainloop # false : mainloop is running on the other thread # ( At then, it is dangerous to call Tk interpreter directly. ) TclTkLib.mainloop_thread? end
# File tk/lib/tk.rb, line 1576 def mainloop_watchdog(check_root = true) # watchdog restarts mainloop when mainloop is dead TclTkLib.mainloop_watchdog(check_root) end
# File tk/lib/tk.rb, line 1637 def messageBox(keys) tk_call('tk_messageBox', *hash_kv(keys)) end
# File tk/lib/tk.rb, line 1497 def rb_appsend(interp, async, *args) if $SAFE >= 4 fail SecurityError, "cannot send Ruby commands at level 4" elsif $SAFE >= 1 && args.find{|obj| obj.tainted?} fail SecurityError, "cannot send tainted Ruby commands at level #{$SAFE}" end if async != true && async != false && async != nil args.unshift(async) async = false end #args = args.collect!{|c| _get_eval_string(c).gsub(/[\[\]$"]/, '\\\\\&')} args = args.collect!{|c| _get_eval_string(c).gsub(/[\[\]$"\\]/, '\\\\\&')} # args.push(').to_s"') # appsend(interp, async, 'ruby "(', *args) args.push('}.call)"') appsend(interp, async, 'ruby "TkComm._get_eval_string(proc{', *args) end
# File tk/lib/tk.rb, line 1533 def rb_appsend_displayof(interp, win, async, *args) if $SAFE >= 4 fail SecurityError, "cannot send Ruby commands at level 4" elsif $SAFE >= 1 && args.find{|obj| obj.tainted?} fail SecurityError, "cannot send tainted Ruby commands at level #{$SAFE}" end win = '.' if win == nil if async != true && async != false && async != nil args.unshift(async) async = false end #args = args.collect!{|c| _get_eval_string(c).gsub(/[\[\]$"]/, '\\\\\&')} args = args.collect!{|c| _get_eval_string(c).gsub(/[\[\]$"\\]/, '\\\\\&')} # args.push(').to_s"') # appsend_displayof(interp, win, async, 'ruby "(', *args) args.push('}.call)"') appsend(interp, win, async, 'ruby "TkComm._get_eval_string(proc{', *args) end
# File tk/lib/tk.rb, line 1465 def reset_inactive tk_call_without_enc('tk', 'inactive', 'reset') end
# File tk/lib/tk.rb, line 1468 def reset_inactive_displayof(win) tk_call_without_enc('tk', 'inactive', '-displayof', win, 'reset') end
# File tk/lib/tk.rb, line 1609 def restart(app_name = nil, keys = {}) TkCore::INTERP.init_ip_internal tk_call('set', 'argv0', app_name) if app_name if keys.kind_of?(Hash) # tk_call('set', 'argc', keys.size * 2) tk_call('set', 'argv', hash_kv(keys).join(' ')) end INTERP.restart nil end
# File tk/lib/tk.rb, line 1444 def scaling(scale=nil) if scale tk_call_without_enc('tk', 'scaling', scale) else Float(number(tk_call_without_enc('tk', 'scaling'))) end end
# File tk/lib/tk.rb, line 1451 def scaling_displayof(win, scale=nil) if scale tk_call_without_enc('tk', 'scaling', '-displayof', win, scale) else Float(number(tk_call_without_enc('tk', '-displayof', win, 'scaling'))) end end
# File tk/lib/tk.rb, line 1585 def set_eventloop_tick(timer_tick) TclTkLib.set_eventloop_tick(timer_tick) end
# File tk/lib/tk.rb, line 1601 def set_eventloop_weight(loop_max, no_event_tick) TclTkLib.set_eventloop_weight(loop_max, no_event_tick) end
# File tk/lib/tk.rb, line 1593 def set_no_event_wait(wait) TclTkLib.set_no_even_wait(wait) end
# File tk/lib/tk.rb, line 1753 def tk_call(*args) _tk_call_core(nil, *args) end
private :_tk_call_to_list_core
# File tk/lib/tk.rb, line 1776 def tk_call_to_list(*args) _tk_call_to_list_core(-1, nil, true, *args) end
# File tk/lib/tk.rb, line 1784 def tk_call_to_list_with_enc(*args) _tk_call_to_list_core(-1, true, true, *args) end
# File tk/lib/tk.rb, line 1780 def tk_call_to_list_without_enc(*args) _tk_call_to_list_core(-1, false, false, *args) end
# File tk/lib/tk.rb, line 1788 def tk_call_to_simplelist(*args) _tk_call_to_list_core(0, nil, true, *args) end
# File tk/lib/tk.rb, line 1796 def tk_call_to_simplelist_with_enc(*args) _tk_call_to_list_core(0, true, true, *args) end
# File tk/lib/tk.rb, line 1792 def tk_call_to_simplelist_without_enc(*args) _tk_call_to_list_core(0, false, false, *args) end
# File tk/lib/tk.rb, line 1761 def tk_call_with_enc(*args) _tk_call_core(true, *args) end