tk.tcl

# $Id$ #

#
# /** Some tk tools. \file tk.tcl \ingroup display */
#

namespace eval display {

    proc rgbToTkColor {r g b} {
  # r g b: color specification in [0..255]
  # returns a tk hexadecimal color code
  return [format "#%02x%02x%02x" $r $g $b]
    }

    proc tkPhotoScaleCopy { source dest scale } {
  if {$scale > 1.0} {
      $dest blank
      $dest copy $source -zoom [expr round($scale)]
  } elseif {$scale < 1.0} {
      $dest blank
      $dest copy $source -subsample [expr round(1/$scale)]
  }
    }

}

package provide display 1.0