version 1.13, 2000/01/31 18:34:13
|
version 1.15, 2000/02/08 22:18:11
|
Line 2029 proc checkHeader { numberParsed } {
|
Line 2029 proc checkHeader { numberParsed } {
|
# if { $gFirstTime } { set gFirstTime 0; return } |
# if { $gFirstTime } { set gFirstTime 0; return } |
set gLoadHeaderSet $gSetNumberText |
set gLoadHeaderSet $gSetNumberText |
set error [catch {getHeaderInfo}] |
set error [catch {getHeaderInfo}] |
if { [llength $gControlDates] > 2 } { |
catch { |
set gControlDates [linsert [lreverse [lrange $gControlDates 1 end]] 0 [lindex $gControlDates 0]] |
if { [llength $gControlDates] > 2 } { |
} |
set gControlDates [linsert [lreverse [lrange $gControlDates 1 end]] 0 [lindex $gControlDates 0]] |
|
} |
|
} |
if { $error == 1 } { |
if { $error == 1 } { |
set gHeaderQCount "0" |
set gHeaderQCount "0" |
set gControlDates "" |
set gControlDates "" |
Line 3638 proc printWindow {} {
|
Line 3640 proc printWindow {} {
|
pack $print.msg $oneSetFrame $moreSetFrame $buttonFrame -side top |
pack $print.msg $oneSetFrame $moreSetFrame $buttonFrame -side top |
pack configure $oneSetFrame $moreSetFrame -anchor w -fill x |
pack configure $oneSetFrame $moreSetFrame -anchor w -fill x |
|
|
|
set msg2Frame [frame $moreSetFrame.msg2 -relief solid -borderwidth 2] |
set infoFrame [frame $moreSetFrame.frame1] |
set infoFrame [frame $moreSetFrame.frame1] |
set setFrame [frame $moreSetFrame.frame2 -relief solid -borderwidth 1] |
set msg3Frame [frame $moreSetFrame.msg3 -relief solid -borderwidth 2] |
pack $infoFrame $setFrame |
set setFrame [frame $moreSetFrame.frame2] |
pack configure $infoFrame $setFrame -anchor w |
pack $msg2Frame $setFrame $msg3Frame $infoFrame -anchor w |
|
|
if {[catch {set gPrintSelection(sets)}]} {set gPrintSelection(sets) printCur} |
if {[catch {set gPrintSelection(sets)}]} {set gPrintSelection(sets) printCur} |
if {[catch {set gPrintSelection(type)}]} {set gPrintSelection(type) printSpecific} |
if {[catch {set gPrintSelection(type)}]} {set gPrintSelection(type) printSpecific} |
Line 3673 proc printWindow {} {
|
Line 3676 proc printWindow {} {
|
bind $print <Destroy> "removeWindowEntry Print" |
bind $print <Destroy> "removeWindowEntry Print" |
pack $buttonFrame.ok $buttonFrame.cancel -side left |
pack $buttonFrame.ok $buttonFrame.cancel -side left |
|
|
|
set msgFrame [frame $oneSetFrame.msg -relief solid -borderwidth 2] |
set currentDviFrame [frame $oneSetFrame.currentDvi] |
set currentDviFrame [frame $oneSetFrame.currentDvi] |
set currentPreviewFrame [frame $oneSetFrame.currentPreview] |
set currentPreviewFrame [frame $oneSetFrame.currentPreview] |
set randomFrame [frame $oneSetFrame.random] |
set randomFrame [frame $oneSetFrame.random] |
Line 3680 proc printWindow {} {
|
Line 3684 proc printWindow {} {
|
set sectionFrame [frame $infoFrame.section] |
set sectionFrame [frame $infoFrame.section] |
set multSectionFrame [frame $infoFrame.multsection] |
set multSectionFrame [frame $infoFrame.multsection] |
set wholeClassFrame [frame $infoFrame.wholeClass] |
set wholeClassFrame [frame $infoFrame.wholeClass] |
pack $currentDviFrame $currentPreviewFrame $randomFrame $specificFrame \ |
pack $msgFrame $currentDviFrame $currentPreviewFrame $randomFrame $specificFrame \ |
$sectionFrame $multSectionFrame $wholeClassFrame -anchor w \ |
$sectionFrame $multSectionFrame $wholeClassFrame -anchor w \ |
-side top |
-side top |
pack configure $specificFrame -expand true -fill both |
pack configure $specificFrame -expand true -fill both |
|
|
|
label $msgFrame.msg -text "Select:" |
|
pack $msgFrame.msg -anchor w |
|
label $msg2Frame.msg -text "Or Select:" |
|
pack $msg2Frame.msg -anchor w |
|
label $msg3Frame.msg -text "For:" |
|
pack $msg3Frame.msg -anchor w |
|
|
radiobutton $currentDviFrame.currentDvi -text "Print current .dvi" \ |
radiobutton $currentDviFrame.currentDvi -text "Print current .dvi" \ |
-value "printCurrentDvi" -variable gPrintSelection(type) |
-value "printCurrentDvi" -variable gPrintSelection(type) |
pack $currentDviFrame.currentDvi -side left |
pack $currentDviFrame.currentDvi -side left |
Line 3863 proc printBody { lprCommand { showComple
|
Line 3874 proc printBody { lprCommand { showComple
|
global gCapaConfig gStopPrinting gDonePrinting |
global gCapaConfig gStopPrinting gDonePrinting |
|
|
set errorMsg "" |
set errorMsg "" |
set error [ catch {exec $gCapaConfig(dvips_command) quiztemp.dvi \ |
set error [ catch {eval exec $gCapaConfig(dvips_command) quiztemp.dvi \ |
-o quiztemp.ps >& /dev/null} errorMsg ] |
-o quiztemp.ps >& /dev/null} errorMsg ] |
if { $error } { |
if { $error } { |
displayError \ |
displayError \ |