/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: May 1, 1992 11:24:02 am PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: XTkInputFocusImpl, module: XTkInputFocusImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [990409401,827808397] XTkInputFocusImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {word f0, f1;} W2;
typedef struct {W8 f; W2 r;} W10;
#define SOURCE(p, l) /* source p, l */
static void NoName_Q1500();
static void XTkInputFocusImpl_P0();
static void SetFocus_P60();
static void GiveUpFocus_P120();
static word FocusFor_P300();
static word FirstFocusTarget_P360();
static word EachChild_P852();
static word NextFocusTarget_P420();
static word EachSibling_P1056();
static void SetNext_P480();
static void Implement_P540();
static void Delegate_P600();
static struct {unsigned f; char r[4];} string1 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\244\000\000"};
static struct {unsigned f; char r[40];} string4 = {2555943, "\011\000\004\106\000\040\006\011\020\004\101\201\100\174\001\100\200\001\100\204\001\100\210\001\100\220\001\100\264\001\100\270\001\100\274\001\100\304\001"};
static struct {unsigned f; char r[8];} string5 = {262152, "Next\000\000\000"};
static struct {unsigned f; char r[16];} string6 = {983056, "FocusDelegation"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\073\010\162\271\300\061\127\132\215\100\164\000\000"};
static struct {unsigned f; char r[4];} string8 = {196611, "\004p\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\150\000\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\255\065\245\005\300\213\277\037\112\100\150\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\054\174\025\242\300\120\014\117\154\100\150\000\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\241\212\365\147\300\210\002\141\100\100\150\000\000"};
static struct {
   word f0[14]; word f14; word f15; word f16; 
   word f17; word f18; word f19; word f20; 
   word f21; word f22; word f23; word f24; 
   word f25; word f26; word f27; word f28; 
   word f29; word f30; word f31[6]; 
   } globalframe = {
   {0}, (word) Delegate_P600, 0, (word) Implement_P540, 
   0, (word) SetNext_P480, 0, (word) NextFocusTarget_P420, 
   0, (word) FirstFocusTarget_P360, 0, (word) FocusFor_P300, 
   0, (word) GiveUpFocus_P120, 0, (word) SetFocus_P60, 
   0, (word) XTkInputFocusImpl_P0, {0}
   };

static void NoName_Q1500()
   {
   register ptr gf_c071 =  (ptr) &globalframe;
   word var_c13424;
   (* (( (ptr) gf_c071)+8) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c071)+11) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (*  (ptr) (( (bPt) gf_c071)+48) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c071)+8) ), (word) &string5);
   (*  (ptr) (( (bPt) gf_c071)+52) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c071)+8) ), (word) &string6);
   (void) XR_DeclareGlobalFrame((word) "XTkInputFocusImpl", &globalframe, (word) XR_GetTypeIndex((word) &string7, 0, (word) &string8)
      , (word) (( (bPt) gf_c071)+120)/* var_c12912 */ );
   var_c13424 = (word) XR_ImportInterface((word) "Xl", (word) XR_GetTypeIndexS((word) (&string9)), 218);
   (* (( (ptr) gf_c071)+35)/* var_c13040 */  ) = var_c13424;
   (void) XR_ImportProcS(var_c13424, 1344773);
   var_c13424 = (word) XR_ImportInterface((word) "XTk", (word) XR_GetTypeIndexS((word) (&string10)), 50);
   (* (( (ptr) gf_c071)+32)/* var_c12944 */  ) = var_c13424;
   (void) XR_ImportProcS(var_c13424, 786947);
   (void) XR_ImportProcS(var_c13424, 788227);
   (void) XR_ImportProcS(var_c13424, 798979);
   (void) XR_ImportProcS(var_c13424, 67634690);
   (void) XR_ImportProcS(var_c13424, 67378433);
   var_c13424 = (word) XR_ImportInterface((word) "XTkPrivate", (word) XR_GetTypeIndexS((word) (&string11)), 4);
   (* (( (ptr) gf_c071)+34)/* var_c13008 */  ) = var_c13424;
   var_c13424 = (word) XR_ImportInterface((word) "XTkShellWidgets", (word) XR_GetTypeIndexS((word) (&string12)), 26);
   (* (( (ptr) gf_c071)+33)/* var_c12976 */  ) = var_c13424;
   (void) XR_ImportProcS(var_c13424, 789763);
   (void) XR_ImportProcS(var_c13424, 67371009);
   var_c13424 = (word) XR_ExportInterface((word) "XTkInputFocus", (word) XR_GetTypeIndexS((word) (&string13)), 7);
   (* (( (ptr) gf_c071)+36)/* var_c13456 */  ) = var_c13424;
   (void) XR_ExportProcS(var_c13424, (word) (( (bPt) gf_c071)+112)/* var_c12880 */ , 524290);
   (void) XR_ExportProcS(var_c13424, (word) (( (bPt) gf_c071)+104)/* var_c12848 */ , 524546);
   (void) XR_ExportProcS(var_c13424, (word) (( (bPt) gf_c071)+88)/* var_c12784 */ , 67633666);
   (void) XR_ExportProcS(var_c13424, (word) (( (bPt) gf_c071)+80)/* var_c12752 */ , 67633922);
   (void) XR_ExportProcS(var_c13424, (word) (( (bPt) gf_c071)+64)/* var_c12688 */ , 525314);
   (void) XR_ExportProcS(var_c13424, (word) (( (bPt) gf_c071)+56)/* var_c12656 */ , 525570);
   (void) XR_ExportProcS(var_c13424, (word) (( (bPt) gf_c071)+72)/* var_c12720 */ , 525826);
   }

static void XTkInputFocusImpl_P0(formal_c020, formal_c019)
   word formal_c020;
   word formal_c019;
   {
   /* XTkInputFocusImpl: */ 
   }

static void SetFocus_P60(w_v3080, time_v3108)
   word w_v3080;
   word time_v3108;
   {
   register ptr gf_c13488 =  (ptr) &globalframe;
   /* SetFocus: */ 
SOURCE(319, 449)
SOURCE(398, 370)
   if ( ( (w_v3080 != 0) ? ((* (( (ptr) w_v3080)+37) ) == 0) : 0 ) ) {
SOURCE(439, 334)
      {
         word c_v4064;
SOURCE(441, 31)
         c_v4064 = (* (( (ptr) w_v3080)+34) );
SOURCE(474, 294)
         if ( ( (c_v4064 != 0) ? (0 != (* (( (ptr) c_v4064)+15) )) : 0 ) ) {
SOURCE(494, 276)
            {
               word root_v4108;
SOURCE(496, 36)
               {
                  word pd14;
                  pd14 = (* (( (ptr) (* (( (ptr) gf_c13488)+32)/* var_c12944 */  ))+33) );
                  root_v4108 = (word) ( *( (fPt) ((*  (ptr) pd14 ))))(w_v3080, pd14);
                  };
SOURCE(534, 49)
               if ((time_v3108 == 0)) {
SOURCE(562, 21)
                  time_v3108 = (* (( (ptr) c_v4064)+21) );
                  };
SOURCE(585, 183)
               {
                  word pd15;
                  pd15 = (* (( (ptr) (* (( (ptr) gf_c13488)+33)/* var_c12976 */  ))+4) );
                  if ((0 != (word) ( *( (fPt) ((*  (ptr) pd15 ))))(root_v4108, pd15))) {
SOURCE(624, 65)
                     {
                        word pd16;
                        pd16 = (* (( (ptr) (* (( (ptr) gf_c13488)+33)/* var_c12976 */  ))+17) );
                        (void) ( *( (fPt) ((*  (ptr) pd16 ))))(root_v4108, time_v3108, w_v3080, pd16);
                        };
                     }
                  else {
SOURCE(689, 79)
                     {
                        word pd17;
                        pd17 = (* (( (ptr) (* (( (ptr) gf_c13488)+35)/* var_c13040 */  ))+137) );
                        (void) ( *( (fPt) ((*  (ptr) pd17 ))))(c_v4064, (* (( (ptr) w_v3080)+35) ), 2, time_v3108, (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c13488)+34)
/*1*/   /* var_c13008 */  ))+6) ) ), pd17);
                        };
                     };
                  };
               };
            };
         };
      };
   }

static void GiveUpFocus_P120(w_v3168, time_v3196)
   word w_v3168;
   word time_v3196;
   {
   register ptr gf_c13520 =  (ptr) &globalframe;
   /* GiveUpFocus: */ 
SOURCE(780, 317)
SOURCE(862, 235)
   if ((w_v3168 != 0)) {
SOURCE(876, 226)
      {
         word c_v4152;
SOURCE(878, 31)
         c_v4152 = (* (( (ptr) w_v3168)+34) );
SOURCE(911, 186)
         if ( ( (c_v4152 != 0) ? (0 != (* (( (ptr) c_v4152)+15) )) : 0 ) ) {
SOURCE(933, 49)
            if ((time_v3196 == 0)) {
SOURCE(961, 21)
               time_v3196 = (* (( (ptr) c_v4152)+21) );
               };
SOURCE(984, 113)
            {
               word pd18;
               pd18 = (* (( (ptr) (* (( (ptr) gf_c13520)+35)/* var_c13040 */  ))+137) );
               (void) ( *( (fPt) ((*  (ptr) pd18 ))))(c_v4152, 1, 2, time_v3196, (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c13520)+34)/* var_c13008 */  ))+6)
                   ) ), pd18);
               };
            };
         };
      };
   }

static word FocusFor_P300(w_v3464)
   word w_v3464;
   {
   register ptr gf_c13552 =  (ptr) &globalframe;
   word var_c3508;
   /* FocusFor: */ 
SOURCE(1466, 390)
SOURCE(1466, 390)
   var_c3508 = 0;
SOURCE(1528, 328)
   {
      register word noName_c13072 = 0;
      if ((noName_c13072 > 100)) {
         goto lab_L100000;
         };
      lab_L100003: ;
      {
         word var_c13104;
         word var_c12560;
         word var_c13168;
         word var_c12512;
SOURCE(1603, 52)
         if ((w_v3464 == 0) || ((* (( (ptr) w_v3464)+37) ) != 0)) {
SOURCE(1643, 12)
            return(0);
            };
SOURCE(1657, 120)
SOURCE(1322, 138)
         var_c12560 = 0;
SOURCE(1404, 56)
         var_c13104 = (((unsigned)(* (( (bPt) w_v3464)+120) ) << 28) >> 31);
         if ((0 != var_c13104)) {
SOURCE(1696, 81)
            {
               word var_c13136;
               {
                  word pd19;
                  pd19 = (* (( (ptr) (* (( (ptr) gf_c13552)+32)/* var_c12944 */  ))+10) );
                  var_c13136 = (word) ( *( (fPt) ((*  (ptr) pd19 ))))(w_v3464, (* (( (ptr) gf_c13552)+13) ), pd19);
                  };
               if ((var_c13136 == 0)) {
                  goto lab_L100005;
                  };
               if (((* (( (ptr) gf_c13552)+11) ) == XR_GetReferentType(var_c13136))) {
                  {
                     word ww_v4196;
                     ww_v4196 = var_c13136;
SOURCE(1771, 6)
                     w_v3464 = ww_v4196;
SOURCE(1779, 4)
                     goto lab_L100002;
                     };
                  }
               else {
                  lab_L100005: ;
                  };
               };
            };
SOURCE(1805, 37)
         {
            word x20;
SOURCE(1109, 207)
            var_c12512 = 0;
            {
               word var_c13200;
               word class_v12608;
SOURCE(1181, 62)
               if ((* (( (bPt) w_v3464)+120) ) & 04) {
SOURCE(1230, 13)
                  var_c13168 = 1;
                  goto lab_L100006;
                  };
SOURCE(1245, 71)
               class_v12608 = (* (( (ptr) w_v3464)+4) );
               var_c13200 = (((unsigned)(* (( (bPt) class_v12608)+24) ) << 25) >> 31);
               if ((0 != var_c13200)) {
SOURCE(1303, 13)
                  var_c13168 = 1;
                  goto lab_L100006;
                  };
               };
SOURCE(1109, 207)
            var_c13168 = var_c12512;
            lab_L100006: ;
            x20 =  (word) (0 != var_c13168);
            if (x20) {
SOURCE(1832, 10)
               return(w_v3464);
               };
            };
SOURCE(1844, 12)
         return(0);
         };
      lab_L100002: ;
      if ((noName_c13072 >= 100)) {
         goto lab_L100000;
         };
      noName_c13072 = (noName_c13072 + 1);
      goto lab_L100003;
      lab_L100000: ;
      };
SOURCE(1466, 390)
   return(var_c3508);
   }

static word FirstFocusTarget_P360(w_v3568, formal_c086)
   word w_v3568;
   word formal_c086;
   {
   W8 var_c13584;
   /* declaration of searchLimit_v3596 skipped */ 
   register ptr gf_c13616 =  (ptr) &globalframe;
   /* declaration of found_v3640 skipped */ 
   /* declaration of var_c13232 skipped */ 
   var_c13584.f4/* searchLimit_v3596 */  = formal_c086;
   /* FirstFocusTarget: */ 
SOURCE(1871, 450)
   {
      word tmpAddr21;
      tmpAddr21 = (word) (( (ptr) &var_c13584)+6)/* var_c13232 */ ;
      (*  (ptr) tmpAddr21 ) = ( ((word)  (fPt) EachChild_P852) );
      (* (( (ptr) tmpAddr21) + 1) ) = 1;
      };
SOURCE(1871, 450)
   var_c13584.f5/* found_v3640 */  = 0;
SOURCE(2138, 183)
   if ( ( (w_v3568 != 0) ? ((* (( (ptr) w_v3568)+37) ) == 0) : 0 ) ) {
SOURCE(2179, 144)
      {
         word try_v4284;
SOURCE(2181, 29)
         try_v4284 = (word) FocusFor_P300(w_v3568);
SOURCE(2213, 28)
         if ((try_v4284 != 0)) {
SOURCE(2229, 12)
            return(try_v4284);
            };
SOURCE(2243, 78)
         if (( (int)var_c13584.f4/* searchLimit_v3596 */  >=  (int)0)) {
SOURCE(2266, 55)
            {
               word pd22;
               pd22 = (* (( (ptr) (* (( (ptr) gf_c13616)+32)/* var_c12944 */  ))+53) );
               (void) ( *( (fPt) ((*  (ptr) pd22 ))))(w_v3568, (word) (( (bPt) &var_c13584)+24)/* var_c13232 */ , 0, pd22);
               };
            };
         };
      };
SOURCE(1871, 450)
   return(var_c13584.f5/* found_v3640 */ );
   }

static word EachChild_P852(parent_v11592, child_v11620, data_v11648, formal_c13648)
   word parent_v11592;
   word child_v11620;
   word data_v11648;
   word formal_c13648;
   {
   word stop_v11692;
   word try_v4328;
   formal_c13648 = (formal_c13648 - 24);
   /* EachChild: */ 
SOURCE(1976, 157)
SOURCE(1976, 157)
   stop_v11692 = 0;
SOURCE(2005, 56)
   try_v4328 = (word) FirstFocusTarget_P360(child_v11620, ((* (( (ptr) formal_c13648)+4) ) - 1));
SOURCE(2063, 70)
   if ( ( (try_v4328 != 0) ? ((* (( (ptr) try_v4328)+37) ) == 0) : 0 ) ) {
SOURCE(2109, 11)
      (* (( (ptr) formal_c13648)+5) ) = try_v4328;
SOURCE(2122, 11)
      stop_v11692 = 1;
      };
SOURCE(1976, 157)
   return(stop_v11692);
   }

static word NextFocusTarget_P420(w_v3700, formal_c087)
   word w_v3700;
   word formal_c087;
   {
   W10 var_c13680;
   /* declaration of searchLimit_v3728 skipped */ 
   register ptr gf_c13712 =  (ptr) &globalframe;
   word var_c3772;
   /* declaration of var_c13264 skipped */ 
   word parent_v4372;
   /* declaration of parentsChild_v4400 skipped */ 
   (* (( (ptr) &var_c13680)+4)/* searchLimit_v3728 */  ) = formal_c087;
   /* NextFocusTarget: */ 
SOURCE(2329, 760)
   {
      word tmpAddr23;
      tmpAddr23 = (word) (( (ptr) &var_c13680)+5)/* var_c13264 */ ;
      (*  (ptr) tmpAddr23 ) = ( ((word)  (fPt) EachSibling_P1056) );
      (* (( (ptr) tmpAddr23) + 1) ) = 1;
      };
SOURCE(2329, 760)
   var_c3772 = 0;
SOURCE(2427, 29)
   parent_v4372 = (* (( (ptr) w_v3700)+31) );
SOURCE(2458, 28)
   (* (( (ptr) &var_c13680)+7)/* parentsChild_v4400 */  ) = w_v3700;
SOURCE(2488, 103)
   {
      word var_c13296;
      {
         word pd24;
         pd24 = (* (( (ptr) (* (( (ptr) gf_c13712)+32)/* var_c12944 */  ))+10) );
         var_c13296 = (word) ( *( (fPt) ((*  (ptr) pd24 ))))(w_v3700, (* (( (ptr) gf_c13712)+12) ), pd24);
         };
      if ((var_c13296 == 0)) {
         goto lab_L100008;
         };
      if (((* (( (ptr) gf_c13712)+11) ) == XR_GetReferentType(var_c13296))) {
         {
            word w_v4444;
            w_v4444 = var_c13296;
SOURCE(2550, 41)
            return((word) FirstFocusTarget_P360(w_v4444, (* (( (ptr) &var_c13680)+4)/* searchLimit_v3728 */  )));
            };
         }
      else {
         lab_L100008: ;
         };
      };
SOURCE(2608, 481)
   {
      register word noName_c13360 = 0;
      register word noName_c13392;
      noName_c13392 = (* (( (ptr) &var_c13680)+4)/* searchLimit_v3728 */  );
      if (( (int)noName_c13360 >  (int)noName_c13392)) {
         goto lab_L100009;
         };
      lab_L100012: ;
      {
         /* declaration of foundSelf_v4516 skipped */ 
         /* declaration of goal_v4544 skipped */ 
SOURCE(2823, 23)
         (* (( (ptr) &var_c13680)+8)/* foundSelf_v4516 */  ) = 0;
SOURCE(2848, 22)
         (* (( (ptr) &var_c13680)+9)/* goal_v4544 */  ) = 0;
SOURCE(2872, 31)
         if ((parent_v4372 == 0)) {
SOURCE(2891, 12)
            return(0);
            };
SOURCE(2905, 125)
         if (((word) FocusFor_P300(parent_v4372) == 0)) {
SOURCE(2936, 62)
            {
               word pd25;
               pd25 = (* (( (ptr) (* (( (ptr) gf_c13712)+32)/* var_c12944 */  ))+53) );
               (void) ( *( (fPt) ((*  (ptr) pd25 ))))(parent_v4372, (word) (( (bPt) &var_c13680)+20)/* var_c13264 */ , 0, pd25);
               };
SOURCE(3000, 30)
            if (((* (( (ptr) &var_c13680)+9)/* goal_v4544 */  ) != 0)) {
SOURCE(3017, 13)
               return((* (( (ptr) &var_c13680)+9)/* goal_v4544 */  ));
               };
            };
SOURCE(3035, 21)
         (* (( (ptr) &var_c13680)+7)/* parentsChild_v4400 */  ) = parent_v4372;
SOURCE(3058, 31)
         parent_v4372 = (* (( (ptr) parent_v4372)+31) );
         };
      if (( (int)noName_c13360 >=  (int)noName_c13392)) {
         goto lab_L100009;
         };
      noName_c13360 = (noName_c13360 + 1);
      goto lab_L100012;
      lab_L100009: ;
      };
SOURCE(2329, 760)
   return(var_c3772);
   }

static word EachSibling_P1056(parent_v11912, child_v11940, data_v11968, formal_c13744)
   word parent_v11912;
   word child_v11940;
   word data_v11968;
   word formal_c13744;
   {
   word stop_v12012;
   formal_c13744 = (formal_c13744 - 20);
   /* EachSibling: */ 
SOURCE(2636, 29)
SOURCE(2636, 29)
   stop_v12012 = 0;
SOURCE(2667, 150)
   if ((0 != (* (( (ptr) formal_c13744)+8) ))) {
SOURCE(2688, 45)
      (* (( (ptr) formal_c13744)+9) ) = (word) FirstFocusTarget_P360(child_v11940, ((* (( (ptr) formal_c13744)+4) ) - 1));
SOURCE(2735, 29)
      if (((* (( (ptr) formal_c13744)+9) ) != 0)) {
SOURCE(2752, 12)
         stop_v12012 = 1;
         };
      }
   else {
SOURCE(2773, 44)
      if ((child_v11940 == (* (( (ptr) formal_c13744)+7) ))) {
SOURCE(2800, 17)
         (* (( (ptr) formal_c13744)+8) ) = 1;
         };
      };
SOURCE(2636, 29)
   return(stop_v12012);
   }

static void SetNext_P480(w_v3832, using_v3860)
   word w_v3832;
   word using_v3860;
   {
   register ptr gf_c13776 =  (ptr) &globalframe;
   /* SetNext: */ 
SOURCE(3094, 116)
SOURCE(3160, 50)
   if ((w_v3832 != 0)) {
SOURCE(3176, 34)
      {
         word pd26;
         pd26 = (* (( (ptr) (* (( (ptr) gf_c13776)+32)/* var_c12944 */  ))+11) );
         (void) ( *( (fPt) ((*  (ptr) pd26 ))))(w_v3832, (* (( (ptr) gf_c13776)+12) ), using_v3860, pd26);
         };
      };
   }

static void Implement_P540(w_v3920, bool_v3948)
   word w_v3920;
   word bool_v3948;
   {
   register ptr gf_c13808 =  (ptr) &globalframe;
   /* Implement: */ 
SOURCE(3220, 122)
SOURCE(3282, 60)
   if ((w_v3920 != 0)) {
SOURCE(3296, 46)
      {
         word pd27;
         pd27 = (* (( (ptr) (* (( (ptr) gf_c13808)+32)/* var_c12944 */  ))+6) );
         (void) ( *( (fPt) ((*  (ptr) pd27 ))))(w_v3920, 5, bool_v3948, pd27);
         };
      };
   }

static void Delegate_P600(w_v4008, using_v4036)
   word w_v4008;
   word using_v4036;
   {
   register ptr gf_c13840 =  (ptr) &globalframe;
   /* Delegate: */ 
SOURCE(3349, 295)
   if ((w_v4008 == 0)) {
SOURCE(3442, 6)
      return;
      }
   else {
      if ((w_v4008 == using_v4036) || (using_v4036 == 0)) {
SOURCE(3476, 52)
         {
            word pd28;
            pd28 = (* (( (ptr) (* (( (ptr) gf_c13840)+32)/* var_c12944 */  ))+6) );
            (void) ( *( (fPt) ((*  (ptr) pd28 ))))(w_v4008, 4, 0, pd28);
            };
         }
      else {
SOURCE(3546, 45)
         {
            word pd29;
            pd29 = (* (( (ptr) (* (( (ptr) gf_c13840)+32)/* var_c12944 */  ))+11) );
            (void) ( *( (fPt) ((*  (ptr) pd29 ))))(w_v4008, (* (( (ptr) gf_c13840)+13) ), using_v4036, pd29);
            };
SOURCE(3593, 51)
         {
            word pd30;
            pd30 = (* (( (ptr) (* (( (ptr) gf_c13840)+32)/* var_c12944 */  ))+6) );
            (void) ( *( (fPt) ((*  (ptr) pd30 ))))(w_v4008, 4, 1, pd30);
            };
         };
      };
   }

/* file: XTkInputFocusImpl, module: XTkInputFocusImpl, compiled at: May 1, 1992 11:24:01 am PDT */ 
extern void XR_install_XTkInputFocusImpl() {
   NoName_Q1500();
   }
extern void XR_run_XTkInputFocusImpl() { XR_Start(&globalframe); }