--- capa/capa51/GUITools/menu.tcl	1999/09/28 21:25:37	1.1
+++ capa/capa51/GUITools/menu.tcl	2001/05/18 20:54:23	1.4
@@ -1,4 +1,4 @@
-#!/usr/local/bin/wish8.0
+#!/usr/bin/wish
 set exelocation "/usr/local/bin"
 set imglocation "/usr/local/lib/CAPA"
 
@@ -8,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