#!/usr/bin/wish

# Name     : Tcl/Tk Text Viewer
# Author   : Terrence Ma
# Email    : terrence@terrence.com
# Web      : http://www.terrence.com
# Date     : 09/01/2001
# License  : GNU GPL - http://www.gnu.org/copyleft/gpl.html
# Warranty : No Warranty

# procedure get file
proc getfile filename {
  .textview delete 1.0 end
  set filehandle [open $filename]
  while {![eof $filehandle]} {
    .textview insert end [read $filehandle 1000]
  }
  close $filehandle
}

# set widgets
text      .textview   -bg white -yscrollcommand ".scrollview set"
scrollbar .scrollview -command ".textview yview"

# check argument, get filename
if {($argc == 1) && ([file exists $argv])} {
  wm title . "Tcl/Tk Text Viewer"
  pack .textview   -side left
  pack .scrollview -side right -fill y
  getfile $argv

} else {
  puts "Usage: viewer.tcl filename"
}