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