- sp->f = f;
- sp->clientData = clientData;
- if (f)
- Tcl_CreateFileHandler (sp->tcl_File, mask, ir_tcl_tk_select_proc, sp);
- else
- Tcl_DeleteFileHandler (sp->tcl_File);
+ (*sp)->f = f;
+ (*sp)->clientData = clientData;
+ Tcl_CreateFileHandler ((*sp)->tcl_File, mask, ir_tcl_tk_select_proc, *sp);