[Debian-astro-commits] [skycat] 03/05: Correct loop replacement once more
Ole Streicher
olebole at moszumanska.debian.org
Mon Feb 22 14:04:19 UTC 2016
This is an automated email from the git hooks/post-receive script.
olebole pushed a commit to branch debian
in repository skycat.
commit 9cc9b420fe2bf0bfe8c9f8b03280d1bb8ec05f85
Author: Ole Streicher <ole at aip.de>
Date: Mon Feb 22 14:19:54 2016 +0100
Correct loop replacement once more
---
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 7769b75..a26f94b 100644
--- a/debian/patches/remove_tclx.patch
+++ b/debian/patches/remove_tclx.patch
@@ -129,7 +129,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
@@ -138,7 +138,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
}
@@ -147,7 +147,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 } {
@@ -156,7 +156,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]
@@ -175,7 +175,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]
@@ -194,7 +194,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_
@@ -205,7 +205,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
}
@@ -214,7 +214,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
More information about the Debian-astro-commits
mailing list