* ext/tk/, ext/tcltklib/: bug fix

* ext/tk/lib/tk.rb: better operation for SIGINT when processing callbacks.
* ext/tk/lib/tk/msgcat.rb: ditto.
* ext/tk/lib/tk/variable.rb: ditto.
* ext/tk/lib/tk/timer.rb: ditto.
* ext/tk/lib/tk/validation.rb: add Tk::ValidateConfigure.__def_validcmd()
  to define validatecommand methods easier
* ext/tk/lib/tk.rb (_genobj_for_tkwidget): support autoload Tk ext classes
* ext/tk/lib/tk/canvas.rb and so on: remove the parent widget type check
  for items (e.g. canvas items; depends on the class) to avoid some troubles
  on Tk extension widget class definition.
* ext/tk/lib/tkextlib/: add Iwidget and TkTable extension support
* ext/tk/sample/tkextlib/: add samples of Iwidget and TkTable


git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@6630 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 89 insertions, 0 deletions

diff --git a/ext/tk/sample/tkextlib/tktable/command.rb b/ext/tk/sample/tkextlib/tktable/command.rb
new file mode 100644
index 000000000..950bc0ccb
--- /dev/null
+++ b/ext/tk/sample/tkextlib/tktable/command.rb
@@ -0,0 +1,89 @@
+#!/usr/bin/env ruby
+##
+## 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)
+			  return 'OddRow' if row>0 && row%2 == 1
+			},
+			:coltagcommand=>proc{|col|
+			  col = Integer(col)
+			  return 'OddCol' if col>0 && col%2 == 1
+			}, 
+			: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