/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: April 21, 1992 12:51:03 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: XTkPseudoRootImpl, module: XTkPseudoRootImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [3174555522,3492396232] XTkPseudoRootImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W8 f; word r;} W9;
typedef struct {W16 f; W9 r;} W25;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef struct {W8 f; W5 r;} W13;
typedef struct {word f0, f1;} W2;
typedef W2 *W2Pt;
typedef W5 *W5Pt;
typedef struct {word f0, f1, f2, f3;} W4;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
#define MAX(cast, x, y)  ( ( cast x) > ( cast y) ? (x) : (y) )
#define IOP2(op, x, y)  ( (word) ((x) op (y)) )
static void NoName_Q1356();
static void XTkPseudoRootImpl_P0();
static word CreatePseudoRoot_P60();
static word PseudoChild_P120();
static void PseudoRootInitInstPart_P180();
static void IgnoreErrors_P300();
static void RedirectChildMapping_P360();
static word NoName_Q1416();
static word NoName_Q1476();
static void ChildDestroyed_P420();
static void PSRConfigureLR_P480();
static void NoName_Q1536();
static void NoName_Q1596();
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 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\244\000\000"};
static struct {unsigned f; char r[40];} string5 = {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[16];} string6 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\105\154\000\000"};
static struct {unsigned f; char r[4];} string7 = {196611, "\004A\330"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\107\320\000\000"};
static struct {unsigned f; char r[4];} string9 = {131074, "\004\016\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\275\067\337\202\300\320\051\274\310\100\200\000\000"};
static struct {unsigned f; char r[8];} string11 = {327688, "white\000\000"};
static struct {unsigned f; char r[12];} string12 = {655372, "pseudoRoot\000"};
static struct {unsigned f; char r[8];} string13 = {262152, "bare\000\000\000"};
static struct {unsigned f; char r[24];} string14 = {1310744, "pseudoChildDestroyed\000\000\000"};
static struct {unsigned f; char r[28];} string15 = {1572892, "PARC_PseudoChildReplaced\000\000\000"};
static struct {unsigned f; char r[16];} string16 = {917520, "newPseudoChild\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\275\067\337\202\300\320\051\274\310\100\164\000\000"};
static struct {unsigned f; char r[24];} string18 = {1310740, "\006\010\020\001\024\001\030\001\034\001\040\001\044\001\050\001\100\144\004\077\000\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\122\362\040\033\300\221\350\241\274\100\150\000\000"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\150\000\000"};
static struct {unsigned f; char r[16];} string22 = {851984, "\257\300\227\370\144\253\300\176\165\034\110\100\150\000\000"};
static struct {unsigned f; char r[16];} string23 = {851984, "\257\300\360\033\371\207\300\263\176\140\200\100\150\000\000"};
static struct {
   word f0[31]; word f31; word f32; word f33; 
   word f34; word f35; word f36; word f37; 
   word f38; word f39; word f40; word f41; 
   word f42; word f43; word f44; word f45; 
   word f46[6]; 
   } globalframe = {
   {0}, (word) PSRConfigureLR_P480, 0, (word) ChildDestroyed_P420, 
   0, (word) RedirectChildMapping_P360, 0, (word) IgnoreErrors_P300, 
   0, (word) PseudoRootInitInstPart_P180, 0, (word) PseudoChild_P120, 
   0, (word) CreatePseudoRoot_P60, 0, (word) XTkPseudoRootImpl_P0, 
   {0}
   };

static void NoName_Q1356()
   {
   register ptr gf_c0107 =  (ptr) &globalframe;
   word var_c33372;
   (* (( (ptr) gf_c0107)+11) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c0107)+14) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string2);
   (* (( (ptr) gf_c0107)+17) ) = (word) XR_GetTypeIndex((word) &string4, 0, (word) &string5);
   (* (( (ptr) gf_c0107)+18) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string7);
   (* (( (ptr) gf_c0107)+22) ) = (word) XR_GetTypeIndex((word) &string8, 0, (word) &string9);
   (* (( (ptr) gf_c0107)+24) ) = (word) XR_GetTypeIndex((word) &string10, 0, (word) &string2);
   (*  (ptr) (( (bPt) gf_c0107)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0107)+11) ), (word) &string11);
   (*  (ptr) (( (bPt) gf_c0107)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0107)+11) ), (word) &string12);
   (*  (ptr) (( (bPt) gf_c0107)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0107)+11) ), (word) &string13);
   (*  (ptr) (( (bPt) gf_c0107)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0107)+11) ), (word) &string14);
   (*  (ptr) (( (bPt) gf_c0107)+116) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0107)+14) ), (word) &string15);
   (*  (ptr) (( (bPt) gf_c0107)+120) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0107)+11) ), (word) &string16);
   (void) XR_DeclareGlobalFrame((word) "XTkPseudoRootImpl", &globalframe, (word) XR_GetTypeIndex((word) &string17, 0, (word) &string18)
      , (word) (( (bPt) gf_c0107)+180)/* var_c32572 */ );
   var_c33372 = (word) XR_ImportInterface((word) "Xl", (word) XR_GetTypeIndexS((word) (&string19)), 218);
   (* (( (ptr) gf_c0107)+48)/* var_c32668 */  ) = var_c33372;
   (void) XR_ImportProcS(var_c33372, 805635);
   (void) XR_ImportProcS(var_c33372, 2641670);
   (void) XR_ImportProcS(var_c33372, 3199240);
   (void) XR_ImportProcS(var_c33372, 806403);
   (void) XR_ImportProcS(var_c33372, 67644930);
   (void) XR_ImportProcS(var_c33372, 67910403);
   (void) XR_ImportProcS(var_c33372, 68207876);
   var_c33372 = (word) XR_ImportInterface((word) "XlDispatch", (word) XR_GetTypeIndexS((word) (&string20)), 18);
   (* (( (ptr) gf_c0107)+50)/* var_c33052 */  ) = var_c33372;
   (void) XR_ImportProcS(var_c33372, 1312517);
   (void) XR_ImportProcS(var_c33372, 1050628);
   var_c33372 = (word) XR_ImportInterface((word) "XTk", (word) XR_GetTypeIndexS((word) (&string21)), 50);
   (* (( (ptr) gf_c0107)+49)/* var_c32860 */  ) = var_c33372;
   (void) XR_ImportProcS(var_c33372, 1579779);
   (void) XR_ImportProcS(var_c33372, 69992451);
   var_c33372 = (word) XR_ImportInterface((word) "XTkFriends", (word) XR_GetTypeIndexS((word) (&string22)), 33);
   (* (( (ptr) gf_c0107)+47)/* var_c32636 */  ) = var_c33372;
   (void) XR_ImportProcS(var_c33372, 2102532);
   (void) XR_ImportProcS(var_c33372, 1048580);
   (void) XR_ImportProcS(var_c33372, 73666049);
   var_c33372 = (word) XR_ExportInterface((word) "XTkPseudoRoot", (word) XR_GetTypeIndexS((word) (&string23)), 4);
   (* (( (ptr) gf_c0107)+51)/* var_c33404 */  ) = var_c33372;
   (void) XR_ExportProcS(var_c33372, (word) (( (bPt) gf_c0107)+172)/* var_c32540 */ , 69468161);
   (void) XR_ExportProcS(var_c33372, (word) (( (bPt) gf_c0107)+164)/* var_c32508 */ , 67371265);
   (void) XR_ExportVar(var_c33372, 2, (word) (( (bPt) gf_c0107)+16)/* newPseudoChild_v2664 */ );
   (void) XR_ExportVar(var_c33372, 3, (word) (( (bPt) gf_c0107)+20)/* pseudoChildDestroyed_v2692 */ );
   }

static void XTkPseudoRootImpl_P0(formal_c042, formal_c034)
   word formal_c042;
   word formal_c034;
   {
   register ptr gf_c33436 =  (ptr) &globalframe;
   /* XTkPseudoRootImpl: */ 
SOURCE(70, 4531)
SOURCE(176, 45)
   (* (( (ptr) gf_c33436)+4)/* newPseudoChild_v2664 */  ) = (* (( (ptr) gf_c33436)+30) );
SOURCE(223, 57)
   (* (( (ptr) gf_c33436)+5)/* pseudoChildDestroyed_v2692 */  ) = (* (( (ptr) gf_c33436)+28) );
SOURCE(283, 255)
   {
      W25 var_c036;
      (*  (ptr) &var_c036 ) = (* (( (ptr) gf_c33436)+27) );
      (* (( (ptr) &var_c036)+1) ) = (* (( (ptr) gf_c33436)+26) );
      (* (( (ptr) &var_c036)+2) ) = 0;
      (* (( (ptr) &var_c036)+3) ) = 1;
      (* (( (ptr) &var_c036)+4) ) = 0;
      (* (( (ptr) &var_c036)+5) ) = 0;
      (* (( (ptr) &var_c036)+6) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c036)+7) ) = (word) (( (bPt) gf_c33436)+124)/* var_c32348 */ ;
      (* (( (ptr) &var_c036)+8) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c036)+9) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c036)+10) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c036)+11) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c036)+12) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c036)+13) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c036)+14) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c036)+15) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c036)+16) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c036)+17) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c036)+18) ) = (word) (( (bPt) gf_c33436)+156)/* var_c32476 */ ;
      (* (( (ptr) &var_c036)+19) ) = 0;
      (* (( (ptr) &var_c036)+20) ) = (* (( (ptr) gf_c33436)+25) );
      (* (( (ptr) &var_c036)+21) ) = 0;
      (* (( (ptr) &var_c036)+22) ) = 1048576;
      (* (( (ptr) &var_c036)+23) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c036)+24) ) = XR_CheckProc(0);
      {
         word pd24;
         pd24 = (* (( (ptr) (* (( (ptr) gf_c33436)+47)/* var_c32636 */  ))+18) );
         (* (( (ptr) gf_c33436)+6)/* pseudoRootClass_v2720 */  ) = (word) ( *( (fPt) ((*  (ptr) pd24 ))))((word) (&var_c036), pd24)
         ;
         };
      };
SOURCE(541, 85)
   {
      word pd25;
      pd25 = (* (( (ptr) (* (( (ptr) gf_c33436)+48)/* var_c32668 */  ))+201) );
      (* (( (ptr) gf_c33436)+7)/* pseudoRootEvents_v2748 */  ) = (word) ( *( (fPt) ((*  (ptr) pd25 ))))(23, 20, 35, 35, pd25);
      };
SOURCE(628, 71)
   {
      word pd26;
      pd26 = (* (( (ptr) (* (( (ptr) gf_c33436)+48)/* var_c32668 */  ))+201) );
      (* (( (ptr) gf_c33436)+8)/* pseudoChildEvents_v2776 */  ) = (word) ( *( (fPt) ((*  (ptr) pd26 ))))(17, 35, 35, 35, pd26);
      };
SOURCE(1483, 66)
   {
      word var_c32700;
      var_c32700 = XR_NewObject(36, (* (( (ptr) gf_c33436)+18) ));
      (* (( (ptr) var_c32700)+1) ) = 1;
      (* (( (ptr) gf_c33436)+9)/* synchronous_v2972 */  ) = var_c32700;
      };
SOURCE(1551, 134)
   {
      word var_c32732;
      word var_c32828;
      {
         word var_c32764;
         word var_c32796;
         {
            word pd27;
            pd27 = (* (( (ptr) (* (( (ptr) gf_c33436)+48)/* var_c32668 */  ))+63) );
            var_c32764 = (word) ( *( (fPt) ((*  (ptr) pd27 ))))(0, 0, 0, pd27);
            };
         var_c32796 = XR_NewObject(16, (* (( (ptr) gf_c33436)+22) ));
         (*  (ptr) var_c32796 ) = (word) (( (bPt) gf_c33436)+148)/* var_c32444 */ ;
         (* (( (ptr) var_c32796)+2) ) = var_c32764;
         var_c32732 = var_c32796;
         };
      var_c32828 = XR_NewObject(36, (* (( (ptr) gf_c33436)+18) ));
      (* (( (ptr) var_c32828)+3) ) = var_c32732;
      (* (( (ptr) gf_c33436)+10)/* ignoreErrors_v3000 */  ) = var_c32828;
      };
   }

static word CreatePseudoRoot_P60(spec_v3276)
   W9 spec_v3276;
   {
   register ptr gf_c33468 =  (ptr) &globalframe;
   word w_v3320;
   /* CreatePseudoRoot: */ 
SOURCE(877, 129)
SOURCE(877, 129)
   w_v3320 = 0;
SOURCE(963, 43)
   {
      word pd28;
      pd28 = (* (( (ptr) (* (( (ptr) gf_c33468)+49)/* var_c32860 */  ))+4) );
      w_v3320 = (word) ( *( (fPt) ((*  (ptr) pd28 ))))(spec_v3276, (* (( (ptr) gf_c33468)+6)/* pseudoRootClass_v2720 */  ), 0, pd28)
      ;
      };
SOURCE(877, 129)
   return(w_v3320);
   }

static word PseudoChild_P120(pseudoRoot_v3380)
   word pseudoRoot_v3380;
   {
   register ptr gf_c33500 =  (ptr) &globalframe;
   word pseudoChild_v3424;
   /* PseudoChild: */ 
SOURCE(1012, 143)
SOURCE(1099, 56)
   {
      word var_c0121;
      word var_c32924;
      word superClass_v32080;
      superClass_v32080 = (* (( (ptr) gf_c33500)+6)/* pseudoRootClass_v2720 */  );
      {
         word idx29;
         word limit30;
         var_c32924 = (* ((( (ptr) pseudoRoot_v3380)+49)+(
               idx29 = (* (( (ptr) superClass_v32080)+4) ),
               limit30 = (* (( (ptr) pseudoRoot_v3380)+48) ),
               BCK(idx29, limit30)
               )) );
         };
      var_c0121 = (* (( (ptr) XR_Narrow(var_c32924, (* (( (ptr) gf_c33500)+24) )))+1) );
      return(var_c0121);
      };
   }

static void PseudoRootInitInstPart_P180(widget_v9964, arguments_v9992)
   word widget_v9964;
   word arguments_v9992;
   {
   register ptr gf_c33532 =  (ptr) &globalframe;
   word prIP_v3556;
   /* PseudoRootInitInstPart: */ 
SOURCE(1161, 164)
SOURCE(1214, 53)
   prIP_v3556 = XR_NewObject(8, (* (( (ptr) gf_c33532)+24) ));
SOURCE(1269, 56)
   {
      word superClass_v32272;
      word val_v32300;
      superClass_v32272 = (* (( (ptr) gf_c33532)+6)/* pseudoRootClass_v2720 */  );
      val_v32300 = prIP_v3556;
      {
         word idx31;
         word limit32;
         (* ((( (ptr) widget_v9964)+49)+(
               idx31 = (* (( (ptr) superClass_v32272)+4) ),
               limit32 = (* (( (ptr) widget_v9964)+48) ),
               BCK(idx31, limit32)
               )) ) = val_v32300;
         };
      };
   }

static void IgnoreErrors_P300(event_v12372, clientData_v12400, tq_v12428)
   word event_v12372;
   word clientData_v12400;
   word tq_v12428;
   {
   /* IgnoreErrors: */ 
   }

static void RedirectChildMapping_P360(event_v12692, clientData_v12720, tq_v12748)
   word event_v12692;
   word clientData_v12720;
   word tq_v12748;
   {
   W13 var_c33564;
   register ptr gf_c33596 =  (ptr) &globalframe;
   /* RedirectChildMapping: */ 
SOURCE(1725, 1482)
SOURCE(1766, 1441)
SOURCE(1768, 36)
   {
      word psr_v3600;
      /* declaration of prIP_v3628 skipped */ 
SOURCE(1768, 36)
      psr_v3600 = XR_Narrow(clientData_v12720, (* (( (ptr) gf_c33596)+17) ));
SOURCE(1806, 53)
      {
         word var_c32988;
         word superClass_v32224;
         superClass_v32224 = (* (( (ptr) gf_c33596)+6)/* pseudoRootClass_v2720 */  );
         {
            word idx33;
            word limit34;
            var_c32988 = (* ((( (ptr) psr_v3600)+49)+(
                  idx33 = (* (( (ptr) superClass_v32224)+4) ),
                  limit34 = (* (( (ptr) psr_v3600)+48) ),
                  BCK(idx33, limit34)
                  )) );
            };
         (* (( (ptr) &var_c33564)+4)/* prIP_v3628 */  ) = XR_Narrow(var_c32988, (* (( (ptr) gf_c33596)+24) ));
         };
SOURCE(1861, 1278)
      {
         word var_c33020;
         var_c33020 = (* (( (ptr) event_v12692)+4) );
         if ((var_c33020 == 20)) {
SOURCE(1898, 1243)
            {
               word mr_v3672;
               word new_v3700;
SOURCE(1900, 38)
               if ((event_v12692 == 0)) {
                  goto lab_L100003;
                  };
               if (((* (( (ptr) event_v12692)+4) ) == 20)) {
                  goto lab_L100003;
                  };
               (void) XR_RaiseError(XR_NarrowFault, 0);
               lab_L100003: ;
               mr_v3672 = event_v12692;
SOURCE(1940, 38)
               new_v3700 = ((* (( (ptr) mr_v3672)+7) ) != (* (( (ptr) (* (( (ptr) &var_c33564)+4)/* prIP_v3628 */  ))+1) ));
SOURCE(1980, 768)
               if ((0 != new_v3700)) {
SOURCE(1994, 581)
                  if (((* (( (ptr) (* (( (ptr) &var_c33564)+4)/* prIP_v3628 */  ))+1) ) != 0)) {
SOURCE(2033, 544)
                     {
                        word type_v3744;
SOURCE(2035, 74)
                        {
                           word pd35;
                           pd35 = (* (( (ptr) (* (( (ptr) gf_c33596)+48)/* var_c32668 */  ))+50) );
                           type_v3744 = (word) ( *( (fPt) ((*  (ptr) pd35 ))))((* (( (ptr) event_v12692)+2) ), (* (( (ptr) gf_c33596)+29) ), pd35);
                           };
SOURCE(2111, 59)
                        {
                           word pd36;
                           pd36 = (* (( (ptr) (* (( (ptr) gf_c33596)+48)/* var_c32668 */  ))+82) );
                           (void) ( *( (fPt) ((*  (ptr) pd36 ))))((* (( (ptr) event_v12692)+2) ), (* (( (ptr) psr_v3600)+35) ), 0, pd36);
                           };
SOURCE(2172, 122)
                        {
                           word pd37;
                           pd37 = (* (( (ptr) (* (( (ptr) gf_c33596)+50)/* var_c33052 */  ))+12) );
                           (void) ( *( (fPt) ((*  (ptr) pd37 ))))((* (( (ptr) event_v12692)+2) ), (* (( (ptr) (* (( (ptr) &var_c33564)+4)/* prIP_v3628 */  ))+1)
/*1*/    ), (*  (ptr) (* (( (ptr) &var_c33564)+4)/* prIP_v3628 */  ) ), (* (( (ptr) gf_c33596)+10)/* ignoreErrors_v3000 */  ), pd37)
                           ;
                           };
SOURCE(2296, 245)
                        {
                           word var_c33084;
                           {
/*1*/   word var_c33116;
/*1*/   word w_v32032;
/*1*/   w_v32032 = (* (( (ptr) psr_v3600)+35) );
/*1*/   var_c33116 = w_v32032;
/*1*/   var_c33084 = var_c33116;
/*1*/   };
                           {
/*1*/   W5 var_c33148;
/*1*/   var_c33148.f0 = type_v3744;
/*1*/   var_c33148.f1 = var_c33084;
/*1*/   var_c33148.f2 = 0;
/*1*/   var_c33148.f3 = 0;
/*1*/   var_c33148.f4 = 0;
/*1*/   {
/*1*/      word pd38;
/*1*/      pd38 = (* (( (ptr) (* (( (ptr) gf_c33596)+48)/* var_c32668 */  ))+213) );
/*1*/      (void) ( *( (fPt) ((*  (ptr) pd38 ))))((* (( (ptr) event_v12692)+2) ), (* (( (ptr) (* (( (ptr) &var_c33564)+4)/* prIP_v3628 */  ))+1)
/*1*/          ), 0, 0, (* (( (ptr) (* (( (ptr) &var_c33564)+4)/* prIP_v3628 */  ))+1) ), type_v3744
/*1*/         , var_c33148, (* (( (ptr) gf_c33596)+10)/* ignoreErrors_v3000 */  ), pd38);
/*1*/      };
/*1*/   };
                           };
SOURCE(2543, 32)
                        (* (( (ptr) (* (( (ptr) &var_c33564)+4)/* prIP_v3628 */  ))+1) ) = 0;
                        };
                     };
SOURCE(2580, 127)
                  {
                     /* declaration of var_c01 skipped */ 
                     /* declaration of var_c02 skipped */ 
                     /* declaration of var_c03 skipped */ 
                     /* declaration of var_c04 skipped */ 
                     (* (( (ptr) &var_c33564)+5)/* var_c01 */  ) = (* (( (ptr) event_v12692)+2) );
                     (* (( (ptr) &var_c33564)+6)/* var_c02 */  ) = (* (( (ptr) mr_v3672)+7) );
                     (* (( (ptr) &var_c33564)+7)/* var_c03 */  ) = (*  (ptr) (* (( (ptr) &var_c33564)+4)/* prIP_v3628 */  ) );
                     (* (( (ptr) &var_c33564)+8)/* var_c04 */  ) = (* (( (ptr) (* (( (ptr) gf_c33596)+50)/* var_c33052 */  ))+11) );
                     {
                        word var_c05;
                        {
                           word var_c0122;
                           var_c0122 = (word) &var_c33564;
                           var_c05 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1476) ), ( ((word)  (fPt) NoName_Q1596) ), var_c0122);
                           };
                        if ((var_c05 == 2)) {
                           goto lab_L100001;
                           };
                        };
                     };
SOURCE(2720, 28)
                  (* (( (ptr) (* (( (ptr) &var_c33564)+4)/* prIP_v3628 */  ))+1) ) = (* (( (ptr) mr_v3672)+7) );
                  };
SOURCE(2753, 209)
               {
                  /* declaration of var_c06 skipped */ 
                  /* declaration of var_c07 skipped */ 
                  /* declaration of var_c08 skipped */ 
                  /* declaration of var_c09 skipped */ 
                  (* (( (ptr) &var_c33564)+5)/* var_c06 */  ) = (* (( (ptr) event_v12692)+2) );
                  (* (( (ptr) &var_c33564)+6)/* var_c07 */  ) = (* (( (ptr) (* (( (ptr) &var_c33564)+4)/* prIP_v3628 */  ))+1) );
                  (* (( (ptr) &var_c33564)+7) ) = 0;
                  (* (( (ptr) &var_c33564)+8) ) = 0;
                  (*  (W2Pt) (( (ptr) &var_c33564)+9) ) = (*  (W2Pt) (( (ptr) psr_v3600)+41) );
                  (* (( (ptr) &var_c33564)+11) ) = 2147483648;
                  (* (( (ptr) &var_c33564)+12)/* var_c09 */  ) = (* (( (ptr) (* (( (ptr) gf_c33596)+48)/* var_c32668 */  ))+83) );
                  {
                     word var_c010;
                     {
                        word var_c0123;
                        var_c0123 = (word) &var_c33564;
                        var_c010 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1416) ), ( ((word)  (fPt) NoName_Q1536) ), var_c0123);
                        };
                     if ((var_c010 == 2)) {
                        goto lab_L100001;
                        };
                     };
                  };
SOURCE(2978, 82)
               {
                  word pd39;
                  pd39 = (* (( (ptr) (* (( (ptr) gf_c33596)+48)/* var_c32668 */  ))+79) );
                  (void) ( *( (fPt) ((*  (ptr) pd39 ))))((* (( (ptr) event_v12692)+2) ), (* (( (ptr) (* (( (ptr) &var_c33564)+4)/* prIP_v3628 */  ))+1)
                      ), (* (( (ptr) gf_c33596)+10)/* ignoreErrors_v3000 */  ), pd39);
                  };
SOURCE(3062, 77)
               if ((0 != new_v3700)) {
SOURCE(3074, 65)
                  {
                     word pd40;
                     pd40 = (* (( (ptr) (* (( (ptr) gf_c33596)+47)/* var_c32636 */  ))+4) );
                     (void) ( *( (fPt) ((*  (ptr) pd40 ))))(psr_v3600, (* (( (ptr) gf_c33596)+4)/* newPseudoChild_v2664 */  ), (* (( (ptr) gf_c33596)+4)
                        /* newPseudoChild_v2664 */  ), mr_v3672, pd40);
                     };
                  };
               };
            }
         else {
            if ((var_c33020 == 23)) {
               };
            };
         };
      };
   goto lab_L100009;
   lab_L100001: ;
   lab_L100009: ;
   }

static word NoName_Q1416(formal_c0114)
   word formal_c0114;
   {
   register ptr gf_c0113 =  (ptr) &globalframe;
SOURCE(2753, 209)
   {
      word pd41;
      pd41 = (* (( (ptr) formal_c0114)+12) );
      (void) ( *( (fPt) ((*  (ptr) pd41 ))))((* (( (ptr) formal_c0114)+5) ), (* (( (ptr) formal_c0114)+6) ), (*  (W5Pt) (( (ptr) formal_c0114)+7)
          ), 0, 5, (* (( (ptr) gf_c0113)+9)/* synchronous_v2972 */  ), pd41);
      };
   return(0);
   }

static word NoName_Q1476(formal_c0116)
   word formal_c0116;
   {
   register ptr gf_c0115 =  (ptr) &globalframe;
SOURCE(2580, 127)
   {
      word pd42;
      pd42 = (* (( (ptr) formal_c0116)+8) );
      (void) ( *( (fPt) ((*  (ptr) pd42 ))))((* (( (ptr) formal_c0116)+5) ), (* (( (ptr) formal_c0116)+6) ), (* (( (ptr) formal_c0116)+7)
          ), 0, (* (( (ptr) gf_c0115)+9)/* synchronous_v2972 */  ), pd42);
      };
   return(0);
   }

static void ChildDestroyed_P420(event_v12808, clientData_v12836, tq_v12864)
   word event_v12808;
   word clientData_v12836;
   word tq_v12864;
   {
   register ptr gf_c33628 =  (ptr) &globalframe;
   word psr_v3788;
   word prIP_v3816;
   /* ChildDestroyed: */ 
SOURCE(3211, 363)
SOURCE(3248, 36)
   psr_v3788 = XR_Narrow(clientData_v12836, (* (( (ptr) gf_c33628)+17) ));
SOURCE(3286, 53)
   {
      word var_c33212;
      word superClass_v32176;
      superClass_v32176 = (* (( (ptr) gf_c33628)+6)/* pseudoRootClass_v2720 */  );
      {
         word idx43;
         word limit44;
         var_c33212 = (* ((( (ptr) psr_v3788)+49)+(
               idx43 = (* (( (ptr) superClass_v32176)+4) ),
               limit44 = (* (( (ptr) psr_v3788)+48) ),
               BCK(idx43, limit44)
               )) );
         };
      prIP_v3816 = XR_Narrow(var_c33212, (* (( (ptr) gf_c33628)+24) ));
      };
SOURCE(3341, 233)
   {
      word var_c33244;
      var_c33244 = (* (( (ptr) event_v12808)+4) );
      if ((var_c33244 == 17)) {
SOURCE(3381, 198)
         {
            word dn_v3860;
SOURCE(3383, 41)
            if ((event_v12808 == 0)) {
               goto lab_L100011;
               };
            if (((* (( (ptr) event_v12808)+4) ) == 17)) {
               goto lab_L100011;
               };
            (void) XR_RaiseError(XR_NarrowFault, 0);
            lab_L100011: ;
            dn_v3860 = event_v12808;
SOURCE(3426, 148)
            if (((* (( (ptr) dn_v3860)+7) ) == (* (( (ptr) prIP_v3816)+1) ))) {
SOURCE(3463, 32)
               (* (( (ptr) prIP_v3816)+1) ) = 0;
SOURCE(3497, 77)
               {
                  word pd45;
                  pd45 = (* (( (ptr) (* (( (ptr) gf_c33628)+47)/* var_c32636 */  ))+4) );
                  (void) ( *( (fPt) ((*  (ptr) pd45 ))))(psr_v3788, (* (( (ptr) gf_c33628)+5)/* pseudoChildDestroyed_v2692 */  ), (* (( (ptr) gf_c33628)+5)
                     /* pseudoChildDestroyed_v2692 */  ), dn_v3860, pd45);
                  };
               };
            };
         };
      };
   }

static void PSRConfigureLR_P480(widget_v9820, geometry_v9848, mapping_v9876, reConsiderChildren_v9904)
   word widget_v9820;
   W5 geometry_v9848;
   word mapping_v9876;
   word reConsiderChildren_v9904;
   {
   register ptr gf_c33660 =  (ptr) &globalframe;
   word existW_v3904;
   word createW_v3932;
   word prIP_v3960;
   /* PSRConfigureLR: */ 
SOURCE(3600, 1001)
SOURCE(3661, 56)
   {
      word var_c33276;
      word superClass_v32128;
      superClass_v32128 = (* (( (ptr) gf_c33660)+6)/* pseudoRootClass_v2720 */  );
      {
         word idx46;
         word limit47;
         var_c33276 = (* ((( (ptr) widget_v9820)+49)+(
               idx46 = (* (( (ptr) superClass_v32128)+4) ),
               limit47 = (* (( (ptr) widget_v9820)+48) ),
               BCK(idx46, limit47)
               )) );
         };
      prIP_v3960 = XR_Narrow(var_c33276, (* (( (ptr) gf_c33660)+24) ));
      };
SOURCE(3719, 42)
   existW_v3904 = ((* (( (ptr) widget_v9820)+44) ) < 2);
SOURCE(3763, 42)
   if ((mapping_v9876 < 2)) {
      createW_v3932 = (0 == existW_v3904);
      }
   else {
      createW_v3932 = 0;
      };
SOURCE(3807, 276)
   if ((0 != createW_v3932)) {
SOURCE(3823, 260)
      {
         word tq_v4004;
SOURCE(3825, 25)
         {
            word pd48;
            pd48 = (* (( (ptr) (* (( (ptr) gf_c33660)+48)/* var_c32668 */  ))+63) );
            tq_v4004 = (word) ( *( (fPt) ((*  (ptr) pd48 ))))(0, 0, 0, pd48);
            };
SOURCE(3852, 108)
         {
            W4 var_c33308;
            var_c33308.f0 = (word) (( (bPt) gf_c33660)+140)/* var_c32412 */ ;
            var_c33308.f1 = (* (( (ptr) gf_c33660)+7)/* pseudoRootEvents_v2748 */  );
            var_c33308.f2 = tq_v4004;
            var_c33308.f3 = widget_v9820;
            {
               word pd49;
               pd49 = (* (( (ptr) (* (( (ptr) gf_c33660)+49)/* var_c32860 */  ))+31) );
               (void) ( *( (fPt) ((*  (ptr) pd49 ))))(widget_v9820, var_c33308, 0, pd49);
               };
            };
SOURCE(3962, 121)
         {
            word var_c33340;
            var_c33340 = XR_NewObject(16, (* (( (ptr) gf_c33660)+22) ));
            (*  (ptr) var_c33340 ) = (word) (( (bPt) gf_c33660)+132)/* var_c32380 */ ;
            (* (( (ptr) var_c33340)+1) ) = (* (( (ptr) gf_c33660)+8)/* pseudoChildEvents_v2776 */  );
            (* (( (ptr) var_c33340)+2) ) = tq_v4004;
            (* (( (ptr) var_c33340)+3) ) = widget_v9820;
            (*  (ptr) prIP_v3960 ) = var_c33340;
            };
         };
      };
SOURCE(4086, 63)
   {
      word pd50;
      pd50 = (* (( (ptr) (* (( (ptr) gf_c33660)+47)/* var_c32636 */  ))+25) );
      (void) ( *( (fPt) ((*  (ptr) pd50 ))))(widget_v9820, geometry_v9848, mapping_v9876, 0, pd50);
      };
SOURCE(4151, 450)
   if (((* (( (ptr) prIP_v3960)+1) ) != 0)) {
SOURCE(4190, 413)
      {
         W5 g_v4048;
SOURCE(4192, 25)
         g_v4048 = geometry_v9848;
SOURCE(4219, 14)
         g_v4048.f0 = 0;
         g_v4048.f1 = 0;
SOURCE(4235, 17)
         g_v4048.f4 = 0;
SOURCE(4254, 63)
         if (( (int)g_v4048.f2 <=  (int)0)) {
SOURCE(4278, 39)
            g_v4048.f2 = (* (( (ptr) widget_v9820)+41) );
            };
SOURCE(4319, 66)
         if (( (int)g_v4048.f3 <=  (int)0)) {
SOURCE(4344, 41)
            g_v4048.f3 = (* (( (ptr) widget_v9820)+42) );
            };
SOURCE(4387, 53)
         {
            word x51;
            g_v4048.f2 = (x51 = (g_v4048.f2 - IOP2( * ,  (int)2,  (int)g_v4048.f4)),
               MAX((int)(word), 1, x51));
            };
SOURCE(4442, 55)
         {
            word x52;
            g_v4048.f3 = (x52 = (g_v4048.f3 - IOP2( * ,  (int)2,  (int)g_v4048.f4)),
               MAX((int)(word), 1, x52));
            };
SOURCE(4499, 102)
         {
            word pd53;
            pd53 = (* (( (ptr) (* (( (ptr) gf_c33660)+48)/* var_c32668 */  ))+83) );
            (void) ( *( (fPt) ((*  (ptr) pd53 ))))((* (( (ptr) widget_v9820)+34) ), (* (( (ptr) prIP_v3960)+1) ), g_v4048, 0, 5, (* (
                  ( (ptr) gf_c33660)+10)/* ignoreErrors_v3000 */  ), pd53);
            };
         };
      };
   }

static void NoName_Q1536(formal_c0100, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c0100;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   register ptr gf_c0119 =  (ptr) &globalframe;
   if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c0119)+48)/* var_c32668 */  ))+4) ))) {
      {
         word err_v31212;
         err_v31212 = (*  (ptr) formal_c200007 );
SOURCE(2930, 32)
         (* (( (ptr) (* (( (ptr) formal_c200004)+4) ))+1) ) = 0;
SOURCE(2964, 9)
         (*  (ptr) formal_c0100 ) = 2;
         (* (( (ptr) formal_c0100)+1) ) = 2;
         return;
         };
      };
   (*  (ptr) formal_c0100 ) = 0;
   (* (( (ptr) formal_c0100)+1) ) = 0;
   return;
   }

static void NoName_Q1596(formal_c0106, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c0106;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c0120 =  (ptr) &globalframe;
   if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c0120)+48)/* var_c32668 */  ))+4) ))) {
      {
         word err_v30856;
         err_v30856 = (*  (ptr) formal_c200003 );
SOURCE(2707, 11)
         (*  (ptr) formal_c0106 ) = 2;
         (* (( (ptr) formal_c0106)+1) ) = 2;
         return;
         };
      };
   (*  (ptr) formal_c0106 ) = 0;
   (* (( (ptr) formal_c0106)+1) ) = 0;
   return;
   }

/* file: XTkPseudoRootImpl, module: XTkPseudoRootImpl, compiled at: April 21, 1992 12:51:02 pm PDT */ 
extern void XR_install_XTkPseudoRootImpl() {
   NoName_Q1356();
   }
extern void XR_run_XTkPseudoRootImpl() { XR_Start(&globalframe); }