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 | a3f29338ad53c1027eeef0d3c7168d3355105d20 (patch) | |
tree | bcccfeb74a7a975d713727a964e89fd53cc80e05 /ext/tk | |
parent | 40517ecac82e4b406227bd30fd89d05c2e90bc87 (diff) | |
download | ruby-a3f29338ad53c1027eeef0d3c7168d3355105d20.tar.gz |
19991201
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@573 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk')
-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 5822c00e53..90d5fe3b43 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 |