Annotation of capa/capa51/GUITools/manager.tcl, revision 1.4

1.4     ! albertel    1: # manager shell
        !             2: #  Copyright (C) 1992-2000 Michigan State University
        !             3: #
        !             4: #  The CAPA system is free software; you can redistribute it and/or
        !             5: #  modify it under the terms of the GNU Library General Public License as
        !             6: #  published by the Free Software Foundation; either version 2 of the
        !             7: #  License, or (at your option) any later version.
        !             8: #
        !             9: #  The CAPA system is distributed in the hope that it will be useful,
        !            10: #  but WITHOUT ANY WARRANTY; without even the implied warranty of
        !            11: #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
        !            12: #  Library General Public License for more details.
        !            13: #
        !            14: #  You should have received a copy of the GNU Library General Public
        !            15: #  License along with the CAPA system; see the file COPYING.  If not,
        !            16: #  write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
        !            17: #  Boston, MA 02111-1307, USA.
        !            18: #
        !            19: #  As a special exception, you have permission to link this program
        !            20: #  with the TtH/TtM library and distribute executables, as long as you
        !            21: #  follow the requirements of the GNU GPL in regard to all of the
        !            22: #  software in the executable aside from TtH/TtM.
        !            23: 
1.1       albertel   24: ###########################################################
                     25: # manager.tcl - 
1.4     ! albertel   26: # Created Guy Albertelli II 1998
1.1       albertel   27: ###########################################################
                     28: set gTclVer 1.0
                     29: 
                     30: ###########################################################
                     31: # createControlWindow
                     32: ###########################################################
                     33: # Creates the menu window 
                     34: ###########################################################
                     35: # Arguments: none
                     36: # Returns: nothing
                     37: # Globals: gWindowMenu - set to the name of Menu for the windows
                     38: #                        menu
                     39: ###########################################################
                     40: proc createControlWindow {} {
                     41:     global gWindowMenu gCapaConfig
                     42:     
                     43:     after 500 { dateUpdate }
                     44:     after 1000 { cleanWindowList }
                     45: 
                     46:     set gCapaConfig(Printer_selected) "0"
                     47:     set gCapaConfig(lprOneSided_command) "lpr "
                     48:     set gCapaConfig(lprTwoSided_command) ""
                     49:     set gCapaConfig(printer_option) ""
                     50:     
                     51:     wm withdraw .
                     52: 
                     53:     set menuFrame [menu .main -tearoff 0 -type tearoff -font 8x13bold \
                     54: 	  -disabledforeground grey85 ]
                     55:     
                     56:     wm title $menuFrame "Manager"
                     57: 
                     58:     $menuFrame post 0 0
                     59: 
                     60:     wm geometry $menuFrame "+0+20"
                     61:     $menuFrame add command -label "Manager" -foreground grey85 -background \
                     62: 	    black -state disabled 
                     63:     $menuFrame add command -label "Info..." -command { createInfoWindow }
                     64:     $menuFrame add cascade -label "Actions" -menu $menuFrame.actions
                     65:     $menuFrame add cascade -label "Windows" -menu $menuFrame.windows
                     66:     $menuFrame add cascade -label "Print" -menu $menuFrame.print
                     67:     $menuFrame add command -label "Remap..." -command { createRemapWindow }
                     68:     $menuFrame add command -label "Quit" -command { quit }
                     69: 
                     70:     set action  [menu $menuFrame.actions -tearoff 1 -font 8x13bold]
                     71:     set windows [menu $menuFrame.windows -tearoff 1 -font 8x13bold]
                     72:     set print   [menu $menuFrame.print -tearoff 1  -font 8x13bold]
                     73:     set score   [menu $menuFrame.scoring -tearoff 1 -font 8x13bold]
                     74:     set gWindowMenu $windows
                     75:     
                     76:     $action add command -label "Manage Classl" -command \
                     77:  	    { specifyClass "Pick classl file" "Classl" "classl" createClasslEditor }
                     78: #    $action add command -label "Edit capa.config" -command \
                     79: 	    { specifyClass "Pick a capa.config file" "CAPA configuration" \
                     80: 		  "capa.config" editCapaConfig }
                     81:     $action add cascade -label "Scoring" -menu $menuFrame.scoring
                     82:     $action add command -label "Generate Stats" -command \
                     83: 	    { specifyClass "Select the capa.config in the class directory" \
                     84: 		  "CAPA configuration" "capa.config" runCapaTools }
1.2       albertel   85:     $action add command -label "Send Class Email" -command \
1.3       albertel   86: 	{ specifyClass "Select the capa.config in the class directory" \
                     87: 	      "CAPA configuration" "capa.config" runGroupEmail }
1.1       albertel   88:     $action add command -label "Randomize Seating File" \
                     89: 	-command { RSstart [incr gUniqueNumber] }
                     90: 
                     91:     $score add command -label "Run Scorer" -command \
                     92: 	{ specifyClass "Pick set.qz file" "QZ file" "*.qz" runScorer }
                     93:     $score add command -label "ReScore a scorer.output" -command \
                     94: 	{ specifyClass "Pick scorer.output file" "scorer.output file" \
                     95: 	      "scorer.output.*" reScore }
                     96: 
                     97:     $print add command -label "Print Assignment" -command \
                     98: 	{ specifyClass "Select the capa.config in the class directory" \
                     99: 	      "CAPA configuration" "capa.config" printAssignment  }
                    100: 
                    101:     bind $menuFrame <Destroy> { quit 0 }
                    102: }
                    103: 
                    104: ###########################################################
                    105: # createInfoWindow
                    106: ###########################################################
                    107: # creates the Information window
                    108: ###########################################################
                    109: # Arguments: None
                    110: # Returns: Nothing
                    111: # Globals: gDate - the variable containg the current date 
                    112: #          gWindowMenu - used to register the new window in the
                    113: #                        windows menu
                    114: #          gVer - Stores the current version of Grader (set in 
                    115: #                 C init code
                    116: ###########################################################
                    117: proc createInfoWindow {} {
                    118:     global gDate gWindowMenu gVer gTclVer gCmd gCompileDate
                    119: 
                    120:     if { [winfo exists .about] } {
                    121: 	capaRaise .about
                    122: 	return 
                    123:     }
                    124: 
                    125:     set about [toplevel .about]
                    126: 
                    127:     $gWindowMenu add command -label "About" -command "capaRaise $about"
                    128: 
                    129:     wm title $about "About" 
                    130:     
                    131:     label $about.l1 -font 12x24 -text "Manager $gVer" -pady 20
                    132:     label $about.l4 -font 8x13 -text "Manager.tcl Version $gTclVer" -pady 20
                    133:     label $about.l6  -font 8x13 -text "$gCompileDate" 
                    134:     message $about.l2 -font 8x13 -text "Code by: Y. Tsai, G. Albertelli II Copyright Michigan State University Board of Trustees, 1992-1999, No Unauthorized Commercial Use" \
                    135: 	-pady 20 -aspect 300
                    136:     label $about.l3 -font 8x13 -textvariable gDate 
                    137:     label $about.l5  -font 8x13 -textvariable gCmd
                    138: 
                    139:     button $about.close -text "Close" -command "destroy $about
                    140:                                                 removeWindowEntry About"
                    141:     
                    142:     pack $about.l1 $about.l4 $about.l6 $about.l2 $about.l3 $about.l5 \
                    143: 	    $about.close -side top 
                    144: 
                    145:     Centre_Dialog $about default
                    146: }
                    147: 
                    148: ###########################################################
                    149: # quit
                    150: ###########################################################
                    151: # called when the quit option is selected on the menu, unmaps
                    152: # all keys.
                    153: ###########################################################
                    154: # Arguments: None
                    155: # Returns: Nothing
                    156: # Globals: None
                    157: ###########################################################
                    158: proc quit { { ask 1} } {
                    159:     if { $ask && [makeSure "Are you sure you wish to quit?"] == "Cancel" } {
                    160: 	return 
                    161:     }
                    162:     
                    163:     unmapAllKeys
                    164:     exit
                    165: }
                    166: 
                    167: ###########################################################
                    168: # specifyClass
                    169: ###########################################################
                    170: # runs tk_getOpenFile and creates the class window if a directory is chosen
                    171: ###########################################################
                    172: # Arguments: None
                    173: # Returns: Nothing
                    174: # Globals: gClassDir - remembers the directory the class is in
                    175: ###########################################################
                    176: proc specifyClass { title typename type followupCommand } {
                    177: #    set var [tk_getOpenFile]
                    178:     set var [tk_getOpenFile -title $title -filetypes \
                    179: 		 [list  [list  $typename $type ] { {All Files} {"*"} } ] ]
                    180:     
                    181:     if { $var == "" } {	return }
                    182:     
                    183:     $followupCommand $var
                    184: }
                    185: 
                    186: ###########################################################
                    187: # dateUpdate
                    188: ###########################################################
                    189: # updates the gDate var, and register to run again in .8 seconds
                    190: ###########################################################
                    191: # Arguments: None
                    192: # Returns: Nothing
                    193: # Globals: gDate - gets set to the current time and date
                    194: ###########################################################
                    195: proc dateUpdate { } {
                    196:     global gDate
                    197:     set gDate [clock format [clock seconds]]
                    198:     after 800 dateUpdate
                    199: }
                    200: 
                    201: ###########################################################
                    202: ###########################################################
                    203: ###########################################################
                    204: ###########################################################
                    205: proc askToSave { msg cmd } {
                    206:     global gChanged gPrompt
                    207:     
                    208:     set dialog [toplevel .askToSavePrompt -borderwidth 10]
                    209:     wm title $dialog "Do you wish to Save"
                    210:     wm geo $dialog "+200+200"
                    211:     message $dialog.msg -text $msg -aspect 800
                    212:     
                    213:     set gPrompt(result) ""
                    214:     set buttonFrame [frame $dialog.buttons -bd 10]
                    215:     pack $dialog.msg $buttonFrame -side top -fill x
                    216:     
                    217:     bind $dialog <Destroy> { 
                    218: 	set gPrompt(result) Cancel
                    219: 	set gPrompt(yes) 0
                    220:     }
                    221: 
                    222:     button $buttonFrame.yes -text Yes -underline 0 -command {
                    223: 	set gPrompt(yes) 1
                    224:     }
                    225:     button $buttonFrame.no -text No -underline 0 -command {
                    226: 	set gPrompt(yes) 0
                    227:     } 
                    228:     button $buttonFrame.cancel -text Cancel  -underline 0 -command { 
                    229: 	set gPrompt(yes) 0 
                    230: 	set gPrompt(result) Cancel
                    231:     }
                    232:     pack $buttonFrame.yes $buttonFrame.no $buttonFrame.cancel -side left
                    233:     bind $dialog <Alt-Key> break
                    234: 
                    235:     Centre_Dialog $dialog default
                    236:     update
                    237: 
                    238:     focus $dialog
                    239:     capaRaise $dialog
                    240:     capaGrab $dialog
                    241:     vwait gPrompt(yes)
                    242:     capaGrab release $dialog
                    243:     bind $dialog <Destroy> ""
                    244:     destroy $dialog
                    245:     if {$gPrompt(yes)} {
                    246: 	eval $cmd
                    247:     } else {
                    248: 	return $gPrompt(result)
                    249:     }
                    250: }    
                    251: 
                    252: ###########################################################
                    253: # printAssignment
                    254: ###########################################################
                    255: ###########################################################
                    256: ###########################################################
                    257: proc printAssignment { classconfig } {
                    258:     global gCT gFile gUniqueNumber gCapaConfig
                    259: 
                    260:     set num [incr gUniqueNumber]
                    261:     set gFile($num) [file dirname $classconfig]
                    262:     getOneStudent "" $gFile($num) s_id s_name    
                    263:     if { $s_id == "" } { return }
                    264:     set s_id [string toupper $s_id]
                    265:     if { "" == [set setlist [getSetRange "" $gFile($num)]] } { return }
                    266:     set cmdnum [incr gUniqueNumber]
                    267:     if { "Yes" != [makeSure "Are you sure you want to print set(s) [linsert $setlist 1 to] for student: $s_name"] } { 
                    268: 	return
                    269:     }
                    270:     displayStatus "Running qzparse" message $num
                    271:     parseCapaConfig $num $gFile($num)
                    272:     set command "$gCapaConfig($num.qzparse_command) -c $gFile($num) \
                    273:                  -set [lindex $setlist 0]:[lindex $setlist 1] -stu $s_id"
                    274:     eval "exec $command"
                    275:     set tex_file [file join $gFile($num) TeX $s_id.tex]
                    276:     set command "$gCapaConfig($num.latex_command) $tex_file"
                    277:     removeStatus $num
                    278:     if { "Yes" != [makeSure "Planning on running LaTeX, Continue?"] } { return }
                    279:     displayStatus "Running LaTeX" message $num
                    280:     set directory [pwd]
                    281:     cd [file join $gFile($num) TeX]
                    282:     eval "exec $command"
                    283:     cd $directory
                    284:     set dvi_file [file join $gFile($num) TeX $s_id.dvi]
                    285:     set ps_file [file join $gFile($num) TeX $s_id.ps]
                    286:     set command "$gCapaConfig($num.dvips_command) $dvi_file -o $ps_file >& /dev/null"
                    287:     removeStatus $num
                    288:     if { "Yes" != [makeSure "Planning on running dvips, Continue?"] } { return }
                    289:     displayStatus "Running dvips" message $num
                    290:     eval "exec $command"
                    291:     removeStatus $num
                    292:     if { "Cancel" == [set lprcmd [getLprCommand $ps_file $num]] } { return }
                    293:     if { [catch { eval "exec $lprcmd" } errors ] } {
                    294: 	displayError "An error occurred while printing: $errors"
                    295:     }
                    296:     foreach name [array names gCapaConfig "$num.*"] {
                    297: 	unset gCapaConfig($name)
                    298:     }
                    299: }
                    300: 
                    301: source common.tcl
                    302: source utils.tcl
                    303: source classl.tcl
                    304: source scorer.tcl
                    305: source scorer.anon.tcl
                    306: source scorer.errors.tcl
                    307: source capastats.tcl
                    308: source seating.tcl
1.2       albertel  309: source groupemail.tcl
1.1       albertel  310: 
                    311: set gUniqueNumber 0
                    312: set gMaxSet 99
                    313: set gMaxTries 99
                    314: option add *font 8x13bold
                    315: option add selectbackground #b4b4ff
                    316: createControlWindow

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