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, Fontchooser, 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

__item_cget_cmd, __item_config_cmd, __item_confinfo_cmd, #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__, _replace_toplevel_aliases, add_kinsoku, backup_current_topdef, bell, bell_on_display, const_missing, current_grabs, cursor_display, default_widget_set, default_widget_set=, define_topalias, define_topobj, 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, regist_sym_for_loaded_file, replace_topalias, replace_topobj, #root, set_topalias, 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, topalias_defined?, toplevel_aliases_on_widget_set, topobj_defined?, 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 



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

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

.new(*args, &block) ⇒ Object 



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

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 



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

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 



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

def _addcmd(cmd)
  @cmdtbl.push cmd
end

#_addtag(name, obj) ⇒ Object 



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

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

#at(x, y) ⇒ Object 



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

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

#backspace ⇒ Object 



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

def backspace
  self.delete 'insert'
end

#bbox(index) ⇒ Object 



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

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

#clear ⇒ Object Also known as: erase 



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

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

#compare(idx1, op, idx2) ⇒ Object 



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

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 



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

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 



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

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 



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

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

#debug ⇒ Object 



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

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

#debug=(boolean) ⇒ Object 



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

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

#destroy ⇒ Object 



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

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

#dlineinfo(index) ⇒ Object 



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

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

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



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
1521
 
# File 'lib/tk/text.rb', line 1440

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 



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

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

#dump_image(*index, &block) ⇒ Object 



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

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

#dump_mark(*index, &block) ⇒ Object 



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

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

#dump_tag(*index, &block) ⇒ Object 



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

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

#dump_text(*index, &block) ⇒ Object 



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

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

#dump_window(*index, &block) ⇒ Object 



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

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

#edit_redo ⇒ Object 



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

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

#edit_reset ⇒ Object 



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

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

#edit_separator ⇒ Object 



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

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

#edit_undo ⇒ Object 



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

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

#get_displaychars(*index) ⇒ Object 



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

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

#image_cget(index, slot) ⇒ Object 



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

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 



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

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 



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
554
 
# File 'lib/tk/text.rb', line 467

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 



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

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_names ⇒ Object 



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

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 



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

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

#init_instance_variable ⇒ Object 



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

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

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



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

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 



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

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_names ⇒ Object 



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

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 



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

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 



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

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 



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

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 



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

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

#modified(mode) ⇒ Object 



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

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

#modified=(mode) ⇒ Object 



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

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

#modified? ⇒ Boolean

Returns:

  • (Boolean) 


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

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

#peer_names ⇒ Object 



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

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

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



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

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

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



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

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

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



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
1434
 
# File 'lib/tk/text.rb', line 1384

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 



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

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

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



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
1378
 
# File 'lib/tk/text.rb', line 1323

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 



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

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

#set_insert(index) ⇒ Object 



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

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 



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

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



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

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



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

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 



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

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

#tag_bindinfo(tag, context = nil) ⇒ Object 



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

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

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



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

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 



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

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 



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

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 



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

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 



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

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



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

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 



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

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 



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

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 



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

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

#text_copy ⇒ Object 



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

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

#text_cut ⇒ Object 



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

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

#text_paste ⇒ Object 



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

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

#tksearch(*args) ⇒ Object 



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
1286
 
# File 'lib/tk/text.rb', line 1255

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 



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
1321
 
# File 'lib/tk/text.rb', line 1288

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

#value ⇒ Object 



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

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

#value=(val) ⇒ Object 



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

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_names ⇒ Object

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



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

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 



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

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

#yview_pickplace(index) ⇒ Object 



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

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