--- capa/capa51/GUITools/menu.tcl	2000/08/07 20:47:29	1.3
+++ capa/capa51/GUITools/menu.tcl	2001/05/18 20:54:23	1.4
@@ -1,27 +1,4 @@
-#!/usr/local/bin/wish8.0
-# simple CAPA menu
-#  Copyright (C) 1992-2000 Michigan State University
-#
-#  The CAPA system 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.
-#
-#  The CAPA system 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 the CAPA system; see the file COPYING.  If not,
-#  write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-#  Boston, MA 02111-1307, USA.
-#
-#  As a special exception, you have permission to link this program
-#  with the TtH/TtM library and distribute executables, as long as you
-#  follow the requirements of the GNU GPL in regard to all of the
-#  software in the executable aside from TtH/TtM.
-
+#!/usr/bin/wish
 set exelocation "/usr/local/bin"
 set imglocation "/usr/local/lib/CAPA"
 
@@ -31,6 +8,14 @@ foreach program {quizzer grader manager}
  button .$program -image $program.bm -command "exec $exelocation/$program &"
  pack .$program
 }
+button .passwd -text Password -command "exec userpasswd &"
+pack .passwd
+button .xterm -text XTerm -command "exec rxvt &"
+pack .xterm
+button .gedit -text GEdit -command "exec gedit &"
+pack .gedit
+button .quit -text Quit -command "exit"
+pack .quit
 wm title . "Menu"
 update idletasks
-wm geometry . -0+0
+wm geometry . -0+20