--- capa/capa51/GUITools/quizzer.tcl	1999/10/20 19:57:37	1.4
+++ capa/capa51/GUITools/quizzer.tcl	1999/10/26 16:47:36	1.5
@@ -2282,7 +2282,25 @@ proc showParseErrors {} {
 	    $gParseErrorsText delete 0.0 end
 	    capaRaise .parseErrors
 	}
-	
+	foreach line [split $parseErrors "\n"] {
+	    if { [regexp {File:.+->(.+), Line ([0-9]+): ERROR:} $line a one two three four five]} {
+		puts a:$a
+		puts one:$one
+		puts two:$two
+		puts three:$three
+		puts four:$four
+		puts five:$five
+	    } else {
+		if { [regexp {File:(.+), Line ([0-9]+): ERROR:} $line a one two three four five]} {
+		    puts a:$a
+		    puts one:$one
+		    puts two:$two
+		    puts three:$three
+		    puts four:$four
+		    puts five:$five
+		}
+	    }
+	}
 	$gParseErrorsText insert end $parseErrors
     } else {
 	if { [winfo exists .parseErrors] } { $gParseErrorsText delete 0.0 end }
@@ -2420,6 +2438,7 @@ proc rereadCapaConfig { } {
 	displayError "Invalid capa.config file" 
 	set gCapaConfig(printer_option) $printer_option
     } 
+    setDefaultValues
     updateColors
 }
 
@@ -2438,16 +2457,24 @@ proc pickCapaConfig { } {
 	cd [file dirname $file]	
 	set error [parseCapaConfig]
 	if { $error != "OK" } { displayError "Invalid capa.config file"; cd $oldDir } 
+	setDefaultValues
     } 
 }
 
+proc setDefaultValues {} {
+    global gProbVal gTryVal gHintVal gCapaConfig
+    catch {set gProbVal $gCapaConfig(default_prob_val)}
+    catch {set gTryVal $gCapaConfig(default_try_val)}
+    catch {set gHintVal $gCapaConfig(default_hint_val)}
+}
+
 ###########################################################
 # openDocument
 ###########################################################
 ###########################################################
 ###########################################################
 proc openDocument {} {
-    global gFile gTextWindow gSetNumberText gPrefs gChanged gQuizTemp gUndo
+    global gFile gTextWindow gSetNumberText gPrefs gChanged gQuizTemp gUndo 
 
     if { $gChanged } { if { [askToSave 0 0] == "Cancel" } { return } }
     if { ![catch {set gTextWindow}] } { 
@@ -2517,7 +2544,8 @@ proc openDocument {} {
 	set gQuizTemp true
         return
     }
-	
+    setDefaultValues
+
     createEditingWindow 0
     $gTextWindow delete 0.0 end
     $gTextWindow insert 0.0 [read $fileId [file size $gFile]]