Method: TkComm.procedure

Defined in:
lib/tk.rb

.procedure(val) ⇒ Object 



623
624
625
626
627
628
629
630
631
632
633
634
635
636
 
# File 'lib/tk.rb', line 623

def procedure(val)
=begin
  if val =~ /^rb_out\S* (c(_\d+_)?\d+)/
    #Tk_CMDTBL[$1]
    #TkCore::INTERP.tk_cmd_tbl[$1]
    TkCore::INTERP.tk_cmd_tbl[$1].cmd
=end
  if val =~ /rb_out\S*(?:\s+(::\S*|[{](::.*)[}]|["](::.*)["]))? (c(_\d+_)?(\d+))/
    return TkCore::INTERP.tk_cmd_tbl[$4].cmd
  else
    #nil
    val
  end
end