Class: Tk::BLT::Watch

Inherits:
TkObject show all
Extended by:
TkCore
Defined in:
lib/tkextlib/blt/watch.rb

Constant Summary collapse

TkCommandNames = 
['::blt::watch'.freeze].freeze
WATCH_ID_TBL = 
TkCore::INTERP.create_table

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 TkUtil

TkUtil::None, TkUtil::RELEASE_DATE

Constants included from Tk

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

Constants included from Encoding

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

Class Method Summary collapse

Instance Method Summary collapse

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

Methods inherited from TkObject

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

Methods included from TkBindCore

#bind, #bind_append, #bind_remove, #bindinfo

Methods included from TkConfigMethod

#[], #[]=, __IGNORE_UNKNOWN_CONFIGURE_OPTION__, #__check_available_configure_options, __set_IGNORE_UNKNOWN_CONFIGURE_OPTION__!, #cget_tkstring, #config_hash_kv, #configure, #configure_cmd, #current_configinfo

Methods included from TkTreatFont

#font_configinfo, #font_configure, #font_copy, #kanjifont_configure, #kanjifont_copy, #latinfont_configure, #latinfont_copy

Methods included from Tk

BinaryString, EncodedString, #Grid, #Pack, #Place, UTF8_String, __create_widget_set__, __disable_toplevel_control__, __import_toplevel_aliases__, __regist_toplevel_aliases__, __remove_toplevel_aliases__, __reset_toplevel_owner__, __set_loaded_toplevel_aliases__, __set_toplevel_aliases__, __toplevel_alias_setup_proc__, _replace_toplevel_aliases, add_kinsoku, backup_current_topdef, bell, bell_on_display, const_missing, current_grabs, cursor_display, default_widget_set, default_widget_set=, define_topalias, define_topobj, delete_kinsoku, destroy, #encoding, #encoding=, errorCode, errorInfo, exit, focus, focus_lastfor, focus_next, focus_prev, focus_to, fromUTF8, grid, grid_forget, has_mainwindow?, load_tcllibrary, load_tclscript, load_tclscript_rsrc, load_tclscript_rsrcid, lower_window, pack, pack_forget, pkgconfig_get, pkgconfig_list, place, place_forget, raise_window, regist_sym_for_loaded_file, replace_topalias, replace_topobj, #root, set_topalias, show_kinsoku, sleep, strictMotif, subst_tk_backslash, subst_utf_backslash, tcl_pkgconfig_get, tcl_pkgconfig_list, thread_update, thread_update_idletasks, tk_pkgconfig_get, tk_pkgconfig_list, toUTF8, to_backslash_sequence, topalias_defined?, toplevel_aliases_on_widget_set, topobj_defined?, ungrid, unload_tcllibrary, unpack, unplace, update, #update, update_idletasks, utf_to_backslash, utf_to_backslash_sequence, wakeup, widget_set_symbols

Methods included from Encoding

#default_encoding=, #encoding=, #encoding_convertfrom, #encoding_convertto, #encoding_dirs, #encoding_dirs=, #encoding_name, #encoding_names, #encoding_obj, #encoding_objs, #encoding_system=, #encoding_system_name, #encoding_system_obj, #force_default_encoding, #force_default_encoding=, #force_default_encoding?, #tk_encoding_names

Methods inherited from TkKernel

new

Constructor Details

#initialize(name = nil, keys = {}) ⇒ Watch

Returns a new instance of Watch.



52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
# File 'lib/tkextlib/blt/watch.rb', line 52

def initialize(name = nil, keys = {})
  if name.kind_of?(Hash)
    keys = name
    name = nil
  end

  if name
    @id = name.to_s
  else
    BLT_WATCH_ID.mutex.synchronize{
      @id = BLT_WATCH_ID.join(TkCore::INTERP._ip_id_)
      BLT_WATCH_ID[1].succ!
    }
  end

  @path = @id

  WATCH_ID_TBL.mutex.synchronize{
    WATCH_ID_TBL[@id] = self
  }
  tk_call('::blt::watch', 'create', @id, *hash_kv(keys))
end

Dynamic Method Handling

This class handles dynamic methods through the method_missing method in the class TkObject

Class Method Details

.names(state = None) ⇒ Object 



28
29
30
31
32
33
34
35
 
# File 'lib/tkextlib/blt/watch.rb', line 28

def self.names(state = None)
  lst = tk_split_list(tk_call('::blt::watch', 'names', state))
  WATCH_ID_TBL.mutex.synchronize{
    lst.collect{|name|
      WATCH_ID_TBL[name] || name
    }
  }
end

Instance Method Details

#activate ⇒ Object 



75
76
77
78
 
# File 'lib/tkextlib/blt/watch.rb', line 75

def activate
  tk_call('::blt::watch', 'activate', @id)
  self
end

#cget(key) ⇒ Object 



158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
 
# File 'lib/tkextlib/blt/watch.rb', line 158

def cget(key)
  unless TkConfigMethod.__IGNORE_UNKNOWN_CONFIGURE_OPTION__
    cget_strict(key)
  else
    begin
      cget_strict(key)
    rescue => e
      if current_configinfo.has_key?(key.to_s)
        # error on known option
        fail e
      else
        # unknown option
        nil
      end
    end
  end
end

#cget_strict(key) ⇒ Object 



150
151
152
153
154
155
156
157
 
# File 'lib/tkextlib/blt/watch.rb', line 150

def cget_strict(key)
  key = key.to_s
  begin
    info.assoc(key)[1]
  rescue
    fail ArgumentError, "unknown option '#{key}'"
  end
end

#configinfo(slot = nil) ⇒ Object 



133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
 
# File 'lib/tkextlib/blt/watch.rb', line 133

def configinfo(slot = nil)
  if slot
    slot = slot.to_s
    v = cget(slot)
    if TkComm::GET_CONFIGINFO_AS_ARRAY
      [slot, v]
    else
      {slot=>v}
    end
  else
    if TkComm::GET_CONFIGINFO_AS_ARRAY
      info
    else
      Hash[*(info.flatten)]
    end
  end
end

#deactivate ⇒ Object 



79
80
81
82
 
# File 'lib/tkextlib/blt/watch.rb', line 79

def deactivate
  tk_call('::blt::watch', 'deactivate', @id)
  self
end

#delete ⇒ Object 



83
84
85
86
 
# File 'lib/tkextlib/blt/watch.rb', line 83

def delete
  tk_call('::blt::watch', 'delete', @id)
  self
end

#info ⇒ Object 



87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
 
# File 'lib/tkextlib/blt/watch.rb', line 87

def info
  ret = []
  lst = tk_split_simplelist(tk_call('::blt::watch', 'info', @id))
  until lst.empty?
    k, v, *lst = lst
    k = k[1..-1]
    case k
    when /^(#{__strval_optkeys.join('|')})$/
      # do nothing

    when /^(#{__numval_optkeys.join('|')})$/
      begin
        v = number(v)
      rescue
        v = nil
      end

    when /^(#{__numstrval_optkeys.join('|')})$/
      v = num_or_str(v)

    when /^(#{__boolval_optkeys.join('|')})$/
      begin
        v = bool(v)
      rescue
        v = nil
      end

    when /^(#{__listval_optkeys.join('|')})$/
      v = simplelist(v)

    when /^(#{__numlistval_optkeys.join('|')})$/
      v = list(v)

    else
      if v.index('{')
        v = tk_split_list(v)
      else
        v = tk_tcl2ruby(v)
      end
    end

    ret << [k, v]
  end

  ret
end