#    Copyright (C) 1998  Dennis Roddeman
#    email: dennis.roddeman@uibk.ac.at
#
#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
# 
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#   
#   
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software Foundation
#    59 Temple Place, Suite 330, Boston, MA, 02111-1307, USA

proc help { helptext } {

  global tnpath
  source $tnpath/vtn/global.tcl

  set w .helpwindow
  catch {destroy $w}
  toplevel $w
  wm title $w "Help"
  wm geometry $w $window_offset
  focus $w

  button $w.ok -text "Ok" -command "destroy $w"
  pack $w.ok -side bottom -pady 2m -anchor w

  message $w.msg -justify left -relief raised -text $helptext
  pack $w.msg -side left -anchor w -fill both -expand 1

}
