head 1.3; access; symbols pkgsrc-2013Q2:1.3.0.36 pkgsrc-2013Q2-base:1.3 pkgsrc-2012Q4:1.3.0.34 pkgsrc-2012Q4-base:1.3 pkgsrc-2011Q4:1.3.0.32 pkgsrc-2011Q4-base:1.3 pkgsrc-2011Q2:1.3.0.30 pkgsrc-2011Q2-base:1.3 pkgsrc-2009Q4:1.3.0.28 pkgsrc-2009Q4-base:1.3 pkgsrc-2008Q4:1.3.0.26 pkgsrc-2008Q4-base:1.3 pkgsrc-2008Q3:1.3.0.24 pkgsrc-2008Q3-base:1.3 cube-native-xorg:1.3.0.22 cube-native-xorg-base:1.3 pkgsrc-2008Q2:1.3.0.20 pkgsrc-2008Q2-base:1.3 pkgsrc-2008Q1:1.3.0.18 pkgsrc-2008Q1-base:1.3 pkgsrc-2007Q4:1.3.0.16 pkgsrc-2007Q4-base:1.3 pkgsrc-2007Q3:1.3.0.14 pkgsrc-2007Q3-base:1.3 pkgsrc-2007Q2:1.3.0.12 pkgsrc-2007Q2-base:1.3 pkgsrc-2007Q1:1.3.0.10 pkgsrc-2007Q1-base:1.3 pkgsrc-2006Q4:1.3.0.8 pkgsrc-2006Q4-base:1.3 pkgsrc-2006Q3:1.3.0.6 pkgsrc-2006Q3-base:1.3 pkgsrc-2006Q2:1.3.0.4 pkgsrc-2006Q2-base:1.3 pkgsrc-2006Q1:1.3.0.2 pkgsrc-2006Q1-base:1.3 pkgsrc-2005Q4:1.2.0.2 pkgsrc-2005Q4-base:1.2 pkgsrc-2005Q3:1.1.0.6 pkgsrc-2005Q3-base:1.1 pkgsrc-2005Q2:1.1.0.4 pkgsrc-2005Q2-base:1.1 pkgsrc-2005Q1:1.1.0.2 pkgsrc-2005Q1-base:1.1; locks; strict; comment @# @; 1.3 date 2006.01.03.14.41.21; author taca; state dead; branches; next 1.2; 1.2 date 2005.11.02.08.59.42; author taca; state Exp; branches; next 1.1; 1.1 date 2005.01.23.17.37.48; author taca; state Exp; branches; next ; desc @@ 1.3 log @Update ruby-tk pacakge to 1.8.4. x11/ruby-tcltk package was merged to this pacakge now. @ text @$NetBSD: patch-ab,v 1.2 2005/11/02 08:59:42 taca Exp $ --- lib/tkextlib/tktable/tktable.rb.orig 2005-08-09 15:16:04.000000000 +0900 +++ lib/tkextlib/tktable/tktable.rb @@@@ -360,16 +360,16 @@@@ class Tk::TkTable end def border_mark(x, y) - simplelist(tk_send('scan', 'mark', x, y)) + simplelist(tk_send('border', 'mark', x, y)) end def border_mark_row(x, y) - tk_send('scan', 'mark', x, y, 'row') + tk_send('border', 'mark', x, y, 'row') end def border_mark_col(x, y) - tk_send('scan', 'mark', x, y, 'col') + tk_send('border', 'mark', x, y, 'col') end def border_dragto(x, y) - tk_send('scan', 'dragto', x, y) + tk_send('border', 'dragto', x, y) end def clear_cache(first=None, last=None) @ 1.2 log @- Reset PKGREVISION by updating Ruby 1.8.3. - Add one fix from ruby_1_8 branch. @ text @d1 1 a1 1 $NetBSD$ @ 1.1 log @Update to Ruby 1.8.2 base and thses changes: * ext/tk/lib/multi-tk.rb: ditto * some fixes to run examples (not yet complete). @ text @d3 4 a6 26 --- lib/multi-tk.rb.orig 2004-12-20 14:10:33.000000000 +0900 +++ lib/multi-tk.rb @@@@ -189,7 +189,9 @@@@ class MultiTkIp unless ip.deleted? ip._split_tklist(ip._invoke('interp', 'slaves')).each{|name| begin - ip._eval_without_enc("#{name} eval {foreach i [after info] {after cancel $i}}") + # ip._eval_without_enc("#{name} eval {foreach i [after info] {after cancel $i}}") + after_ids = ip._eval_without_enc("#{name} eval {after info}") + ip._eval_without_enc("#{name} eval {foreach i {#{after_ids}} {after cancel $i}}") rescue Exception end begin @@@@ -236,7 +238,9 @@@@ class MultiTkIp @@slave_ip_tbl.each{|name, subip| _destroy_slaves_of_slaveIP(subip) begin - subip._eval_without_enc("foreach i [after info] {after cancel $i}") + # subip._eval_without_enc("foreach i [after info] {after cancel $i}") + after_ids = subip._eval_without_enc("after info") + subip._eval_without_enc("foreach i {#{after_ids}} {after cancel $i}") rescue Exception end =begin @@@@ -270,7 +274,9 @@@@ class MultiTkIp } d8 16 a23 21 begin - @@interp._eval_without_enc("foreach i [after info] {after cancel $i}") + # @@interp._eval_without_enc("foreach i [after info] {after cancel $i}") + after_ids = @@interp._eval_without_enc("after info") + @@interp._eval_without_enc("foreach i {#{after_ids}} {after cancel $i}") rescue Exception end begin @@@@ -310,7 +316,9 @@@@ class MultiTkIp @@slave_ip_tbl.each{|name, subip| _destroy_slaves_of_slaveIP(subip) begin - subip._eval_without_enc("foreach i [after info] {after cancel $i}") + # subip._eval_without_enc("foreach i [after info] {after cancel $i}") + after_ids = subip._eval_without_enc("after info") + subip._eval_without_enc("foreach i {#{after_ids}} {after cancel $i}") rescue Exception end =begin @@@@ -344,7 +352,9 @@@@ class MultiTkIp } d25 1 a25 39 begin - @@interp._eval_without_enc("foreach i [after info] {after cancel $i}") + # @@interp._eval_without_enc("foreach i [after info] {after cancel $i}") + after_ids = @@interp._eval_without_enc("after info") + @@interp._eval_without_enc("foreach i {#{after_ids}} {after cancel $i}") rescue Exception end =begin @@@@ -1315,7 +1325,7 @@@@ class MultiTkIp @@cmd_queue.enq([nil, cmd, *args]) rescue Exception => e # ignore - if $DEBUG || true + if $DEBUG warn("Warning: " + e.class.inspect + ((e.message.length > 0)? ' "' + e.message + '"': '') + " on " + self.inspect) @@@@ -1821,7 +1831,9 @@@@ class MultiTkIp end =end begin - subip._eval_without_enc("foreach i [after info] {after cancel $i}") + # subip._eval_without_enc("foreach i [after info] {after cancel $i}") + after_ids = subip._eval_without_enc("after info") + subip._eval_without_enc("foreach i {#{after_ids}} {after cancel $i}") rescue Exception end @@@@ -1850,7 +1862,9 @@@@ class MultiTkIp } begin - @@interp._eval_without_enc("foreach i [after info] {after cancel $i}") + # @@interp._eval_without_enc("foreach i [after info] {after cancel $i}") + after_ids = @@interp._eval_without_enc("after info") + @@interp._eval_without_enc("foreach i {#{after_ids}} {after cancel $i}") rescue Exception end =begin @