In Files

  • tk/lib/multi-tk.rb
  • tk/lib/tk.rb
  • tk/lib/tk/bindtag.rb
  • tk/lib/tk/canvas.rb
  • tk/lib/tk/canvastag.rb
  • tk/lib/tk/console.rb
  • tk/lib/tk/event.rb
  • tk/lib/tk/font.rb
  • tk/lib/tk/image.rb
  • tk/lib/tk/menu.rb
  • tk/lib/tk/msgcat.rb
  • tk/lib/tk/namespace.rb
  • tk/lib/tk/optiondb.rb
  • tk/lib/tk/root.rb
  • tk/lib/tk/textmark.rb
  • tk/lib/tk/texttag.rb
  • tk/lib/tk/timer.rb
  • tk/lib/tk/variable.rb
  • tk/lib/tk/virtevent.rb
  • tk/lib/tkextlib/blt.rb
  • tk/lib/tkextlib/blt/bitmap.rb
  • tk/lib/tkextlib/blt/component.rb
  • tk/lib/tkextlib/blt/tabset.rb
  • tk/lib/tkextlib/blt/tree.rb
  • tk/lib/tkextlib/blt/treeview.rb
  • tk/lib/tkextlib/blt/vector.rb
  • tk/lib/tkextlib/blt/watch.rb
  • tk/lib/tkextlib/bwidget/listbox.rb
  • tk/lib/tkextlib/bwidget/tree.rb
  • tk/lib/tkextlib/itcl/incr_tcl.rb
  • tk/lib/tkextlib/itk/incr_tk.rb
  • tk/lib/tkextlib/tcllib/ico.rb
  • tk/lib/tkextlib/tcllib/plotchart.rb
  • tk/lib/tkextlib/tile/treeview.rb
  • tk/lib/tkextlib/tkHTML/htmlwidget.rb
  • tk/lib/tkextlib/tktable/tktable.rb
  • tk/lib/tkextlib/treectrl/tktreectrl.rb
  • tk/lib/tkextlib/vu/pie.rb
  • tk/lib/tkextlib/winico/winico.rb

Class/Module Index [+]

Quicksearch

TkCore

start Tk which depends on MultiTkIp

Constants

EventFlag
INTERP

#<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>

WIDGET_DESTROY_HOOK

Public Class Methods

callback(*arg) click to toggle source 
 
               # 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
inspect() click to toggle source 
 
               # File tk/lib/tk.rb, line 1126
def inspect
  sprintf("#<Class(TkCallbackEntry):%0x>", self.__id__)
end
Also aliased as: to_s
new(ip, cmd) click to toggle source 
 
               # File tk/lib/tk.rb, line 1132
def initialize(ip, cmd)
  @ip = ip
  @cmd = cmd
end
to_s() click to toggle source
Alias for: inspect

Public Instance Methods

_tk_call_to_list_core(depth, arg_enc, val_enc, *args) click to toggle source 
 
               # 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
after(ms, cmd=Proc.new) click to toggle source 
 
               # 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
after_cancel(afterId) click to toggle source 
 
               # File tk/lib/tk.rb, line 1436
def after_cancel(afterId)
  tk_call_without_enc('after','cancel',afterId)
end
after_idle(cmd=Proc.new) click to toggle source 
 
               # 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
appname(name=None) click to toggle source 
 
               # File tk/lib/tk.rb, line 1472
def appname(name=None)
  tk_call('tk', 'appname', name)
end
appsend(interp, async, *args) click to toggle source 
 
               # 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
appsend_deny() click to toggle source 
 
               # File tk/lib/tk.rb, line 1476
def appsend_deny
  tk_call('rename', 'send', '')
end
appsend_displayof(interp, win, async, *args) click to toggle source 
 
               # 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
call(*args) click to toggle source 
 
               # File tk/lib/tk.rb, line 1137
def call(*args)
  @ip.cb_eval(@cmd, *args)
end
callback_break() click to toggle source 
 
               # File tk/lib/tk.rb, line 1306
def callback_break
  fail TkCallbackBreak, "Tk callback returns 'break' status"
end
callback_continue() click to toggle source 
 
               # File tk/lib/tk.rb, line 1310
def callback_continue
  fail TkCallbackContinue, "Tk callback returns 'continue' status"
end
callback_return() click to toggle source 
 
               # File tk/lib/tk.rb, line 1314
def callback_return
  fail TkCallbackReturn, "Tk callback returns 'return' status"
end
chooseColor(keys = nil) click to toggle source 
 
               # File tk/lib/tk.rb, line 1655
def chooseColor(keys = nil)
  tk_call('tk_chooseColor', *hash_kv(keys))
end
chooseDirectory(keys = nil) click to toggle source 
 
               # File tk/lib/tk.rb, line 1659
def chooseDirectory(keys = nil)
  tk_call('tk_chooseDirectory', *hash_kv(keys))
end
do_one_event(flag = TclTkLib::EventFlag::ALL) click to toggle source 
 
               # File tk/lib/tk.rb, line 1581
def do_one_event(flag = TclTkLib::EventFlag::ALL)
  TclTkLib.do_one_event(flag)
end
event_generate(win, context, keys=nil) click to toggle source 
 
               # 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
getMultipleOpenFile(keys = nil) click to toggle source 
 
               # File tk/lib/tk.rb, line 1644
def getMultipleOpenFile(keys = nil)
  simplelist(tk_call('tk_getOpenFile', '-multiple', '1', *hash_kv(keys)))
end
getMultipleSaveFile(keys = nil) click to toggle source 
 
               # File tk/lib/tk.rb, line 1651
def getMultipleSaveFile(keys = nil)
  simplelist(tk_call('tk_getSaveFile', '-multiple', '1', *hash_kv(keys)))
end
getOpenFile(keys = nil) click to toggle source 
 
               # File tk/lib/tk.rb, line 1641
def getOpenFile(keys = nil)
  tk_call('tk_getOpenFile', *hash_kv(keys))
end
getSaveFile(keys = nil) click to toggle source 
 
               # File tk/lib/tk.rb, line 1648
def getSaveFile(keys = nil)
  tk_call('tk_getSaveFile', *hash_kv(keys))
end
get_eventloop_tick() click to toggle source 
 
               # File tk/lib/tk.rb, line 1589
def get_eventloop_tick()
  TclTkLib.get_eventloop_tick
end
get_eventloop_weight() click to toggle source 
 
               # File tk/lib/tk.rb, line 1605
def get_eventloop_weight()
  TclTkLib.get_eventloop_weight
end
get_no_event_wait() click to toggle source 
 
               # File tk/lib/tk.rb, line 1597
def get_no_event_wait()
  TclTkLib.get_no_eventloop_wait
end
inactive() click to toggle source 
 
               # File tk/lib/tk.rb, line 1459
def inactive
  Integer(tk_call_without_enc('tk', 'inactive'))
end
inactive_displayof(win) click to toggle source 
 
               # File tk/lib/tk.rb, line 1462
def inactive_displayof(win)
  Integer(tk_call_without_enc('tk', 'inactive', '-displayof', win))
end
inspect() click to toggle source 
 
               # File tk/lib/tk.rb, line 1140
def inspect
  sprintf("#<cb_entry:%0x>", self.__id__)
end
Also aliased as: to_s
ip_eval(cmd_string) click to toggle source 
 
               # File tk/lib/tk.rb, line 1679
def ip_eval(cmd_string)
  _ip_eval_core(nil, cmd_string)
end
ip_eval_with_enc(cmd_string) click to toggle source 
 
               # File tk/lib/tk.rb, line 1687
def ip_eval_with_enc(cmd_string)
  _ip_eval_core(true, cmd_string)
end
ip_eval_without_enc(cmd_string) click to toggle source 
 
               # File tk/lib/tk.rb, line 1683
def ip_eval_without_enc(cmd_string)
  _ip_eval_core(false, cmd_string)
end
ip_invoke(*args) click to toggle source 
 
               # File tk/lib/tk.rb, line 1707
def ip_invoke(*args)
  _ip_invoke_core(nil, *args)
end
ip_invoke_with_enc(*args) click to toggle source 
 
               # File tk/lib/tk.rb, line 1715
def ip_invoke_with_enc(*args)
  _ip_invoke_core(true, *args)
end
ip_invoke_without_enc(*args) click to toggle source 
 
               # File tk/lib/tk.rb, line 1711
def ip_invoke_without_enc(*args)
  _ip_invoke_core(false, *args)
end
is_mainloop?() click to toggle source 
 
               # File tk/lib/tk.rb, line 1572
def is_mainloop?
  TclTkLib.mainloop_thread? == true
end
load_cmd_on_ip(tk_cmd) click to toggle source

begin ↑

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

end ↑

 
               # File tk/lib/tk.rb, line 1396
def load_cmd_on_ip(tk_cmd)
  bool(tk_call('auto_load', tk_cmd))
end
mainloop(check_root = true) click to toggle source 
 
               # File tk/lib/tk.rb, line 1556
def mainloop(check_root = true)
  TclTkLib.mainloop(check_root)
end
mainloop_exist?() click to toggle source 
 
               # File tk/lib/tk.rb, line 1568
def mainloop_exist?
  TclTkLib.mainloop_thread? != nil
end
mainloop_thread?() click to toggle source 
 
               # 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
mainloop_watchdog(check_root = true) click to toggle source 
 
               # 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
messageBox(keys) click to toggle source 
 
               # File tk/lib/tk.rb, line 1637
def messageBox(keys)
  tk_call('tk_messageBox', *hash_kv(keys))
end
rb_appsend(interp, async, *args) click to toggle source 
 
               # 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
rb_appsend_displayof(interp, win, async, *args) click to toggle source 
 
               # 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
reset_inactive() click to toggle source 
 
               # File tk/lib/tk.rb, line 1465
def reset_inactive
  tk_call_without_enc('tk', 'inactive', 'reset')
end
reset_inactive_displayof(win) click to toggle source 
 
               # File tk/lib/tk.rb, line 1468
def reset_inactive_displayof(win)
  tk_call_without_enc('tk', 'inactive', '-displayof', win, 'reset')
end
restart(app_name = nil, keys = {}) click to toggle source 
 
               # 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
scaling(scale=nil) click to toggle source 
 
               # 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
scaling_displayof(win, scale=nil) click to toggle source 
 
               # 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
set_eventloop_tick(timer_tick) click to toggle source 
 
               # File tk/lib/tk.rb, line 1585
def set_eventloop_tick(timer_tick)
  TclTkLib.set_eventloop_tick(timer_tick)
end
set_eventloop_weight(loop_max, no_event_tick) click to toggle source 
 
               # 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
set_no_event_wait(wait) click to toggle source 
 
               # File tk/lib/tk.rb, line 1593
def set_no_event_wait(wait)
  TclTkLib.set_no_even_wait(wait)
end
tk_call(*args) click to toggle source 
 
               # File tk/lib/tk.rb, line 1753
def tk_call(*args)
  _tk_call_core(nil, *args)
end
tk_call_to_list(*args) click to toggle source

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
tk_call_to_list_with_enc(*args) click to toggle source 
 
               # 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
tk_call_to_list_without_enc(*args) click to toggle source 
 
               # 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
tk_call_to_simplelist(*args) click to toggle source 
 
               # File tk/lib/tk.rb, line 1788
def tk_call_to_simplelist(*args)
  _tk_call_to_list_core(0, nil, true, *args)
end
tk_call_to_simplelist_with_enc(*args) click to toggle source 
 
               # 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
tk_call_to_simplelist_without_enc(*args) click to toggle source 
 
               # 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
tk_call_with_enc(*args) click to toggle source 
 
               # File tk/lib/tk.rb, line 1761
def tk_call_with_enc(*args)
  _tk_call_core(true, *args)
end
tk_call_without_enc(*args) click to toggle source 
 
               # File tk/lib/tk.rb, line 1757
def tk_call_without_enc(*args)
  _tk_call_core(false, *args)
end
to_s() click to toggle source
Alias for: inspect
windowingsystem() click to toggle source 
 
               # File tk/lib/tk.rb, line 1440
def windowingsystem
  tk_call_without_enc('tk', 'windowingsystem')
end