--- capa/capa51/GUITools/classl.tcl	2000/02/22 18:10:27	1.2
+++ capa/capa51/GUITools/classl.tcl	2000/03/22 21:08:02	1.3
@@ -67,15 +67,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]