|
version 1.1.1.1, 1999/09/28 21:25:36
|
version 1.4, 1999/12/16 22:18:35
|
|
Line 573 proc parseCapaConfig { {num "" } { path
|
Line 573 proc parseCapaConfig { {num "" } { path
|
| "exam_path *= *" - |
"exam_path *= *" - |
| "quiz_path *= *" - |
"quiz_path *= *" - |
| "supp_path *= *" - |
"supp_path *= *" - |
| |
"default_try_val *= *" - |
| |
"default_prob_val *= *" - |
| |
"default_hint_val *= *" - |
| "others_path *= *" { |
"others_path *= *" { |
| set gCapaConfig($prefix[lindex $aline 0]) [lindex $aline end] |
set gCapaConfig($prefix[lindex $aline 0]) [lindex $aline end] |
| } |
} |
|
Line 1132 proc getOneStudent { window path idVar n
|
Line 1135 proc getOneStudent { window path idVar n
|
| ########################################################### |
########################################################### |
| ########################################################### |
########################################################### |
| ########################################################### |
########################################################### |
| proc getString { window message } { |
proc getString { window message {type "any"}} { |
| global gPrompt |
global gPrompt |
| set setWin [toplevel $window.getstring] |
set setWin [toplevel $window.getstring] |
| |
|
|
Line 1143 proc getString { window message } {
|
Line 1146 proc getString { window message } {
|
| |
|
| |
|
| set gPrompt(val) "" |
set gPrompt(val) "" |
| entry $valFrame.val -textvariable gPrompt(val) |
entry $valFrame.val -textvariable gPrompt(val) -validate key \ |
| |
-validatecommand "limitEntry %W -1 $type %P" |
| pack $valFrame.val |
pack $valFrame.val |
| |
|
| message $msgFrame.msg -text $message -aspect 3000 |
message $msgFrame.msg -text $message -aspect 3000 |
|
Line 1179 proc getString { window message } {
|
Line 1183 proc getString { window message } {
|
| proc multipleChoice { window message choices {single 1}} { |
proc multipleChoice { window message choices {single 1}} { |
| global gPromptMC |
global gPromptMC |
| |
|
| set setWin [toplevel $window.getstring] |
set setWin [toplevel $window.choice] |
| |
|
| set msgFrame [frame $setWin.msgFrame] |
set msgFrame [frame $setWin.msgFrame] |
| set valFrame [frame $setWin.valFrame] |
set valFrame [frame $setWin.valFrame] |
|
Line 1438 proc getSet { pid set followupCommand {s
|
Line 1442 proc getSet { pid set followupCommand {s
|
| if { [array names gGetSet exit] == "" } { set gGetSet(exit) 0 } |
if { [array names gGetSet exit] == "" } { set gGetSet(exit) 0 } |
| } |
} |
| if { [catch {set gCapaConfig(getSet.answers_command)}] } {parseCapaConfig getSet} |
if { [catch {set gCapaConfig(getSet.answers_command)}] } {parseCapaConfig getSet} |
| set command "$gCapaConfig(getSet.answers_command) $pid {} {} $set" |
set command "$gCapaConfig(getSet.answers_command) $pid {} 1 $set" |
| foreach var [array names gCapaConfig $num.*] { unset gCapaConfig($var) } |
foreach var [array names gCapaConfig $num.*] { unset gCapaConfig($var) } |
| set fileId [open "|$command" "r"] |
set fileId [open "|$command" "r"] |
| fileevent $fileId readable "getSetLine $num $fileId" |
fileevent $fileId readable "getSetLine $num $fileId" |
|
Line 1685 proc winprintText { num } {
|
Line 1689 proc winprintText { num } {
|
| ########################################################### |
########################################################### |
| proc limitEntry { window max type {newvalue ""}} { |
proc limitEntry { window max type {newvalue ""}} { |
| after idle "$window config -validate key" |
after idle "$window config -validate key" |
| if {[string length $newvalue] > $max } { return 0 } |
if {($max != -1) && ([string length $newvalue] > $max)} { return 0 } |
| switch $type { |
switch $type { |
| any {} |
any {} |
| number { if {(![regexp ^\[0-9\]+$ $newvalue])&&($newvalue!="")} { return 0 } } |
number { if {(![regexp ^\[0-9\]+$ $newvalue])&&($newvalue!="")} { return 0 } } |
| letter {if {(![regexp ^\[A-Za-z\]+$ $newvalue])&& ($newvalue!="")} { return 0 }} |
letter { if {(![regexp ^\[A-Za-z\]+$ $newvalue])&& ($newvalue!="")} { return 0 }} |
| |
nospace {if {(![regexp "^\[^ \]+$" $newvalue])&& ($newvalue!="")} { return 0 }} |
| } |
} |
| return 1 |
return 1 |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to common.tcl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / GUITools