--- capa/capa51/GUITools/common.tcl 1999/09/28 21:25:36 1.1.1.1 +++ capa/capa51/GUITools/common.tcl 1999/10/26 16:47:36 1.2 @@ -573,6 +573,9 @@ proc parseCapaConfig { {num "" } { path "exam_path *= *" - "quiz_path *= *" - "supp_path *= *" - + "default_try_val *= *" - + "default_prob_val *= *" - + "default_hint_val *= *" - "others_path *= *" { set gCapaConfig($prefix[lindex $aline 0]) [lindex $aline end] } @@ -1179,7 +1182,7 @@ proc getString { window message } { proc multipleChoice { window message choices {single 1}} { global gPromptMC - set setWin [toplevel $window.getstring] + set setWin [toplevel $window.choice] set msgFrame [frame $setWin.msgFrame] set valFrame [frame $setWin.valFrame]