[Debian-astro-commits] [skycat] 01/05: fix tclx loop replacement

[Ole Streicher]

This is an automated email from the git hooks/post-receive script.

olebole pushed a commit to branch debian
in repository skycat.

commit c7ace4a9c05d90ae19e0588c7467cb2f6f82459b
Author: Ole Streicher <ole at aip.de>
Date:   Mon Feb 22 14:00:01 2016 +0100

    fix tclx loop replacement
---
 debian/patches/remove_tclx.patch | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/debian/patches/remove_tclx.patch b/debian/patches/remove_tclx.patch
index 5c10977..54ca6c1 100644
--- a/debian/patches/remove_tclx.patch
+++ b/debian/patches/remove_tclx.patch
@@ -120,7 +120,7 @@ Note: For backporting to tcl8.5 and before, remove this patch and add
  	set tconfig_(sort_order) $sort_order
  
 -	loop i 0 $num_hdus_ {
-+	for {set i 0} {$i > $num_hdus_} {incr i} {
++	for {set i 0} {$i <= $num_hdus_} {incr i} {
              $tabnotebook_(table$i) config -sort_cols $sort_cols \
  		    -sort_order $sort_order
  	    $tabnotebook_(table$i) new_info
@@ -129,7 +129,7 @@ Note: For backporting to tcl8.5 and before, remove this patch and add
  	set val [set $var]
  	set tconfig_($label) $val
 -	loop i 0 $num_hdus_ {
-+	for {set i 0} {$i > $num_hdus_} {incr i} {
++	for {set i 0} {$i <= $num_hdus_} {incr i} {
  	    $tabnotebook_(table$i) set_option $label Show $val
  	    $tabnotebook_(table$i) new_info
  	}
@@ -138,7 +138,7 @@ Note: For backporting to tcl8.5 and before, remove this patch and add
  	set length [string length [$listbox get 0]]
  
 -        loop n $start_idx $end_idx {
-+        for {set n $start_idx} {$n > $end_idx} {incr n} {
++        for {set n $start_idx} {$n <= $end_idx} {incr n} {
  	    set row [string tolower [$listbox get $n]]
              if {[catch {regexp -indices $string $row indices} idx] } { continue }
  	    if { $idx > 0 } {
@@ -147,7 +147,7 @@ Note: For backporting to tcl8.5 and before, remove this patch and add
  
  	set ExtName "HDU 1"
 -	loop i 0 $hdu_count {
-+	for {set i 0} {$i > $hdu_count} {incr i} {
++	for {set i 0} {$i <= $hdu_count} {incr i} {
  	    set hdu [expr {$i + 1}]
  	    set list [lindex $hlist $i]
  	    
@@ -158,7 +158,7 @@ Note: For backporting to tcl8.5 and before, remove this patch and add
      private method svinfo {} {
  	set list [array get ext_ *NAXIS*]
 -	loop i 0 [llength $list] 2 {
-+	for {set i 0} {$i > [llength $list]} {incr i 2} {
++	for {set i 0} {$i <= [llength $list]} {incr i 2} {
  	    lappend newlist "[lindex $list $i] [lindex $list [expr {$i+1}]]"
  	}
  	set newlist [lsort -increasing -index 0 $newlist]
@@ -169,7 +169,7 @@ Note: For backporting to tcl8.5 and before, remove this patch and add
  		-menu [menu $magMenu_]
  
 -	loop i 2 31 {
-+	for {set i 2} {$i > 31} {incr i} {
++	for {set i 2} {$i <= 31} {incr i} {
  	    $m.mag add radiobutton -label " ${i}x" \
  		    -command [code $this scaleZoom $i] \
  		    -variable $magMenu_
@@ -180,7 +180,7 @@ Note: For backporting to tcl8.5 and before, remove this patch and add
      if {![lempty $item]} {
  	set text [lindex [$canvas itemconfigure $item -text] 4]
 -	loop i [$canvas index $item insert] [$canvas index $item end] {
-+	for {set i [$canvas index $item insert]} {$i > [$canvas index $item end]} {incr i} {
++	for {set i [$canvas index $item insert]} {$i <= [$canvas index $item end]} {incr i} {
  	    if {$char == [string index $text $i]} {
  		return $i
  	    }
@@ -189,7 +189,7 @@ Note: For backporting to tcl8.5 and before, remove this patch and add
      if {![lempty $item]} {
  	set text  [lindex [$canvas itemconfigure $item -text] 4]
 -	loop i [expr {[$canvas index $item insert] - 1}] 0 -1 {
-+	for {set i [expr {[$canvas index $item insert] - 1}]} {$i > 0} {decr i} {
++	for {set i [expr {[$canvas index $item insert] - 1}]} {$i >= 0} {decr i} {
  	    if {$char == [string index $text $i]} {
  		return $i
  	    }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-astro/packages/skycat.git