diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-02 05:04:30 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-02 05:04:30 +0000 |
commit | 4c3328f5476f54c84b1f048eed075e6edf5e5b1d (patch) | |
tree | 92b661314bdfd045882e365e3e43b77f57244725 /ext/tk/sample/demos-en/tcolor | |
parent | d7bdf5df56f337d8ca1152598ff138703896c54b (diff) | |
download | ruby-4c3328f5476f54c84b1f048eed075e6edf5e5b1d.tar.gz |
* (bug fix) TkEntry#delete
* (bug fix) some widget demos
* support <TkVariable object> == <Symbol>
( "coerce TkVariable" add to the TODO list :-) )
* freeze some object for security reason
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4282 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/sample/demos-en/tcolor')
-rw-r--r-- | ext/tk/sample/demos-en/tcolor | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/ext/tk/sample/demos-en/tcolor b/ext/tk/sample/demos-en/tcolor index 8750d15c3e..6d023f0f8b 100644 --- a/ext/tk/sample/demos-en/tcolor +++ b/ext/tk/sample/demos-en/tcolor @@ -30,6 +30,12 @@ $label2 = TkVariable.new("label2") $label3 = TkVariable.new("label3") +# setup the entry of the resourc database +if (TkVarAccess.new('tcl_platform')['platform'] == 'unix') + TkOptionDB.add('*Entry.background', 'white') +end + + # 各イベント用のメソッド def rgbToHsv(red,green,blue) @@ -132,7 +138,7 @@ def tc_scaleChanged scale2 = $root.middle.middle.scale2 scale3 = $root.middle.middle.scale3 - case $colorSpace.to_i + case $colorSpace.value.intern when :rgb $red = (scale1.get * 65.535).to_i $green = (scale2.get * 65.535).to_i @@ -167,7 +173,7 @@ def tc_setScales scale2 = $root.middle.middle.scale2 scale3 = $root.middle.middle.scale3 - case $colorSpace.to_i + case $colorSpace.value.intern when :rgb scale1.set($red / 65.535) scale2.set($green / 65.535) @@ -289,7 +295,7 @@ class TkColorMenuFrame<TkFrame "command" => proc{changeColorSpace(:hsb)} add "separator" add "radio", - "label" => "Qutomatic updates", + "label" => "Automatic updates", "variable" => $autoUpdate, "value" => "1", "underline" => "0" @@ -367,7 +373,7 @@ class TkColorMiddleLeftFrame<TkFrame "relief"=>"sunken", "borderwidth"=>"2", "exportselection"=>"false") - @scroll.command(proc{|*args| @names.yview *args}) + @scroll.command(proc{|*args| @names.yview(*args)}) @names.bind("Double-1",proc{ tc_loadNamedColor(@names.get(@names.curselection))}) @names.pack("side"=>"left") @@ -490,8 +496,8 @@ end class TkColor<TkRoot attr_reader :menu, :bottom, :middle - def initialize - super + def initialize(*args) + super(*args) @menu = TkColorMenuFrame.new(self) @menu.pack("side"=>"top", "fill"=>"x") |