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

Diff for /capa/capa51/GUITools/quizzer.tcl between versions 1.13 and 1.14

version 1.13, 2000/01/31 18:34:13 version 1.14, 2000/02/02 19:14:10
Line 3638  proc printWindow {} { Line 3638  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 3674  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 3682  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 
Removed from v.1.13  
changed lines
  Added in v.1.14

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