mirror of
https://github.com/ruby/ruby.git
synced 2025-08-23 21:14:23 +02:00
ce1b23b7a5
* 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: svn+ssh://ci.ruby-lang.org/ruby/trunk@6630 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
60 lines
1.5 KiB
Ruby
60 lines
1.5 KiB
Ruby
#!/usr/bin/env ruby
|
|
##
|
|
## basic.rb
|
|
##
|
|
## This demo shows the basic use of the table widget
|
|
##
|
|
## ( based on 'basic.tcl' included source archive of tktable extension )
|
|
##
|
|
require 'tk'
|
|
require 'tkextlib/tktable'
|
|
|
|
ary = TkVariable.new_hash
|
|
rows = 8
|
|
cols = 8
|
|
|
|
# fill table variable
|
|
((-(rows))..rows).each{|x|
|
|
((-(cols))..cols).each{|y|
|
|
ary[x,y] = "r#{x},c#{y}"
|
|
}
|
|
}
|
|
|
|
lbl = TkLabel.new(:text=>"TkTable v1 Example")
|
|
|
|
table = Tk::TkTable.new(:rows=>rows, :cols=>cols, :variable=>ary,
|
|
:width=>6, :height=>6,
|
|
:titlerows=>1, :titlecols=>2,
|
|
:roworigin=>-1, :colorigin=>-2,
|
|
: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, :sparsearray=>false)
|
|
|
|
sx = table.xscrollbar(TkScrollbar.new)
|
|
sy = table.yscrollbar(TkScrollbar.new)
|
|
|
|
btn = TkButton.new(:text=>'Exit', :command=>proc{exit})
|
|
|
|
Tk.grid(lbl, '-', :sticky=>:ew)
|
|
Tk.grid(table, sy, :sticky=>:news)
|
|
Tk.grid(sx, :sticky=>:ew)
|
|
Tk.grid(btn, :sticky=>:ew, :columnspan=>2)
|
|
|
|
Tk.root.grid_columnconfig(0, :weight=>1)
|
|
Tk.root.grid_rowconfig(1, :weight=>1)
|
|
|
|
table.tag_configure('OddRow', :bg=>'orange', :fg=>'purple')
|
|
table.tag_configure('OddCol', :bg=>'brown', :fg=>'pink')
|
|
|
|
table.set_width([-2, 7], [-1, 7], [1, 5], [2, 8], [4, 14])
|
|
|
|
puts "Table is #{table.path} with array #{(table['variable'])}"
|
|
|
|
Tk.mainloop
|