diff options
Diffstat (limited to 'ext/tk/sample/tkextlib/tktable/command.rb')
-rw-r--r-- | ext/tk/sample/tkextlib/tktable/command.rb | 90 |
1 files changed, 0 insertions, 90 deletions
diff --git a/ext/tk/sample/tkextlib/tktable/command.rb b/ext/tk/sample/tkextlib/tktable/command.rb deleted file mode 100644 index 05ee47aa17..0000000000 --- a/ext/tk/sample/tkextlib/tktable/command.rb +++ /dev/null @@ -1,90 +0,0 @@ -#!/usr/bin/env ruby -# frozen_string_literal: false -## -## command.rb -## -## This demo shows the use of the table widget's -command options -## -## ( based on 'command.tcl' included source archive of tktable extension ) -## -require 'tk' -require 'tkextlib/tktable' - -# create the table -data = TkVariable.new_hash -rows = 10 -cols = 10 - -# fill table variable -((-(rows))..rows).each{|x| - ((-(cols))..cols).each{|y| - data[x,y] = "#{x} x #{y}" - } -} - -lbl = TkLabel.new(:text=>"TkTable :command Example") -cur_var = TkVariable.new -current = TkLabel.new(:textvariable=>cur_var, :width=>5) -ent_var = TkVariable.new -entry = TkEntry.new(:textvariable=>ent_var) - -table = Tk::TkTable.new(:rows=>rows, :cols=>cols, - :command=>[proc{|mode, cell, val| - if (mode == :w) - data[cell] = val - else - begin - data[cell] # exist - rescue - '' # not exist - end - end - }, '%i %C %s'], - :width=>6, :height=>6, - :titlerows=>1, :titlecols=>1, - :roworigin=>-1, :colorigin=>-1, - :rowstretchmode=>:last, :colstretchmode=>:last, - :rowtagcommand=>proc{|row| - row = Integer(row) - (row>0 && row%2 == 1)? 'OddRow': '' - }, - :coltagcommand=>proc{|col| - col = Integer(col) - (col>0 && col%2 == 1)? 'OddCol': '' - }, - :selectmode=>:extended, :flashmode=>true, - :rowstretch=>:unset, :colstretch=>:unset, - :browsecommand=>[proc{|w, s| - cur_var.value = s - ent_var.value = w.get(s) - }, '%W %S'], - :validate=>true, - :validatecommand=>proc{|e| - ent_var.value = e.new_value; true - }) -=begin - :validatecommand=>[ - proc{|s| - ent_var.value = s; true - }, '%S']) -=end - -sx = table.xscrollbar(TkScrollbar.new) -sy = table.yscrollbar(TkScrollbar.new) - -entry.bind('Return', proc{|w| table.curvalue = w.value}, '%W') - -Tk.grid(lbl, '-', '-', :sticky=>:ew) -Tk.grid(current, entry, '-', :sticky=>:ew) -Tk.grid(table, '-', sy, :sticky=>:news) -Tk.grid(sx, '-', :sticky=>:ew) - -Tk.root.grid_columnconfig(1, :weight=>1) -Tk.root.grid_rowconfig(2, :weight=>1) - -table.tag_configure('OddRow', :bg=>'orange', :fg=>'purple') -table.tag_configure('OddCol', :bg=>'brown', :fg=>'pink') - -puts "Table is #{table.path}" - -Tk.mainloop |