diff options
| author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1999-12-01 09:24:48 +0000 |
|---|---|---|
| committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1999-12-01 09:24:48 +0000 |
| commit | fc41a9cb7df48d67eb6ee77fe8ce3f6bb3757ce4 (patch) | |
| tree | bcccfeb74a7a975d713727a964e89fd53cc80e05 /ext | |
| parent | 122d4994c7ce43b08e66da1c7d1fdce549a3f3ba (diff) | |
| download | ruby-fc41a9cb7df48d67eb6ee77fe8ce3f6bb3757ce4.tar.gz ruby-fc41a9cb7df48d67eb6ee77fe8ce3f6bb3757ce4.tar.xz ruby-fc41a9cb7df48d67eb6ee77fe8ce3f6bb3757ce4.zip | |
19991201
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@573 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/tk/lib/tkentry.rb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/tk/lib/tkentry.rb b/ext/tk/lib/tkentry.rb index 5822c00e5..90d5fe3b4 100644 --- a/ext/tk/lib/tkentry.rb +++ b/ext/tk/lib/tkentry.rb @@ -15,8 +15,8 @@ class TkEntry<TkLabel def create_self tk_call 'entry', @path end - def scrollcommand(cmd) - configure 'scrollcommand', cmd + def xscrollcommand(cmd=Proc.new) + configure_cmd 'xscrollcommand', cmd end def delete(s, e=None) @@ -45,7 +45,7 @@ class TkEntry<TkLabel tk_send 'selection', 'adjust', index end def selection_clear - tk_send 'selection', 'clear', 'end' + tk_send 'selection', 'clear' end def selection_from(index) tk_send 'selection', 'from', index |