Module: Tk

Extended by:
Tk, Encoding
Includes:
TkCore
Included in:
Tk, BLT::PlotComponent::Element, BLT::PlotComponent::Marker, BLT::Table, BLT::Table, BWidget::DragSite, BWidget::DragSite, BWidget::DropSite, BWidget::DropSite, BWidget::DynamicHelp, BWidget::DynamicHelp, BWidget::SelectColor, BWidget::SelectFont, BWidget::Widget, BWidget::Widget, Clock, ICONS, Itcl, Itcl, Itk, Itk, MacResource, TreeCtrl::BindCallback, TreeCtrl::BindCallback, WinDDE, WinRegistry, TkBgError, TkClipboard, TkClipboard, TkComposite, TkComposite, TkConsole, TkConsole, TkDialogObj, TkFont, TkFont::CoreMethods, TkGrid, TkGrid, TkImage, TkKinput, TkKinput, TkManageFocus, TkMsgCatalog, TkNamespace, TkNamespace::ScopeArgs, TkObject, TkOptionDB, TkOptionDB, TkPack, TkPack, TkPalette, TkPalette, TkPlace, TkPlace, TkSelection, TkSelection, TkVariable, TkVirtualEvent, TkWinfo, TkWinfo, TkXIM, TkXIM, TkcItem
Defined in:
lib/tk/autoload.rb,
lib/tk/wm.rb,
lib/tk/clock.rb,
sample/irbtk.rb,
lib/tk/tk_mac.rb,
lib/tk/macpkg.rb,
lib/tk/autoload.rb,
lib/tk/autoload.rb,
lib/tk/autoload.rb,
lib/tk/variable.rb,
lib/tkextlib/vu.rb,
lib/tk/optionobj.rb,
lib/tkextlib/blt.rb,
lib/tk/scrollable.rb,
lib/tk/encodedstr.rb,
lib/tk/validation.rb,
lib/tkextlib/tile.rb,
lib/tkextlib/tile.rb,
lib/tkextlib/tile.rb,
lib/tkextlib/tile.rb,
lib/tkextlib/tile.rb,
lib/tkextlib/tile.rb,
sample/tkcombobox.rb,
sample/tkalignbox.rb,
lib/tk/fontchooser.rb,
lib/tkextlib/tkDND.rb,
lib/tkextlib/tkimg.rb,
lib/tk/ttk_selector.rb,
lib/tkextlib/vu/pie.rb,
lib/tkextlib/tcllib.rb,
lib/tkextlib/bwidget.rb,
lib/tkextlib/version.rb,
lib/tkextlib/vu/dial.rb,
sample/tkballoonhelp.rb,
lib/tkextlib/iwidgets.rb,
lib/tkextlib/tkimg/ps.rb,
lib/tkextlib/tkimg/bmp.rb,
lib/tkextlib/tkimg/sgi.rb,
lib/tkextlib/tkimg/raw.rb,
lib/tkextlib/tkimg/xbm.rb,
lib/tkextlib/tkimg/png.rb,
lib/tkextlib/tkimg/sun.rb,
lib/tkextlib/tkimg/tga.rb,
lib/tkextlib/tkimg/gif.rb,
lib/tkextlib/tkimg/ppm.rb,
lib/tkextlib/tkimg/pcx.rb,
lib/tkextlib/tkimg/xpm.rb,
lib/tkextlib/tkimg/ico.rb,
lib/tkextlib/tclx/tclx.rb,
lib/tkextlib/vu/charts.rb,
lib/tkextlib/tile/style.rb,
lib/tkextlib/tkimg/dted.rb,
lib/tkextlib/tkimg/tiff.rb,
lib/tkextlib/tkimg/jpeg.rb,
lib/tkextlib/tcllib/ico.rb,
lib/tkextlib/vu/spinbox.rb,
sample/editable_listbox.rb,
lib/tkextlib/tile/tframe.rb,
lib/tkextlib/tile/tpaned.rb,
lib/tkextlib/tile/tlabel.rb,
lib/tkextlib/tile/tentry.rb,
lib/tkextlib/tile/dialog.rb,
lib/tkextlib/tile/tscale.rb,
lib/tkextlib/ICONS/icons.rb,
lib/tkextlib/itk/incr_tk.rb,
lib/tkextlib/trofs/trofs.rb,
lib/tkextlib/vu/bargraph.rb,
lib/tkextlib/tkDND/shape.rb,
lib/tkextlib/tkDND/tkdnd.rb,
lib/tkextlib/bwidget/tree.rb,
lib/tkextlib/tile/tsquare.rb,
lib/tkextlib/tile/tbutton.rb,
lib/tkextlib/tkimg/window.rb,
lib/tkextlib/tkimg/pixmap.rb,
lib/tkextlib/tcllib/ctext.rb,
lib/tkextlib/bwidget/label.rb,
lib/tkextlib/bwidget/entry.rb,
lib/tkextlib/winico/winico.rb,
lib/tkextlib/tile/tspinbox.rb,
lib/tkextlib/tile/treeview.rb,
lib/tkextlib/tile/sizegrip.rb,
lib/tkextlib/tcllib/cursor.rb,
lib/tkextlib/tcllib/cursor.rb,
lib/tkextlib/itcl/incr_tcl.rb,
sample/demos-en/tkencoding.rb,
lib/tkextlib/bwidget/widget.rb,
lib/tkextlib/bwidget/button.rb,
lib/tkextlib/bwidget/bitmap.rb,
lib/tkextlib/bwidget/dialog.rb,
lib/tkextlib/tile/tcombobox.rb,
lib/tkextlib/tile/tnotebook.rb,
lib/tkextlib/iwidgets/shell.rb,
lib/tkextlib/iwidgets/watch.rb,
lib/tkextlib/bwidget/listbox.rb,
lib/tkextlib/bwidget/spinbox.rb,
lib/tkextlib/tile/tseparator.rb,
lib/tkextlib/tile/tscrollbar.rb,
lib/tkextlib/tktable/tktable.rb,
lib/tkextlib/tcllib/ip_entry.rb,
lib/tkextlib/tktrans/tktrans.rb,
lib/tkextlib/iwidgets/tabset.rb,
lib/tkextlib/iwidgets/dialog.rb,
lib/tkextlib/bwidget/notebook.rb,
lib/tkextlib/bwidget/dropsite.rb,
lib/tkextlib/bwidget/dragsite.rb,
lib/tkextlib/bwidget/combobox.rb,
lib/tkextlib/tile/tlabelframe.rb,
lib/tkextlib/tile/tmenubutton.rb,
lib/tkextlib/tcllib/plotchart.rb,
lib/tkextlib/tcllib/datefield.rb,
lib/tkextlib/iwidgets/spinner.rb,
lib/tkextlib/iwidgets/toolbar.rb,
lib/tkextlib/iwidgets/spinint.rb,
lib/tkextlib/iwidgets/menubar.rb,
lib/tkextlib/bwidget/mainframe.rb,
lib/tkextlib/bwidget/passwddlg.rb,
lib/tkextlib/bwidget/separator.rb,
lib/tkextlib/bwidget/buttonbox.rb,
lib/tkextlib/bwidget/statusbar.rb,
lib/tkextlib/tile/tprogressbar.rb,
lib/tkextlib/tile/tcheckbutton.rb,
lib/tkextlib/tile/tradiobutton.rb,
lib/tkextlib/tcllib/tkpiechart.rb,
lib/tkextlib/tcllib/autoscroll.rb,
lib/tkextlib/tcllib/autoscroll.rb,
lib/tkextlib/tcllib/autoscroll.rb,
lib/tkextlib/iwidgets/checkbox.rb,
lib/tkextlib/iwidgets/feedback.rb,
lib/tkextlib/iwidgets/radiobox.rb,
lib/tkextlib/iwidgets/spintime.rb,
lib/tkextlib/iwidgets/notebook.rb,
lib/tkextlib/iwidgets/calendar.rb,
lib/tkextlib/iwidgets/spindate.rb,
lib/tkextlib/iwidgets/combobox.rb,
lib/tkextlib/tkHTML/htmlwidget.rb,
lib/tkextlib/bwidget/messagedlg.rb,
lib/tkextlib/bwidget/titleframe.rb,
lib/tkextlib/bwidget/labelframe.rb,
lib/tkextlib/bwidget/selectfont.rb,
lib/tkextlib/bwidget/labelentry.rb,
lib/tkextlib/bwidget/panelframe.rb,
lib/tkextlib/bwidget/scrollview.rb,
lib/tkextlib/iwidgets/dateentry.rb,
lib/tkextlib/iwidgets/timeentry.rb,
lib/tkextlib/iwidgets/extbutton.rb,
lib/tkextlib/iwidgets/hyperhelp.rb,
lib/tkextlib/iwidgets/buttonbox.rb,
lib/tkextlib/iwidgets/timefield.rb,
lib/tkextlib/iwidgets/datefield.rb,
lib/tkextlib/iwidgets/hierarchy.rb,
lib/tkextlib/treectrl/tktreectrl.rb,
lib/tkextlib/bwidget/progressdlg.rb,
lib/tkextlib/bwidget/progressbar.rb,
lib/tkextlib/bwidget/panedwindow.rb,
lib/tkextlib/bwidget/selectcolor.rb,
lib/tkextlib/bwidget/arrowbutton.rb,
lib/tkextlib/bwidget/dynamichelp.rb,
lib/tkextlib/iwidgets/optionmenu.rb,
lib/tkextlib/iwidgets/finddialog.rb,
lib/tkextlib/iwidgets/pushbutton.rb,
lib/tkextlib/iwidgets/mainwindow.rb,
lib/tkextlib/iwidgets/messagebox.rb,
lib/tkextlib/iwidgets/entryfield.rb,
lib/tkextlib/bwidget/pagesmanager.rb,
lib/tkextlib/iwidgets/panedwindow.rb,
lib/tkextlib/iwidgets/tabnotebook.rb,
lib/tkextlib/iwidgets/dialogshell.rb,
lib/tkextlib/tcllib/tablelist_core.rb,
lib/tkextlib/tcllib/tablelist_tile.rb,
lib/tkextlib/iwidgets/selectionbox.rb,
lib/tkextlib/iwidgets/labeledframe.rb,
lib/tkextlib/iwidgets/scrolledhtml.rb,
lib/tkextlib/iwidgets/scopedobject.rb,
lib/tkextlib/iwidgets/scrolledtext.rb,
lib/tkextlib/iwidgets/promptdialog.rb,
lib/tkextlib/bwidget/scrolledwindow.rb,
lib/tkextlib/iwidgets/messagedialog.rb,
lib/tkextlib/iwidgets/labeledwidget.rb,
lib/tkextlib/iwidgets/scrolledframe.rb,
lib/tkextlib/bwidget/scrollableframe.rb,
lib/tkextlib/iwidgets/canvasprintbox.rb,
lib/tkextlib/iwidgets/scrolledcanvas.rb,
lib/tkextlib/iwidgets/scrolledwidget.rb,
lib/tkextlib/iwidgets/scrolledlistbox.rb,
lib/tkextlib/iwidgets/selectiondialog.rb,
lib/tkextlib/iwidgets/disjointlistbox.rb,
lib/tkextlib/iwidgets/fileselectionbox.rb,
lib/tkextlib/iwidgets/canvasprintdialog.rb,
lib/tkextlib/iwidgets/extfileselectionbox.rb,
lib/tkextlib/iwidgets/fileselectiondialog.rb,
lib/tkextlib/iwidgets/extfileselectiondialog.rb,
lib/tk.rb,
lib/tk.rb,
lib/tk.rb,
lib/tk.rb,
lib/tk.rb

Overview

freeze core modules TclTkLib.freeze TclTkIp.freeze TkUtil.freeze TkKernel.freeze TkComm.freeze TkComm::Event.freeze TkCore.freeze Tk.freeze

Defined Under Namespace

Modules: BLT, BWidget, Busy, Clock, Encoding, Img, Itcl, ItemValidateConfigure, Itk, Iwidgets, Mac, MacResource, RbWidget, Scrollable, ScrollbarComposite, SystemMenu, TOPLEVEL_ALIASES, TclX, Tcllib, Tile, TkDND, TkTrans, Trofs, ValidateConfigure, Vu, WinDDE, WinRegistry, Wm, Wm_for_General, XScrollable, YScrollable Classes: BinaryString, Button, Canvas, CheckButton, EncodedString, Entry, Frame, HTML_Widget, ICONS, Label, LabelFrame, Listbox, Menu, MenuClone, Menubutton, Message, OptionMenubutton, OptionObj, PanedWindow, RadioButton, Root, Scale, Scrollbar, Spinbox, SysMenu_Apple, SysMenu_Help, SysMenu_System, Text, TkTable, Toplevel, TreeCtrl, UTF8_String, Winico, XScrollbar, YScrollbar

Constant Summary collapse

MAINLOOP =
Thread.new{ mainloop }
AUTO_PATH =
TkVarAccess.new('auto_path', auto_path)
TCL_PACKAGE_PATH =

AUTO_OLDPATH = tk_split_simplelist(INTERP._invoke('set', 'auto_oldpath'))

AUTO_OLDPATH.each{|s| s.freeze}
AUTO_OLDPATH.freeze
TkVarAccess.new('tcl_pkgPath')
PACKAGE_PATH =
TCL_PACKAGE_PATH
TCL_LIBRARY_PATH =
TkVarAccess.new('tcl_libPath')
LIBRARY_PATH =
TCL_LIBRARY_PATH
TCL_PRECISION =
TkVarAccess.new('tcl_precision')
X_Scrollable =
XScrollable
Y_Scrollable =
YScrollable
Fontchooser =
TkFont::Chooser
Tkextlib_RELEASE_DATE =
'2010-02-01'.freeze
INTERP =
TkCore::INTERP
TreeCtrl_Widget =
TreeCtrl
TCL_VERSION =
INTERP._invoke_without_enc("info", "tclversion").freeze
TCL_PATCHLEVEL =
INTERP._invoke_without_enc("info", "patchlevel").freeze
TCL_MAJOR_VERSION =
major.to_i
TCL_MINOR_VERSION =
minor.to_i
TK_VERSION =
INTERP._invoke_without_enc("set", "tk_version").freeze
TK_PATCHLEVEL =
INTERP._invoke_without_enc("set", "tk_patchLevel").freeze
TK_MAJOR_VERSION =
major.to_i
TK_MINOR_VERSION =
minor.to_i
JAPANIZED_TK =
(INTERP._invoke_without_enc("info", "commands",
"kanji") != "").freeze
RELEASE_DATE =
'2014-10-19'.freeze

Constants included from Encoding

Encoding::BINARY, Encoding::BINARY_NAME, Encoding::DEFAULT_EXTERNAL_NAME, Encoding::DEFAULT_INTERNAL_NAME, Encoding::ENCODING_TABLE, Encoding::RubyEncoding, Encoding::TkCommandNames, Encoding::UNKNOWN, Encoding::UTF8_NAME

Constants included from TkCore

TkCore::EventFlag, 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 TkUtil

TkUtil::None

Class Method Summary collapse

Instance Method Summary collapse

Methods included from Encoding

default_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_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 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

Class Method Details

.__create_widget_set__(new_set, src_set = {}) ⇒ Object


723
724
725
726
727
728
729
730
731
732
733
734
735
# File 'lib/tk/autoload.rb', line 723

def __create_widget_set__(new_set, src_set={})
  new_set = new_set.to_sym
  if @TOPLEVEL_ALIAS_TABLE[new_set]
    fail RuntimeError, "A widget-set #{new_set.inspect} is already exist."
  end
  if src_set.kind_of?(Symbol)
    # new_set is an alias name of existed widget set.
    @TOPLEVEL_ALIAS_TABLE[new_set] = @TOPLEVEL_ALIAS_TABLE[src_set]
  else
    @TOPLEVEL_ALIAS_TABLE[new_set] = {}
    src_set.each{|sym, obj| set_topalias(new_set, obj, sym.to_sym) }
  end
end

.__disable_toplevel_control__(*symbols) ⇒ Object


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

def __disable_toplevel_control__(*symbols)
  symbols.each{|sym| @TOPLEVEL_ALIAS_OWNER[sym.to_sym] = false}
end

.__import_toplevel_aliases__(target, *symbols) ⇒ Object


670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
# File 'lib/tk/autoload.rb', line 670

def __import_toplevel_aliases__(target, *symbols)
  current = @current_default_widget_set
  symbols.each{|sym|
    sym = sym.to_sym
    if (obj = @TOPLEVEL_ALIAS_TABLE[target][sym]).nil?
      # remove
      @TOPLEVEL_ALIAS_TABLE[current].delete(sym)
      @TOPLEVEL_ALIAS_OWNER.delete(sym)
      Tk::TOPLEVEL_ALIASES.module_eval{remove_const sym} if topalias_defined?(sym)
      Object.class_eval{remove_const sym} if topobj_defined?(sym)

    elsif obj == false
      # remove, but OWNER[sym] <- false and not treat Object::sym
      @TOPLEVEL_ALIAS_TABLE[current].delete(sym)
      @TOPLEVEL_ALIAS_OWNER[sym] = false
      Tk::TOPLEVEL_ALIASES.module_eval{remove_const sym} if topalias_defined?(sym)

    elsif @TOPLEVEL_ALIAS_OWNER[sym] == false
      # Object::sym is out of control. --> not change
      # Keep OWNER[sym].
      @TOPLEVEL_ALIAS_TABLE[current][sym] = obj
      replace_topalias(sym, obj)

    else
      # new definition under control
      @TOPLEVEL_ALIAS_OWNER[sym] = current
      @TOPLEVEL_ALIAS_TABLE[current][sym] = obj
      replace_topalias(sym, obj)
      replace_topobj(sym, obj)
    end
  }
end

.__regist_toplevel_aliases__(target, obj, *symbols) ⇒ Object


437
438
439
440
441
442
443
444
445
446
447
448
# File 'lib/tk/autoload.rb', line 437

def __regist_toplevel_aliases__(target, obj, *symbols)
  # initial regist
  @TOPLEVEL_ALIAS_TABLE[target = target.to_sym] ||= {}
  symbols.each{|sym|
    @TOPLEVEL_ALIAS_TABLE[target][sym = sym.to_sym] = obj
    if !topalias_defined?(sym) || target == @current_default_widget_set
      @TOPLEVEL_ALIAS_OWNER[sym] = target
      replace_topalias(sym, obj)
      replace_topobj(sym, obj) unless obj.kind_of?(String) # NOT autoload
    end
  }
end

.__remove_toplevel_aliases__(*symbols) ⇒ Object


703
704
705
706
707
708
709
710
711
712
713
# File 'lib/tk/autoload.rb', line 703

def __remove_toplevel_aliases__(*symbols)
  # remove toplevel aliases of current widget set
  current = @current_default_widget_set
  symbols.each{|sym|
    sym = sym.to_sym
    @TOPLEVEL_ALIAS_TABLE[current].delete(sym)
    @TOPLEVEL_ALIAS_OWNER.delete(sym)
    Tk::TOPLEVEL_ALIASES.module_eval{remove_const sym} if topalias_defined?(sym)
    Object.class_eval{remove_const sym} if topobj_defined?(sym)
  }
end

.__reset_toplevel_owner__(*symbols) ⇒ Object


715
716
717
# File 'lib/tk/autoload.rb', line 715

def __reset_toplevel_owner__(*symbols)
  symbols.each{|sym| @TOPLEVEL_ALIAS_OWNER.delete(sym.to_sym)}
end

.__set_loaded_toplevel_aliases__(autopath, target, obj, *symbols) ⇒ Object


587
588
589
590
591
592
593
594
595
596
597
# File 'lib/tk/autoload.rb', line 587

def __set_loaded_toplevel_aliases__(autopath, target, obj, *symbols)
  # autopath is an autoload file
  # Currently, this method doesn't support that autoload loads
  # different toplevels between <basename>.rb and <basename>.so extension.
  shortpath = (autopath =~ /^(.*)(.rb|.so)$/)? $1: autopath
  target = target.to_sym
  symbols.map!{|sym| sym.to_sym}

  symbols.each{|sym| regist_sym_for_loaded_file(shortpath, obj, sym) }
  symbols.each{|sym| set_topalias(target, obj, sym)}
end

.__set_toplevel_aliases__(target, obj, *symbols) ⇒ Object


580
581
582
583
584
585
# File 'lib/tk/autoload.rb', line 580

def __set_toplevel_aliases__(target, obj, *symbols)
  # obj is a kind of String : define autoload path
  #                  Class  : use the class object
  target = target.to_sym
  symbols.each{|sym| set_topalias(target, obj, sym.to_sym)}
end

.__toplevel_alias_setup_proc__(*target_list, &cmd) ⇒ Object


370
371
372
# File 'lib/tk/autoload.rb', line 370

def __toplevel_alias_setup_proc__(*target_list, &cmd)
  target_list.each{|target| @TOPLEVEL_ALIAS_SETUP_PROC[target.to_sym] = cmd}
end

._replace_toplevel_aliases(target) ⇒ Object


644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
# File 'lib/tk/autoload.rb', line 644

def _replace_toplevel_aliases(target)
  # backup
  @TOPLEVEL_ALIAS_TABLE[target].each_key{|sym|
    backup_current_topdef(sym)
  }

  # replace
  @TOPLEVEL_ALIAS_TABLE[target].each_key{|sym|
    next if (obj = @TOPLEVEL_ALIAS_TABLE[target][sym]).nil?
    if @TOPLEVEL_ALIAS_OWNER[sym] == false
      # Object::sym is out of control. --> not change
      # Keep OWNER[sym].
      replace_topalias(sym, obj)
    else
      # New definition
      @TOPLEVEL_ALIAS_OWNER[sym] = target
      replace_topalias(sym, obj)
      replace_topobj(sym, obj)
    end
  }

  # change default_widget_set
  @current_default_widget_set = target
end

.add_kinsoku(chars, mode = 'both') ⇒ Object


2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
# File 'lib/tk.rb', line 2529

def Tk.add_kinsoku(chars, mode='both')
  begin
    if /^8\.*/ === TK_VERSION  && JAPANIZED_TK
      tk_split_simplelist(tk_call('kinsoku', 'add', mode,
                                  *(chars.split(''))))
    else
      []
    end
  rescue
    []
  end
end

.backup_current_topdef(sym) ⇒ Object


599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
# File 'lib/tk/autoload.rb', line 599

def backup_current_topdef(sym)
  return if (current = @current_default_widget_set).nil?

  case @TOPLEVEL_ALIAS_OWNER[sym]
  when false
    # Object::sym is out of control.
    if (cur_alias = topalias_defined?(sym)) && ! cur_alias.kind_of?(String)
      @TOPLEVEL_ALIAS_TABLE[current][sym] = cur_alias
    end

  when current
    if cur_obj = topobj_defined?(sym)
      if ! cur_obj.kind_of?(String) && (cur_alias = topalias_defined?(sym))
        if cur_alias.kind_of?(String)
          # Mayby, user replaced Object::sym.
          # Make Object::sym out of control.
          @TOPLEVEL_ALIAS_OWNER[sym] = false
        elsif cur_obj == cur_alias
          # Possibley, defined normally. Backup it
          @TOPLEVEL_ALIAS_TABLE[current][sym] = cur_alias
        else
          # Mayby, user replaced Object::sym.
          # Make Object::sym out of control.
          @TOPLEVEL_ALIAS_OWNER[sym] = false
        end
      end
    else
      # Mayby, user replaced Object::sym.
      # Make Object::sym out of control.
      @TOPLEVEL_ALIAS_OWNER[sym] = false
    end

  when nil
    # Object::sym is out of control.
    if (cur_alias = topalias_defined?(sym)) && ! cur_alias.kind_of?(String)
      # Possibley, defined normally. Backup it.
      @TOPLEVEL_ALIAS_TABLE[current][sym] = cur_alias
    end
  else
    # No authority to control Object::sym and ALIASES::sym.
    # Do nothing.
  end
end

.bell(nice = false) ⇒ Object


2357
2358
2359
2360
2361
2362
2363
2364
# File 'lib/tk.rb', line 2357

def Tk.bell(nice = false)
  if nice
    tk_call_without_enc('bell', '-nice')
  else
    tk_call_without_enc('bell')
  end
  nil
end

.bell_on_display(win, nice = false) ⇒ Object


2366
2367
2368
2369
2370
2371
2372
2373
# File 'lib/tk.rb', line 2366

def Tk.bell_on_display(win, nice = false)
  if nice
    tk_call_without_enc('bell', '-displayof', win, '-nice')
  else
    tk_call_without_enc('bell', '-displayof', win)
  end
  nil
end

.BinaryString(str) ⇒ Object


115
# File 'lib/tk/autoload.rb', line 115

def Tk.BinaryString(str); Tk::BinaryString.new(str); end

.const_missing(sym) ⇒ Object


2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
# File 'lib/tk.rb', line 2183

def Tk.const_missing(sym)
  case(sym)
  when :TCL_LIBRARY
    INTERP._invoke_without_enc('global', 'tcl_library')
    INTERP._invoke("set", "tcl_library").freeze

  when :TK_LIBRARY
    INTERP._invoke_without_enc('global', 'tk_library')
    INTERP._invoke("set", "tk_library").freeze

  when :LIBRARY
    INTERP._invoke("info", "library").freeze

  #when :PKG_PATH, :PACKAGE_PATH, :TCL_PACKAGE_PATH
  #  INTERP._invoke_without_enc('global', 'tcl_pkgPath')
  #  tk_split_simplelist(INTERP._invoke('set', 'tcl_pkgPath'))

  #when :LIB_PATH, :LIBRARY_PATH, :TCL_LIBRARY_PATH
  #  INTERP._invoke_without_enc('global', 'tcl_libPath')
  #  tk_split_simplelist(INTERP._invoke('set', 'tcl_libPath'))

  when :PLATFORM, :TCL_PLATFORM
    INTERP._invoke_without_enc('global', 'tcl_platform')
    Hash[*tk_split_simplelist(INTERP._invoke_without_enc('array', 'get',
                                                         'tcl_platform'))]

  when :ENV
    INTERP._invoke_without_enc('global', 'env')
    Hash[*tk_split_simplelist(INTERP._invoke('array', 'get', 'env'))]

  #when :AUTO_PATH   #<===
  #  tk_split_simplelist(INTERP._invoke('set', 'auto_path'))

  #when :AUTO_OLDPATH
  #  tk_split_simplelist(INTERP._invoke('set', 'auto_oldpath'))

  when :AUTO_INDEX
    INTERP._invoke_without_enc('global', 'auto_index')
    Hash[*tk_split_simplelist(INTERP._invoke('array', 'get', 'auto_index'))]

  when :PRIV, :PRIVATE, :TK_PRIV
    priv = {}
    if INTERP._invoke_without_enc('info', 'vars', 'tk::Priv') != ""
      var_nam = 'tk::Priv'
    else
      var_nam = 'tkPriv'
    end
    INTERP._invoke_without_enc('global', var_nam)
    Hash[*tk_split_simplelist(INTERP._invoke('array', 'get',
                                             var_nam))].each{|k,v|
      k.freeze
      case v
      when /^-?\d+$/
        priv[k] = v.to_i
      when /^-?\d+\.?\d*(e[-+]?\d+)?$/
        priv[k] = v.to_f
      else
        priv[k] = v.freeze
      end
    }
    priv

  else
    raise NameError, 'uninitialized constant Tk::' + sym.id2name
  end
end

.current_grabs(win = nil) ⇒ Object


2481
2482
2483
2484
2485
2486
2487
# File 'lib/tk.rb', line 2481

def Tk.current_grabs(win = nil)
  if win
    window(tk_call_without_enc('grab', 'current', win))
  else
    tk_split_list(tk_call_without_enc('grab', 'current'))
  end
end

.cursor_display(parent = None) ⇒ Object


47
48
49
50
51
52
53
# File 'lib/tkextlib/tcllib/cursor.rb', line 47

def self.cursor_display(parent=None)
  # Pops up a dialog with a listbox containing all the cursor names.
  # Selecting a cursor name will display it in that dialog.
  # This is simply for viewing any available cursors on the platform .
  #tk_call_without_enc('::cursor::display', parent)
  Tk::Tcllib::Cursor.cursor_display(parent)
end

.default_widget_setObject


343
344
345
# File 'lib/tk/autoload.rb', line 343

def default_widget_set
  @current_default_widget_set
end

.default_widget_set=(target) ⇒ Object


347
348
349
350
351
352
353
354
355
356
# File 'lib/tk/autoload.rb', line 347

def default_widget_set=(target)
  target = target.to_sym
  return target if target == @current_default_widget_set

  if (cmd = @TOPLEVEL_ALIAS_SETUP_PROC[target])
    cmd.call(target)
  end

  _replace_toplevel_aliases(target)
end

.define_topalias(sym, obj) ⇒ Object


401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
# File 'lib/tk/autoload.rb', line 401

def define_topalias(sym, obj)
  if obj.kind_of? String
    # obj is an autoload path
    Tk::TOPLEVEL_ALIASES.autoload(sym, obj)
    unless Tk::TOPLEVEL_ALIASES.autoload?(sym)
      # file is autoloaded?
      if @AUTOLOAD_FILE_SYM_TABLE.has_key?(obj) &&
          (loaded_obj = @AUTOLOAD_FILE_SYM_TABLE[obj][sym])
        Tk::TOPLEVEL_ALIASES.const_set(sym, loaded_obj)
      else
        fail ArgumentError, "cannot define autoload file (already loaded?)"
      end
    end
  else
    # object
    Tk::TOPLEVEL_ALIASES.const_set(sym, obj)
  end
end

.define_topobj(sym, obj) ⇒ Object


383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
# File 'lib/tk/autoload.rb', line 383

def define_topobj(sym, obj)
  if obj.kind_of? String
    # obj is an autoload path
    Object.autoload(sym, obj)
    unless Object.autoload?(sym)
      # file is autoloaded?
      if @AUTOLOAD_FILE_SYM_TABLE.has_key?(obj) &&
          (loaded_obj = @AUTOLOAD_FILE_SYM_TABLE[obj][sym])
        Object.const_set(sym, loaded_obj)
      else
        fail ArgumentError, "cannot define autoload file (already loaded?)"
      end
    end
  else
    # object
    Object.const_set(sym, obj)
  end
end

.delete_kinsoku(chars, mode = 'both') ⇒ Object


2541
2542
2543
2544
2545
2546
2547
2548
2549
# File 'lib/tk.rb', line 2541

def Tk.delete_kinsoku(chars, mode='both')
  begin
    if /^8\.*/ === TK_VERSION  && JAPANIZED_TK
      tk_split_simplelist(tk_call('kinsoku', 'delete', mode,
                          *(chars.split(''))))
    end
  rescue
  end
end

.destroy(*wins) ⇒ Object


2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
# File 'lib/tk.rb', line 2375

def Tk.destroy(*wins)
  #tk_call_without_enc('destroy', *wins)
  tk_call_without_enc('destroy', *(wins.collect{|win|
                                     if win.kind_of?(TkWindow)
                                       win.epath
                                     else
                                       win
                                     end
                                   }))
end

.EncodedString(str, enc = nil) ⇒ Object


112
# File 'lib/tk/autoload.rb', line 112

def Tk.EncodedString(str, enc = nil); Tk::EncodedString.new(str, enc); end

.errorCodeObject


2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
# File 'lib/tk.rb', line 2255

def Tk.errorCode
  INTERP._invoke_without_enc('global', 'errorCode')
  code = tk_split_simplelist(INTERP._invoke_without_enc('set', 'errorCode'))
  case code[0]
  when 'CHILDKILLED', 'CHILDSTATUS', 'CHILDSUSP'
    begin
      pid = Integer(code[1])
      code[1] = pid
    rescue
    end
  end
  code
end

.errorInfoObject


2250
2251
2252
2253
# File 'lib/tk.rb', line 2250

def Tk.errorInfo
  INTERP._invoke_without_enc('global', 'errorInfo')
  INTERP._invoke_without_enc('set', 'errorInfo')
end

.exitObject


2386
2387
2388
# File 'lib/tk.rb', line 2386

def Tk.exit
  TkCore::INTERP.has_mainwindow? && tk_call_without_enc('destroy', '.')
end

.focus(display = nil) ⇒ Object


2489
2490
2491
2492
2493
2494
2495
# File 'lib/tk.rb', line 2489

def Tk.focus(display=nil)
  if display == nil
    window(tk_call_without_enc('focus'))
  else
    window(tk_call_without_enc('focus', '-displayof', display))
  end
end

.focus_lastfor(win) ⇒ Object


2505
2506
2507
# File 'lib/tk.rb', line 2505

def Tk.focus_lastfor(win)
  window(tk_call_without_enc('focus', '-lastfor', win))
end

.focus_next(win) ⇒ Object


2509
2510
2511
# File 'lib/tk.rb', line 2509

def Tk.focus_next(win)
  TkManageFocus.next(win)
end

.focus_prev(win) ⇒ Object


2513
2514
2515
# File 'lib/tk.rb', line 2513

def Tk.focus_prev(win)
  TkManageFocus.prev(win)
end

.focus_to(win, force = false) ⇒ Object


2497
2498
2499
2500
2501
2502
2503
# File 'lib/tk.rb', line 2497

def Tk.focus_to(win, force=false)
  if force
    tk_call_without_enc('focus', '-force', win)
  else
    tk_call_without_enc('focus', win)
  end
end

.fromUTF8(str, encoding = nil) ⇒ Object


2555
2556
2557
# File 'lib/tk.rb', line 2555

def Tk.fromUTF8(str, encoding = nil)
  _fromUTF8(str, encoding)
end

.grid(*args) ⇒ Object


2421
2422
2423
# File 'lib/tk.rb', line 2421

def Tk.grid(*args)
  TkGrid.configure(*args)
end

.grid_forget(*args) ⇒ Object


2424
2425
2426
# File 'lib/tk.rb', line 2424

def Tk.grid_forget(*args)
  TkGrid.forget(*args)
end

.has_mainwindow?Boolean

Returns:

  • (Boolean)

2269
2270
2271
# File 'lib/tk.rb', line 2269

def Tk.has_mainwindow?
  INTERP.has_mainwindow?
end

.load_tcllibrary(file, pkg_name = None, interp = None) ⇒ Object


2286
2287
2288
# File 'lib/tk.rb', line 2286

def Tk.load_tcllibrary(file, pkg_name=None, interp=None)
  tk_call('load', file, pkg_name, interp)
end

.load_tclscript(file, enc = nil) ⇒ Object


2277
2278
2279
2280
2281
2282
2283
2284
# File 'lib/tk.rb', line 2277

def Tk.load_tclscript(file, enc=nil)
  if enc
    # TCL_VERSION >= 8.5
    tk_call('source', '-encoding', enc, file)
  else
    tk_call('source', file)
  end
end

.load_tclscript_rsrc(resource_name, file = None) ⇒ Object


13
14
15
16
# File 'lib/tk/macpkg.rb', line 13

def Tk.load_tclscript_rsrc(resource_name, file=None)
  # Mac only
  tk_call('source', '-rsrc', resource_name, file)
end

.load_tclscript_rsrcid(resource_id, file = None) ⇒ Object


18
19
20
21
# File 'lib/tk/macpkg.rb', line 18

def Tk.load_tclscript_rsrcid(resource_id, file=None)
  # Mac only
  tk_call('source', '-rsrcid', resource_id, file)
end

.lower_window(win, below = None) ⇒ Object


2472
2473
2474
2475
# File 'lib/tk.rb', line 2472

def Tk.lower_window(win, below=None)
  tk_call('lower', _epath(win), _epath(below))
  nil
end

.pack(*args) ⇒ Object


2411
2412
2413
# File 'lib/tk.rb', line 2411

def Tk.pack(*args)
  TkPack.configure(*args)
end

.pack_forget(*args) ⇒ Object


2414
2415
2416
# File 'lib/tk.rb', line 2414

def Tk.pack_forget(*args)
  TkPack.forget(*args)
end

.pkgconfig_get(mod, key) ⇒ Object


2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
# File 'lib/tk.rb', line 2320

def Tk.pkgconfig_get(mod, key)
  # Tk8.5 feature
  if mod.kind_of?(Module)
    if mod.respond_to?(:package_name)
      pkgname = mod.package_name
    else
      fail NotImplementedError, 'may not be a module for a Tcl extension'
    end
  else
    pkgname = mod.to_s
  end

  pkgname = '::' << pkgname unless pkgname =~ /^::/

  tk_call(pkgname + '::pkgconfig', 'get', key)
end

.pkgconfig_list(mod) ⇒ Object


2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
# File 'lib/tk.rb', line 2301

def Tk.pkgconfig_list(mod)
  # Tk8.5 feature
  if mod.kind_of?(Module)
    if mod.respond_to?(:package_name)
      pkgname = mod.package_name
    elsif mod.const_defined?(:PACKAGE_NAME)
      pkgname = mod::PACKAGE_NAME
    else
      fail NotImplementedError, 'may not be a module for a Tcl extension'
    end
  else
    pkgname = mod.to_s
  end

  pkgname = '::' << pkgname unless pkgname =~ /^::/

  tk_split_list(tk_call(pkgname + '::pkgconfig', 'list'))
end

.place(*args) ⇒ Object


2431
2432
2433
# File 'lib/tk.rb', line 2431

def Tk.place(*args)
  TkPlace.configure(*args)
end

.place_forget(*args) ⇒ Object


2434
2435
2436
# File 'lib/tk.rb', line 2434

def Tk.place_forget(*args)
  TkPlace.forget(*args)
end

.raise_window(win, above = None) ⇒ Object


2476
2477
2478
2479
# File 'lib/tk.rb', line 2476

def Tk.raise_window(win, above=None)
  tk_call('raise', _epath(win), _epath(above))
  nil
end

.regist_sym_for_loaded_file(auto, obj, sym) ⇒ Object


450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
# File 'lib/tk/autoload.rb', line 450

def regist_sym_for_loaded_file(auto, obj, sym)
  @AUTOLOAD_FILE_SYM_TABLE[auto][sym] = obj

  reg = /^#{Regexp.quote(auto)}(\.rb|\.so|)$/
  @TOPLEVEL_ALIAS_TABLE.each_key{|set|
    if @TOPLEVEL_ALIAS_TABLE[set][sym] =~ reg
      @TOPLEVEL_ALIAS_TABLE[set][sym] = obj
      if @TOPLEVEL_ALIAS_OWNER[sym].nil? || @TOPLEVEL_ALIAS_OWNER[sym] == set
        replace_topalias(sym, obj)
        replace_topobj(sym, obj) if set == @current_default_widget_set
      end
    end
  }
  if (f = Object.autoload?(sym)) && f =~ reg
    replace_topobj(sym, obj)
  end
  if (f = Tk::TOPLEVEL_ALIASES.autoload?(sym)) && f =~ reg
    replace_topalias(sym, obj)
  end
end

.replace_topalias(sym, obj) ⇒ Object

> old_obj (alias_filename or object) or nil


426
427
428
429
430
431
432
# File 'lib/tk/autoload.rb', line 426

def replace_topalias(sym, obj) #=> old_obj (alias_filename or object) or nil
  if old_obj = topalias_defined?(sym)
    Tk::TOPLEVEL_ALIASES.module_eval{remove_const sym} rescue nil #ignore err
  end
  define_topalias(sym, obj)
  old_obj
end

.replace_topobj(sym, obj) ⇒ Object

> old_obj (alias_filename or object) or nil


419
420
421
422
423
424
425
# File 'lib/tk/autoload.rb', line 419

def replace_topobj(sym, obj) #=> old_obj (alias_filename or object) or nil
  if old_obj = topobj_defined?(sym)
    Object.class_eval{remove_const sym} rescue nil # ignore err
  end
  define_topobj(sym, obj)
  old_obj
end

.set_topalias(target, obj, sym) ⇒ Object


472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
# File 'lib/tk/autoload.rb', line 472

def set_topalias(target, obj, sym)
  # obj is a kind of String : define autoload path
  #                  Class  : use the class object
  if target == @current_default_widget_set
    case @TOPLEVEL_ALIAS_OWNER[sym]
    when false
      # Object::sym is out of control. --> not change
      # Make ALIAS::sym under control, because target widget set is current.
      # Keep OWNER[sym]
      @TOPLEVEL_ALIAS_TABLE[target][sym] = obj
      replace_topalias(sym, obj)

    when target
      if current_obj = topobj_defined?(sym)
        if current_obj == obj
          # Make current_obj under control.
          # Keep Object::sym.
          # Keep OWNER[sym].
          @TOPLEVEL_ALIAS_TABLE[target][sym] = obj
          replace_topalias(sym, obj)

        else # current_obj != obj
          if current_obj == topalias_defined?(sym)
            # Change controlled object
            # Keep OWNER[sym].
            @TOPLEVEL_ALIAS_TABLE[target][sym] = obj
            replace_topalias(sym, obj)
            replace_topobj(sym, obj)

          else # current_obj != topalias_defined?(sym)
            # Maybe current_obj is defined by user. --> OWNER[sym] = faise
            # Keep Object::sym.
            @TOPLEVEL_ALIAS_OWNER[sym] = false
            @TOPLEVEL_ALIAS_TABLE[target][sym] = obj
            replace_topalias(sym, obj)
          end
        end

      else # NOT topobj_defined?(sym)
        # New definition for sym at target.
        # Keep OWNER[sym].
        @TOPLEVEL_ALIAS_TABLE[target][sym] = obj
        replace_topalias(sym, obj)
        define_topobj(sym, obj)
      end

    when nil
      # New definition for sym at target.
      @TOPLEVEL_ALIAS_OWNER[sym] = target
      @TOPLEVEL_ALIAS_TABLE[target][sym] = obj
      replace_topalias(sym, obj)

    else # others
      # Maybe planning to make sym under control.
      @TOPLEVEL_ALIAS_OWNER[sym] = target
      @TOPLEVEL_ALIAS_TABLE[target][sym] = obj
      replace_topalias(sym, obj)
      replace_topobj(sym, obj)
    end

  else # target != @current_default_widget_set
    case @TOPLEVEL_ALIAS_OWNER[sym]
    when false
      # Object::sym is out of control. --> not change
      if topalias_defined?(sym)
        # ALIAS[sym] may be defined by other widget set.
        # Keep Object::sym (even if it is not defined)
        # Keep ALIAS[sym].
        # Keep OWNER[sym].
        @TOPLEVEL_ALIAS_TABLE[target][sym] = obj

      else # NOT topalias_defined?(sym)
        # Nobody controls ALIAS[sym].
        # At leaset, current widget set doesn't control ALIAS[sym].
        # Keep Object::sym (even if it is not defined)
        # Keep OWNER[sym].
        @TOPLEVEL_ALIAS_TABLE[target][sym] = obj
        define_topalias(sym, obj)
      end

    when target
      # Maybe change controlled object, because Object::sym is under control.
      # Keep OWNER[sym].
      @TOPLEVEL_ALIAS_TABLE[target][sym] = obj
      replace_topalias(sym, obj)
      replace_topobj(sym, obj)

    when nil
      # New definition for sym
      @TOPLEVEL_ALIAS_OWNER[sym] = target
      @TOPLEVEL_ALIAS_TABLE[target][sym] = obj
      replace_topalias(sym, obj)
      replace_topobj(sym, obj)

    else # others
      # An other widget set controls sym.
      # Keep Object::sym (even if it is not defined)
      # Keep ALIAS[sym].
      # Keep OWNER[sym].
      @TOPLEVEL_ALIAS_TABLE[target][sym] = obj

    end
  end

  sym
end

.show_kinsoku(mode = 'both') ⇒ Object


2521
2522
2523
2524
2525
2526
2527
2528
# File 'lib/tk.rb', line 2521

def Tk.show_kinsoku(mode='both')
  begin
    if /^8\.*/ === TK_VERSION  && JAPANIZED_TK
      tk_split_simplelist(tk_call('kinsoku', 'show', mode))
    end
  rescue
  end
end

.sleep(ms = nil, id = nil) ⇒ Object


2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
# File 'lib/tk.rb', line 2392

def Tk.sleep(ms = nil, id = nil)
  if id
    var = (id.kind_of?(TkVariable))? id: TkVarAccess.new(id.to_s)
  else
    var = TkVariable.new
  end

  var.value = tk_call_without_enc('after', ms, proc{ var.value = 0 }) if ms
  var.thread_wait
  ms
end

.strictMotif(mode = None) ⇒ Object


2517
2518
2519
# File 'lib/tk.rb', line 2517

def Tk.strictMotif(mode=None)
  bool(tk_call_without_enc('set', 'tk_strictMotif', mode))
end

.subst_tk_backslash(str) ⇒ Object


2567
2568
2569
# File 'lib/tk.rb', line 2567

def Tk.subst_tk_backslash(str)
  Tk::EncodedString.subst_tk_backslash(str)
end

.subst_utf_backslash(str) ⇒ Object


2564
2565
2566
# File 'lib/tk.rb', line 2564

def Tk.subst_utf_backslash(str)
  Tk::EncodedString.subst_utf_backslash(str)
end

.tcl_pkgconfig_get(key) ⇒ Object


2342
2343
2344
2345
# File 'lib/tk.rb', line 2342

def Tk.tcl_pkgconfig_get(key)
  # Tk8.5 feature
  Tk.pkgconfig_get('::tcl', key)
end

.tcl_pkgconfig_listObject


2337
2338
2339
2340
# File 'lib/tk.rb', line 2337

def Tk.tcl_pkgconfig_list
  # Tk8.5 feature
  Tk.pkgconfig_list('::tcl')
end

.thread_update(idle = nil) ⇒ Object

NOTE

If no eventloop-thread is running, “thread_update” method is same to “update” method. Else, “thread_update” method waits to complete idletask operation on the eventloop-thread.


2461
2462
2463
2464
2465
2466
2467
# File 'lib/tk.rb', line 2461

def Tk.thread_update(idle=nil)
  if idle
    tk_call_without_enc('thread_update', 'idletasks')
  else
    tk_call_without_enc('thread_update')
  end
end

.thread_update_idletasksObject


2468
2469
2470
# File 'lib/tk.rb', line 2468

def Tk.thread_update_idletasks
  thread_update(true)
end

.tk_pkgconfig_get(key) ⇒ Object


2352
2353
2354
2355
# File 'lib/tk.rb', line 2352

def Tk.tk_pkgconfig_get(key)
  # Tk8.5 feature
  Tk.pkgconfig_get('::tk', key)
end

.tk_pkgconfig_listObject


2347
2348
2349
2350
# File 'lib/tk.rb', line 2347

def Tk.tk_pkgconfig_list
  # Tk8.5 feature
  Tk.pkgconfig_list('::tk')
end

.to_backslash_sequence(str) ⇒ Object


2576
2577
2578
# File 'lib/tk.rb', line 2576

def Tk.to_backslash_sequence(str)
  Tk::EncodedString.to_backslash_sequence(str)
end

.topalias_defined?(sym) ⇒ Boolean

> alias_filename or object or false

Returns:

  • (Boolean)

378
379
380
381
382
# File 'lib/tk/autoload.rb', line 378

def topalias_defined?(sym) #=> alias_filename or object or false
  Tk::TOPLEVEL_ALIASES.autoload?(sym) ||
    (Tk::TOPLEVEL_ALIASES.const_defined?(sym) &&
       Tk::TOPLEVEL_ALIASES.const_get(sym))
end

.toplevel_aliases_on_widget_set(widget_set) ⇒ Object


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

def toplevel_aliases_on_widget_set(widget_set)
  if (tbl = @TOPLEVEL_ALIAS_TABLE[widget_set.to_sym])
    tbl.collect{|k, v| (v.nil?)? nil: k}.compact
  else
    fail ArgumentError, "unknown widget_set #{widget_set.to_sym.inspect}"
  end
end

.topobj_defined?(sym) ⇒ Boolean

> alias_filename or object or false

Returns:

  • (Boolean)

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

def topobj_defined?(sym) #=> alias_filename or object or false
  Object.autoload?(sym) ||
    (Object.const_defined?(sym) && Object.const_get(sym))
end

.toUTF8(str, encoding = nil) ⇒ Object


2551
2552
2553
# File 'lib/tk.rb', line 2551

def Tk.toUTF8(str, encoding = nil)
  _toUTF8(str, encoding)
end

.ungrid(*args) ⇒ Object


2427
2428
2429
# File 'lib/tk.rb', line 2427

def Tk.ungrid(*args)
  TkGrid.forget(*args)
end

.unload_tcllibrary(*args) ⇒ Object


2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
# File 'lib/tk.rb', line 2290

def Tk.unload_tcllibrary(*args)
  if args[-1].kind_of?(Hash)
    keys = _symbolkey2str(args.pop)
    nocomp = (keys['nocomplain'])? '-nocomplain': None
    keeplib = (keys['keeplibrary'])? '-keeplibrary': None
    tk_call('unload', nocomp, keeplib, '--', *args)
  else
    tk_call('unload', *args)
  end
end

.unpack(*args) ⇒ Object


2417
2418
2419
# File 'lib/tk.rb', line 2417

def Tk.unpack(*args)
  TkPack.forget(*args)
end

.unplace(*args) ⇒ Object


2437
2438
2439
# File 'lib/tk.rb', line 2437

def Tk.unplace(*args)
  TkPlace.forget(*args)
end

.update(idle = nil) ⇒ Object


2441
2442
2443
2444
2445
2446
2447
# File 'lib/tk.rb', line 2441

def Tk.update(idle=nil)
  if idle
    tk_call_without_enc('update', 'idletasks')
  else
    tk_call_without_enc('update')
  end
end

.update_idletasksObject


2448
2449
2450
# File 'lib/tk.rb', line 2448

def Tk.update_idletasks
  update(true)
end

.UTF8_String(str) ⇒ Object


118
# File 'lib/tk/autoload.rb', line 118

def Tk.UTF8_String(str); Tk::UTF8_String.new(str); end

.utf_to_backslash(str) ⇒ Object


2573
2574
2575
# File 'lib/tk.rb', line 2573

def Tk.utf_to_backslash(str)
  Tk::EncodedString.utf_to_backslash_sequence(str)
end

.utf_to_backslash_sequence(str) ⇒ Object


2570
2571
2572
# File 'lib/tk.rb', line 2570

def Tk.utf_to_backslash_sequence(str)
  Tk::EncodedString.utf_to_backslash_sequence(str)
end

.wakeup(id) ⇒ Object


2404
2405
2406
2407
# File 'lib/tk.rb', line 2404

def Tk.wakeup(id)
  ((id.kind_of?(TkVariable))? id: TkVarAccess.new(id.to_s)).value = 0
  nil
end

.widget_set_symbolsObject


358
359
360
# File 'lib/tk/autoload.rb', line 358

def widget_set_symbols
  @TOPLEVEL_ALIAS_TABLE.keys
end

Instance Method Details

#encodingObject


40
41
42
# File 'sample/demos-en/tkencoding.rb', line 40

def encoding
  INTERP.encoding
end

#encoding=(name) ⇒ Object


36
37
38
# File 'sample/demos-en/tkencoding.rb', line 36

def encoding=(name)
  INTERP.encoding = name
end

#Grid(*args) ⇒ Object


9
# File 'lib/tk/autoload.rb', line 9

def Grid(*args); TkGrid.configure(*args); end

#Pack(*args) ⇒ Object


12
# File 'lib/tk/autoload.rb', line 12

def Pack(*args); TkPack.configure(*args); end

#Place(*args) ⇒ Object


15
# File 'lib/tk/autoload.rb', line 15

def Place(*args); TkPlace.configure(*args); end

#rootObject


2273
2274
2275
# File 'lib/tk.rb', line 2273

def root
  Tk::Root.new
end

#update(idle = nil) ⇒ Object


2451
2452
2453
2454
2455
# File 'lib/tk.rb', line 2451

def update(idle=nil)
  # only for backward compatibility (This never be recommended to use)
  Tk.update(idle)
  self
end