version 1.6, 1999/12/03 18:39:38
|
version 1.7, 1999/12/07 19:10:47
|
Line 31 proc createGradeSubjWindow {} {
|
Line 31 proc createGradeSubjWindow {} {
|
|
|
set info [frame $gradSubj.info] |
set info [frame $gradSubj.info] |
set grade [frame $gradSubj.grade] |
set grade [frame $gradSubj.grade] |
|
set keyword [frame $gradSubj.keyword] |
set gSubj(pictFrame) [set picts [frame $gradSubj.picts -borderwidth 4 -relief groove]] |
set gSubj(pictFrame) [set picts [frame $gradSubj.picts -borderwidth 4 -relief groove]] |
pack $info $grade -side top |
pack $info $grade $keyword -side top |
|
|
set msg [frame $info.msg] |
set msg [frame $info.msg] |
set id [frame $info.id] |
set id [frame $info.id] |
Line 116 proc createGradeSubjWindow {} {
|
Line 117 proc createGradeSubjWindow {} {
|
pack $bot.scroll |
pack $bot.scroll |
pack configure $bot.scroll -expand 0 -fill x |
pack configure $bot.scroll -expand 0 -fill x |
|
|
|
set left [frame $keyword.left] |
|
set left2 [frame $keyword.left2] |
|
set right [frame $keyword.right] |
|
pack $left $left2 $right -side left |
|
|
|
set gSubj(keyword) [text $right.keyword -width 60 -height 5 \ |
|
-yscrollcommand "$right.scroll set" ] |
|
scrollbar $right.scroll -command "$right.response yview" |
|
pack $gSubj(keyword) $right.scroll -side left |
|
pack configure $right.scroll -fill y |
|
|
|
button $left.add -command "subjAddKeyword" -text "Add" |
|
button $left2.addsp -command "subjAddKeywordSpelling" -text "Add Sp" |
|
button $left.delete -command "subjDeleteKeyword" -text "Delete" |
|
button $left2.see -command "subjSeeKeyword" -text "See Sp" |
|
pack $left.add $left2.addsp $left.delete $left2.see -side top |
|
|
wm geometry $gradSubj "-10+0" |
wm geometry $gradSubj "-10+0" |
|
|
set score0 [frame $score.score0] |
set score0 [frame $score.score0] |
Line 143 proc createGradeSubjWindow {} {
|
Line 161 proc createGradeSubjWindow {} {
|
frame $command2.space2 -height 30 |
frame $command2.space2 -height 30 |
frame $command2.space22 -height 5 |
frame $command2.space22 -height 5 |
button $command1.next -text "Next" -command subjNext -width $buttonwidth |
button $command1.next -text "Next" -command subjNext -width $buttonwidth |
button $command2.prev -text "Prev" -command subjPrev -width $buttonwidth |
button $command1.prev -text "Prev" -command subjPrev -width $buttonwidth |
button $command1.findid -text "Find ID" -command subjFindId -width $buttonwidth |
button $command1.goto -text "GoTo" -command subjGoto -width $buttonwidth |
button $command2.addid -text "Add ID" -command subjAddId -width $buttonwidth |
|
button $command1.findname -text "Find Name" -command subjFindName -width $buttonwidth |
|
button $command2.goto -text "GoTo" -command subjGoto -width $buttonwidth |
|
button $command1.exit -text "Exit" -command subjDone -width $buttonwidth |
button $command1.exit -text "Exit" -command subjDone -width $buttonwidth |
|
button $command2.findid -text "Find ID" -command subjFindId -width $buttonwidth |
|
button $command2.addid -text "Add ID" -command subjAddId -width $buttonwidth |
|
button $command2.findname -text "Find Name" -command subjFindName -width $buttonwidth |
checkbutton $command2.wrap -text wrap -command subjWrap -variable gSubj(wrap) |
checkbutton $command2.wrap -text wrap -command subjWrap -variable gSubj(wrap) |
checkbutton $command2.pict -text pict -command subjPict -variable gSubj(pict) |
checkbutton $command2.pict -text pict -command subjPict -variable gSubj(pict) |
checkbutton $command1.done -text graded -variable gSubj(donestat) -state disabled |
checkbutton $command1.done -text graded -variable gSubj(donestat) -state disabled |
pack $command1.setnext $command2.set $command1.space1 $command2.space2 \ |
pack $command1.setnext $command2.set $command1.space1 $command2.space2 \ |
$command1.next $command2.prev $command1.findid \ |
$command1.next $command1.prev $command2.findid \ |
$command2.addid $command1.findname $command1.exit $command2.goto \ |
$command2.addid $command2.findname $command1.goto $command1.exit \ |
$command2.wrap $command2.pict $command1.done $command2.space22 |
$command2.wrap $command2.pict $command1.done $command2.space22 |
|
|
button $morebut.print -text "Print Response" -command subjPrint \ |
button $morebut.print -text "Print Response" -command subjPrint \ |