Class: TkText

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

Defined Under Namespace

Modules: IndexModMethods Classes: IndexString, Peer

Constant Summary collapse

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

Constants included from TkUtil

TkUtil::None, TkUtil::RELEASE_DATE

Constants included from Tk

Tk::AUTO_PATH, Tk::INTERP, Tk::JAPANIZED_TK, Tk::LIBRARY_PATH, Tk::MAINLOOP, Tk::PACKAGE_PATH, Tk::RELEASE_DATE, Tk::TCL_LIBRARY_PATH, Tk::TCL_MAJOR_VERSION, Tk::TCL_MINOR_VERSION, Tk::TCL_PACKAGE_PATH, Tk::TCL_PATCHLEVEL, Tk::TCL_PRECISION, Tk::TCL_VERSION, Tk::TK_MAJOR_VERSION, Tk::TK_MINOR_VERSION, Tk::TK_PATCHLEVEL, Tk::TK_VERSION, Tk::Tkextlib_RELEASE_DATE, Tk::TreeCtrl_Widget, Tk::X_Scrollable, Tk::Y_Scrollable

Constants included from TkCore

TkCore::EventFlag, TkCore::INTERP, TkCore::WIDGET_DESTROY_HOOK

Constants included from TkComm

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

Constants included from Tk::TkDND::Shape

Tk::TkDND::Shape::PACKAGE_NAME

Class Method Summary collapse

Instance Method Summary collapse

Methods included from TkTextTagConfig

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

Methods included from TkItemConfigMethod

#current_itemconfiginfo, #itemcget, #itemconfiginfo, #itemconfigure

Methods included from TkItemConfigOptkeys

#__conv_item_keyonly_opts, #itemconfig_hash_kv

Methods included from TkUtil

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

Methods included from TkTreatItemFont

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

Methods inherited from TkTextWin

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

Methods inherited from TkWindow

#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_bbox, #grid_columnconfig, #grid_columnconfiginfo, #grid_config, #grid_forget, #grid_in, #grid_info, #grid_location, #grid_propagate, #grid_remove, #grid_rowconfig, #grid_rowconfiginfo, #grid_size, #grid_slaves, #initialize, #lower, #pack, #pack_config, #pack_forget, #pack_in, #pack_info, #pack_propagate, #pack_slaves, #place, #place_config, #place_configinfo, #place_forget, #place_in, #place_info, #place_slaves, #raise, #set_focus, #thread_wait_destroy, #thread_wait_visibility, #tktrans_get_image, #tktrans_set_image, to_eval, #wait_destroy, #wait_visibility

Methods included from TkBindCore

#bind, #bind_append, #bind_remove, #bindinfo

Methods included from TkWinfo

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

Methods included from Tk

BinaryString, EncodedString, UTF8_String, add_kinsoku, bell, bell_on_display, const_missing, current_grabs, cursor_display, 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, strictMotif, subst_tk_backslash, subst_utf_backslash, tcl_pkgconfig_get, tcl_pkgconfig_list, thread_update, thread_update_idletasks, tk_pkgconfig_get, tk_pkgconfig_list, toUTF8, to_backslash_sequence, ungrid, unload_tcllibrary, unpack, unplace, #update, update, update_idletasks, utf_to_backslash, utf_to_backslash_sequence

Methods included from Tk::Encoding

#encoding, #encoding=, #encoding_convertfrom, #encoding_convertto, #encoding_dirs, #encoding_dirs=, #encoding_names, #encoding_system, #encoding_system=

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

Methods included from TkEvent

#install_bind, #install_bind_for_event_class

Methods included from Tk::TkDND::DND

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

Methods included from Tk::TkDND::Shape

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

Methods inherited from TkObject

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

Methods included from TkConfigMethod

#[], #[]=, #cget, #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 



287
288
289
 
# File 'lib/tk/text.rb', line 287

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

.new(*args, &block) ⇒ Object 



251
252
253
254
255
256
 
# File 'lib/tk/text.rb', line 251

def self.new(*args, &block)
  obj = super(*args){}
  obj.init_instance_variable
  obj.instance_eval(&block) if defined? yield
  obj
end

Instance Method Details

#__destroy_hook__ ⇒ Object 



263
264
265
266
 
# File 'lib/tk/text.rb', line 263

def __destroy_hook__
  TkTextTag::TTagID_TBL.delete(@path)
  TkTextMark::TMarkID_TBL.delete(@path)
end

#_addcmd(cmd) ⇒ Object 



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

def _addcmd(cmd)
  @cmdtbl.push cmd
end

#_addtag(name, obj) ⇒ Object 



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

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

#at(x, y) ⇒ Object 



291
292
293
 
# File 'lib/tk/text.rb', line 291

def at(x, y)
  TkText::IndexString.at(x, y)
end

#backspace ⇒ Object 



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

def backspace
  self.delete 'insert'
end

#bbox(index) ⇒ Object 



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

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

#clear ⇒ Object Also known as: erase 



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

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

#compare(idx1, op, idx2) ⇒ Object 



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

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 



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

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 



608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
 
# File 'lib/tk/text.rb', line 608

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 



514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
 
# File 'lib/tk/text.rb', line 514

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 



634
635
636
 
# File 'lib/tk/text.rb', line 634

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

#debug=(boolean) ⇒ Object 



637
638
639
640
641
 
# File 'lib/tk/text.rb', line 637

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

#destroy ⇒ Object 



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

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

#dlineinfo(index) ⇒ Object 



643
644
645
 
# File 'lib/tk/text.rb', line 643

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

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



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
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
 
# File 'lib/tk/text.rb', line 1391

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(TkText::IndexString.new(str[i..(idx-1)]))
      i = idx + 1
    else
      result.push(TkText::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 



1510
1511
1512
 
# File 'lib/tk/text.rb', line 1510

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

#dump_image(*index, &block) ⇒ Object 



1525
1526
1527
 
# File 'lib/tk/text.rb', line 1525

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

#dump_mark(*index, &block) ⇒ Object 



1513
1514
1515
 
# File 'lib/tk/text.rb', line 1513

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

#dump_tag(*index, &block) ⇒ Object 



1516
1517
1518
 
# File 'lib/tk/text.rb', line 1516

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

#dump_text(*index, &block) ⇒ Object 



1519
1520
1521
 
# File 'lib/tk/text.rb', line 1519

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

#dump_window(*index, &block) ⇒ Object 



1522
1523
1524
 
# File 'lib/tk/text.rb', line 1522

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

#edit_redo ⇒ Object 



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

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

#edit_reset ⇒ Object 



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

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

#edit_separator ⇒ Object 



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

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

#edit_undo ⇒ Object 



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

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

#get_displaychars(*index) ⇒ Object 



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

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

#image_cget(index, slot) ⇒ Object 



399
400
401
402
403
404
405
406
407
408
409
 
# File 'lib/tk/text.rb', line 399

def image_cget(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 



425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
 
# File 'lib/tk/text.rb', line 425

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 



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

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 



535
536
537
538
539
540
 
# File 'lib/tk/text.rb', line 535

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 



295
296
297
298
 
# File 'lib/tk/text.rb', line 295

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

#init_instance_variable ⇒ Object 



258
259
260
261
 
# File 'lib/tk/text.rb', line 258

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

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



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

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 



363
364
365
366
367
368
369
370
371
 
# File 'lib/tk/text.rb', line 363

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 



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

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 



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

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 



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

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 



373
374
375
376
377
 
# File 'lib/tk/text.rb', line 373

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 



380
381
382
383
384
 
# File 'lib/tk/text.rb', line 380

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

#modified(mode) ⇒ Object 



650
651
652
653
 
# File 'lib/tk/text.rb', line 650

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

#modified=(mode) ⇒ Object 



654
655
656
657
 
# File 'lib/tk/text.rb', line 654

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

#modified? ⇒ Boolean

Returns:

  • (Boolean) 


647
648
649
 
# File 'lib/tk/text.rb', line 647

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

#peer_names ⇒ Object 



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

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

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



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

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

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



1387
1388
1389
 
# File 'lib/tk/text.rb', line 1387

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

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



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
1379
1380
1381
1382
1383
1384
1385
 
# File 'lib/tk/text.rb', line 1335

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 



1331
1332
1333
 
# File 'lib/tk/text.rb', line 1331

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

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



1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
 
# File 'lib/tk/text.rb', line 1274

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 



547
548
549
550
 
# File 'lib/tk/text.rb', line 547

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

#set_insert(index) ⇒ Object 



542
543
544
545
 
# File 'lib/tk/text.rb', line 542

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 



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

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



734
735
736
737
738
739
740
741
742
743
 
# File 'lib/tk/text.rb', line 734

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



749
750
751
752
753
754
755
756
757
758
 
# File 'lib/tk/text.rb', line 749

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 



760
761
762
763
 
# File 'lib/tk/text.rb', line 760

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

#tag_bindinfo(tag, context = nil) ⇒ Object 



765
766
767
 
# File 'lib/tk/text.rb', line 765

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

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



713
714
715
716
717
718
719
720
721
722
723
724
725
726
 
# File 'lib/tk/text.rb', line 713

def tag_delete(*tags)
  tk_send_without_enc('tag', 'delete', 
                      *(tags.collect{|tag| _get_eval_enc_str(tag)}))
  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 



951
952
953
954
955
 
# File 'lib/tk/text.rb', line 951

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 



349
350
351
352
353
354
 
# File 'lib/tk/text.rb', line 349

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 



976
977
978
979
980
981
982
983
 
# File 'lib/tk/text.rb', line 976

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|
    TkText::IndexString.new(idx)
  }
end

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



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

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|
    TkText::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



945
946
947
948
949
 
# File 'lib/tk/text.rb', line 945

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 



963
964
965
966
967
968
969
970
971
972
973
974
 
# File 'lib/tk/text.rb', line 963

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 [TkText::IndexString.new(key), TkText::IndexString.new(l.shift)]
  end
  r
end

#tag_remove(tag, *indices) ⇒ Object 



957
958
959
960
961
 
# File 'lib/tk/text.rb', line 957

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 



341
342
343
344
345
346
347
 
# File 'lib/tk/text.rb', line 341

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

#text_copy ⇒ Object 



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

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

#text_cut ⇒ Object 



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

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

#text_paste ⇒ Object 



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

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

#tksearch(*args) ⇒ Object 



1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
 
# File 'lib/tk/text.rb', line 1206

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
    TkText::IndexString.new(ret)
  end
end

#tksearch_with_count(*args) ⇒ Object 



1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
 
# File 'lib/tk/text.rb', line 1239

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
    TkText::IndexString.new(ret)
  end
end

#value ⇒ Object 



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

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

#value=(val) ⇒ Object 



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

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



1178
1179
1180
1181
1182
1183
 
# File 'lib/tk/text.rb', line 1178

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 



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

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

#yview_pickplace(index) ⇒ Object 



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

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