diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-07-09 19:29:29 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-07-09 19:29:29 +0000 |
| commit | a77557a6b12033a845b1d2ef35e23210dccbb98e (patch) | |
| tree | 5e84584302570f87a94a98d9c30e1ca67e270a55 /ext/tk/tkutil.c | |
| parent | 238ba9f095bc1d95c9531e427ddcc80e0e36a6ba (diff) | |
| download | ruby-a77557a6b12033a845b1d2ef35e23210dccbb98e.tar.gz ruby-a77557a6b12033a845b1d2ef35e23210dccbb98e.tar.xz ruby-a77557a6b12033a845b1d2ef35e23210dccbb98e.zip | |
* ext/tk/lib/tk.rb: better operation for SIGINT when processing callbacks.
* ext/tk/lib/tk/msgcat.rb: ditto.
* ext/tk/lib/tk/variable.rb: ditto.
* ext/tk/lib/tk/timer.rb: ditto.
* ext/tk/lib/tk/validation.rb: add Tk::ValidateConfigure.__def_validcmd()
to define validatecommand methods easier
git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@6608 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/tkutil.c')
| -rw-r--r-- | ext/tk/tkutil.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ext/tk/tkutil.c b/ext/tk/tkutil.c index 39047804b..465461916 100644 --- a/ext/tk/tkutil.c +++ b/ext/tk/tkutil.c @@ -214,6 +214,10 @@ tk_symbolkey2str(self, keys) { volatile VALUE new_keys = rb_hash_new(); + if NIL_P(keys) return new_keys; + if (TYPE(keys) != T_HASH) { + rb_raise(rb_eArgError, "Hash is expected"); + } st_foreach(RHASH(keys)->tbl, to_strkey, new_keys); return new_keys; } |