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 |