"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "ds9/library/prism.tcl" between
ds9.8.2.tar.gz and ds9.8.2.1.tar.gz

About: SAOImage DS9 is an astronomical imaging and data visualization application that supports FITS images and binary tables, multiple frame buffers, region manipulation, and many scale algorithms and colormaps.

prism.tcl  (ds9.8.2):prism.tcl  (ds9.8.2.1)
skipping to change at line 56 skipping to change at line 56
set var(tbldb) ${varname}tbldb set var(tbldb) ${varname}tbldb
set var(fn) {} set var(fn) {}
set var(rows) 0 set var(rows) 0
set var(type) fits set var(type) fits
set var(load) mmapincr set var(load) mmapincr
set var(ext) 0 set var(ext) 0
set var(extname) {} set var(extname) {}
set var(extnames) {} set var(extnames) {}
set var(extnum) 0 set var(extnum) 0
set var(search) {}
set var(canvas,theme) $pap(canvas,theme) set var(canvas,theme) $pap(canvas,theme)
# also set PrismExtCmd # also set PrismExtCmd
set var(start) 0 set var(start) 0
set var(goto) 1 set var(goto) 1
set var(xx) {} set var(xx) {}
set var(yy) {} set var(yy) {}
set var(xerr) {} set var(xerr) {}
skipping to change at line 1770 skipping to change at line 1771
# init db # init db
fitsy table $var(tbldb) true $var(start) $iprism(block) fitsy table $var(tbldb) true $var(start) $iprism(block)
fitsy close fitsy close
$var(tbl) configure -titlerows 2 $var(tbl) configure -titlerows 2
set t $var(tbldb) set t $var(tbldb)
starbase_colmap $t starbase_colmap $t
set nc [starbase_ncols $t] set nc [starbase_ncols $t]
if {$nc > $iprism(mincols)} {
$var(tbl) configure -cols $nc if {[expr $nc+1] > $iprism(mincols)} {
$var(tbl) configure -cols [expr $nc+1]
} else { } else {
$var(tbl) configure -cols $iprism(mincols) $var(tbl) configure -cols $iprism(mincols)
} }
set nr [starbase_nrows $t] set nr [starbase_nrows $t]
if {$nr > $iprism(minrows)} { if {$nr > $iprism(minrows)} {
$var(tbl) configure -rows [expr $nr+1] $var(tbl) configure -rows [expr $nr+1]
} else { } else {
$var(tbl) configure -rows $iprism(minrows) $var(tbl) configure -rows $iprism(minrows)
} }
 End of changes. 2 change blocks. 
2 lines changed or deleted 4 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)