This function sets the Callback for a connected event from SMI RED system.
fun [ObjSmi fun [ObjSmi u0] u1 u0] ObjSmi
Return : ObjSmi the same ObjSmi object if success, NIL otherwise