--- capa/capa51/GUITools/quizzer.tcl	2000/01/31 18:34:13	1.13
+++ capa/capa51/GUITools/quizzer.tcl	2000/02/02 19:14:10	1.14
@@ -3638,10 +3638,11 @@ proc printWindow {} {
     pack $print.msg $oneSetFrame $moreSetFrame $buttonFrame -side top 
     pack configure $oneSetFrame $moreSetFrame -anchor w -fill x
    
+    set msg2Frame [frame $moreSetFrame.msg2 -relief solid -borderwidth 2]
     set infoFrame [frame $moreSetFrame.frame1]
-    set setFrame [frame $moreSetFrame.frame2 -relief solid -borderwidth 1]
-    pack $infoFrame $setFrame 
-    pack configure $infoFrame $setFrame -anchor w
+    set msg3Frame [frame $moreSetFrame.msg3 -relief solid -borderwidth 2]
+    set setFrame [frame $moreSetFrame.frame2] 
+    pack $msg2Frame $setFrame $msg3Frame $infoFrame -anchor w
     
     if {[catch {set gPrintSelection(sets)}]} {set gPrintSelection(sets) printCur}
     if {[catch {set gPrintSelection(type)}]} {set gPrintSelection(type) printSpecific}
@@ -3673,6 +3674,7 @@ proc printWindow {} {
     bind $print <Destroy> "removeWindowEntry Print"
     pack $buttonFrame.ok $buttonFrame.cancel -side left
     
+    set msgFrame [frame $oneSetFrame.msg -relief solid -borderwidth 2]
     set currentDviFrame [frame $oneSetFrame.currentDvi]
     set currentPreviewFrame [frame $oneSetFrame.currentPreview]
     set randomFrame [frame $oneSetFrame.random]
@@ -3680,11 +3682,18 @@ proc printWindow {} {
     set sectionFrame [frame $infoFrame.section]
     set multSectionFrame [frame $infoFrame.multsection]
     set wholeClassFrame [frame $infoFrame.wholeClass]
-    pack $currentDviFrame $currentPreviewFrame $randomFrame $specificFrame \
+    pack $msgFrame $currentDviFrame $currentPreviewFrame $randomFrame $specificFrame \
 	    $sectionFrame $multSectionFrame $wholeClassFrame -anchor w \
 	    -side top
     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" \
 	    -value "printCurrentDvi" -variable gPrintSelection(type) 
     pack $currentDviFrame.currentDvi -side left