|
version 1.3, 1999/12/13 21:38:44
|
version 1.4, 1999/12/16 22:18:35
|
|
Line 1442 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" |
![[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