Class: Tk::Text

Inherits:
TkTextWin show all
Includes:
Scrollable, TkTextTagConfig
Defined in:
ext/lib/tk/text.rb

Direct Known Subclasses

Tk::Tcllib::CText, Peer

Defined Under Namespace

Modules: IndexModMethods Classes: IndexString, Peer

Constant Summary collapse

ItemConfCMD =
['tag'.freeze, 'configure'.freeze].freeze
TkCommandNames =
['text'.freeze].freeze
WidgetClassName =
'Text'.freeze

Constants included from TkUtil

TkUtil::None, TkUtil::RELEASE_DATE

Constants included from Tk

AUTO_PATH, Checkbutton, CloneMenu, JAPANIZED_TK, LIBRARY_PATH, Labelframe, MenuButton, OptionMenuButton, PACKAGE_PATH, Panedwindow, RELEASE_DATE, Radiobutton, TCL_LIBRARY_PATH, TCL_MAJOR_VERSION, TCL_MINOR_VERSION, TCL_PACKAGE_PATH, TCL_PATCHLEVEL, TCL_PRECISION, TCL_VERSION, TK_MAJOR_VERSION, TK_MINOR_VERSION, TK_PATCHLEVEL, TK_VERSION, Tkextlib_RELEASE_DATE, TreeCtrl_Widget, X_Scrollable, Y_Scrollable

Constants included from Encoding

Encoding::BINARY, Encoding::BINARY_NAME, Encoding::DEFAULT_EXTERNAL_NAME, Encoding::DEFAULT_INTERNAL_NAME, Encoding::ENCODING_TABLE, Encoding::RubyEncoding, Encoding::UNKNOWN, Encoding::UTF8_NAME

Constants included from TkCore

TkCore::EventFlag, TkCore::INTERP, TkCore::INTERP_MUTEX, TkCore::INTERP_ROOT_CHECK, TkCore::INTERP_THREAD, TkCore::INTERP_THREAD_STATUS, TkCore::RUN_EVENTLOOP_ON_MAIN_THREAD, TkCore::WIDGET_DESTROY_HOOK, TkCore::WITH_ENCODING, TkCore::WITH_RUBY_VM

Constants included from TkComm

TkComm::GET_CONFIGINFO_AS_ARRAY, TkComm::GET_CONFIGINFOwoRES_AS_ARRAY, TkComm::TkExtlibAutoloadModule, TkComm::Tk_CMDTBL, TkComm::Tk_IDs, TkComm::Tk_WINDOWS, TkComm::USE_TCLs_LIST_FUNCTIONS, TkComm::WidgetClassNames

Constants included from Tk::TkDND::Shape

Tk::TkDND::Shape::PACKAGE_NAME

Class Method Summary collapse

Instance Method Summary collapse

Methods included from Scrollable

#autoscroll, #unautoscroll

Methods included from YScrollable

#yscrollbar, #yscrollcommand, #yview, #yview_moveto, #yview_scroll

Methods included from XScrollable

#xscrollbar, #xscrollcommand, #xview, #xview_moveto, #xview_scroll

Methods included from TkTextTagConfig

#current_tag_configinfo, #current_window_configinfo, #tag_cget, #tag_cget_strict, #tag_configinfo, #tag_configure, #window_cget, #window_cget_strict, #window_configinfo, #window_configure

Methods included from TkItemConfigMethod

__IGNORE_UNKNOWN_CONFIGURE_OPTION__, #__check_available_itemconfigure_options, #__current_itemconfiginfo, __set_IGNORE_UNKNOWN_CONFIGURE_OPTION__!, #current_itemconfiginfo, #itemcget, #itemcget_strict, #itemconfiginfo, #itemconfigure

Methods included from TkItemConfigOptkeys

#__conv_item_keyonly_opts, #itemconfig_hash_kv

Methods included from TkUtil

_conv_args, #_conv_args, #_fromUTF8, _get_eval_enc_str, #_get_eval_enc_str, #_get_eval_string, _get_eval_string, _symbolkey2str, #_symbolkey2str, #_toUTF8, bool, #bool, callback, eval_cmd, #hash_kv, hash_kv, install_cmd, num_or_str, #num_or_str, number, #number, string, #string, uninstall_cmd

Methods included from TkTreatItemFont

#kanjifont_copy, #kanjitagfont_configure, #latintagfont_configure, #latintagfont_copy, #tagfont_configinfo, #tagfont_configure, #tagfont_copy

Methods inherited from TkTextWin

#delete, #get, #scan_dragto, #scan_mark, #see

Methods inherited from TkWindow

_widget_inspect_full_=, _widget_inspect_full_?, #bind_class, #bindtags, #bindtags=, #bindtags_shift, #bindtags_unshift, #caret, #colormodel, #command, #cursor_propagate, #cursor_restore, database_class, #database_class, #database_classname, database_classname, #eventloop_wait_destroy, #eventloop_wait_visibility, #exist?, #grab, #grab_current, #grab_release, #grab_set, #grab_set_global, #grab_status, #grid, #grid_anchor, #grid_bbox, #grid_column, #grid_columnconfig, #grid_columnconfiginfo, #grid_config, #grid_forget, #grid_in, #grid_info, #grid_location, #grid_propagate, #grid_remove, #grid_row, #grid_rowconfig, #grid_rowconfiginfo, #grid_size, #grid_slaves, #initialize, #inspect, #lower, #pack, #pack_config, #pack_forget, #pack_in, #pack_info, #pack_propagate, #pack_slaves, #place, #place_config, #place_configinfo, #place_forget, #place_in, #place_info, #place_slaves, #raise, #set_focus, #thread_wait_destroy, #thread_wait_visibility, #tktrans_get_image, #tktrans_set_image, to_eval, #wait_destroy, #wait_visibility

Methods included from TkBindCore

#bind, #bind_append, #bind_remove, #bindinfo

Methods included from TkWinfo

appname, atom, atomname, cells, children, classname, colormapfull, containing, depth, exist?, fpixels, geometry, height, id, interps, manager, mapped?, parent, pixels, pointerx, pointerxy, pointery, reqheight, reqwidth, rgb, rootx, rooty, screen, screencells, screendepth, screenheight, screenmmheight, screenmmwidth, screenvisual, screenwidth, server, toplevel, viewable, visual, visualid, visualsavailable, vrootheight, vrootwidth, vrootx, vrooty, widget, width, #winfo_appname, #winfo_atom, #winfo_atomname, #winfo_cells, #winfo_children, #winfo_classname, #winfo_colormapfull, #winfo_containing, #winfo_depth, #winfo_exist?, #winfo_fpixels, #winfo_geometry, #winfo_height, #winfo_id, #winfo_interps, #winfo_manager, #winfo_mapped?, #winfo_parent, #winfo_pixels, #winfo_pointerx, #winfo_pointerxy, #winfo_pointery, #winfo_reqheight, #winfo_reqwidth, #winfo_rgb, #winfo_rootx, #winfo_rooty, #winfo_screen, #winfo_screencells, #winfo_screendepth, #winfo_screenheight, #winfo_screenmmheight, #winfo_screenmmwidth, #winfo_screenvisual, #winfo_screenwidth, #winfo_server, #winfo_toplevel, #winfo_viewable, #winfo_visual, #winfo_visualid, #winfo_visualsavailable, #winfo_vrootheight, #winfo_vrootwidth, #winfo_vrootx, #winfo_vrooty, #winfo_widget, #winfo_width, #winfo_x, #winfo_y, x, y

Methods included from Tk

BinaryString, EncodedString, #Grid, #Pack, #Place, UTF8_String, __set_toplevel_aliases__, add_kinsoku, bell, bell_on_display, const_missing, current_grabs, cursor_display, default_widget_set, default_widget_set=, delete_kinsoku, destroy, errorCode, errorInfo, exit, focus, focus_lastfor, focus_next, focus_prev, focus_to, fromUTF8, grid, grid_forget, has_mainwindow?, load_tcllibrary, load_tclscript, load_tclscript_rsrc, load_tclscript_rsrcid, lower_window, pack, pack_forget, pkgconfig_get, pkgconfig_list, place, place_forget, raise_window, #root, show_kinsoku, sleep, strictMotif, subst_tk_backslash, subst_utf_backslash, tcl_pkgconfig_get, tcl_pkgconfig_list, thread_update, thread_update_idletasks, tk_pkgconfig_get, tk_pkgconfig_list, toUTF8, to_backslash_sequence, ungrid, unload_tcllibrary, unpack, unplace, #update, update, update_idletasks, utf_to_backslash, utf_to_backslash_sequence, wakeup

Methods included from Encoding

#default_encoding=, #encoding=, #encoding_convertfrom, #encoding_convertto, #encoding_dirs, #encoding_dirs=, #encoding_name, #encoding_names, #encoding_obj, #encoding_objs, #encoding_system=, #encoding_system_name, #encoding_system_obj, #force_default_encoding, #force_default_encoding=, #force_default_encoding?, #tk_encoding_names

Methods included from TkCore

#_tk_call_to_list_core, #after, #after_cancel, #after_idle, #appname, #appsend, #appsend_deny, #appsend_displayof, callback, #callback_break, #callback_continue, #callback_return, #chooseColor, #chooseDirectory, #do_one_event, #event_generate, #getMultipleOpenFile, #getMultipleSaveFile, #getOpenFile, #getSaveFile, #get_eventloop_tick, #get_eventloop_weight, #get_no_event_wait, #inactive, #inactive_displayof, #info, #ip_eval, #ip_eval_with_enc, #ip_eval_without_enc, #ip_invoke, #ip_invoke_with_enc, #ip_invoke_without_enc, #is_mainloop?, #load_cmd_on_ip, #mainloop, #mainloop_exist?, #mainloop_thread?, #mainloop_watchdog, #messageBox, #rb_appsend, #rb_appsend_displayof, #reset_inactive, #reset_inactive_displayof, #restart, #scaling, #scaling_displayof, #set_eventloop_tick, #set_eventloop_weight, #set_no_event_wait, #tk_call, #tk_call_to_list, #tk_call_to_list_with_enc, #tk_call_to_list_without_enc, #tk_call_to_simplelist, #tk_call_to_simplelist_with_enc, #tk_call_to_simplelist_without_enc, #tk_call_with_enc, #tk_call_without_enc, #windowingsystem

Methods included from TkComm

_at, _callback_entry?, _callback_entry_class?, _curr_cmd_id, _fromUTF8, _genobj_for_tkwidget, _next_cmd_id, _toUTF8, array2tk_list, #bind, #bind_all, #bind_append, #bind_append_all, #bind_remove, #bind_remove_all, #bindinfo, #bindinfo_all, bool, image_obj, install_cmd, #install_cmd, list, num_or_str, number, procedure, simplelist, string, #subst, tk_tcl2ruby, uninstall_cmd, #uninstall_cmd, window

Methods included from TkEvent

#install_bind, #install_bind_for_event_class

Methods included from Tk::TkDND::DND

#dnd_bindsource, #dnd_bindsource_info, #dnd_bindtarget, #dnd_bindtarget_info, #dnd_clearsource, #dnd_cleartarget, #dnd_drag, version

Methods included from Tk::TkDND::Shape

package_name, package_patchlevel, package_version, #shape_bounds, #shape_get, #shape_offset, #shape_set, #shape_update, version

Methods inherited from TkObject

#epath, #event_generate, #method_missing, #path, #tk_send, #tk_send_to_list, #tk_send_to_list_with_enc, #tk_send_to_list_without_enc, #tk_send_to_simplelist, #tk_send_to_simplelist_with_enc, #tk_send_to_simplelist_without_enc, #tk_send_with_enc, #tk_send_without_enc, #to_eval

Methods included from TkConfigMethod

#[], #[]=, __IGNORE_UNKNOWN_CONFIGURE_OPTION__, #__check_available_configure_options, __set_IGNORE_UNKNOWN_CONFIGURE_OPTION__!, #cget, #cget_strict, #config_hash_kv, #configinfo, #configure, #configure_cmd, #current_configinfo

Methods included from TkTreatFont

#font_configinfo, #font_configure, #font_copy, #kanjifont_configure, #kanjifont_copy, #latinfont_configure, #latinfont_copy

Constructor Details

This class inherits a constructor from TkWindow

Dynamic Method Handling

This class handles dynamic methods through the method_missing method in the class TkObject

Class Method Details

.at(x, y) ⇒ Object



300
301
302
# File 'ext/lib/tk/text.rb', line 300

def self.at(x, y)
  Tk::Text::IndexString.at(x, y)
end

.new(*args, &block) ⇒ Object



256
257
258
259
260
261
262
263
264
265
# File 'ext/lib/tk/text.rb', line 256

def self.new(*args, &block)
  obj = super(*args){}
  obj.init_instance_variable
  if TkCore::WITH_RUBY_VM  ### Ruby 1.9 !!!!
    obj.instance_exec(obj, &block) if defined? yield
  else
    obj.instance_eval(&block) if defined? yield
  end
  obj
end

Instance Method Details

#__destroy_hook__Object



272
273
274
275
276
277
278
279
# File 'ext/lib/tk/text.rb', line 272

def __destroy_hook__
  TkTextTag::TTagID_TBL.mutex.synchronize{
    TkTextTag::TTagID_TBL.delete(@path)
  }
  TkTextTag::TMarkID_TBL.mutex.synchronize{
    TkTextMark::TMarkID_TBL.delete(@path)
  }
end

#_addcmd(cmd) ⇒ Object



334
335
336
# File 'ext/lib/tk/text.rb', line 334

def _addcmd(cmd)
  @cmdtbl.push cmd
end

#_addtag(name, obj) ⇒ Object



338
339
340
# File 'ext/lib/tk/text.rb', line 338

def _addtag(name, obj)
  @tags[name] = obj
end

#at(x, y) ⇒ Object



304
305
306
# File 'ext/lib/tk/text.rb', line 304

def at(x, y)
  Tk::Text::IndexString.at(x, y)
end

#backspaceObject



614
615
616
# File 'ext/lib/tk/text.rb', line 614

def backspace
  self.delete 'insert'
end

#bbox(index) ⇒ Object



618
619
620
# File 'ext/lib/tk/text.rb', line 618

def bbox(index)
  list(tk_send_without_enc('bbox', _get_eval_enc_str(index)))
end

#clearObject Also known as: erase



328
329
330
331
# File 'ext/lib/tk/text.rb', line 328

def clear
  tk_send_without_enc('delete', "1.0", 'end')
  self
end

#compare(idx1, op, idx2) ⇒ Object



622
623
624
625
# File 'ext/lib/tk/text.rb', line 622

def compare(idx1, op, idx2)
  bool(tk_send_without_enc('compare', _get_eval_enc_str(idx1), 
                           op, _get_eval_enc_str(idx2)))
end

#count(idx1, idx2, *opts) ⇒ Object



627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
# File 'ext/lib/tk/text.rb', line 627

def count(idx1, idx2, *opts)
  # opts are Tk8.5 feature
  cnt = 0
  args = opts.collect{|opt|
    str = opt.to_s
    cnt += 1 if str != 'update'
    '-' + str
  }
  args << _get_eval_enc_str(idx1) << _get_eval_enc_str(idx2)
  if cnt <= 1
    number(tk_send_without_enc('count', *opts))
  else
    list(tk_send_without_enc('count', *opts))
  end
end

#count_info(idx1, idx2, update = true) ⇒ Object



643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
# File 'ext/lib/tk/text.rb', line 643

def count_info(idx1, idx2, update=true)
  # Tk8.5 feature
  opts = [
    :chars, :displaychars, :displayindices, :displaylines, 
    :indices, :lines, :xpixels, :ypixels
  ]
  if update
    lst = count(idx1, idx2, :update, *opts)
  else
    lst = count(idx1, idx2, *opts)
  end
  info = {}
  opts.each_with_index{|key, idx| info[key] = lst[idx]}
  info
end

#current_image_configinfo(index, slot = nil) ⇒ Object



549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
# File 'ext/lib/tk/text.rb', line 549

def current_image_configinfo(index, slot = nil)
  if TkComm::GET_CONFIGINFO_AS_ARRAY
    if slot
      conf = image_configinfo(index, slot)
      {conf[0] => conf[4]}
    else
      ret = {}
      image_configinfo(index).each{|conf|
        ret[conf[0]] = conf[4] if conf.size > 2
      }
      ret
    end
  else # ! TkComm::GET_CONFIGINFO_AS_ARRAY
    ret = {}
    image_configinfo(index, slot).each{|k, conf|
      ret[k] = conf[-1] if conf.kind_of?(Array)
    }
    ret
  end
end

#debugObject



669
670
671
# File 'ext/lib/tk/text.rb', line 669

def debug
  bool(tk_send_without_enc('debug'))
end

#debug=(boolean) ⇒ Object



672
673
674
675
676
# File 'ext/lib/tk/text.rb', line 672

def debug=(boolean)
  tk_send_without_enc('debug', boolean)
  #self
  boolean
end

#destroyObject



606
607
608
609
610
611
612
# File 'ext/lib/tk/text.rb', line 606

def destroy
  @tags = {} unless @tags
  @tags.each_value do |t|
    t.destroy
  end
  super()
end

#dlineinfo(index) ⇒ Object



678
679
680
# File 'ext/lib/tk/text.rb', line 678

def dlineinfo(index)
  list(tk_send_without_enc('dlineinfo', _get_eval_enc_str(index)))
end

#dump(type_info, *index, &block) ⇒ Object



1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
# File 'ext/lib/tk/text.rb', line 1433

def dump(type_info, *index, &block)
  if type_info.kind_of?(Symbol)
    type_info = [ type_info.to_s ]
  elsif type_info.kind_of?(String)
    type_info = [ type_info ]
  end
  args = type_info.collect{|inf| '-' + inf}
  args << '-command' << block if block
  str = tk_send('dump', *(args + index))
  result = []
  sel = nil
  i = 0
  while i < str.size
    # retrieve key
    idx = str.index(/ /, i)
    result.push str[i..(idx-1)]
    i = idx + 1
    
    # retrieve value
    case result[-1]
    when 'text'
      if str[i] == ?{
        # text formed as {...}
        val, i = _retrieve_braced_text(str, i)
        result.push val
      else
        # text which may contain backslahes
        val, i = _retrieve_backslashed_text(str, i)
        result.push val
      end
    else
      idx = str.index(/ /, i)
      val = str[i..(idx-1)]
      case result[-1]
      when 'mark'
        case val
        when 'insert'
          result.push TkTextMarkInsert.new(self)
        when 'current'
          result.push TkTextMarkCurrent.new(self)
        when 'anchor'
          result.push TkTextMarkAnchor.new(self)
        else
          result.push tk_tcl2ruby(val)
        end
      when 'tagon'
        if val == 'sel'
          if sel
            result.push sel
          else
            result.push TkTextTagSel.new(self)
          end
        else
          result.push tk_tcl2ruby(val)
        end
      when 'tagoff'
          result.push tk_tcl2ruby(val)
      when 'window'
        result.push tk_tcl2ruby(val)
      when 'image'
        result.push tk_tcl2ruby(val)
      end
      i = idx + 1
    end

    # retrieve index
    idx = str.index(/ /, i)
    if idx
      result.push(Tk::Text::IndexString.new(str[i..(idx-1)]))
      i = idx + 1
    else
      result.push(Tk::Text::IndexString.new(str[i..-1]))
      break
    end
  end
  
  kvis = []
  until result.empty?
    kvis.push [result.shift, result.shift, result.shift]
  end
  kvis  # result is [[key1, value1, index1], [key2, value2, index2], ...]
end

#dump_all(*index, &block) ⇒ Object



1552
1553
1554
# File 'ext/lib/tk/text.rb', line 1552

def dump_all(*index, &block)
  dump(['all'], *index, &block)
end

#dump_image(*index, &block) ⇒ Object



1567
1568
1569
# File 'ext/lib/tk/text.rb', line 1567

def dump_image(*index, &block)
  dump(['image'], *index, &block)
end

#dump_mark(*index, &block) ⇒ Object



1555
1556
1557
# File 'ext/lib/tk/text.rb', line 1555

def dump_mark(*index, &block)
  dump(['mark'], *index, &block)
end

#dump_tag(*index, &block) ⇒ Object



1558
1559
1560
# File 'ext/lib/tk/text.rb', line 1558

def dump_tag(*index, &block)
  dump(['tag'], *index, &block)
end

#dump_text(*index, &block) ⇒ Object



1561
1562
1563
# File 'ext/lib/tk/text.rb', line 1561

def dump_text(*index, &block)
  dump(['text'], *index, &block)
end

#dump_window(*index, &block) ⇒ Object



1564
1565
1566
# File 'ext/lib/tk/text.rb', line 1564

def dump_window(*index, &block)
  dump(['window'], *index, &block)
end

#edit_redoObject



694
695
696
697
# File 'ext/lib/tk/text.rb', line 694

def edit_redo
  tk_send_without_enc('edit', 'redo')
  self
end

#edit_resetObject



698
699
700
701
# File 'ext/lib/tk/text.rb', line 698

def edit_reset
  tk_send_without_enc('edit', 'reset')
  self
end

#edit_separatorObject



702
703
704
705
# File 'ext/lib/tk/text.rb', line 702

def edit_separator
  tk_send_without_enc('edit', 'separator')
  self
end

#edit_undoObject



706
707
708
709
# File 'ext/lib/tk/text.rb', line 706

def edit_undo
  tk_send_without_enc('edit', 'undo')
  self
end

#get_displaychars(*index) ⇒ Object



313
314
315
316
# File 'ext/lib/tk/text.rb', line 313

def get_displaychars(*index)
  # Tk8.5 feature
  get('-displaychars', *index)
end

#image_cget(index, slot) ⇒ Object



424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
# File 'ext/lib/tk/text.rb', line 424

def image_cget(index, slot)
  unless TkItemConfigMethod.__IGNORE_UNKNOWN_CONFIGURE_OPTION__
    image_cget_strict(index, slot)
  else
    begin
      image_cget_strict(index, slot)
    rescue => e
      begin
        if current_image_configinfo(index).has_key?(slot.to_s)
          # not tag error & option is known -> error on known option
          fail e
        else
          # not tag error & option is unknown
          nil
        end
      rescue
        fail e  # tag error
      end
    end
  end
end

#image_cget_strict(index, slot) ⇒ Object



412
413
414
415
416
417
418
419
420
421
422
# File 'ext/lib/tk/text.rb', line 412

def image_cget_strict(index, slot)
  case slot.to_s
  when 'text', 'label', 'show', 'data', 'file'
    _fromUTF8(tk_send_without_enc('image', 'cget', 
                                  _get_eval_enc_str(index), "-#{slot}"))
  else
    tk_tcl2ruby(_fromUTF8(tk_send_without_enc('image', 'cget', 
                                              _get_eval_enc_str(index), 
                                              "-#{slot}")))
  end
end

#image_configinfo(index, slot = nil) ⇒ Object



460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
# File 'ext/lib/tk/text.rb', line 460

def image_configinfo(index, slot = nil)
  if TkComm::GET_CONFIGINFO_AS_ARRAY
    if slot
      case slot.to_s
      when 'text', 'label', 'show', 'data', 'file'
        #conf = tk_split_simplelist(_fromUTF8(tk_send_without_enc('image', 'configure', _get_eval_enc_str(index), "-#{slot}")))
        conf = tk_split_simplelist(tk_send_without_enc('image', 'configure', _get_eval_enc_str(index), "-#{slot}"), false, true)
      else
        #conf = tk_split_list(_fromUTF8(tk_send_without_enc('image', 'configure', _get_eval_enc_str(index), "-#{slot}")))
        conf = tk_split_list(tk_send_without_enc('image', 'configure', _get_eval_enc_str(index), "-#{slot}"), 0, false, true)
      end
      conf[0] = conf[0][1..-1]
      conf
    else
      # tk_split_simplelist(_fromUTF8(tk_send_without_enc('image', 'configure', _get_eval_enc_str(index)))).collect{|conflist|
      #  conf = tk_split_simplelist(conflist)
      tk_split_simplelist(tk_send_without_enc('image', 'configure', _get_eval_enc_str(index)), false, false).collect{|conflist|
        conf = tk_split_simplelist(conflist, false, true)
        conf[0] = conf[0][1..-1]
        case conf[0]
        when 'text', 'label', 'show', 'data', 'file'
        else
          if conf[3]
            if conf[3].index('{')
              conf[3] = tk_split_list(conf[3]) 
            else
              conf[3] = tk_tcl2ruby(conf[3]) 
            end
          end
          if conf[4]
            if conf[4].index('{')
              conf[4] = tk_split_list(conf[4]) 
            else
              conf[4] = tk_tcl2ruby(conf[4]) 
            end
          end
        end
        conf[1] = conf[1][1..-1] if conf.size == 2 # alias info
        conf
      }
    end
  else # ! TkComm::GET_CONFIGINFO_AS_ARRAY
    if slot
      case slot.to_s
      when 'text', 'label', 'show', 'data', 'file'
        #conf = tk_split_simplelist(_fromUTF8(tk_send_without_enc('image', 'configure', _get_eval_enc_str(index), "-#{slot}")))
        conf = tk_split_simplelist(tk_send_without_enc('image', 'configure', _get_eval_enc_str(index), "-#{slot}"), false, true)
      else
        #conf = tk_split_list(_fromUTF8(tk_send_without_enc('image', 'configure', _get_eval_enc_str(index), "-#{slot}")))
        conf = tk_split_list(tk_send_without_enc('image', 'configure', _get_eval_enc_str(index), "-#{slot}"), 0, false, true)
      end
      key = conf.shift[1..-1]
      { key => conf }
    else
      ret = {}
      #tk_split_simplelist(_fromUTF8(tk_send_without_enc('image', 'configure', _get_eval_enc_str(index)))).each{|conflist|
      #  conf = tk_split_simplelist(conflist)
      tk_split_simplelist(tk_send_without_enc('image', 'configure', _get_eval_enc_str(index)), false, false).each{|conflist|
        conf = tk_split_simplelist(conflist, false, true)
        key = conf.shift[1..-1]
        case key
        when 'text', 'label', 'show', 'data', 'file'
        else
          if conf[2]
            if conf[2].index('{')
              conf[2] = tk_split_list(conf[2]) 
            else
              conf[2] = tk_tcl2ruby(conf[2]) 
            end
          end
          if conf[3]
            if conf[3].index('{')
              conf[3] = tk_split_list(conf[3]) 
            else
              conf[3] = tk_tcl2ruby(conf[3]) 
            end
          end
        end
        if conf.size == 1
          ret[key] = conf[0][1..-1]  # alias info
        else
          ret[key] = conf
        end
      }
      ret
    end
  end
end

#image_configure(index, slot, value = None) ⇒ Object



446
447
448
449
450
451
452
453
454
455
456
457
458
# File 'ext/lib/tk/text.rb', line 446

def image_configure(index, slot, value=None)
  if slot.kind_of?(Hash)
    _fromUTF8(tk_send_without_enc('image', 'configure', 
                                  _get_eval_enc_str(index), 
                                  *hash_kv(slot, true)))
  else
    _fromUTF8(tk_send_without_enc('image', 'configure', 
                                  _get_eval_enc_str(index), 
                                  "-#{slot}", 
                                  _get_eval_enc_str(value)))
  end
  self
end

#image_namesObject



570
571
572
573
574
575
# File 'ext/lib/tk/text.rb', line 570

def image_names
  #tk_split_simplelist(_fromUTF8(tk_send_without_enc('image', 'names'))).collect{|elt|
  tk_split_simplelist(tk_send_without_enc('image', 'names'), false, true).collect{|elt|
    tagid2obj(elt)
  }
end

#index(idx) ⇒ Object



308
309
310
311
# File 'ext/lib/tk/text.rb', line 308

def index(idx)
  Tk::Text::IndexString.new(tk_send_without_enc('index', 
                                                _get_eval_enc_str(idx)))
end

#init_instance_variableObject



267
268
269
270
# File 'ext/lib/tk/text.rb', line 267

def init_instance_variable
  @cmdtbl = []
  @tags = {}
end

#insert(index, chars, *tags) ⇒ Object



587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
# File 'ext/lib/tk/text.rb', line 587

def insert(index, chars, *tags)
  if tags[0].kind_of?(Array)
    # multiple chars-taglist argument :: str, [tag,...], str, [tag,...], ...
    args = [chars]
    while tags.size > 0
      args << tags.shift.collect{|x|_get_eval_string(x)}.join(' ')  # taglist
      args << tags.shift if tags.size > 0                           # chars
    end
    super(index, *args)
  else
    # single chars-taglist argument :: str, tag, tag, ...
    if tags.size == 0
      super(index, chars)
    else
      super(index, chars, tags.collect{|x|_get_eval_string(x)}.join(' '))
    end
  end
end

#mark_gravity(mark, direction = nil) ⇒ Object



376
377
378
379
380
381
382
383
384
# File 'ext/lib/tk/text.rb', line 376

def mark_gravity(mark, direction=nil)
  if direction
    tk_send_without_enc('mark', 'gravity', 
                        _get_eval_enc_str(mark), direction)
    self
  else
    tk_send_without_enc('mark', 'gravity', _get_eval_enc_str(mark))
  end
end

#mark_namesObject



369
370
371
372
373
374
# File 'ext/lib/tk/text.rb', line 369

def mark_names
  #tk_split_simplelist(_fromUTF8(tk_send_without_enc('mark', 'names'))).collect{|elt|
  tk_split_simplelist(tk_send_without_enc('mark', 'names'), false, true).collect{|elt|
    tagid2obj(elt)
  }
end

#mark_next(index) ⇒ Object Also known as: next_mark



400
401
402
403
# File 'ext/lib/tk/text.rb', line 400

def mark_next(index)
  tagid2obj(_fromUTF8(tk_send_without_enc('mark', 'next', 
                                          _get_eval_enc_str(index))))
end

#mark_previous(index) ⇒ Object Also known as: previous_mark



406
407
408
409
# File 'ext/lib/tk/text.rb', line 406

def mark_previous(index)
  tagid2obj(_fromUTF8(tk_send_without_enc('mark', 'previous', 
                                          _get_eval_enc_str(index))))
end

#mark_set(mark, index) ⇒ Object Also known as: set_mark



386
387
388
389
390
# File 'ext/lib/tk/text.rb', line 386

def mark_set(mark, index)
  tk_send_without_enc('mark', 'set', _get_eval_enc_str(mark), 
                      _get_eval_enc_str(index))
  self
end

#mark_unset(*marks) ⇒ Object Also known as: unset_mark



393
394
395
396
397
# File 'ext/lib/tk/text.rb', line 393

def mark_unset(*marks)
  tk_send_without_enc('mark', 'unset', 
                      *(marks.collect{|mark| _get_eval_enc_str(mark)}))
  self
end

#modified(mode) ⇒ Object



685
686
687
688
# File 'ext/lib/tk/text.rb', line 685

def modified(mode)
  tk_send_without_enc('edit', 'modified', mode)
  self
end

#modified=(mode) ⇒ Object



689
690
691
692
# File 'ext/lib/tk/text.rb', line 689

def modified=(mode)
  modified(mode)
  mode
end

#modified?Boolean

Returns:

  • (Boolean)


682
683
684
# File 'ext/lib/tk/text.rb', line 682

def modified?
  bool(tk_send_without_enc('edit', 'modified'))
end

#peer_namesObject



659
660
661
662
# File 'ext/lib/tk/text.rb', line 659

def peer_names()
  # Tk8.5 feature
  list(tk_send_without_enc('peer', 'names'))
end

#replace(idx1, idx2, *opts) ⇒ Object



664
665
666
667
# File 'ext/lib/tk/text.rb', line 664

def replace(idx1, idx2, *opts)
  tk_send('replace', idx1, idx2, *opts)
  self
end

#rsearch(pat, start, stop = None) ⇒ Object



1429
1430
1431
# File 'ext/lib/tk/text.rb', line 1429

def rsearch(pat,start,stop=None)
  rsearch_with_length(pat,start,stop)[0]
end

#rsearch_with_length(pat, start, stop = None) ⇒ Object



1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
# File 'ext/lib/tk/text.rb', line 1377

def rsearch_with_length(pat,start,stop=None)
  pat = pat.chr if pat.kind_of?(Integer)
  if stop != None
    return ["", 0] if compare(start,'<=',stop)
    txt = get(stop,start)
    if (pos = txt.rindex(pat))
      match = $&
      #pos = txt[0..(pos-1)].split('').length if pos > 0
      pos = _ktext_length(txt[0..(pos-1)]) if pos > 0
      if pat.kind_of?(String)
        #return [index(stop + " + #{pos} chars"), pat.split('').length]
        return [index(stop + " + #{pos} chars"), _ktext_length(pat), pat.dup]
      else
        #return [index(stop + " + #{pos} chars"), $&.split('').length]
        return [index(stop + " + #{pos} chars"), _ktext_length(match), match]
      end
    else
      return ["", 0]
    end
  else
    txt = get('1.0',start)
    if (pos = txt.rindex(pat))
      match = $&
      #pos = txt[0..(pos-1)].split('').length if pos > 0
      pos = _ktext_length(txt[0..(pos-1)]) if pos > 0
      if pat.kind_of?(String)
        #return [index("1.0 + #{pos} chars"), pat.split('').length]
        return [index("1.0 + #{pos} chars"), _ktext_length(pat), pat.dup]
      else
        #return [index("1.0 + #{pos} chars"), $&.split('').length]
        return [index("1.0 + #{pos} chars"), _ktext_length(match), match]
      end
    else
      txt = get('1.0','end - 1 char')
      if (pos = txt.rindex(pat))
        match = $&
        #pos = txt[0..(pos-1)].split('').length if pos > 0
        pos = _ktext_length(txt[0..(pos-1)]) if pos > 0
        if pat.kind_of?(String)
          #return [index("1.0 + #{pos} chars"), pat.split('').length]
          return [index("1.0 + #{pos} chars"), _ktext_length(pat), pat.dup]
        else
          #return [index("1.0 + #{pos} chars"), $&.split('').length]
          return [index("1.0 + #{pos} chars"), _ktext_length(match), match]
        end
      else
        return ["", 0]
      end
    end
  end
end

#search(pat, start, stop = None) ⇒ Object



1373
1374
1375
# File 'ext/lib/tk/text.rb', line 1373

def search(pat,start,stop=None)
  search_with_length(pat,start,stop)[0]
end

#search_with_length(pat, start, stop = None) ⇒ Object



1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
# File 'ext/lib/tk/text.rb', line 1316

def search_with_length(pat,start,stop=None)
  pat = pat.chr if pat.kind_of?(Integer)
  if stop != None
    return ["", 0] if compare(start,'>=',stop)
    txt = get(start,stop)
    if (pos = txt.index(pat))
      match = $&
      #pos = txt[0..(pos-1)].split('').length if pos > 0
      pos = _ktext_length(txt[0..(pos-1)]) if pos > 0
      if pat.kind_of?(String)
        #return [index(start + " + #{pos} chars"), pat.split('').length]
        return [index(start + " + #{pos} chars"), 
                _ktext_length(pat), pat.dup]
      else
        #return [index(start + " + #{pos} chars"), $&.split('').length]
        return [index(start + " + #{pos} chars"), 
                _ktext_length(match), match]
      end
    else
      return ["", 0]
    end
  else
    txt = get(start,'end - 1 char')
    if (pos = txt.index(pat))
      match = $&
      #pos = txt[0..(pos-1)].split('').length if pos > 0
      pos = _ktext_length(txt[0..(pos-1)]) if pos > 0
      if pat.kind_of?(String)
        #return [index(start + " + #{pos} chars"), pat.split('').length]
        return [index(start + " + #{pos} chars"), 
                _ktext_length(pat), pat.dup]
      else
        #return [index(start + " + #{pos} chars"), $&.split('').length]
        return [index(start + " + #{pos} chars"), 
                _ktext_length(match), match]
      end
    else
      txt = get('1.0','end - 1 char')
      if (pos = txt.index(pat))
        match = $&
        #pos = txt[0..(pos-1)].split('').length if pos > 0
        pos = _ktext_length(txt[0..(pos-1)]) if pos > 0
        if pat.kind_of?(String)
          #return [index("1.0 + #{pos} chars"), pat.split('').length]
          return [index("1.0 + #{pos} chars"), 
                  _ktext_length(pat), pat.dup]
        else
          #return [index("1.0 + #{pos} chars"), $&.split('').length]
          return [index("1.0 + #{pos} chars"), _ktext_length(match), match]
        end
      else
        return ["", 0]
      end
    end
  end
end

#set_current(index) ⇒ Object



582
583
584
585
# File 'ext/lib/tk/text.rb', line 582

def set_current(index)
  tk_send_without_enc('mark','set','current', _get_eval_enc_str(index))
  self
end

#set_insert(index) ⇒ Object



577
578
579
580
# File 'ext/lib/tk/text.rb', line 577

def set_insert(index)
  tk_send_without_enc('mark','set','insert', _get_eval_enc_str(index))
  self
end

#tag_add(tag, index1, index2 = None) ⇒ Object Also known as: addtag, add_tag



739
740
741
742
743
744
# File 'ext/lib/tk/text.rb', line 739

def tag_add(tag, index1, index2=None)
  tk_send_without_enc('tag', 'add', _get_eval_enc_str(tag), 
                      _get_eval_enc_str(index1), 
                      _get_eval_enc_str(index2))
  self
end

#tag_bind(tag, seq, *args) ⇒ Object

def tag_bind(tag, seq, cmd=Proc.new, *args)

_bind([@path, 'tag', 'bind', tag], seq, cmd, *args)
self

end



771
772
773
774
775
776
777
778
779
780
# File 'ext/lib/tk/text.rb', line 771

def tag_bind(tag, seq, *args)
  # if args[0].kind_of?(Proc) || args[0].kind_of?(Method)
  if TkComm._callback_entry?(args[0]) || !block_given?
    cmd = args.shift
  else
    cmd = Proc.new
  end
  _bind([@path, 'tag', 'bind', tag], seq, cmd, *args)
  self
end

#tag_bind_append(tag, seq, *args) ⇒ Object

def tag_bind_append(tag, seq, cmd=Proc.new, *args)

_bind_append([@path, 'tag', 'bind', tag], seq, cmd, *args)
self

end



786
787
788
789
790
791
792
793
794
795
# File 'ext/lib/tk/text.rb', line 786

def tag_bind_append(tag, seq, *args)
  # if args[0].kind_of?(Proc) || args[0].kind_of?(Method)
  if TkComm._callback_entry?(args[0]) || !block_given?
    cmd = args.shift
  else
    cmd = Proc.new
  end
  _bind_append([@path, 'tag', 'bind', tag], seq, cmd, *args)
  self
end

#tag_bind_remove(tag, seq) ⇒ Object



797
798
799
800
# File 'ext/lib/tk/text.rb', line 797

def tag_bind_remove(tag, seq)
  _bind_remove([@path, 'tag', 'bind', tag], seq)
  self
end

#tag_bindinfo(tag, context = nil) ⇒ Object



802
803
804
# File 'ext/lib/tk/text.rb', line 802

def tag_bindinfo(tag, context=nil)
  _bindinfo([@path, 'tag', 'bind', tag], context)
end

#tag_delete(*tags) ⇒ Object Also known as: deltag, delete_tag



748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
# File 'ext/lib/tk/text.rb', line 748

def tag_delete(*tags)
  tk_send_without_enc('tag', 'delete', 
                      *(tags.collect{|tag| _get_eval_enc_str(tag)}))
  TkTextTag::TTagID_TBL.mutex.synchronize{
    if TkTextTag::TTagID_TBL[@path]
      tags.each{|tag|
        if tag.kind_of?(TkTextTag)
          TkTextTag::TTagID_TBL[@path].delete(tag.id) 
        else
          TkTextTag::TTagID_TBL[@path].delete(tag) 
        end
      }
    end
  }
  self
end

#tag_lower(tag, below = None) ⇒ Object



988
989
990
991
992
# File 'ext/lib/tk/text.rb', line 988

def tag_lower(tag, below=None)
  tk_send_without_enc('tag', 'lower', _get_eval_enc_str(tag), 
                      _get_eval_enc_str(below))
  self
end

#tag_names(index = None) ⇒ Object



362
363
364
365
366
367
# File 'ext/lib/tk/text.rb', line 362

def tag_names(index=None)
  #tk_split_simplelist(_fromUTF8(tk_send_without_enc('tag', 'names', _get_eval_enc_str(index)))).collect{|elt|
  tk_split_simplelist(tk_send_without_enc('tag', 'names', _get_eval_enc_str(index)), false, true).collect{|elt|
    tagid2obj(elt)
  }
end

#tag_nextrange(tag, first, last = None) ⇒ Object



1013
1014
1015
1016
1017
1018
1019
1020
# File 'ext/lib/tk/text.rb', line 1013

def tag_nextrange(tag, first, last=None)
  simplelist(tk_send_without_enc('tag', 'nextrange', 
                                 _get_eval_enc_str(tag), 
                                 _get_eval_enc_str(first), 
                                 _get_eval_enc_str(last))).collect{|idx|
    Tk::Text::IndexString.new(idx)
  }
end

#tag_prevrange(tag, first, last = None) ⇒ Object



1022
1023
1024
1025
1026
1027
1028
1029
# File 'ext/lib/tk/text.rb', line 1022

def tag_prevrange(tag, first, last=None)
  simplelist(tk_send_without_enc('tag', 'prevrange', 
                                 _get_eval_enc_str(tag), 
                                 _get_eval_enc_str(first), 
                                 _get_eval_enc_str(last))).collect{|idx|
    Tk::Text::IndexString.new(idx)
  }
end

#tag_raise(tag, above = None) ⇒ Object

def tag_cget(tag, key)

  case key.to_s
  when 'text', 'label', 'show', 'data', 'file'
    tk_call_without_enc(@path, 'tag', 'cget', 
                        _get_eval_enc_str(tag), "-#{key}")
  when 'font', 'kanjifont'
    #fnt = tk_tcl2ruby(tk_send('tag', 'cget', tag, "-#{key}"))
    fnt = tk_tcl2ruby(_fromUTF8(tk_send_without_enc('tag','cget',_get_eval_enc_str(tag),'-font')))
    unless fnt.kind_of?(TkFont)
      fnt = tagfontobj(tag, fnt)
    end
    if key.to_s == 'kanjifont' && JAPANIZED_TK && TK_VERSION =~ /^4\.*/
      # obsolete; just for compatibility
      fnt.kanji_font
    else
      fnt
    end
  else
    tk_tcl2ruby(_fromUTF8(tk_call_without_enc(@path,'tag','cget',_get_eval_enc_str(tag),"-#{key}")))
  end
end

def tag_configure(tag, key, val=None)
  if key.kind_of?(Hash)
    key = _symbolkey2str(key)
    if ( key['font'] || key['kanjifont'] \
        || key['latinfont'] || key['asciifont'] )
      tagfont_configure(tag, key)
    else
      tk_send_without_enc('tag', 'configure', _get_eval_enc_str(tag), 
                          *hash_kv(key, true))
    end

  else
    if  key == 'font' || key == :font || 
        key == 'kanjifont' || key == :kanjifont ||
        key == 'latinfont' || key == :latinfont || 
        key == 'asciifont' || key == :asciifont
      if val == None
        tagfontobj(tag)
      else
        tagfont_configure(tag, {key=>val})
      end
    else
      tk_send_without_enc('tag', 'configure', _get_eval_enc_str(tag), 
                          "-#{key}", _get_eval_enc_str(val))
    end
  end
  self
end

def tag_configinfo(tag, key=nil)
  if TkComm::GET_CONFIGINFO_AS_ARRAY
    if key
      case key.to_s
      when 'text', 'label', 'show', 'data', 'file'
        conf = tk_split_simplelist(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
      when 'font', 'kanjifont'
        conf = tk_split_simplelist(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
        conf[4] = tagfont_configinfo(tag, conf[4])
      else
        conf = tk_split_list(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
      end
      conf[0] = conf[0][1..-1]
      conf
    else
      ret = tk_split_simplelist(_fromUTF8(tk_send('tag','configure',_get_eval_enc_str(tag)))).collect{|conflist|
        conf = tk_split_simplelist(conflist)
        conf[0] = conf[0][1..-1]
        case conf[0]
        when 'text', 'label', 'show', 'data', 'file'
        else
          if conf[3]
            if conf[3].index('{')
              conf[3] = tk_split_list(conf[3]) 
            else
              conf[3] = tk_tcl2ruby(conf[3]) 
            end
          end
          if conf[4]
            if conf[4].index('{')
              conf[4] = tk_split_list(conf[4]) 
            else
              conf[4] = tk_tcl2ruby(conf[4]) 
            end
          end
        end
        conf[1] = conf[1][1..-1] if conf.size == 2 # alias info
        conf
      }
      fontconf = ret.assoc('font')
      if fontconf
        ret.delete_if{|item| item[0] == 'font' || item[0] == 'kanjifont'}
        fontconf[4] = tagfont_configinfo(tag, fontconf[4])
        ret.push(fontconf)
      else
        ret
      end
    end
  else # ! TkComm::GET_CONFIGINFO_AS_ARRAY
    if key
      case key.to_s
      when 'text', 'label', 'show', 'data', 'file'
        conf = tk_split_simplelist(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
      when 'font', 'kanjifont'
        conf = tk_split_simplelist(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
        conf[4] = tagfont_configinfo(tag, conf[4])
      else
        conf = tk_split_list(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
      end
      key = conf.shift[1..-1]
      { key => conf }
    else
      ret = {}
      tk_split_simplelist(_fromUTF8(tk_send('tag','configure',_get_eval_enc_str(tag)))).each{|conflist|
        conf = tk_split_simplelist(conflist)
        key = conf.shift[1..-1]
        case key
        when 'text', 'label', 'show', 'data', 'file'
        else
          if conf[2]
            if conf[2].index('{')
              conf[2] = tk_split_list(conf[2]) 
            else
              conf[2] = tk_tcl2ruby(conf[2]) 
            end
          end
          if conf[3]
            if conf[3].index('{')
              conf[3] = tk_split_list(conf[3]) 
            else
              conf[3] = tk_tcl2ruby(conf[3]) 
            end
          end
        end
        if conf.size == 1
          ret[key] = conf[0][1..-1]  # alias info
        else
          ret[key] = conf
        end
      }
      fontconf = ret['font']
      if fontconf
        ret.delete('font')
        ret.delete('kanjifont')
        fontconf[3] = tagfont_configinfo(tag, fontconf[3])
        ret['font'] = fontconf
      end
      ret
    end
  end
end

def current_tag_configinfo(tag, key=nil)
  if TkComm::GET_CONFIGINFO_AS_ARRAY
    if key
      conf = tag_configinfo(tag, key)
      {conf[0] => conf[4]}
    else
      ret = {}
      tag_configinfo(tag).each{|conf|
        ret[conf[0]] = conf[4] if conf.size > 2
      }
      ret
    end
  else # ! TkComm::GET_CONFIGINFO_AS_ARRAY
    ret = {}
    tag_configinfo(tag, key).each{|k, conf|
      ret[k] = conf[-1] if conf.kind_of?(Array)
    }
    ret
  end
end


982
983
984
985
986
# File 'ext/lib/tk/text.rb', line 982

def tag_raise(tag, above=None)
  tk_send_without_enc('tag', 'raise', _get_eval_enc_str(tag), 
                      _get_eval_enc_str(above))
  self
end

#tag_ranges(tag) ⇒ Object



1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
# File 'ext/lib/tk/text.rb', line 1000

def tag_ranges(tag)
  #l = tk_split_simplelist(tk_send_without_enc('tag', 'ranges',
  #                                            _get_eval_enc_str(tag)))
  l = tk_split_simplelist(tk_send_without_enc('tag', 'ranges',
                                              _get_eval_enc_str(tag)), 
                          false, true)
  r = []
  while key=l.shift
    r.push [Tk::Text::IndexString.new(key), Tk::Text::IndexString.new(l.shift)]
  end
  r
end

#tag_remove(tag, *indices) ⇒ Object



994
995
996
997
998
# File 'ext/lib/tk/text.rb', line 994

def tag_remove(tag, *indices)
  tk_send_without_enc('tag', 'remove', _get_eval_enc_str(tag), 
                      *(indices.collect{|idx| _get_eval_enc_str(idx)}))
  self
end

#tagid2obj(tagid) ⇒ Object



354
355
356
357
358
359
360
# File 'ext/lib/tk/text.rb', line 354

def tagid2obj(tagid)
  if @tags[tagid]
    @tags[tagid]
  else
    tagid
  end
end

#text_copyObject



721
722
723
724
725
# File 'ext/lib/tk/text.rb', line 721

def text_copy
  # Tk8.4 feature
  tk_call_without_enc('tk_textCopy', @path)
  self
end

#text_cutObject



727
728
729
730
731
# File 'ext/lib/tk/text.rb', line 727

def text_cut
  # Tk8.4 feature
  tk_call_without_enc('tk_textCut', @path)
  self
end

#text_pasteObject



733
734
735
736
737
# File 'ext/lib/tk/text.rb', line 733

def text_paste
  # Tk8.4 feature
  tk_call_without_enc('tk_textPaste', @path)
  self
end

#tksearch(*args) ⇒ Object



1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
# File 'ext/lib/tk/text.rb', line 1248

def tksearch(*args)
  # call 'search' subcommand of text widget
  #   args ::= [<array_of_opts>] <pattern> <start_index> [<stop_index>]
  # If <pattern> is regexp, then it must be a regular expression of Tcl
  nocase = false
  if args[0].kind_of?(Array)
    opts = args.shift.collect{|opt|
      s_opt = opt.to_s
      nocase = true if s_opt == 'nocase'
      '-' + s_opt
    }
  else
    opts = []
  end

  if args[0].kind_of?(Regexp)
    regexp = args.shift
    if !nocase && (regexp.options & Regexp::IGNORECASE) != 0
      opts << '-nocase'
    end
    args.unshift(regexp.source)
  end

  opts << '--'

  ret = tk_send('search', *(opts + args))
  if ret == ""
    nil
  else
    Tk::Text::IndexString.new(ret)
  end
end

#tksearch_with_count(*args) ⇒ Object



1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
# File 'ext/lib/tk/text.rb', line 1281

def tksearch_with_count(*args)
  # call 'search' subcommand of text widget
  #   args ::= [<array_of_opts>] <var> <pattern> <start_index> [<stop_index>]
  # If <pattern> is regexp, then it must be a regular expression of Tcl
  nocase = false
  if args[0].kind_of?(Array)
    opts = args.shift.collect{|opt|
      s_opt = opt.to_s
      nocase = true if s_opt == 'nocase'
      '-' + s_opt
    }
  else
    opts = []
  end

  opts << '-count' << args.shift

  if args[0].kind_of?(Regexp)
    regexp = args.shift
    if !nocase && (regexp.options & Regexp::IGNORECASE) != 0
      opts << '-nocase'
    end
    args.unshift(regexp.source)
  end

  opts << '--'

  ret = tk_send('search', *(opts + args))
  if ret == ""
    nil
  else
    Tk::Text::IndexString.new(ret)
  end
end

#valueObject



318
319
320
# File 'ext/lib/tk/text.rb', line 318

def value
  _fromUTF8(tk_send_without_enc('get', "1.0", "end - 1 char"))
end

#value=(val) ⇒ Object



322
323
324
325
326
# File 'ext/lib/tk/text.rb', line 322

def value= (val)
  tk_send_without_enc('delete', "1.0", 'end')
  tk_send_without_enc('insert', "1.0", _get_eval_enc_str(val))
  val
end

#window_namesObject

def window_cget(index, slot)

  case slot.to_s
  when 'text', 'label', 'show', 'data', 'file'
    _fromUTF8(tk_send_without_enc('window', 'cget', 
                                  _get_eval_enc_str(index), "-#{slot}"))
  when 'font', 'kanjifont'
    #fnt = tk_tcl2ruby(tk_send('window', 'cget', index, "-#{slot}"))
    fnt = tk_tcl2ruby(_fromUTF8(tk_send_without_enc('window', 'cget', _get_eval_enc_str(index), '-font')))
    unless fnt.kind_of?(TkFont)
      fnt = tagfontobj(index, fnt)
    end
    if slot.to_s == 'kanjifont' && JAPANIZED_TK && TK_VERSION =~ /^4\.*/
      # obsolete; just for compatibility
      fnt.kanji_font
    else
      fnt
    end
  else
    tk_tcl2ruby(_fromUTF8(tk_send_without_enc('window', 'cget', _get_eval_enc_str(index), "-#{slot}")))
  end
end

def window_configure(index, slot, value=None)
  if index.kind_of?(TkTextWindow)
    index.configure(slot, value)
  else
    if slot.kind_of?(Hash)
      slot = _symbolkey2str(slot)
      win = slot['window']
      # slot['window'] = win.epath if win.kind_of?(TkWindow)
      slot['window'] = _epath(win) if win
      if slot['create']
        p_create = slot['create']
        if p_create.kind_of?(Proc)

#=begin

slot['create'] = install_cmd(proc{
                               id = p_create.call
                               if id.kind_of?(TkWindow)
                                 id.epath
                               else
                                 id
                               end
                             })

#=end

      slot['create'] = install_cmd(proc{_epath(p_create.call)})
    end
  end
  tk_send_without_enc('window', 'configure', 
                      _get_eval_enc_str(index), 
                      *hash_kv(slot, true))
else
  if slot == 'window' || slot == :window
    # id = value 
    # value = id.epath if id.kind_of?(TkWindow)
    value = _epath(value)
  end
  if slot == 'create' || slot == :create
    p_create = value
    if p_create.kind_of?(Proc)

#=begin

value = install_cmd(proc{
                      id = p_create.call
                      if id.kind_of?(TkWindow)
                        id.epath
                      else
                        id
                      end
                    })

#=end

          value = install_cmd(proc{_epath(p_create.call)})
        end
      end
      tk_send_without_enc('window', 'configure', 
                          _get_eval_enc_str(index), 
                          "-#{slot}", _get_eval_enc_str(value))
    end
  end
  self
end

def window_configinfo(win, slot = nil)
  if TkComm::GET_CONFIGINFO_AS_ARRAY
    if slot
      case slot.to_s
      when 'text', 'label', 'show', 'data', 'file'
        conf = tk_split_simplelist(_fromUTF8(tk_send('window', 'configure', _get_eval_enc_str(win), "-#{slot}")))
      else
        conf = tk_split_list(_fromUTF8(tk_send('window', 'configure', _get_eval_enc_str(win), "-#{slot}")))
      end
      conf[0] = conf[0][1..-1]
      conf
    else
      tk_split_simplelist(_fromUTF8(tk_send('window', 'configure', _get_eval_enc_str(win)))).collect{|conflist|
        conf = tk_split_simplelist(conflist)
        conf[0] = conf[0][1..-1]
        case conf[0]
        when 'text', 'label', 'show', 'data', 'file'
        else
          if conf[3]
            if conf[3].index('{')
              conf[3] = tk_split_list(conf[3]) 
            else
              conf[3] = tk_tcl2ruby(conf[3]) 
            end
          end
          if conf[4]
            if conf[4].index('{')
              conf[4] = tk_split_list(conf[4]) 
            else
              conf[4] = tk_tcl2ruby(conf[4]) 
            end
          end
        end
        conf[1] = conf[1][1..-1] if conf.size == 2 # alias info
        conf
      }
    end
  else # ! TkComm::GET_CONFIGINFO_AS_ARRAY
    if slot
      case slot.to_s
      when 'text', 'label', 'show', 'data', 'file'
        conf = tk_split_simplelist(_fromUTF8(tk_send('window', 'configure', _get_eval_enc_str(win), "-#{slot}")))
      else
        conf = tk_split_list(_fromUTF8(tk_send('window', 'configure', _get_eval_enc_str(win), "-#{slot}")))
      end
      key = conf.shift[1..-1]
      { key => conf }
    else
      ret = {}
      tk_split_simplelist(_fromUTF8(tk_send('window', 'configure', _get_eval_enc_str(win)))).each{|conflist|
        conf = tk_split_simplelist(conflist)
        key = conf.shift[1..-1]
        case key
        when 'text', 'label', 'show', 'data', 'file'
        else
          if conf[2]
            if conf[2].index('{')
              conf[2] = tk_split_list(conf[2]) 
            else
              conf[2] = tk_tcl2ruby(conf[2]) 
            end
          end
          if conf[3]
            if conf[3].index('{')
              conf[3] = tk_split_list(conf[3]) 
            else
              conf[3] = tk_tcl2ruby(conf[3]) 
            end
          end
        end
        if conf.size == 1
          ret[key] = conf[0][1..-1]  # alias info
        else
          ret[key] = conf
        end
      }
      ret
    end
  end
end

def current_window_configinfo(win, slot = nil)
  if TkComm::GET_CONFIGINFO_AS_ARRAY
    if slot
      conf = window_configinfo(win, slot)
      {conf[0] => conf[4]}
    else
      ret = {}
      window_configinfo(win).each{|conf|
        ret[conf[0]] = conf[4] if conf.size > 2
      }
      ret
    end
  else # ! TkComm::GET_CONFIGINFO_AS_ARRAY
    ret = {}
    window_configinfo(win, slot).each{|k, conf|
      ret[k] = conf[-1] if conf.kind_of?(Array)
    }
    ret
  end
end


1215
1216
1217
1218
1219
1220
# File 'ext/lib/tk/text.rb', line 1215

def window_names
  # tk_split_simplelist(_fromUTF8(tk_send_without_enc('window', 'names'))).collect{|elt|
  tk_split_simplelist(tk_send_without_enc('window', 'names'), false, true).collect{|elt|
    tagid2obj(elt)
  }
end

#xview_pickplace(index) ⇒ Object



711
712
713
714
# File 'ext/lib/tk/text.rb', line 711

def xview_pickplace(index)
  tk_send_without_enc('xview', '-pickplace', _get_eval_enc_str(index))
  self
end

#yview_pickplace(index) ⇒ Object



716
717
718
719
# File 'ext/lib/tk/text.rb', line 716

def yview_pickplace(index)
  tk_send_without_enc('yview', '-pickplace', _get_eval_enc_str(index))
  self
end