Class: Tk::Text

Inherits:
TkTextWin show all
Includes:
Scrollable, TkTextTagConfig
Defined in:
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 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

AUTO_PATH, INTERP, JAPANIZED_TK, LIBRARY_PATH, MAINLOOP, PACKAGE_PATH, RELEASE_DATE, 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 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_cget_tkstring, #tag_configinfo, #tag_configure, #window_cget, #window_cget_strict, #window_cget_tkstring, #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, #itemcget_tkstring, #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_nil, num_or_nil, num_or_str, #num_or_str, number, #number, string, #string, uninstall_cmd, untrust

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 Busy

#busy, #busy_cget, #busy_configinfo, #busy_configure, #busy_current?, #busy_current_configinfo, #busy_forget, #busy_status, current, forget, hold, method_missing, status

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_nil, num_or_str, number, procedure, simplelist, slice_ary, string, #subst, tk_tcl2ruby, uninstall_cmd, #uninstall_cmd, window

Methods included from TkEvent

#install_bind, #install_bind_for_event_class

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, __create_widget_set__, __disable_toplevel_control__, __import_toplevel_aliases__, __regist_toplevel_aliases__, __remove_toplevel_aliases__, __reset_toplevel_owner__, __set_loaded_toplevel_aliases__, __set_toplevel_aliases__, __toplevel_alias_setup_proc__, add_kinsoku, bell, bell_on_display, const_missing, current_grabs, cursor_display, default_widget_set, default_widget_set=, delete_kinsoku, destroy, #encoding, #encoding=, 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, toplevel_aliases_on_widget_set, ungrid, unload_tcllibrary, unpack, unplace, update, #update, update_idletasks, utf_to_backslash, utf_to_backslash_sequence, wakeup, widget_set_symbols

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



306
307
308
# File 'lib/tk/text.rb', line 306

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

.new(*args, &block) ⇒ Object



262
263
264
265
266
267
268
269
270
271
# File 'lib/tk/text.rb', line 262

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



278
279
280
281
282
283
284
285
# File 'lib/tk/text.rb', line 278

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



340
341
342
# File 'lib/tk/text.rb', line 340

def _addcmd(cmd)
  @cmdtbl.push cmd
end

#_addtag(name, obj) ⇒ Object



344
345
346
# File 'lib/tk/text.rb', line 344

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

#at(x, y) ⇒ Object



310
311
312
# File 'lib/tk/text.rb', line 310

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

#backspaceObject



620
621
622
# File 'lib/tk/text.rb', line 620

def backspace
  self.delete 'insert'
end

#bbox(index) ⇒ Object



624
625
626
# File 'lib/tk/text.rb', line 624

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

#clearObject Also known as: erase



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

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

#compare(idx1, op, idx2) ⇒ Object



628
629
630
631
# File 'lib/tk/text.rb', line 628

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



633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
# File 'lib/tk/text.rb', line 633

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



649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
# File 'lib/tk/text.rb', line 649

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



555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
# File 'lib/tk/text.rb', line 555

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



675
676
677
# File 'lib/tk/text.rb', line 675

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

#debug=(boolean) ⇒ Object



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

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

#destroyObject



612
613
614
615
616
617
618
# File 'lib/tk/text.rb', line 612

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

#dlineinfo(index) ⇒ Object



684
685
686
# File 'lib/tk/text.rb', line 684

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

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



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
1515
1516
1517
1518
1519
1520
# File 'lib/tk/text.rb', line 1439

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



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

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

#dump_image(*index, &block) ⇒ Object



1573
1574
1575
# File 'lib/tk/text.rb', line 1573

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

#dump_mark(*index, &block) ⇒ Object



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

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

#dump_tag(*index, &block) ⇒ Object



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

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

#dump_text(*index, &block) ⇒ Object



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

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

#dump_window(*index, &block) ⇒ Object



1570
1571
1572
# File 'lib/tk/text.rb', line 1570

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

#edit_redoObject



700
701
702
703
# File 'lib/tk/text.rb', line 700

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

#edit_resetObject



704
705
706
707
# File 'lib/tk/text.rb', line 704

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

#edit_separatorObject



708
709
710
711
# File 'lib/tk/text.rb', line 708

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

#edit_undoObject



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

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

#get_displaychars(*index) ⇒ Object



319
320
321
322
# File 'lib/tk/text.rb', line 319

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

#image_cget(index, slot) ⇒ Object



430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
# File 'lib/tk/text.rb', line 430

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



418
419
420
421
422
423
424
425
426
427
428
# File 'lib/tk/text.rb', line 418

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



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
548
549
550
551
552
553
# File 'lib/tk/text.rb', line 466

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



452
453
454
455
456
457
458
459
460
461
462
463
464
# File 'lib/tk/text.rb', line 452

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



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

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



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

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

#init_instance_variableObject



273
274
275
276
# File 'lib/tk/text.rb', line 273

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

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



593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
# File 'lib/tk/text.rb', line 593

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



382
383
384
385
386
387
388
389
390
# File 'lib/tk/text.rb', line 382

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



375
376
377
378
379
380
# File 'lib/tk/text.rb', line 375

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



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

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



412
413
414
415
# File 'lib/tk/text.rb', line 412

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



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

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



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

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

#modified(mode) ⇒ Object



691
692
693
694
# File 'lib/tk/text.rb', line 691

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

#modified=(mode) ⇒ Object



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

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

#modified?Boolean

Returns:

  • (Boolean)


688
689
690
# File 'lib/tk/text.rb', line 688

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

#peer_namesObject



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

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

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



670
671
672
673
# File 'lib/tk/text.rb', line 670

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

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



1435
1436
1437
# File 'lib/tk/text.rb', line 1435

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

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



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
1428
1429
1430
1431
1432
1433
# File 'lib/tk/text.rb', line 1383

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



1379
1380
1381
# File 'lib/tk/text.rb', line 1379

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

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



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
1372
1373
1374
1375
1376
1377
# File 'lib/tk/text.rb', line 1322

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



588
589
590
591
# File 'lib/tk/text.rb', line 588

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

#set_insert(index) ⇒ Object



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

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



745
746
747
748
749
750
# File 'lib/tk/text.rb', line 745

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



777
778
779
780
781
782
783
784
785
786
# File 'lib/tk/text.rb', line 777

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



792
793
794
795
796
797
798
799
800
801
# File 'lib/tk/text.rb', line 792

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



803
804
805
806
# File 'lib/tk/text.rb', line 803

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

#tag_bindinfo(tag, context = nil) ⇒ Object



808
809
810
# File 'lib/tk/text.rb', line 808

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

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



754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
# File 'lib/tk/text.rb', line 754

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



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

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



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

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



1019
1020
1021
1022
1023
1024
1025
1026
# File 'lib/tk/text.rb', line 1019

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



1028
1029
1030
1031
1032
1033
1034
1035
# File 'lib/tk/text.rb', line 1028

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


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

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



1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
# File 'lib/tk/text.rb', line 1006

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



1000
1001
1002
1003
1004
# File 'lib/tk/text.rb', line 1000

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



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

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

#text_copyObject



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

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

#text_cutObject



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

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

#text_pasteObject



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

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

#tksearch(*args) ⇒ Object



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
1280
1281
1282
1283
1284
1285
# File 'lib/tk/text.rb', line 1254

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



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
1315
1316
1317
1318
1319
1320
# File 'lib/tk/text.rb', line 1287

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



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

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

#value=(val) ⇒ Object



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

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


1221
1222
1223
1224
1225
1226
# File 'lib/tk/text.rb', line 1221

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



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

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

#yview_pickplace(index) ⇒ Object



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

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