--- capa/capa51/GUITools/classl.tcl	2000/02/22 18:10:27	1.2
+++ capa/capa51/GUITools/classl.tcl	2000/07/07 18:25:12	1.4
@@ -1,3 +1,26 @@
+# classl editor
+#  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 Library 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
+#  Library General Public License for more details.
+#
+#  You should have received a copy of the GNU Library 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.
+
 ###########################################################
 # createClasslEditor
 ###########################################################
@@ -67,15 +90,16 @@ proc createClasslEditor { classlFile } {
 #action
     button $actionFrame.add -text "Add" -command "classlAdd $num"
     button $actionFrame.edit -text "Edit" -command "classlEdit $num"
+    button $actionFrame.save -text "Save" -command "saveClassl $num 1"
     button $actionFrame.delete -text "Delete" -command "classlDelete $num"
     button $actionFrame.section -text "Change Section" -command "classlSectionChange $num"
     button $actionFrame.sort -text "Sort" -command "classlSort $num"
     button $actionFrame.print -text "Print" -command "classlPrint $num"
     button $actionFrame.find -text "Find" -command "classlFind $num"
     button $actionFrame.merge -text "Merge" -command "classlMerge $num"
-    pack $actionFrame.add $actionFrame.edit $actionFrame.delete $actionFrame.section \
-	$actionFrame.sort $actionFrame.print $actionFrame.find $actionFrame.merge\
-	-side left
+    pack $actionFrame.add $actionFrame.edit $actionFrame.save $actionFrame.delete \
+	$actionFrame.section $actionFrame.sort $actionFrame.print $actionFrame.find \
+	$actionFrame.merge -side left
 
 #window
     set leftFrame [frame $windowFrame.left]
@@ -800,4 +824,4 @@ proc classlMerge { num } {
 	$gClassl($num) selection set $max
     }
     displayMessage "Added $newentries students."
-}
\ No newline at end of file
+}