Class: Tk::Text
Defined Under Namespace
Modules: IndexModMethods
Classes: IndexString, Peer
Constant Summary
collapse
- ItemConfCMD =
['tag'.freeze, 'configure'.freeze].freeze
- TkCommandNames =
['text'.freeze].freeze
- WidgetClassName =
'Text'.freeze
Constants included
from TkUtil
TkUtil::None, TkUtil::RELEASE_DATE
Constants included
from TkCore
TkCore::EventFlag, TkCore::INTERP, TkCore::INTERP_MUTEX, TkCore::INTERP_ROOT_CHECK, TkCore::INTERP_THREAD, TkCore::INTERP_THREAD_STATUS, TkCore::RUN_EVENTLOOP_ON_MAIN_THREAD, TkCore::WIDGET_DESTROY_HOOK, TkCore::WITH_ENCODING, TkCore::WITH_RUBY_VM
Constants included
from TkComm
TkComm::GET_CONFIGINFO_AS_ARRAY, TkComm::GET_CONFIGINFOwoRES_AS_ARRAY, TkComm::TkExtlibAutoloadModule, TkComm::Tk_CMDTBL, TkComm::Tk_IDs, TkComm::Tk_WINDOWS, TkComm::USE_TCLs_LIST_FUNCTIONS, TkComm::WidgetClassNames
Constants included
from Tk
AUTO_PATH, INTERP, JAPANIZED_TK, LIBRARY_PATH, MAINLOOP, PACKAGE_PATH, RELEASE_DATE, TCL_LIBRARY_PATH, TCL_MAJOR_VERSION, TCL_MINOR_VERSION, TCL_PACKAGE_PATH, TCL_PATCHLEVEL, TCL_PRECISION, TCL_VERSION, TK_MAJOR_VERSION, TK_MINOR_VERSION, TK_PATCHLEVEL, TK_VERSION, Tkextlib_RELEASE_DATE, TreeCtrl_Widget, X_Scrollable, Y_Scrollable
Constants included
from Encoding
Encoding::BINARY, Encoding::BINARY_NAME, Encoding::DEFAULT_EXTERNAL_NAME, Encoding::DEFAULT_INTERNAL_NAME, Encoding::ENCODING_TABLE, Encoding::RubyEncoding, Encoding::UNKNOWN, Encoding::UTF8_NAME
Tk::TkDND::Shape::PACKAGE_NAME
Class Method Summary
collapse
Instance Method Summary
collapse
-
#__destroy_hook__ ⇒ Object
-
#_addcmd(cmd) ⇒ Object
-
#_addtag(name, obj) ⇒ Object
-
#at(x, y) ⇒ Object
-
#backspace ⇒ Object
-
#bbox(index) ⇒ Object
-
#clear ⇒ Object
(also: #erase)
-
#compare(idx1, op, idx2) ⇒ Object
-
#count(idx1, idx2, *opts) ⇒ Object
-
#count_info(idx1, idx2, update = true) ⇒ Object
-
#current_image_configinfo(index, slot = nil) ⇒ Object
-
#debug ⇒ Object
-
#debug=(boolean) ⇒ Object
-
#destroy ⇒ Object
-
#dlineinfo(index) ⇒ Object
-
#dump(type_info, *index, &block) ⇒ Object
-
#dump_all(*index, &block) ⇒ Object
-
#dump_image(*index, &block) ⇒ Object
-
#dump_mark(*index, &block) ⇒ Object
-
#dump_tag(*index, &block) ⇒ Object
-
#dump_text(*index, &block) ⇒ Object
-
#dump_window(*index, &block) ⇒ Object
-
#edit_redo ⇒ Object
-
#edit_reset ⇒ Object
-
#edit_separator ⇒ Object
-
#edit_undo ⇒ Object
-
#get_displaychars(*index) ⇒ Object
-
#image_cget(index, slot) ⇒ Object
-
#image_cget_strict(index, slot) ⇒ Object
-
#image_configinfo(index, slot = nil) ⇒ Object
-
#image_configure(index, slot, value = None) ⇒ Object
-
#image_names ⇒ Object
-
#index(idx) ⇒ Object
-
#init_instance_variable ⇒ Object
-
#insert(index, chars, *tags) ⇒ Object
-
#mark_gravity(mark, direction = nil) ⇒ Object
-
#mark_names ⇒ Object
-
#mark_next(index) ⇒ Object
(also: #next_mark)
-
#mark_previous(index) ⇒ Object
(also: #previous_mark)
-
#mark_set(mark, index) ⇒ Object
(also: #set_mark)
-
#mark_unset(*marks) ⇒ Object
(also: #unset_mark)
-
#modified(mode) ⇒ Object
-
#modified=(mode) ⇒ Object
-
#modified? ⇒ Boolean
-
#peer_names ⇒ Object
-
#replace(idx1, idx2, *opts) ⇒ Object
-
#rsearch(pat, start, stop = None) ⇒ Object
-
#rsearch_with_length(pat, start, stop = None) ⇒ Object
-
#search(pat, start, stop = None) ⇒ Object
-
#search_with_length(pat, start, stop = None) ⇒ Object
-
#set_current(index) ⇒ Object
-
#set_insert(index) ⇒ Object
-
#tag_add(tag, index1, index2 = None) ⇒ Object
(also: #addtag, #add_tag)
-
#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.
-
#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.
-
#tag_bind_remove(tag, seq) ⇒ Object
-
#tag_bindinfo(tag, context = nil) ⇒ Object
-
#tag_delete(*tags) ⇒ Object
(also: #deltag, #delete_tag)
-
#tag_lower(tag, below = None) ⇒ Object
-
#tag_names(index = None) ⇒ Object
-
#tag_nextrange(tag, first, last = None) ⇒ Object
-
#tag_prevrange(tag, first, last = None) ⇒ Object
-
#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.
-
#tag_ranges(tag) ⇒ Object
-
#tag_remove(tag, *indices) ⇒ Object
-
#tagid2obj(tagid) ⇒ Object
-
#text_copy ⇒ Object
-
#text_cut ⇒ Object
-
#text_paste ⇒ Object
-
#tksearch(*args) ⇒ Object
-
#tksearch_with_count(*args) ⇒ Object
-
#value ⇒ Object
-
#value=(val) ⇒ Object
-
#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.
-
#xview_pickplace(index) ⇒ Object
-
#yview_pickplace(index) ⇒ Object
Methods included from Scrollable
#autoscroll, #unautoscroll
#yscrollbar, #yscrollcommand, #yview, #yview_moveto, #yview_scroll
#xscrollbar, #xscrollcommand, #xview, #xview_moveto, #xview_scroll
#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
__IGNORE_UNKNOWN_CONFIGURE_OPTION__, #__check_available_itemconfigure_options, #__current_itemconfiginfo, __set_IGNORE_UNKNOWN_CONFIGURE_OPTION__!, #current_itemconfiginfo, #itemcget, #itemcget_strict, #itemcget_tkstring, #itemconfiginfo, #itemconfigure
#__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
#kanjifont_copy, #kanjitagfont_configure, #latintagfont_configure, #latintagfont_copy, #tagfont_configinfo, #tagfont_configure, #tagfont_copy
Methods inherited from TkTextWin
#delete, #get, #scan_dragto, #scan_mark, #see
Methods inherited from TkWindow
_widget_inspect_full_=, _widget_inspect_full_?, #bind_class, #bindtags, #bindtags=, #bindtags_shift, #bindtags_unshift, #caret, #colormodel, #command, #cursor_propagate, #cursor_restore, database_class, #database_class, #database_classname, database_classname, #eventloop_wait_destroy, #eventloop_wait_visibility, #exist?, #grab, #grab_current, #grab_release, #grab_set, #grab_set_global, #grab_status, #grid, #grid_anchor, #grid_bbox, #grid_column, #grid_columnconfig, #grid_columnconfiginfo, #grid_config, #grid_forget, #grid_in, #grid_info, #grid_location, #grid_propagate, #grid_remove, #grid_row, #grid_rowconfig, #grid_rowconfiginfo, #grid_size, #grid_slaves, #initialize, #inspect, #lower, #pack, #pack_config, #pack_forget, #pack_in, #pack_info, #pack_propagate, #pack_slaves, #place, #place_config, #place_configinfo, #place_forget, #place_in, #place_info, #place_slaves, #raise, #set_focus, #thread_wait_destroy, #thread_wait_visibility, #tktrans_get_image, #tktrans_set_image, to_eval, #wait_destroy, #wait_visibility
Methods included from TkBindCore
#bind, #bind_append, #bind_remove, #bindinfo
Methods included from Busy
#busy, #busy_cget, #busy_configinfo, #busy_configure, #busy_current?, #busy_current_configinfo, #busy_forget, #busy_status, current, forget, hold, method_missing, status
Methods included from TkCore
#_tk_call_to_list_core, #after, #after_cancel, #after_idle, #appname, #appsend, #appsend_deny, #appsend_displayof, callback, #callback_break, #callback_continue, #callback_return, #chooseColor, #chooseDirectory, #do_one_event, #event_generate, #getMultipleOpenFile, #getMultipleSaveFile, #getOpenFile, #getSaveFile, #get_eventloop_tick, #get_eventloop_weight, #get_no_event_wait, #inactive, #inactive_displayof, #info, #ip_eval, #ip_eval_with_enc, #ip_eval_without_enc, #ip_invoke, #ip_invoke_with_enc, #ip_invoke_without_enc, #is_mainloop?, #load_cmd_on_ip, #mainloop, #mainloop_exist?, #mainloop_thread?, #mainloop_watchdog, #messageBox, #rb_appsend, #rb_appsend_displayof, #reset_inactive, #reset_inactive_displayof, #restart, #scaling, #scaling_displayof, #set_eventloop_tick, #set_eventloop_weight, #set_no_event_wait, #tk_call, #tk_call_to_list, #tk_call_to_list_with_enc, #tk_call_to_list_without_enc, #tk_call_to_simplelist, #tk_call_to_simplelist_with_enc, #tk_call_to_simplelist_without_enc, #tk_call_with_enc, #tk_call_without_enc, #windowingsystem
Methods included from TkComm
_at, _callback_entry?, _callback_entry_class?, _curr_cmd_id, _fromUTF8, _genobj_for_tkwidget, _next_cmd_id, _toUTF8, array2tk_list, #bind, #bind_all, #bind_append, #bind_append_all, #bind_remove, #bind_remove_all, #bindinfo, #bindinfo_all, bool, image_obj, #install_cmd, install_cmd, list, num_or_nil, num_or_str, number, procedure, simplelist, slice_ary, string, #subst, tk_tcl2ruby, uninstall_cmd, #uninstall_cmd, window
Methods included from TkEvent
#install_bind, #install_bind_for_event_class
Methods included from TkWinfo
appname, atom, atomname, cells, children, classname, colormapfull, containing, depth, exist?, fpixels, geometry, height, id, interps, manager, mapped?, parent, pixels, pointerx, pointerxy, pointery, reqheight, reqwidth, rgb, rootx, rooty, screen, screencells, screendepth, screenheight, screenmmheight, screenmmwidth, screenvisual, screenwidth, server, toplevel, viewable, visual, visualid, visualsavailable, vrootheight, vrootwidth, vrootx, vrooty, widget, width, #winfo_appname, #winfo_atom, #winfo_atomname, #winfo_cells, #winfo_children, #winfo_classname, #winfo_colormapfull, #winfo_containing, #winfo_depth, #winfo_exist?, #winfo_fpixels, #winfo_geometry, #winfo_height, #winfo_id, #winfo_interps, #winfo_manager, #winfo_mapped?, #winfo_parent, #winfo_pixels, #winfo_pointerx, #winfo_pointerxy, #winfo_pointery, #winfo_reqheight, #winfo_reqwidth, #winfo_rgb, #winfo_rootx, #winfo_rooty, #winfo_screen, #winfo_screencells, #winfo_screendepth, #winfo_screenheight, #winfo_screenmmheight, #winfo_screenmmwidth, #winfo_screenvisual, #winfo_screenwidth, #winfo_server, #winfo_toplevel, #winfo_viewable, #winfo_visual, #winfo_visualid, #winfo_visualsavailable, #winfo_vrootheight, #winfo_vrootwidth, #winfo_vrootx, #winfo_vrooty, #winfo_widget, #winfo_width, #winfo_x, #winfo_y, x, y
Methods included from Tk
BinaryString, EncodedString, #Grid, #Pack, #Place, UTF8_String, __create_widget_set__, __disable_toplevel_control__, __import_toplevel_aliases__, __regist_toplevel_aliases__, __remove_toplevel_aliases__, __reset_toplevel_owner__, __set_loaded_toplevel_aliases__, __set_toplevel_aliases__, __toplevel_alias_setup_proc__, add_kinsoku, bell, bell_on_display, const_missing, current_grabs, cursor_display, default_widget_set, default_widget_set=, delete_kinsoku, destroy, #encoding, #encoding=, errorCode, errorInfo, exit, focus, focus_lastfor, focus_next, focus_prev, focus_to, fromUTF8, grid, grid_forget, has_mainwindow?, load_tcllibrary, load_tclscript, load_tclscript_rsrc, load_tclscript_rsrcid, lower_window, pack, pack_forget, pkgconfig_get, pkgconfig_list, place, place_forget, raise_window, #root, show_kinsoku, sleep, strictMotif, subst_tk_backslash, subst_utf_backslash, tcl_pkgconfig_get, tcl_pkgconfig_list, thread_update, thread_update_idletasks, tk_pkgconfig_get, tk_pkgconfig_list, toUTF8, to_backslash_sequence, toplevel_aliases_on_widget_set, ungrid, unload_tcllibrary, unpack, unplace, update, #update, update_idletasks, utf_to_backslash, utf_to_backslash_sequence, wakeup, widget_set_symbols
Methods included from Encoding
#default_encoding=, #encoding=, #encoding_convertfrom, #encoding_convertto, #encoding_dirs, #encoding_dirs=, #encoding_name, #encoding_names, #encoding_obj, #encoding_objs, #encoding_system=, #encoding_system_name, #encoding_system_obj, #force_default_encoding, #force_default_encoding=, #force_default_encoding?, #tk_encoding_names
#dnd_bindsource, #dnd_bindsource_info, #dnd_bindtarget, #dnd_bindtarget_info, #dnd_clearsource, #dnd_cleartarget, #dnd_drag, version
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
#[], #[]=, __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
#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
306
307
308
|
# File 'lib/tk/text.rb', line 306
def self.at(x, y)
Tk::Text::IndexString.at(x, y)
end
|
.new(*args, &block) ⇒ Object
262
263
264
265
266
267
268
269
270
271
|
# File 'lib/tk/text.rb', line 262
def self.new(*args, &block)
obj = super(*args){}
obj.init_instance_variable
if TkCore::WITH_RUBY_VM obj.instance_exec(obj, &block) if defined? yield
else
obj.instance_eval(&block) if defined? yield
end
obj
end
|
Instance Method Details
#_addcmd(cmd) ⇒ Object
340
341
342
|
# File 'lib/tk/text.rb', line 340
def _addcmd(cmd)
@cmdtbl.push cmd
end
|
#_addtag(name, obj) ⇒ Object
344
345
346
|
# File 'lib/tk/text.rb', line 344
def _addtag(name, obj)
@tags[name] = obj
end
|
#backspace ⇒ Object
620
621
622
|
# File 'lib/tk/text.rb', line 620
def backspace
self.delete 'insert'
end
|
#bbox(index) ⇒ Object
624
625
626
|
# File 'lib/tk/text.rb', line 624
def bbox(index)
list(tk_send_without_enc('bbox', _get_eval_enc_str(index)))
end
|
#clear ⇒ Object
Also known as:
erase
334
335
336
337
|
# File 'lib/tk/text.rb', line 334
def clear
tk_send_without_enc('delete', "1.0", 'end')
self
end
|
#compare(idx1, op, idx2) ⇒ Object
628
629
630
631
|
# File 'lib/tk/text.rb', line 628
def compare(idx1, op, idx2)
bool(tk_send_without_enc('compare', _get_eval_enc_str(idx1),
op, _get_eval_enc_str(idx2)))
end
|
#count(idx1, idx2, *opts) ⇒ Object
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
|
# File 'lib/tk/text.rb', line 633
def count(idx1, idx2, *opts)
cnt = 0
args = opts.collect{|opt|
str = opt.to_s
cnt += 1 if str != 'update'
'-' + str
}
args << _get_eval_enc_str(idx1) << _get_eval_enc_str(idx2)
if cnt <= 1
number(tk_send_without_enc('count', *opts))
else
list(tk_send_without_enc('count', *opts))
end
end
|
#count_info(idx1, idx2, update = true) ⇒ Object
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
|
# File 'lib/tk/text.rb', line 649
def count_info(idx1, idx2, update=true)
opts = [
:chars, :displaychars, :displayindices, :displaylines,
:indices, :lines, :xpixels, :ypixels
]
if update
lst = count(idx1, idx2, :update, *opts)
else
lst = count(idx1, idx2, *opts)
end
info = {}
opts.each_with_index{|key, idx| info[key] = lst[idx]}
info
end
|
#current_image_configinfo(index, slot = nil) ⇒ Object
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
|
# File 'lib/tk/text.rb', line 555
def current_image_configinfo(index, slot = nil)
if TkComm::GET_CONFIGINFO_AS_ARRAY
if slot
conf = image_configinfo(index, slot)
{conf[0] => conf[4]}
else
ret = {}
image_configinfo(index).each{|conf|
ret[conf[0]] = conf[4] if conf.size > 2
}
ret
end
else ret = {}
image_configinfo(index, slot).each{|k, conf|
ret[k] = conf[-1] if conf.kind_of?(Array)
}
ret
end
end
|
675
676
677
|
# File 'lib/tk/text.rb', line 675
def debug
bool(tk_send_without_enc('debug'))
end
|
#debug=(boolean) ⇒ Object
678
679
680
681
682
|
# File 'lib/tk/text.rb', line 678
def debug=(boolean)
tk_send_without_enc('debug', boolean)
boolean
end
|
612
613
614
615
616
617
618
|
# File 'lib/tk/text.rb', line 612
def destroy
@tags = {} unless @tags
@tags.each_value do |t|
t.destroy
end
super()
end
|
#dlineinfo(index) ⇒ Object
684
685
686
|
# File 'lib/tk/text.rb', line 684
def dlineinfo(index)
list(tk_send_without_enc('dlineinfo', _get_eval_enc_str(index)))
end
|
#dump(type_info, *index, &block) ⇒ Object
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
|
# File 'lib/tk/text.rb', line 1439
def dump(type_info, *index, &block)
if type_info.kind_of?(Symbol)
type_info = [ type_info.to_s ]
elsif type_info.kind_of?(String)
type_info = [ type_info ]
end
args = type_info.collect{|inf| '-' + inf}
args << '-command' << block if block
str = tk_send('dump', *(args + index))
result = []
sel = nil
i = 0
while i < str.size
idx = str.index(/ /, i)
result.push str[i..(idx-1)]
i = idx + 1
case result[-1]
when 'text'
if str[i] == ?{
val, i = _retrieve_braced_text(str, i)
result.push val
else
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
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 end
|
#dump_all(*index, &block) ⇒ Object
1558
1559
1560
|
# File 'lib/tk/text.rb', line 1558
def dump_all(*index, &block)
dump(['all'], *index, &block)
end
|
#dump_image(*index, &block) ⇒ Object
1573
1574
1575
|
# File 'lib/tk/text.rb', line 1573
def dump_image(*index, &block)
dump(['image'], *index, &block)
end
|
#dump_mark(*index, &block) ⇒ Object
1561
1562
1563
|
# File 'lib/tk/text.rb', line 1561
def dump_mark(*index, &block)
dump(['mark'], *index, &block)
end
|
#dump_tag(*index, &block) ⇒ Object
1564
1565
1566
|
# File 'lib/tk/text.rb', line 1564
def dump_tag(*index, &block)
dump(['tag'], *index, &block)
end
|
#dump_text(*index, &block) ⇒ Object
1567
1568
1569
|
# File 'lib/tk/text.rb', line 1567
def dump_text(*index, &block)
dump(['text'], *index, &block)
end
|
#dump_window(*index, &block) ⇒ Object
1570
1571
1572
|
# File 'lib/tk/text.rb', line 1570
def dump_window(*index, &block)
dump(['window'], *index, &block)
end
|
#edit_redo ⇒ Object
700
701
702
703
|
# File 'lib/tk/text.rb', line 700
def edit_redo
tk_send_without_enc('edit', 'redo')
self
end
|
#edit_reset ⇒ Object
704
705
706
707
|
# File 'lib/tk/text.rb', line 704
def edit_reset
tk_send_without_enc('edit', 'reset')
self
end
|
#edit_separator ⇒ Object
708
709
710
711
|
# File 'lib/tk/text.rb', line 708
def edit_separator
tk_send_without_enc('edit', 'separator')
self
end
|
#edit_undo ⇒ Object
712
713
714
715
|
# File 'lib/tk/text.rb', line 712
def edit_undo
tk_send_without_enc('edit', 'undo')
self
end
|
#get_displaychars(*index) ⇒ Object
319
320
321
322
|
# File 'lib/tk/text.rb', line 319
def get_displaychars(*index)
get('-displaychars', *index)
end
|
#image_cget(index, slot) ⇒ Object
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
|
# File 'lib/tk/text.rb', line 430
def image_cget(index, slot)
unless TkItemConfigMethod.__IGNORE_UNKNOWN_CONFIGURE_OPTION__
image_cget_strict(index, slot)
else
begin
image_cget_strict(index, slot)
rescue => e
begin
if current_image_configinfo(index).has_key?(slot.to_s)
fail e
else
nil
end
rescue
fail e end
end
end
end
|
#image_cget_strict(index, slot) ⇒ Object
418
419
420
421
422
423
424
425
426
427
428
|
# File 'lib/tk/text.rb', line 418
def image_cget_strict(index, slot)
case slot.to_s
when 'text', 'label', 'show', 'data', 'file'
_fromUTF8(tk_send_without_enc('image', 'cget',
_get_eval_enc_str(index), "-#{slot}"))
else
tk_tcl2ruby(_fromUTF8(tk_send_without_enc('image', 'cget',
_get_eval_enc_str(index),
"-#{slot}")))
end
end
|
#image_configinfo(index, slot = nil) ⇒ Object
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
|
# File 'lib/tk/text.rb', line 466
def image_configinfo(index, slot = nil)
if TkComm::GET_CONFIGINFO_AS_ARRAY
if slot
case slot.to_s
when 'text', 'label', 'show', 'data', 'file'
conf = tk_split_simplelist(tk_send_without_enc('image', 'configure', _get_eval_enc_str(index), "-#{slot}"), false, true)
else
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(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 conf
}
end
else if slot
case slot.to_s
when 'text', 'label', 'show', 'data', 'file'
conf = tk_split_simplelist(tk_send_without_enc('image', 'configure', _get_eval_enc_str(index), "-#{slot}"), false, true)
else
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(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] else
ret[key] = conf
end
}
ret
end
end
end
|
452
453
454
455
456
457
458
459
460
461
462
463
464
|
# File 'lib/tk/text.rb', line 452
def image_configure(index, slot, value=None)
if slot.kind_of?(Hash)
_fromUTF8(tk_send_without_enc('image', 'configure',
_get_eval_enc_str(index),
*hash_kv(slot, true)))
else
_fromUTF8(tk_send_without_enc('image', 'configure',
_get_eval_enc_str(index),
"-#{slot}",
_get_eval_enc_str(value)))
end
self
end
|
#image_names ⇒ Object
576
577
578
579
580
581
|
# File 'lib/tk/text.rb', line 576
def image_names
tk_split_simplelist(tk_send_without_enc('image', 'names'), false, true).collect{|elt|
tagid2obj(elt)
}
end
|
#index(idx) ⇒ Object
314
315
316
317
|
# File 'lib/tk/text.rb', line 314
def index(idx)
Tk::Text::IndexString.new(tk_send_without_enc('index',
_get_eval_enc_str(idx)))
end
|
#init_instance_variable ⇒ Object
273
274
275
276
|
# File 'lib/tk/text.rb', line 273
def init_instance_variable
@cmdtbl = []
@tags = {}
end
|
#insert(index, chars, *tags) ⇒ Object
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
|
# File 'lib/tk/text.rb', line 593
def insert(index, chars, *tags)
if tags[0].kind_of?(Array)
args = [chars]
while tags.size > 0
args << tags.shift.collect{|x|_get_eval_string(x)}.join(' ') args << tags.shift if tags.size > 0 end
super(index, *args)
else
if tags.size == 0
super(index, chars)
else
super(index, chars, tags.collect{|x|_get_eval_string(x)}.join(' '))
end
end
end
|
#mark_gravity(mark, direction = nil) ⇒ Object
382
383
384
385
386
387
388
389
390
|
# File 'lib/tk/text.rb', line 382
def mark_gravity(mark, direction=nil)
if direction
tk_send_without_enc('mark', 'gravity',
_get_eval_enc_str(mark), direction)
self
else
tk_send_without_enc('mark', 'gravity', _get_eval_enc_str(mark))
end
end
|
#mark_names ⇒ Object
375
376
377
378
379
380
|
# File 'lib/tk/text.rb', line 375
def mark_names
tk_split_simplelist(tk_send_without_enc('mark', 'names'), false, true).collect{|elt|
tagid2obj(elt)
}
end
|
#mark_next(index) ⇒ Object
Also known as:
next_mark
406
407
408
409
|
# File 'lib/tk/text.rb', line 406
def mark_next(index)
tagid2obj(_fromUTF8(tk_send_without_enc('mark', 'next',
_get_eval_enc_str(index))))
end
|
#mark_previous(index) ⇒ Object
Also known as:
previous_mark
412
413
414
415
|
# File 'lib/tk/text.rb', line 412
def mark_previous(index)
tagid2obj(_fromUTF8(tk_send_without_enc('mark', 'previous',
_get_eval_enc_str(index))))
end
|
#mark_set(mark, index) ⇒ Object
Also known as:
set_mark
392
393
394
395
396
|
# File 'lib/tk/text.rb', line 392
def mark_set(mark, index)
tk_send_without_enc('mark', 'set', _get_eval_enc_str(mark),
_get_eval_enc_str(index))
self
end
|
#mark_unset(*marks) ⇒ Object
Also known as:
unset_mark
399
400
401
402
403
|
# File 'lib/tk/text.rb', line 399
def mark_unset(*marks)
tk_send_without_enc('mark', 'unset',
*(marks.collect{|mark| _get_eval_enc_str(mark)}))
self
end
|
#modified(mode) ⇒ Object
691
692
693
694
|
# File 'lib/tk/text.rb', line 691
def modified(mode)
tk_send_without_enc('edit', 'modified', mode)
self
end
|
#modified=(mode) ⇒ Object
695
696
697
698
|
# File 'lib/tk/text.rb', line 695
def modified=(mode)
modified(mode)
mode
end
|
#modified? ⇒ Boolean
688
689
690
|
# File 'lib/tk/text.rb', line 688
def modified?
bool(tk_send_without_enc('edit', 'modified'))
end
|
#peer_names ⇒ Object
665
666
667
668
|
# File 'lib/tk/text.rb', line 665
def peer_names()
list(tk_send_without_enc('peer', 'names'))
end
|
#replace(idx1, idx2, *opts) ⇒ Object
670
671
672
673
|
# File 'lib/tk/text.rb', line 670
def replace(idx1, idx2, *opts)
tk_send('replace', idx1, idx2, *opts)
self
end
|
#rsearch(pat, start, stop = None) ⇒ Object
1435
1436
1437
|
# File 'lib/tk/text.rb', line 1435
def rsearch(pat,start,stop=None)
rsearch_with_length(pat,start,stop)[0]
end
|
#rsearch_with_length(pat, start, stop = None) ⇒ Object
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
|
# File 'lib/tk/text.rb', line 1383
def rsearch_with_length(pat,start,stop=None)
pat = pat.chr if pat.kind_of?(Integer)
if stop != None
return ["", 0] if compare(start,'<=',stop)
txt = get(stop,start)
if (pos = txt.rindex(pat))
match = $&
pos = _ktext_length(txt[0..(pos-1)]) if pos > 0
if pat.kind_of?(String)
return [index(stop + " + #{pos} chars"), _ktext_length(pat), pat.dup]
else
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 = _ktext_length(txt[0..(pos-1)]) if pos > 0
if pat.kind_of?(String)
return [index("1.0 + #{pos} chars"), _ktext_length(pat), pat.dup]
else
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 = _ktext_length(txt[0..(pos-1)]) if pos > 0
if pat.kind_of?(String)
return [index("1.0 + #{pos} chars"), _ktext_length(pat), pat.dup]
else
return [index("1.0 + #{pos} chars"), _ktext_length(match), match]
end
else
return ["", 0]
end
end
end
end
|
#search(pat, start, stop = None) ⇒ Object
1379
1380
1381
|
# File 'lib/tk/text.rb', line 1379
def search(pat,start,stop=None)
search_with_length(pat,start,stop)[0]
end
|
#search_with_length(pat, start, stop = None) ⇒ Object
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
|
# File 'lib/tk/text.rb', line 1322
def search_with_length(pat,start,stop=None)
pat = pat.chr if pat.kind_of?(Integer)
if stop != None
return ["", 0] if compare(start,'>=',stop)
txt = get(start,stop)
if (pos = txt.index(pat))
match = $&
pos = _ktext_length(txt[0..(pos-1)]) if pos > 0
if pat.kind_of?(String)
return [index(start + " + #{pos} chars"),
_ktext_length(pat), pat.dup]
else
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 = _ktext_length(txt[0..(pos-1)]) if pos > 0
if pat.kind_of?(String)
return [index(start + " + #{pos} chars"),
_ktext_length(pat), pat.dup]
else
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 = _ktext_length(txt[0..(pos-1)]) if pos > 0
if pat.kind_of?(String)
return [index("1.0 + #{pos} chars"),
_ktext_length(pat), pat.dup]
else
return [index("1.0 + #{pos} chars"), _ktext_length(match), match]
end
else
return ["", 0]
end
end
end
end
|
#set_current(index) ⇒ Object
588
589
590
591
|
# File 'lib/tk/text.rb', line 588
def set_current(index)
tk_send_without_enc('mark','set','current', _get_eval_enc_str(index))
self
end
|
#set_insert(index) ⇒ Object
583
584
585
586
|
# File 'lib/tk/text.rb', line 583
def set_insert(index)
tk_send_without_enc('mark','set','insert', _get_eval_enc_str(index))
self
end
|
#tag_add(tag, index1, index2 = None) ⇒ Object
Also known as:
addtag, add_tag
745
746
747
748
749
750
|
# File 'lib/tk/text.rb', line 745
def tag_add(tag, index1, index2=None)
tk_send_without_enc('tag', 'add', _get_eval_enc_str(tag),
_get_eval_enc_str(index1),
_get_eval_enc_str(index2))
self
end
|
#tag_bind(tag, seq, *args) ⇒ Object
def tag_bind(tag, seq, cmd=Proc.new, *args)
_bind([@path, 'tag', 'bind', tag], seq, cmd, *args)
self
end
777
778
779
780
781
782
783
784
785
786
|
# File 'lib/tk/text.rb', line 777
def tag_bind(tag, seq, *args)
if TkComm._callback_entry?(args[0]) || !block_given?
cmd = args.shift
else
cmd = Proc.new
end
_bind([@path, 'tag', 'bind', tag], seq, cmd, *args)
self
end
|
#tag_bind_append(tag, seq, *args) ⇒ Object
def tag_bind_append(tag, seq, cmd=Proc.new, *args)
_bind_append([@path, 'tag', 'bind', tag], seq, cmd, *args)
self
end
792
793
794
795
796
797
798
799
800
801
|
# File 'lib/tk/text.rb', line 792
def tag_bind_append(tag, seq, *args)
if TkComm._callback_entry?(args[0]) || !block_given?
cmd = args.shift
else
cmd = Proc.new
end
_bind_append([@path, 'tag', 'bind', tag], seq, cmd, *args)
self
end
|
#tag_bind_remove(tag, seq) ⇒ Object
803
804
805
806
|
# File 'lib/tk/text.rb', line 803
def tag_bind_remove(tag, seq)
_bind_remove([@path, 'tag', 'bind', tag], seq)
self
end
|
#tag_bindinfo(tag, context = nil) ⇒ Object
808
809
810
|
# File 'lib/tk/text.rb', line 808
def tag_bindinfo(tag, context=nil)
_bindinfo([@path, 'tag', 'bind', tag], context)
end
|
#tag_delete(*tags) ⇒ Object
Also known as:
deltag, delete_tag
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
|
# File 'lib/tk/text.rb', line 754
def tag_delete(*tags)
tk_send_without_enc('tag', 'delete',
*(tags.collect{|tag| _get_eval_enc_str(tag)}))
TkTextTag::TTagID_TBL.mutex.synchronize{
if TkTextTag::TTagID_TBL[@path]
tags.each{|tag|
if tag.kind_of?(TkTextTag)
TkTextTag::TTagID_TBL[@path].delete(tag.id)
else
TkTextTag::TTagID_TBL[@path].delete(tag)
end
}
end
}
self
end
|
#tag_lower(tag, below = None) ⇒ Object
994
995
996
997
998
|
# File 'lib/tk/text.rb', line 994
def tag_lower(tag, below=None)
tk_send_without_enc('tag', 'lower', _get_eval_enc_str(tag),
_get_eval_enc_str(below))
self
end
|
#tag_names(index = None) ⇒ Object
368
369
370
371
372
373
|
# File 'lib/tk/text.rb', line 368
def tag_names(index=None)
tk_split_simplelist(tk_send_without_enc('tag', 'names', _get_eval_enc_str(index)), false, true).collect{|elt|
tagid2obj(elt)
}
end
|
1019
1020
1021
1022
1023
1024
1025
1026
|
# File 'lib/tk/text.rb', line 1019
def (tag, first, last=None)
simplelist(tk_send_without_enc('tag', 'nextrange',
_get_eval_enc_str(tag),
_get_eval_enc_str(first),
_get_eval_enc_str(last))).collect{|idx|
Tk::Text::IndexString.new(idx)
}
end
|
#tag_prevrange(tag, first, last = None) ⇒ Object
1028
1029
1030
1031
1032
1033
1034
1035
|
# File 'lib/tk/text.rb', line 1028
def tag_prevrange(tag, first, last=None)
simplelist(tk_send_without_enc('tag', 'prevrange',
_get_eval_enc_str(tag),
_get_eval_enc_str(first),
_get_eval_enc_str(last))).collect{|idx|
Tk::Text::IndexString.new(idx)
}
end
|
#tag_raise(tag, above = None) ⇒ Object
def tag_cget(tag, key)
case key.to_s
when 'text', 'label', 'show', 'data', 'file'
tk_call_without_enc(@path, 'tag', 'cget',
_get_eval_enc_str(tag), "-#{key}")
when 'font', 'kanjifont'
#fnt = tk_tcl2ruby(tk_send('tag', 'cget', tag, "-#{key}"))
fnt = tk_tcl2ruby(_fromUTF8(tk_send_without_enc('tag','cget',_get_eval_enc_str(tag),'-font')))
unless fnt.kind_of?(TkFont)
fnt = tagfontobj(tag, fnt)
end
if key.to_s == 'kanjifont' && JAPANIZED_TK && TK_VERSION =~ /^4\.*/
# obsolete; just for compatibility
fnt.kanji_font
else
fnt
end
else
tk_tcl2ruby(_fromUTF8(tk_call_without_enc(@path,'tag','cget',_get_eval_enc_str(tag),"-#{key}")))
end
end
def tag_configure(tag, key, val=None)
if key.kind_of?(Hash)
key = _symbolkey2str(key)
if ( key['font'] || key['kanjifont'] \
|| key['latinfont'] || key['asciifont'] )
tagfont_configure(tag, key)
else
tk_send_without_enc('tag', 'configure', _get_eval_enc_str(tag),
*hash_kv(key, true))
end
else
if key == 'font' || key == :font ||
key == 'kanjifont' || key == :kanjifont ||
key == 'latinfont' || key == :latinfont ||
key == 'asciifont' || key == :asciifont
if val == None
tagfontobj(tag)
else
tagfont_configure(tag, {key=>val})
end
else
tk_send_without_enc('tag', 'configure', _get_eval_enc_str(tag),
"-#{key}", _get_eval_enc_str(val))
end
end
self
end
def tag_configinfo(tag, key=nil)
if TkComm::GET_CONFIGINFO_AS_ARRAY
if key
case key.to_s
when 'text', 'label', 'show', 'data', 'file'
conf = tk_split_simplelist(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
when 'font', 'kanjifont'
conf = tk_split_simplelist(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
conf[4] = tagfont_configinfo(tag, conf[4])
else
conf = tk_split_list(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
end
conf[0] = conf[0][1..-1]
conf
else
ret = tk_split_simplelist(_fromUTF8(tk_send('tag','configure',_get_eval_enc_str(tag)))).collect{|conflist|
conf = tk_split_simplelist(conflist)
conf[0] = conf[0][1..-1]
case conf[0]
when 'text', 'label', 'show', 'data', 'file'
else
if conf[3]
if conf[3].index('{')
conf[3] = tk_split_list(conf[3])
else
conf[3] = tk_tcl2ruby(conf[3])
end
end
if conf[4]
if conf[4].index('{')
conf[4] = tk_split_list(conf[4])
else
conf[4] = tk_tcl2ruby(conf[4])
end
end
end
conf[1] = conf[1][1..-1] if conf.size == 2 # alias info
conf
}
fontconf = ret.assoc('font')
if fontconf
ret.delete_if{|item| item[0] == 'font' || item[0] == 'kanjifont'}
fontconf[4] = tagfont_configinfo(tag, fontconf[4])
ret.push(fontconf)
else
ret
end
end
else # ! TkComm::GET_CONFIGINFO_AS_ARRAY
if key
case key.to_s
when 'text', 'label', 'show', 'data', 'file'
conf = tk_split_simplelist(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
when 'font', 'kanjifont'
conf = tk_split_simplelist(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
conf[4] = tagfont_configinfo(tag, conf[4])
else
conf = tk_split_list(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
end
key = conf.shift[1..-1]
{ key => conf }
else
ret = {}
tk_split_simplelist(_fromUTF8(tk_send('tag','configure',_get_eval_enc_str(tag)))).each{|conflist|
conf = tk_split_simplelist(conflist)
key = conf.shift[1..-1]
case key
when 'text', 'label', 'show', 'data', 'file'
else
if conf[2]
if conf[2].index('{')
conf[2] = tk_split_list(conf[2])
else
conf[2] = tk_tcl2ruby(conf[2])
end
end
if conf[3]
if conf[3].index('{')
conf[3] = tk_split_list(conf[3])
else
conf[3] = tk_tcl2ruby(conf[3])
end
end
end
if conf.size == 1
ret[key] = conf[0][1..-1] # alias info
else
ret[key] = conf
end
}
fontconf = ret['font']
if fontconf
ret.delete('font')
ret.delete('kanjifont')
fontconf[3] = tagfont_configinfo(tag, fontconf[3])
ret['font'] = fontconf
end
ret
end
end
end
def current_tag_configinfo(tag, key=nil)
if TkComm::GET_CONFIGINFO_AS_ARRAY
if key
conf = tag_configinfo(tag, key)
{conf[0] => conf[4]}
else
ret = {}
tag_configinfo(tag).each{|conf|
ret[conf[0]] = conf[4] if conf.size > 2
}
ret
end
else # ! TkComm::GET_CONFIGINFO_AS_ARRAY
ret = {}
tag_configinfo(tag, key).each{|k, conf|
ret[k] = conf[-1] if conf.kind_of?(Array)
}
ret
end
end
988
989
990
991
992
|
# File 'lib/tk/text.rb', line 988
def tag_raise(tag, above=None)
tk_send_without_enc('tag', 'raise', _get_eval_enc_str(tag),
_get_eval_enc_str(above))
self
end
|
#tag_ranges(tag) ⇒ Object
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
|
# File 'lib/tk/text.rb', line 1006
def tag_ranges(tag)
l = tk_split_simplelist(tk_send_without_enc('tag', 'ranges',
_get_eval_enc_str(tag)),
false, true)
r = []
while key=l.shift
r.push [Tk::Text::IndexString.new(key), Tk::Text::IndexString.new(l.shift)]
end
r
end
|
#tag_remove(tag, *indices) ⇒ Object
1000
1001
1002
1003
1004
|
# File 'lib/tk/text.rb', line 1000
def tag_remove(tag, *indices)
tk_send_without_enc('tag', 'remove', _get_eval_enc_str(tag),
*(indices.collect{|idx| _get_eval_enc_str(idx)}))
self
end
|
#tagid2obj(tagid) ⇒ Object
360
361
362
363
364
365
366
|
# File 'lib/tk/text.rb', line 360
def tagid2obj(tagid)
if @tags[tagid]
@tags[tagid]
else
tagid
end
end
|
#text_copy ⇒ Object
727
728
729
730
731
|
# File 'lib/tk/text.rb', line 727
def text_copy
tk_call_without_enc('tk_textCopy', @path)
self
end
|
733
734
735
736
737
|
# File 'lib/tk/text.rb', line 733
def text_cut
tk_call_without_enc('tk_textCut', @path)
self
end
|
#text_paste ⇒ Object
739
740
741
742
743
|
# File 'lib/tk/text.rb', line 739
def text_paste
tk_call_without_enc('tk_textPaste', @path)
self
end
|
#tksearch(*args) ⇒ Object
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
|
# File 'lib/tk/text.rb', line 1254
def tksearch(*args)
nocase = false
if args[0].kind_of?(Array)
opts = args.shift.collect{|opt|
s_opt = opt.to_s
nocase = true if s_opt == 'nocase'
'-' + s_opt
}
else
opts = []
end
if args[0].kind_of?(Regexp)
regexp = args.shift
if !nocase && (regexp.options & Regexp::IGNORECASE) != 0
opts << '-nocase'
end
args.unshift(regexp.source)
end
opts << '--'
ret = tk_send('search', *(opts + args))
if ret == ""
nil
else
Tk::Text::IndexString.new(ret)
end
end
|
#tksearch_with_count(*args) ⇒ Object
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
|
# File 'lib/tk/text.rb', line 1287
def tksearch_with_count(*args)
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
|
324
325
326
|
# File 'lib/tk/text.rb', line 324
def value
_fromUTF8(tk_send_without_enc('get', "1.0", "end - 1 char"))
end
|
#value=(val) ⇒ Object
328
329
330
331
332
|
# File 'lib/tk/text.rb', line 328
def value= (val)
tk_send_without_enc('delete', "1.0", 'end')
tk_send_without_enc('insert', "1.0", _get_eval_enc_str(val))
val
end
|
#window_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
1221
1222
1223
1224
1225
1226
|
# File 'lib/tk/text.rb', line 1221
def window_names
tk_split_simplelist(tk_send_without_enc('window', 'names'), false, true).collect{|elt|
tagid2obj(elt)
}
end
|
#xview_pickplace(index) ⇒ Object
717
718
719
720
|
# File 'lib/tk/text.rb', line 717
def xview_pickplace(index)
tk_send_without_enc('xview', '-pickplace', _get_eval_enc_str(index))
self
end
|
#yview_pickplace(index) ⇒ Object
722
723
724
725
|
# File 'lib/tk/text.rb', line 722
def yview_pickplace(index)
tk_send_without_enc('yview', '-pickplace', _get_eval_enc_str(index))
self
end
|