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

Diff for /capa/capa51/GUITools/classl.tcl between versions 1.2 and 1.5

version 1.2, 2000/02/22 18:10:27 version 1.5, 2000/08/07 20:47:29
Line 1 Line 1
   # 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 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.
   
 ###########################################################  ###########################################################
 # createClasslEditor  # createClasslEditor
 ###########################################################  ###########################################################
Line 67  proc createClasslEditor { classlFile } { Line 90  proc createClasslEditor { classlFile } {
 #action  #action
     button $actionFrame.add -text "Add" -command "classlAdd $num"      button $actionFrame.add -text "Add" -command "classlAdd $num"
     button $actionFrame.edit -text "Edit" -command "classlEdit $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.delete -text "Delete" -command "classlDelete $num"
     button $actionFrame.section -text "Change Section" -command "classlSectionChange $num"      button $actionFrame.section -text "Change Section" -command "classlSectionChange $num"
     button $actionFrame.sort -text "Sort" -command "classlSort $num"      button $actionFrame.sort -text "Sort" -command "classlSort $num"
     button $actionFrame.print -text "Print" -command "classlPrint $num"      button $actionFrame.print -text "Print" -command "classlPrint $num"
     button $actionFrame.find -text "Find" -command "classlFind $num"      button $actionFrame.find -text "Find" -command "classlFind $num"
     button $actionFrame.merge -text "Merge" -command "classlMerge $num"      button $actionFrame.merge -text "Merge" -command "classlMerge $num"
     pack $actionFrame.add $actionFrame.edit $actionFrame.delete $actionFrame.section \      pack $actionFrame.add $actionFrame.edit $actionFrame.save $actionFrame.delete \
  $actionFrame.sort $actionFrame.print $actionFrame.find $actionFrame.merge\   $actionFrame.section $actionFrame.sort $actionFrame.print $actionFrame.find \
  -side left   $actionFrame.merge -side left
   
 #window  #window
     set leftFrame [frame $windowFrame.left]      set leftFrame [frame $windowFrame.left]
Line 800  proc classlMerge { num } { Line 824  proc classlMerge { num } {
  $gClassl($num) selection set $max   $gClassl($num) selection set $max
     }      }
     displayMessage "Added $newentries students."      displayMessage "Added $newentries students."
 }  
   
   }
Removed from v.1.2  
changed lines
  Added in v.1.5

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