Posted to tcl by ro at Fri Jan 11 08:10:05 GMT 2008view raw

  1.  
  2. SDL_Rect *rect;
  3.  
  4. int p;
  5. if (Tcl_GetIntFromObj(interp, objv[1], &p) != TCL_OK) {
  6. return TCL_ERROR;
  7. }
  8.  
  9. rect = (SDL_Rect*)p;
  10.  
  11. Tcl_SetObjResult(interp, Tcl_NewIntObj(rect->x));
  12.