diff options
author | shyouhei <shyouhei@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2007-08-15 20:57:30 +0000 |
---|---|---|
committer | shyouhei <shyouhei@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2007-08-15 20:57:30 +0000 |
commit | 54ec1c4fe81672ca66f327ef6ae170f458cd79e5 (patch) | |
tree | 45a752c60a9a08d681a792b70f43c89903b638a2 /ruby_1_8_5/ext/tk/sample/optobj_sample.rb | |
parent | d464704f111d211c1f1ff9ef23ef1d755054be00 (diff) |
sorry. I made wrong tags.v1_8_5_54
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_8_5_54@13009 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ruby_1_8_5/ext/tk/sample/optobj_sample.rb')
-rw-r--r-- | ruby_1_8_5/ext/tk/sample/optobj_sample.rb | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/ruby_1_8_5/ext/tk/sample/optobj_sample.rb b/ruby_1_8_5/ext/tk/sample/optobj_sample.rb deleted file mode 100644 index cafacbdd17..0000000000 --- a/ruby_1_8_5/ext/tk/sample/optobj_sample.rb +++ /dev/null @@ -1,67 +0,0 @@ -#!/usr/bin/env ruby -# -# sample script of Tk::OptionObj -# -require "tk" - -optobj = Tk::OptionObj.new('foreground'=>'red', 'background'=>'black') - -f = TkFrame.new.pack(:side=>:left, :anchor=>:n, :padx=>5, :pady=>30) - -b1 = TkButton.new(f, :text=>'AAA').pack(:fill=>:x) -b2 = TkButton.new(f, :text=>'BBB').pack(:fill=>:x) -b3 = TkButton.new(f, :text=>'CCC').pack(:fill=>:x) - -optobj.assign( b1, - [ b2, 'configure', - { 'foreground'=>'background', - 'background'=>'foreground' } ], - [ b3, nil, - { 'foreground'=>'background', - 'activeforeground'=>nil, - 'background'=>['foreground', 'activeforeground'] } ] ) - -optobj.update('activeforeground'=>'yellow') - -TkButton.new(f){ - configure( optobj.assign(self) + {:text=>'DDD'} ) - pack(:fill=>:x) -} - -TkButton.new(f){ - configure( optobj.assign([self, nil, - {'foreground'=>'activeforeground', - 'background'=>'foreground', - 'activeforeground'=>'background'}]) \ - + {:text=>'EEE', :relief=>:groove, :borderwidth=>5} ) - pack(:fill=>:x) -} - -optobj.notify # To apply the convert_key ( 3rd element of widget info - # (that is, {'foreground'=>'activeforeground', ,,, } ) - # of the 'EEE' button - -TkButton.new(f, :text=>'toggle', - :command=>proc{ - fg = optobj['foreground'] - bg = optobj['background'] - optobj.configure('foreground'=>bg, 'background'=>fg) - }).pack(:fill=>:x, :pady=>10) - -TkButton.new(f, :text=>'exit', - :command=>proc{exit}).pack(:fill=>:x, :pady=>10) - -TkFrame.new{|f| - pack(:side=>:right, :expand=>true, :fill=>:both) - TkLabel.new(f, :text=>'source::').pack(:anchor=>:w) - TkFrame.new(f){|ff| - TkText.new(ff){ - yscrollbar(TkScrollbar.new(ff){pack(:fill=>:y, :side=>:right)}) - insert('end', File.read(__FILE__)) - pack(:side=>:left, :expand=>true, :fill=>:both) - } - pack(:expand=>true, :fill=>:both) - } -} - -Tk.mainloop |