Skip to content

Commit

Permalink
FIX: Always return size list in the order the user expects
Browse files Browse the repository at this point in the history
  • Loading branch information
vanyossi committed Oct 15, 2013
1 parent bef8601 commit c6ea8e9
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions artscript2.tcl
Original file line number Diff line number Diff line change
Expand Up @@ -1299,7 +1299,7 @@ proc getFinalSizelist {} {
} else {
set sizelist 0
}
return $sizelist
return [lreverse $sizelist]
}
# Returns scaled size fitting in destination measures
# w xh = original dimension dw x dh = Destination size
Expand All @@ -1319,7 +1319,7 @@ proc getOutputSizesForTree { size {formated 0}} {
set cur_w [lindex [split $size {x} ] 0]
set cur_h [lindex [split $size {x} ] 1]

set sizelist [lreverse [getFinalSizelist]]
set sizelist [getFinalSizelist]
foreach dimension $sizelist {
if {[string range $dimension end end] == "%"} {
set ratio [string trim $dimension {%}]
Expand Down

0 comments on commit c6ea8e9

Please sign in to comment.