diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-03 22:07:47 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-03 22:07:47 +0000 |
commit | a09c02a600e06aa4f90bc4cb5ccd5f5f1a56a97a (patch) | |
tree | 31fe3f70e93ec2024d7eae6a6f25c9bd69ddcfff /ext/tk/sample/demos-jp | |
parent | 381ff055059337befcdf33ef8590ac2c065cb9cc (diff) | |
download | ruby-a09c02a600e06aa4f90bc4cb5ccd5f5f1a56a97a.tar.gz |
* ready to use 'validatecommand' option of TkEntry/TkSpinbox widget
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4307 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/sample/demos-jp')
-rw-r--r-- | ext/tk/sample/demos-jp/spin.rb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/ext/tk/sample/demos-jp/spin.rb b/ext/tk/sample/demos-jp/spin.rb index 909d2b4818..4f6edc13c0 100644 --- a/ext/tk/sample/demos-jp/spin.rb +++ b/ext/tk/sample/demos-jp/spin.rb @@ -57,11 +57,10 @@ australianCities = [ ] [ - # 現状の Ruby/Tk (現在のバージョンは 1.8.0) では、validate オプションや - # それに関連するオプションへのサポートを十分に達成できていません。この - # 問題については、次または将来のバージョンで改善する予定です。 TkSpinbox.new($spin_demo, :from=>1, :to=>10, :width=>10, :validate=>:key, - :validatecommand=>"string is integer %P"), + :validatecommand=>[ + proc{|s| s == '' || /^[+-]?\d+$/ =~ s }, '%P' + ]), TkSpinbox.new($spin_demo, :from=>0, :to=>3, :increment=>0.5, :format=>'%05.2f', :width=>10), TkSpinbox.new($spin_demo, :values=>australianCities, :width=>10) |