--- capa/capa51/GUITools/grader.tcl 1999/09/28 21:25:36 1.1.1.1 +++ capa/capa51/GUITools/grader.tcl 1999/10/28 21:40:33 1.2 @@ -38,7 +38,12 @@ proc createControlWindow {} { $menuFrame add command -label "Grader" -foreground grey85 -background \ black -state disabled $menuFrame add command -label "Info..." -command { createInfoWindow } - $menuFrame add cascade -label "File" -menu $menuFrame.file + $menuFrame add command -label "Specify Class" -command { specifyClass } + $menuFrame add command -label "Create Class Report" -command { \ + createSummaryWindow } + $menuFrame add command -label "Grade Subjective" -command { gradeSubjective } + +# $menuFrame add cascade -label "File" -menu $menuFrame.file $menuFrame add command -label "Excuse Problem" -command { \ createExcuseWindow } $menuFrame add cascade -label "Windows" -menu $menuFrame.windows @@ -46,16 +51,11 @@ proc createControlWindow {} { $menuFrame add command -label "Remap..." -command { createRemapWindow } $menuFrame add command -label "Quit" -command { quit } - set file [menu $menuFrame.file -tearoff 1 -font 8x13bold ] +# set file [menu $menuFrame.file -tearoff 1 -font 8x13bold ] set windows [menu $menuFrame.windows -tearoff 1 -font 8x13bold] set print [menu $menuFrame.print -tearoff 1 -font 8x13bold] set gWindowMenu $windows - $file add command -label "Specify Class" -command { specifyClass } - $file add command -label "Create Class Report" -command { \ - createSummaryWindow } - $file add command -label "Grade Subjective" -command { gradeSubjective } - $print add command -label "Set Summary" -command { printSetSummary } $print add command -label "Term Summary" -command { printTermSummary }