diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-06-24 03:29:24 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-06-24 03:29:24 +0000 |
| commit | 2e3404c1bb0a06aa7abb573eabdec98d1548751d (patch) | |
| tree | bf0773a3820e1e9648ac27dac751d92e586108bf /ext/tk/lib/tk.rb | |
| parent | fc114887e69a26f27a09faeb91ae3b18b620619e (diff) | |
* ext/tk/lib/tk.rb: fix typo on Tk.grid_propagate.
* ext/tk/lib/tk.rb: Tk.event_generate and TkWindow#event_generate
accept TkEvent::Event object as context argument.
* ext/tk/lib/tk/event.rb: add TkEvent::Event#valid_fields and
valid_for_generate to get field parameters of event_generate.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8656 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/lib/tk.rb')
| -rw-r--r-- | ext/tk/lib/tk.rb | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb index c076b741a5..9daee2de54 100644 --- a/ext/tk/lib/tk.rb +++ b/ext/tk/lib/tk.rb @@ -1516,7 +1516,9 @@ module TkCore def event_generate(win, context, keys=nil) #win = win.path if win.kind_of?(TkObject) - if keys + if context.kind_of?(TkEvent::Event) + context.generate(win, ((keys)? keys: {})) + elsif keys tk_call_without_enc('event', 'generate', win, "<#{tk_event_sequence(context)}>", *hash_kv(keys, true)) @@ -3500,7 +3502,9 @@ class TkObject<TkKernel =end def event_generate(context, keys=nil) - if keys + if context.kind_of?(TkEvent::Event) + context.generate(self, ((keys)? keys: {})) + elsif keys #tk_call('event', 'generate', path, # "<#{tk_event_sequence(context)}>", *hash_kv(keys)) tk_call_without_enc('event', 'generate', path, @@ -3832,9 +3836,9 @@ class TkWindow<TkObject # self #end if mode == None - TkGrid.propagete(self) + TkGrid.propagate(self) else - TkGrid.propagete(self, mode) + TkGrid.propagate(self, mode) self end end @@ -4149,7 +4153,7 @@ end #Tk.freeze module Tk - RELEASE_DATE = '2005-06-23'.freeze + RELEASE_DATE = '2005-06-24'.freeze autoload :AUTO_PATH, 'tk/variable' autoload :TCL_PACKAGE_PATH, 'tk/variable' |