- for (i = 0; *wfdata[i].name; i++)
- {
- Tcl_AppendResult (p->interp, "{ ", NULL);
- Tcl_AppendElement (p->interp, wfdata[i].name);
- Tcl_AppendElement (p->interp, wfdata[i].value);
- Tcl_AppendResult (p->interp, " }\n", NULL);
- }
+ else
+ for ( ; wfdata; wfdata = wfdata->next)
+ {
+ Tcl_AppendResult (p->interp, "{ ", NULL);
+ Tcl_AppendElement (p->interp, wfdata->name);
+ Tcl_AppendElement (p->interp, wfdata->value ? wfdata->value : "");
+ Tcl_AppendResult (p->interp, " }\n", NULL);
+ }