[BACK]Return to menu.tcl CVS log [TXT] [DIR] Up to [LON-CAPA] / capa / capa51 / GUITools

Diff for /capa/capa51/GUITools/menu.tcl between versions 1.3 and 1.4

version 1.3, 2000/08/07 20:47:29 version 1.4, 2001/05/18 20:54:23
Line 1 Line 1
 #!/usr/local/bin/wish8.0  #!/usr/bin/wish
 # 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.  
   
 set exelocation "/usr/local/bin"  set exelocation "/usr/local/bin"
 set imglocation "/usr/local/lib/CAPA"  set imglocation "/usr/local/lib/CAPA"
   
Line 31  foreach program {quizzer grader manager} Line 8  foreach program {quizzer grader manager}
  button .$program -image $program.bm -command "exec $exelocation/$program &"   button .$program -image $program.bm -command "exec $exelocation/$program &"
  pack .$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"  wm title . "Menu"
 update idletasks  update idletasks
 wm geometry . -0+0  wm geometry . -0+20
Removed from v.1.3  
changed lines
  Added in v.1.4

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>