/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: June 12, 1992 10:44:06 am PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: XTkCollectionsImpl, module: XTkCollectionsImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [4155442612,4079303707] XTkCollectionsImpl";
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;} W2;
typedef struct {W8 f; W2 r;} W10;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef W5 *W5Pt;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {word f0, f1, f2;} W3;
typedef W3 *W3Pt;
#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 SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i )
static void NoName_Q3408();
static void XTkCollectionsImpl_P0();
static word InitSuperClass_P60();
static void CollectionInitInstPart_P180();
static word Create_P240();
static void RemoveChild_P300();
static void action_P1500();
static void RemoveChildLR_P360();
static void AddChild_P420();
static void action_P1560();
static void AddChildLR_P480();
static void AddChildren_P540();
static void action_P1620();
static void AddChildrenLR_P600();
static void EnumerateChildren_P660();
static word Find_P720();
static void RemoveXWindowsLR_P780();
static word RemoveAndSquezeLR_P840();
static void AssertEmptySlotsLR_P900();
static void AssertEmptySlotsILR_P960();
static word RemoveChildInPlaceLR_P1020();
static word RemoveInPlaceLR_P2016();
static word RemoveChildAndSqueezeLR_P1080();
static word SqueezeNRemoveLR_P2076();
static void AddChildInFirstPlaceLR_P1140();
static void IncludeHardLR_P2232();
static word IncludeLR_P2292();
static void DefaultAddChildrenLR_P1200();
static word CountChildren_P1260();
static void BasicEnumerateChildren_P1320();
static word InternalEnumerateChildren_P1380();
static word NewCollectionClassPart_P1440();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\141\025\232\152\300\166\121\005\142\101\254\000\000"};
static struct {unsigned f; char r[12];} string2 = {524296, "\011\000\004\000\040\000\004\001\000\000\000"};
static struct {unsigned f; char r[4];} string3 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string4 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300a\025\232j\300vQ\005bA|\000\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\141\025\232\152\300\166\121\005\142\101\240\000\000"};
static struct {unsigned f; char r[4];} string7 = {131074, "\0048\000"};
static struct {unsigned f; char r[12];} string8 = {655372, "Collection\000"};
static struct {unsigned f; char r[16];} string9 = {983056, "collectionSuper"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\367\257\005\264\300\363\045\074\033\100\164\000\000"};
static struct {unsigned f; char r[12];} string11 = {655370, "\006\003 \001$\001@H\004\003\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\150\000\000"};
static struct {unsigned f; char r[12];} string14 = {1481927491, "ollections"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\141\025\232\152\300\166\121\005\142\100\164\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\227\370\144\253\300\176\165\034\110\100\150\000\000"};
static struct {
   word f0[20]; word f20; word f21; word f22; 
   word f23; word f24; word f25; word f26; 
   word f27; word f28; word f29; word f30; 
   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; 
   word f47; word f48; word f49; word f50; 
   word f51; word f52; word f53; word f54; 
   word f55; word f56; word f57; word f58; 
   word f59; word f60; word f61; word f62; 
   word f63; word f64; word f65; word f66; 
   word f67; word f68; word f69; word f70; 
   word f71; word f72; word f73[5]; 
   } globalframe = {
   {0}, (word) NewCollectionClassPart_P1440, 0, (word) InternalEnumerateChildren_P1380, 
   0, (word) BasicEnumerateChildren_P1320, 0, (word) CountChildren_P1260, 
   0, (word) DefaultAddChildrenLR_P1200, 0, (word) AddChildInFirstPlaceLR_P1140, 
   0, (word) RemoveChildAndSqueezeLR_P1080, 0, (word) RemoveChildInPlaceLR_P1020, 
   0, (word) AssertEmptySlotsILR_P960, 0, (word) AssertEmptySlotsLR_P900, 
   0, (word) RemoveAndSquezeLR_P840, 0, (word) RemoveXWindowsLR_P780, 
   0, (word) Find_P720, 0, (word) EnumerateChildren_P660, 
   0, (word) AddChildrenLR_P600, 0, (word) AddChildren_P540, 
   0, (word) AddChildLR_P480, 0, (word) AddChild_P420, 
   0, (word) RemoveChildLR_P360, 0, (word) RemoveChild_P300, 
   0, (word) Create_P240, 0, (word) CollectionInitInstPart_P180, 
   0, (word) InitSuperClass_P60, 0, (word) XTkCollectionsImpl_P0, 
   0, 2147483648, 2147483648, 2147483648, 
   2147483648, 2147483648, {0}
   };

static void NoName_Q3408()
   {
   register ptr gf_c0220 =  (ptr) &globalframe;
   word var_c22724;
   (* (( (ptr) gf_c0220)+10) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c0220)+12) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf_c0220)+16) ) = (word) XR_GetTypeIndexS((word) (&string5));
   (* (( (ptr) gf_c0220)+17) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string7);
   (*  (ptr) (( (bPt) gf_c0220)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0220)+12) ), (word) &string8);
   (*  (ptr) (( (bPt) gf_c0220)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0220)+12) ), (word) &string9);
   (void) XR_DeclareGlobalFrame((word) "XTkCollectionsImpl", &globalframe, (word) XR_GetTypeIndex((word) &string10, 0, (word) &string11)
      , (word) (( (bPt) gf_c0220)+264)/* var_c20804 */ );
   var_c22724 = (word) XR_ImportInterface((word) "Xl", (word) XR_GetTypeIndexS((word) (&string12)), 218);
   (* (( (ptr) gf_c0220)+75)/* var_c21124 */  ) = var_c22724;
   (void) XR_ImportProcS(var_c22724, 539906);
   var_c22724 = (word) XR_ImportInterface((word) "XTk", (word) XR_GetTypeIndexS((word) (&string13)), 50);
   (* (( (ptr) gf_c0220)+74)/* var_c21060 */  ) = var_c22724;
   (void) XR_ImportProcS(var_c22724, 272641);
   (void) XR_ImportProcS(var_c22724, 69992451);
   var_c22724 = (word) XR_ImportInterface((word) &string14, (word) XR_GetTypeIndexS((word) (&string15)), 16);
   (* (( (ptr) gf_c0220)+76)/* var_c21636 */  ) = var_c22724;
   var_c22724 = (word) XR_ImportInterface((word) "XTkFriends", (word) XR_GetTypeIndexS((word) (&string16)), 33);
   (* (( (ptr) gf_c0220)+73)/* var_c20964 */  ) = var_c22724;
   (void) XR_ImportProcS(var_c22724, 531970);
   (void) XR_ImportProcS(var_c22724, 265217);
   (void) XR_ImportProcS(var_c22724, 531202);
   (void) XR_ImportProcS(var_c22724, 264961);
   (void) XR_ImportProcS(var_c22724, 2098180);
   (void) XR_ImportProcS(var_c22724, 67636482);
   (void) XR_ImportProcS(var_c22724, 530434);
   (void) XR_ImportProcS(var_c22724, 73666049);
   var_c22724 = (word) XR_ExportInterface((word) &string14, (word) XR_GetTypeIndexS((word) (&string15)), 16);
   (* (( (ptr) gf_c0220)+77)/* var_c22756 */  ) = var_c22724;
   (void) XR_ExportProcS(var_c22724, (word) (( (bPt) gf_c0220)+240)/* var_c20708 */ , 69992451);
   (void) XR_ExportProcS(var_c22724, (word) (( (bPt) gf_c0220)+232)/* var_c20676 */ , 1048836);
   (void) XR_ExportProcS(var_c22724, (word) (( (bPt) gf_c0220)+224)/* var_c20644 */ , 1049092);
   (void) XR_ExportProcS(var_c22724, (word) (( (bPt) gf_c0220)+216)/* var_c20612 */ , 1049348);
   (void) XR_ExportProcS(var_c22724, (word) (( (bPt) gf_c0220)+208)/* var_c20580 */ , 1049604);
   (void) XR_ExportProcS(var_c22724, (word) (( (bPt) gf_c0220)+200)/* var_c20548 */ , 787715);
   (void) XR_ExportProcS(var_c22724, (word) (( (bPt) gf_c0220)+192)/* var_c20516 */ , 787971);
   (void) XR_ExportProcS(var_c22724, (word) (( (bPt) gf_c0220)+184)/* var_c20484 */ , 788227);
   (void) XR_ExportProcS(var_c22724, (word) (( (bPt) gf_c0220)+152)/* var_c20356 */ , 526338);
   (void) XR_ExportVar(var_c22724, 10, (word) (( (bPt) gf_c0220)+32)/* collectionClass_v2664 */ );
   (void) XR_ExportProcS(var_c22724, (word) (( (bPt) gf_c0220)+80)/* var_c20068 */ , 67373825);
   (void) XR_ExportProcS(var_c22724, (word) (( (bPt) gf_c0220)+136)/* var_c20292 */ , 67636226);
   (void) XR_ExportProcS(var_c22724, (word) (( (bPt) gf_c0220)+128)/* var_c20260 */ , 67636482);
   (void) XR_ExportProcS(var_c22724, (word) (( (bPt) gf_c0220)+120)/* var_c20228 */ , 1052164);
   (void) XR_ExportProcS(var_c22724, (word) (( (bPt) gf_c0220)+96)/* var_c20132 */ , 790275);
   }

static void XTkCollectionsImpl_P0(formal_c039, formal_c037)
   word formal_c039;
   word formal_c037;
   {
   register ptr gf_c22788 =  (ptr) &globalframe;
   /* XTkCollectionsImpl: */ 
SOURCE(58, 9815)
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
SOURCE(206, 48)
   (* (( (ptr) gf_c22788)+8)/* collectionClass_v2664 */  ) = (word) InitSuperClass_P60();
SOURCE(788, 54)
   {
      word var_c20900;
      var_c20900 = XR_NewObject(4, (* (( (ptr) gf_c22788)+10) ));
      (*  (ptr) var_c20900 ) = 0;
      (* (( (ptr) gf_c22788)+9)/* dymmyChildren_v2720 */  ) = var_c20900;
      };
   }

static word InitSuperClass_P60()
   {
   register ptr gf_c22820 =  (ptr) &globalframe;
   word csc_v3444;
   /* InitSuperClass: */ 
SOURCE(256, 526)
SOURCE(256, 526)
   csc_v3444 = 0;
SOURCE(316, 285)
   {
      W25 var_c042;
      (*  (ptr) &var_c042 ) = (* (( (ptr) gf_c22820)+19) );
      (* (( (ptr) &var_c042)+1) ) = (* (( (ptr) gf_c22820)+18) );
      (* (( (ptr) &var_c042)+2) ) = 0;
      (* (( (ptr) &var_c042)+3) ) = 1;
      (* (( (ptr) &var_c042)+4) ) = 1;
      (* (( (ptr) &var_c042)+5) ) = 0;
      (* (( (ptr) &var_c042)+6) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c042)+7) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c042)+8) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c042)+9) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c042)+10) ) = 0;
      (* (( (ptr) &var_c042)+11) ) = (* (( (ptr) (* (( (ptr) gf_c22820)+73)/* var_c20964 */  ))+28) );
      (* (( (ptr) &var_c042)+12) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c042)+13) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c042)+14) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c042)+15) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c042)+16) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c042)+17) ) = (word) (( (bPt) gf_c22820)+88)/* var_c20100 */ ;
      (* (( (ptr) &var_c042)+18) ) = (word) (( (bPt) gf_c22820)+248)/* var_c20740 */ ;
      (* (( (ptr) &var_c042)+19) ) = 0;
      (* (( (ptr) &var_c042)+20) ) = 0;
      (* (( (ptr) &var_c042)+21) ) = 0;
      (* (( (ptr) &var_c042)+22) ) = 0;
      (* (( (ptr) &var_c042)+23) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c042)+24) ) = XR_CheckProc(0);
      {
         word pd17;
         pd17 = (* (( (ptr) (* (( (ptr) gf_c22820)+73)/* var_c20964 */  ))+18) );
         csc_v3444 = (word) ( *( (fPt) ((*  (ptr) pd17 ))))((word) (&var_c042), pd17);
         };
      };
SOURCE(603, 179)
   {
      word var_c20996;
      var_c20996 = XR_NewObject(12, (* (( (ptr) gf_c22820)+16) ));
      (*  (ptr) var_c20996 ) = (word) (( (bPt) gf_c22820)+96)/* var_c20132 */ ;
      (* (( (ptr) var_c20996)+1) ) = (word) (( (bPt) gf_c22820)+120)/* var_c20228 */ ;
      (* (( (ptr) var_c20996)+2) ) = (word) (( (bPt) gf_c22820)+112)/* var_c20196 */ ;
      {
         word idx18;
         word limit19;
         (* ((( (ptr) csc_v3444)+30)+(
               idx18 = (* (( (ptr) csc_v3444)+27) ),
               limit19 = (* (( (ptr) csc_v3444)+29) ),
               BCK(idx18, limit19)
               )) ) = var_c20996;
         };
      };
SOURCE(256, 526)
   return(csc_v3444);
   }

static void CollectionInitInstPart_P180(widget_v10964, arguments_v10992)
   word widget_v10964;
   word arguments_v10992;
   {
   register ptr gf_c22852 =  (ptr) &globalframe;
   word ip_v6448;
   /* CollectionInitInstPart: */ 
SOURCE(1019, 263)
SOURCE(1072, 79)
   ip_v6448 = XR_NewObject(24, (* (( (ptr) gf_c22852)+17) ));
   (* (( (ptr) ip_v6448)+5) ) = (* (( (ptr) gf_c22852)+9)/* dymmyChildren_v2720 */  );
SOURCE(1153, 73)
   if (( (int)(* (( (ptr) widget_v10964)+9) ) <  (int)0)) {
SOURCE(1193, 33)
      (* (( (ptr) widget_v10964)+9) ) = 0;
      };
SOURCE(1228, 54)
   {
      word val_v20020;
      val_v20020 = ip_v6448;
      {
         word idx20;
         word limit21;
         (* ((( (ptr) widget_v10964)+49)+(
               idx20 = (* (( (ptr) (* (( (ptr) gf_c22852)+8)/* collectionClass_v2664 */  ))+4) ),
               limit21 = (* (( (ptr) widget_v10964)+48) ),
               BCK(idx20, limit21)
               )) ) = val_v20020;
         };
      };
   }

static word Create_P240(widgetSpec_v3620, children_v3648, childCount_v3676)
   W9 widgetSpec_v3620;
   word children_v3648;
   word childCount_v3676;
   {
   register ptr gf_c22884 =  (ptr) &globalframe;
   word widget_v3804;
   /* Create: */ 
SOURCE(1288, 333)
SOURCE(1288, 333)
   widget_v3804 = 0;
SOURCE(1434, 54)
   {
      word pd22;
      pd22 = (* (( (ptr) (* (( (ptr) gf_c22884)+74)/* var_c21060 */  ))+4) );
      widget_v3804 = (word) ( *( (fPt) ((*  (ptr) pd22 ))))(widgetSpec_v3620, (* (( (ptr) gf_c22884)+8)/* collectionClass_v2664 */  ), 0, pd22)
      ;
      };
SOURCE(1490, 59)
   if ((childCount_v3676 > 0)) {
SOURCE(1511, 38)
      (void) AssertEmptySlotsLR_P900(widget_v3804, childCount_v3676);
      };
SOURCE(1562, 59)
   if ((children_v3648 != 0)) {
SOURCE(1583, 38)
      (void) AddChildrenLR_P600(widget_v3804, children_v3648, 0);
      };
SOURCE(1288, 333)
   return(widget_v3804);
   }

static void RemoveChild_P300(formal_c0269, formal_c0270, formal_c0271, formal_c0272)
   word formal_c0269;
   word formal_c0270;
   word formal_c0271;
   word formal_c0272;
   {
   W10 var_c22916;
   /* declaration of collection_v3864 skipped */ 
   /* declaration of child_v3892 skipped */ 
   /* declaration of reConsiderNow_v3920 skipped */ 
   /* declaration of preventDestruction_v3948 skipped */ 
   register ptr gf_c22948 =  (ptr) &globalframe;
   /* declaration of var_c21092 skipped */ 
   word rootTQ_v6492;
   (* (( (ptr) &var_c22916)+4)/* collection_v3864 */  ) = formal_c0269;
   (* (( (ptr) &var_c22916)+5)/* child_v3892 */  ) = formal_c0270;
   (* (( (ptr) &var_c22916)+6)/* reConsiderNow_v3920 */  ) = formal_c0271;
   (* (( (ptr) &var_c22916)+7)/* preventDestruction_v3948 */  ) = formal_c0272;
   /* RemoveChild: */ 
SOURCE(1638, 366)
   {
      word tmpAddr23;
      tmpAddr23 = (word) (( (ptr) &var_c22916)+8)/* var_c21092 */ ;
      (*  (ptr) tmpAddr23 ) = ( ((word)  (fPt) action_P1500) );
      (* (( (ptr) tmpAddr23) + 1) ) = 1;
      };
SOURCE(1775, 33)
   rootTQ_v6492 = (* (( (ptr) (* (( (ptr) &var_c22916)+4)/* collection_v3864 */  ))+45) );
SOURCE(1896, 108)
   if ((rootTQ_v6492 == 0)) {
SOURCE(1916, 57)
      (void) action_P1500((word) ((( (bPt) &var_c22916)+32)/* var_c21092 */ ));
      }
   else {
SOURCE(1973, 31)
      {
         word pd24;
         pd24 = (* (( (ptr) (* (( (ptr) gf_c22948)+75)/* var_c21124 */  ))+65) );
         (void) ( *( (fPt) ((*  (ptr) pd24 ))))(rootTQ_v6492, (word) (( (bPt) &var_c22916)+32)/* var_c21092 */ , pd24);
         };
      };
   }

static void action_P1500(formal_c22980)
   word formal_c22980;
   {
   formal_c22980 = (formal_c22980 - 32);
   /* action: */ 
SOURCE(1810, 83)
SOURCE(1826, 67)
   (void) RemoveChildLR_P360((* (( (ptr) formal_c22980)+4) ), (* (( (ptr) formal_c22980)+5) ), (* (( (ptr) formal_c22980)+6)
       ), (* (( (ptr) formal_c22980)+7) ));
   }

static void RemoveChildLR_P360(collection_v4008, child_v4036, reConsiderNow_v4064, preventDestruction_v4092)
   word collection_v4008;
   word child_v4036;
   word reConsiderNow_v4064;
   word preventDestruction_v4092;
   {
   register ptr gf_c23012 =  (ptr) &globalframe;
   word done_v6580;
   /* RemoveChildLR: */ 
SOURCE(2010, 570)
SOURCE(2161, 32)
   if (((* (( (ptr) child_v4036)+31) ) != collection_v4008)) {
SOURCE(2193, 5)
      (void) XR_RaiseUnnamedError();
      };
SOURCE(2200, 52)
   {
      word x25;
      (* (( (ptr) child_v4036)+10) ) = ((x25 = (* (( (ptr) child_v4036)+10) ),
         MAX( (unsigned) , 2, x25)) & 7);
      };
SOURCE(2254, 50)
   {
      word pd26;
      pd26 = (* (( (ptr) (* (( (ptr) gf_c23012)+73)/* var_c20964 */  ))+17) );
      done_v6580 = (word) ( *( (fPt) ((*  (ptr) pd26 ))))(collection_v4008, child_v4036, pd26);
      };
SOURCE(2306, 204)
   if ((0 != done_v6580)) {
SOURCE(2321, 83)
      if (((* (( (ptr) child_v4036)+38) ) < 2)) {
SOURCE(2351, 53)
         {
            word pd27;
            pd27 = (* (( (ptr) (* (( (ptr) gf_c23012)+73)/* var_c20964 */  ))+8) );
            (void) ( *( (fPt) ((*  (ptr) pd27 ))))(child_v4036, (*  (W5Pt) (( (ptr) gf_c23012)+68)/* var_c20868 */  ), 2, 1, pd27);
            };
         };
SOURCE(2406, 104)
      if ((0 != preventDestruction_v4092)) {
SOURCE(2434, 38)
         {
            word pd28;
            pd28 = (* (( (ptr) (* (( (ptr) gf_c23012)+73)/* var_c20964 */  ))+15) );
            (void) ( *( (fPt) ((*  (ptr) pd28 ))))(child_v4036, pd28);
            };
         }
      else {
SOURCE(2472, 38)
         {
            word pd29;
            pd29 = (* (( (ptr) (* (( (ptr) gf_c23012)+73)/* var_c20964 */  ))+31) );
            (void) ( *( (fPt) ((*  (ptr) pd29 ))))(child_v4036, 0, pd29);
            };
         };
      };
SOURCE(2513, 67)
   if ((0 != reConsiderNow_v4064)) {
SOURCE(2535, 45)
      {
         word pd30;
         pd30 = (* (( (ptr) (* (( (ptr) gf_c23012)+73)/* var_c20964 */  ))+16) );
         (void) ( *( (fPt) ((*  (ptr) pd30 ))))(collection_v4008, pd30);
         };
      };
   }

static void AddChild_P420(formal_c0273, formal_c0274, formal_c0275, formal_c0276)
   word formal_c0273;
   word formal_c0274;
   word formal_c0275;
   word formal_c0276;
   {
   W10 var_c23044;
   /* declaration of collection_v4152 skipped */ 
   /* declaration of newChild_v4180 skipped */ 
   /* declaration of position_v4208 skipped */ 
   /* declaration of reConsiderNow_v4236 skipped */ 
   register ptr gf_c23076 =  (ptr) &globalframe;
   /* declaration of var_c21156 skipped */ 
   word rootTQ_v6624;
   (* (( (ptr) &var_c23044)+4)/* collection_v4152 */  ) = formal_c0273;
   (* (( (ptr) &var_c23044)+5)/* newChild_v4180 */  ) = formal_c0274;
   (* (( (ptr) &var_c23044)+6)/* position_v4208 */  ) = formal_c0275;
   (* (( (ptr) &var_c23044)+7)/* reConsiderNow_v4236 */  ) = formal_c0276;
   /* AddChild: */ 
SOURCE(2584, 343)
   {
      word tmpAddr31;
      tmpAddr31 = (word) (( (ptr) &var_c23044)+8)/* var_c21156 */ ;
      (*  (ptr) tmpAddr31 ) = ( ((word)  (fPt) action_P1560) );
      (* (( (ptr) tmpAddr31) + 1) ) = 1;
      };
SOURCE(2708, 33)
   rootTQ_v6624 = (* (( (ptr) (* (( (ptr) &var_c23044)+4)/* collection_v4152 */  ))+45) );
SOURCE(2819, 108)
   if ((rootTQ_v6624 == 0)) {
SOURCE(2839, 57)
      (void) action_P1560((word) ((( (bPt) &var_c23044)+32)/* var_c21156 */ ));
      }
   else {
SOURCE(2896, 31)
      {
         word pd32;
         pd32 = (* (( (ptr) (* (( (ptr) gf_c23076)+75)/* var_c21124 */  ))+65) );
         (void) ( *( (fPt) ((*  (ptr) pd32 ))))(rootTQ_v6624, (word) (( (bPt) &var_c23044)+32)/* var_c21156 */ , pd32);
         };
      };
   }

static void action_P1560(formal_c23108)
   word formal_c23108;
   {
   formal_c23108 = (formal_c23108 - 32);
   /* action: */ 
SOURCE(2743, 73)
SOURCE(2759, 57)
   (void) AddChildLR_P480((* (( (ptr) formal_c23108)+4) ), (* (( (ptr) formal_c23108)+5) ), (* (( (ptr) formal_c23108)+6) ), (* (
         ( (ptr) formal_c23108)+7) ));
   }

static void AddChildLR_P480(collection_v4312, newChild_v4340, position_v4368, reConsiderNow_v4396)
   word collection_v4312;
   word newChild_v4340;
   word position_v4368;
   word reConsiderNow_v4396;
   {
   register ptr gf_c23140 =  (ptr) &globalframe;
   word classPart_v6712;
   /* AddChildLR: */ 
SOURCE(2933, 454)
SOURCE(3059, 67)
   {
      word var_c21188;
      word var_c0250;
      var_c21188 = (* (( (ptr) collection_v4312)+4) );
      {
         word idx33;
         word limit34;
         var_c0250 = (* ((( (ptr) var_c21188)+30)+(
               idx33 = (* (( (ptr) (* (( (ptr) gf_c23140)+8)/* collectionClass_v2664 */  ))+27) ),
               limit34 = (* (( (ptr) var_c21188)+29) ),
               BCK(idx33, limit34)
               )) );
         };
      classPart_v6712 = XR_Narrow(var_c0250, (* (( (ptr) gf_c23140)+16) ));
      };
SOURCE(3128, 108)
   {
      word var_c21220;
      var_c21220 = (* (( (ptr) newChild_v4340)+31) );
      if ((var_c21220 == 0) || (var_c21220 == collection_v4312)) {
SOURCE(3175, 61)
         {
            word pd35;
            pd35 = (* (( (ptr) (* (( (ptr) gf_c23140)+73)/* var_c20964 */  ))+34) );
            (void) ( *( (fPt) ((*  (ptr) pd35 ))))(newChild_v4340, collection_v4312, pd35);
            };
         }
      else {
SOURCE(3249, 5)
         (void) XR_RaiseUnnamedError();
         };
      };
SOURCE(3256, 62)
   if (((* (( (ptr) newChild_v4340)+10) ) == 3)) {
SOURCE(3291, 27)
      (* (( (ptr) newChild_v4340)+10) ) = 0;
      };
SOURCE(3320, 67)
   {
      word pd36;
      pd36 = (* (( (ptr) classPart_v6712)+1) );
      (void) ( *( (fPt) ((*  (ptr) pd36 ))))(collection_v4312, newChild_v4340, position_v4368, reConsiderNow_v4396, pd36);
      };
   }

static void AddChildren_P540(formal_c0277, formal_c0278, formal_c0279)
   word formal_c0277;
   word formal_c0278;
   word formal_c0279;
   {
   W9 var_c23172;
   /* declaration of collection_v4468 skipped */ 
   /* declaration of children_v4496 skipped */ 
   /* declaration of reConsiderNow_v4524 skipped */ 
   register ptr gf_c23204 =  (ptr) &globalframe;
   /* declaration of var_c21252 skipped */ 
   word rootTQ_v6756;
   (* (( (ptr) &var_c23172)+4)/* collection_v4468 */  ) = formal_c0277;
   (* (( (ptr) &var_c23172)+5)/* children_v4496 */  ) = formal_c0278;
   (* (( (ptr) &var_c23172)+6)/* reConsiderNow_v4524 */  ) = formal_c0279;
   /* AddChildren: */ 
SOURCE(3393, 326)
   {
      word tmpAddr37;
      tmpAddr37 = (word) (( (ptr) &var_c23172)+7)/* var_c21252 */ ;
      (*  (ptr) tmpAddr37 ) = ( ((word)  (fPt) action_P1620) );
      (* (( (ptr) tmpAddr37) + 1) ) = 1;
      };
SOURCE(3507, 33)
   rootTQ_v6756 = (* (( (ptr) (* (( (ptr) &var_c23172)+4)/* collection_v4468 */  ))+45) );
SOURCE(3611, 108)
   if ((rootTQ_v6756 == 0)) {
SOURCE(3631, 57)
      (void) action_P1620((word) ((( (bPt) &var_c23172)+28)/* var_c21252 */ ));
      }
   else {
SOURCE(3688, 31)
      {
         word pd38;
         pd38 = (* (( (ptr) (* (( (ptr) gf_c23204)+75)/* var_c21124 */  ))+65) );
         (void) ( *( (fPt) ((*  (ptr) pd38 ))))(rootTQ_v6756, (word) (( (bPt) &var_c23172)+28)/* var_c21252 */ , pd38);
         };
      };
   }

static void action_P1620(formal_c23236)
   word formal_c23236;
   {
   formal_c23236 = (formal_c23236 - 28);
   /* action: */ 
SOURCE(3542, 66)
SOURCE(3558, 50)
   (void) AddChildrenLR_P600((* (( (ptr) formal_c23236)+4) ), (* (( (ptr) formal_c23236)+5) ), (* (( (ptr) formal_c23236)+6)
       ));
   }

static void AddChildrenLR_P600(collection_v4668, children_v4696, reConsiderNow_v4724)
   word collection_v4668;
   word children_v4696;
   word reConsiderNow_v4724;
   {
   register ptr gf_c23268 =  (ptr) &globalframe;
   word classPart_v6844;
   /* AddChildrenLR: */ 
SOURCE(3725, 498)
SOURCE(3841, 67)
   {
      word var_c21284;
      word var_c0251;
      var_c21284 = (* (( (ptr) collection_v4668)+4) );
      {
         word idx39;
         word limit40;
         var_c0251 = (* ((( (ptr) var_c21284)+30)+(
               idx39 = (* (( (ptr) (* (( (ptr) gf_c23268)+8)/* collectionClass_v2664 */  ))+27) ),
               limit40 = (* (( (ptr) var_c21284)+29) ),
               BCK(idx39, limit40)
               )) );
         };
      classPart_v6844 = XR_Narrow(var_c0251, (* (( (ptr) gf_c23268)+16) ));
      };
SOURCE(3910, 242)
   {
      register word l_v6888;
      l_v6888 = children_v4696;
      lab_L100003: ;
      if ((l_v6888 != 0)) {
         }
      else {
         goto lab_L100000;
         };
SOURCE(3966, 106)
      {
         word var_c21316;
         var_c21316 = (* (( (ptr) (*  (ptr) l_v6888 ))+31) );
         if ((var_c21316 == 0) || (var_c21316 == collection_v4668)) {
SOURCE(4012, 60)
            {
               word pd41;
               pd41 = (* (( (ptr) (* (( (ptr) gf_c23268)+73)/* var_c20964 */  ))+34) );
               (void) ( *( (fPt) ((*  (ptr) pd41 ))))((*  (ptr) l_v6888 ), collection_v4668, pd41);
               };
            }
         else {
SOURCE(4085, 5)
            (void) XR_RaiseUnnamedError();
            };
         };
SOURCE(4092, 60)
      if (((* (( (ptr) (*  (ptr) l_v6888 ))+10) ) == 3)) {
SOURCE(4126, 26)
         (* (( (ptr) (*  (ptr) l_v6888 ))+10) ) = 0;
         };
      l_v6888 = (* (( (ptr) l_v6888)+1) );
      goto lab_L100003;
      lab_L100000: ;
      };
SOURCE(4163, 60)
   {
      word pd42;
      pd42 = (* (( (ptr) classPart_v6844)+2) );
      (void) ( *( (fPt) ((*  (ptr) pd42 ))))(collection_v4668, children_v4696, reConsiderNow_v4724, pd42);
      };
   }

static void EnumerateChildren_P660(collection_v4868, eachChild_v4896, data_v4924)
   word collection_v4868;
   word eachChild_v4896;
   word data_v4924;
   {
   register ptr gf_c23300 =  (ptr) &globalframe;
   word classPart_v7016;
   /* EnumerateChildren: */ 
SOURCE(4229, 234)
SOURCE(4338, 67)
   {
      word var_c21348;
      word var_c0252;
      var_c21348 = (* (( (ptr) collection_v4868)+4) );
      {
         word idx43;
         word limit44;
         var_c0252 = (* ((( (ptr) var_c21348)+30)+(
               idx43 = (* (( (ptr) (* (( (ptr) gf_c23300)+8)/* collectionClass_v2664 */  ))+27) ),
               limit44 = (* (( (ptr) var_c21348)+29) ),
               BCK(idx43, limit44)
               )) );
         };
      classPart_v7016 = XR_Narrow(var_c0252, (* (( (ptr) gf_c23300)+16) ));
      };
SOURCE(4407, 56)
   {
      word pd45;
      pd45 = (*  (ptr) classPart_v7016 );
      (void) ( *( (fPt) ((*  (ptr) pd45 ))))(collection_v4868, eachChild_v4896, data_v4924, pd45);
      };
   }

static word Find_P720(ip_v4996, child_v5024, start_v5052)
   word ip_v4996;
   word child_v5024;
   word start_v5052;
   {
   word var_c5096;
   /* Find: */ 
SOURCE(4469, 172)
SOURCE(4469, 172)
   var_c5096 =  (word) -1;
SOURCE(4563, 78)
   {
      register word i_v7060;
      register word noName_c21380;
      word var_c21412;
      word var_c0253;
      i_v7060 = start_v5052;
      noName_c21380 = (*  (ptr) ip_v4996 );
      if ((i_v7060 >= noName_c21380)) {
         goto lab_L100004;
         };
      lab_L100007: ;
SOURCE(4602, 39)
      var_c21412 = (* (( (ptr) ip_v4996)+5) );
      {
         word limit46;
         var_c0253 = (* ((( (ptr) var_c21412)+1)+(
               limit46 = (*  (ptr) var_c21412 ),
               BCK(i_v7060, limit46)
               )) );
         };
      if ((var_c0253 == child_v5024)) {
SOURCE(4631, 10)
         return(i_v7060);
         };
      i_v7060 = (i_v7060 + 1);
      if ((i_v7060 < noName_c21380)) {
         goto lab_L100007;
         };
      lab_L100004: ;
      };
SOURCE(4469, 172)
   return(var_c5096);
   }

static void RemoveXWindowsLR_P780(child_v5156)
   word child_v5156;
   {
   register ptr gf_c23332 =  (ptr) &globalframe;
   /* RemoveXWindowsLR: */ 
SOURCE(4656, 135)
SOURCE(4699, 92)
   if ((child_v5156 != 0)) {
SOURCE(4717, 76)
      {
         word p_v7104;
SOURCE(4719, 24)
         p_v7104 = (* (( (ptr) child_v5156)+31) );
SOURCE(4745, 46)
         if ((p_v7104 != 0)) {
SOURCE(4759, 32)
            {
               word pd47;
               pd47 = (* (( (ptr) (* (( (ptr) gf_c23332)+73)/* var_c20964 */  ))+15) );
               (void) ( *( (fPt) ((*  (ptr) pd47 ))))(child_v5156, pd47);
               };
            };
         };
      };
   }

static word RemoveAndSquezeLR_P840(ip_v5216, child_v5244)
   word ip_v5216;
   word child_v5244;
   {
   word idx_v5288;
   /* RemoveAndSquezeLR: */ 
SOURCE(4800, 290)
SOURCE(4887, 21)
   idx_v5288 = (word) Find_P720(ip_v5216, child_v5244, 0);
SOURCE(4910, 180)
   if (( (int)idx_v5288 >=  (int)0)) {
SOURCE(4927, 15)
      (* (( (ptr) ip_v5216)+4) ) = 0;
SOURCE(4945, 70)
      {
         register word i_v7148;
         register word noName_c21444;
         i_v7148 = idx_v5288;
         noName_c21444 = (*  (ptr) ip_v5216 );
         if (( (int)i_v7148 >=  (int)noName_c21444)) {
            goto lab_L100008;
            };
         i_v7148 = (i_v7148 + 1);
         if (( (int)i_v7148 ==  (int)noName_c21444)) {
            goto lab_L100008;
            };
         lab_L100011: ;
SOURCE(4982, 33)
         {
            word var_c21508;
            word var_c21540;
            var_c21508 = (i_v7148 - 1);
            var_c21540 = (* (( (ptr) ip_v5216)+5) );
            {
               word var_c21476;
               var_c21476 = (* (( (ptr) ip_v5216)+5) );
               {
                  word limit48;
                  word limit49;
                  (* ((( (ptr) var_c21540)+1)+(
                        limit48 = (*  (ptr) var_c21540 ),
                        BCK(var_c21508, limit48)
                        )) ) = (* ((( (ptr) var_c21476)+1)+(
                        limit49 = (*  (ptr) var_c21476 ),
                        BCK(i_v7148, limit49)
                        )) );
                  };
               };
            };
         i_v7148 = (i_v7148 + 1);
         if (( (int)i_v7148 <  (int)noName_c21444)) {
            goto lab_L100011;
            };
         lab_L100008: ;
         };
SOURCE(5026, 29)
      {
         word idx50;
         (*  (ptr) ip_v5216 ) = (
            idx50 = (word) ((*  (ptr) ip_v5216 ) - 1),
            SGNCK(idx50)
            );
         };
SOURCE(5057, 33)
      {
         word var_c21572;
         var_c21572 = (* (( (ptr) ip_v5216)+5) );
         {
            word idx51;
            word limit52;
            (* ((( (ptr) var_c21572)+1)+(
                  idx51 = (*  (ptr) ip_v5216 ),
                  limit52 = (*  (ptr) var_c21572 ),
                  BCK(idx51, limit52)
                  )) ) = 0;
            };
         };
      };
SOURCE(4800, 290)
   return(idx_v5288);
   }

static void AssertEmptySlotsLR_P900(collection_v5348, num_v5376)
   word collection_v5348;
   word num_v5376;
   {
   register ptr gf_c23364 =  (ptr) &globalframe;
   word ip_v7192;
   /* AssertEmptySlotsLR: */ 
SOURCE(5099, 165)
SOURCE(5176, 58)
   {
      word var_c21604;
      word superClass_v19388;
      superClass_v19388 = (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c23364)+76)/* var_c21636 */  ))+14) ) );
      {
         word idx53;
         word limit54;
         var_c21604 = (* ((( (ptr) collection_v5348)+49)+(
               idx53 = (* (( (ptr) superClass_v19388)+4) ),
               limit54 = (* (( (ptr) collection_v5348)+48) ),
               BCK(idx53, limit54)
               )) );
         };
      ip_v7192 = XR_Narrow(var_c21604, (* (( (ptr) gf_c23364)+17) ));
      };
SOURCE(5236, 28)
   (void) AssertEmptySlotsILR_P960(ip_v7192, num_v5376);
   }

static void AssertEmptySlotsILR_P960(ip_v5436, num_v5464)
   word ip_v5436;
   word num_v5464;
   {
   register ptr gf_c23396 =  (ptr) &globalframe;
   word oldCount_v7236;
   /* AssertEmptySlotsILR: */ 
SOURCE(5270, 613)
SOURCE(5335, 33)
   oldCount_v7236 = (*  (ptr) (* (( (ptr) ip_v5436)+5) ) );
SOURCE(5370, 21)
   if ((num_v5464 < 1)) {
SOURCE(5384, 7)
      num_v5464 = 7;
      };
SOURCE(5393, 41)
   if ((((*  (ptr) ip_v5436 ) + num_v5464) <= oldCount_v7236)) {
SOURCE(5428, 6)
      return;
      };
SOURCE(5436, 131)
   if ((0 != (* (( (ptr) ip_v5436)+1) ))) {
SOURCE(5463, 104)
      {
         register word i_v7280 = 0;
         register word noName_c21668;
         word var_c21700;
         noName_c21668 = (*  (ptr) ip_v5436 );
         if (( (int)i_v7280 >=  (int)noName_c21668)) {
            goto lab_L100013;
            };
         lab_L100016: ;
SOURCE(5498, 69)
         {
            word limit55;
            var_c21700 = (* (( (ptr) ip_v5436)+5) );
            if (((* ((( (ptr) var_c21700)+1)+(
                  limit55 = (*  (ptr) var_c21700 ),
                  BCK(i_v7280, limit55)
                  )) ) == 0)) {
SOURCE(5532, 11)
               num_v5464 = SGNCK((num_v5464 - 1));
SOURCE(5545, 22)
               if ((num_v5464 == 0)) {
SOURCE(5561, 6)
                  return;
                  };
               };
            };
         i_v7280 = (i_v7280 + 1);
         if (( (int)i_v7280 <  (int)noName_c21668)) {
            goto lab_L100016;
            };
         lab_L100013: ;
         };
      };
SOURCE(5582, 41)
   if ((((*  (ptr) ip_v5436 ) + num_v5464) <= oldCount_v7236)) {
SOURCE(5617, 6)
      return;
      };
SOURCE(5625, 260)
   {
      word newCount_v7324;
      word newCd_v7352;
SOURCE(5631, 70)
      {
         word x56;
         word x57;
         word x58;
         newCount_v7324 = (x56 = ((oldCount_v7236 + oldCount_v7236) + 1),
            x57 = MAX( (unsigned) , (oldCount_v7236 + 5), x56),
            x58 = ((*  (ptr) ip_v5436 ) + num_v5464),
            MAX( (unsigned) , x57, x58));
         };
SOURCE(5703, 53)
      {
         word var_c21732;
         word var_c21764;
         word var_c21796;
         var_c21732 = BCK(newCount_v7324, 67108863);
         var_c21764 = (var_c21732 << 2);
         var_c21796 = XR_NewObject((4 + var_c21764), (* (( (ptr) gf_c23396)+10) ));
         (*  (ptr) var_c21796 ) = var_c21732;
         newCd_v7352 = var_c21796;
         };
SOURCE(5758, 15)
      (* (( (ptr) ip_v5436)+4) ) = 0;
SOURCE(5775, 78)
      {
         register word i_v7408 = 0;
         register word noName_c21828;
         noName_c21828 = (*  (ptr) ip_v5436 );
         if (( (int)i_v7408 >=  (int)noName_c21828)) {
            goto lab_L100017;
            };
         lab_L100020: ;
SOURCE(5810, 43)
         {
            word var_c21860;
            var_c21860 = (* (( (ptr) ip_v5436)+5) );
            {
               word limit59;
               word limit60;
               (* ((( (ptr) newCd_v7352)+1)+(
                     limit59 = (*  (ptr) newCd_v7352 ),
                     BCK(i_v7408, limit59)
                     )) ) = (* ((( (ptr) var_c21860)+1)+(
                     limit60 = (*  (ptr) var_c21860 ),
                     BCK(i_v7408, limit60)
                     )) );
               };
            };
         i_v7408 = (i_v7408 + 1);
         if (( (int)i_v7408 <  (int)noName_c21828)) {
            goto lab_L100020;
            };
         lab_L100017: ;
         };
SOURCE(5864, 19)
      (* (( (ptr) ip_v5436)+5) ) = newCd_v7352;
      };
   }

static word RemoveChildInPlaceLR_P1020(widget_v5524, child_v5552)
   word widget_v5524;
   word child_v5552;
   {
   W6 var_c23428;
   register ptr gf_c23460 =  (ptr) &globalframe;
   word done_v5596;
   /* declaration of var_c21892 skipped */ 
   word ip_v7480;
   /* RemoveChildInPlaceLR: */ 
SOURCE(5894, 541)
   {
      word tmpAddr61;
      tmpAddr61 = (word) (( (ptr) &var_c23428)+4)/* var_c21892 */ ;
      (*  (ptr) tmpAddr61 ) = ( ((word)  (fPt) RemoveInPlaceLR_P2016) );
      (* (( (ptr) tmpAddr61) + 1) ) = 1;
      };
SOURCE(5894, 541)
   done_v5596 = 0;
SOURCE(6249, 54)
   {
      word var_c21924;
      word superClass_v19960;
      superClass_v19960 = (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c23460)+76)/* var_c21636 */  ))+14) ) );
      {
         word idx62;
         word limit63;
         var_c21924 = (* ((( (ptr) widget_v5524)+49)+(
               idx62 = (* (( (ptr) superClass_v19960)+4) ),
               limit63 = (* (( (ptr) widget_v5524)+48) ),
               BCK(idx62, limit63)
               )) );
         };
      ip_v7480 = XR_Narrow(var_c21924, (* (( (ptr) gf_c23460)+17) ));
      };
SOURCE(6305, 18)
   if ((child_v5552 == 0)) {
SOURCE(6323, 5)
      (void) XR_RaiseUnnamedError();
      };
SOURCE(6330, 105)
   if (( (int)(word) RemoveInPlaceLR_P2016(ip_v7480, child_v5552, (word) (( (bPt) &var_c23428)+16)/* var_c21892 */ ) >=  (int)0)) {
SOURCE(6370, 11)
      done_v5596 = 1;
SOURCE(6383, 23)
      (void) RemoveXWindowsLR_P780(child_v5552);
SOURCE(6408, 27)
      {
         word pd64;
         pd64 = (* (( (ptr) (* (( (ptr) gf_c23460)+74)/* var_c21060 */  ))+45) );
         (void) ( *( (fPt) ((*  (ptr) pd64 ))))(widget_v5524, pd64);
         };
      };
SOURCE(5894, 541)
   return(done_v5596);
   }

static word RemoveInPlaceLR_P2016(ip_v7556, child_v7584, formal_c23492)
   word ip_v7556;
   word child_v7584;
   word formal_c23492;
   {
   word idx_v7628;
   formal_c23492 = (formal_c23492 - 16);
   /* RemoveInPlaceLR: */ 
SOURCE(5985, 256)
SOURCE(6070, 21)
   idx_v7628 = (word) Find_P720(ip_v7556, child_v7584, 0);
SOURCE(6093, 148)
   if (( (int)idx_v7628 >=  (int)0)) {
SOURCE(6110, 15)
      (* (( (ptr) ip_v7556)+4) ) = 0;
SOURCE(6128, 24)
      {
         word var_c21956;
         var_c21956 = (* (( (ptr) ip_v7556)+5) );
         {
            word limit65;
            (* ((( (ptr) var_c21956)+1)+(
                  limit65 = (*  (ptr) var_c21956 ),
                  BCK(idx_v7628, limit65)
                  )) ) = 0;
            };
         };
SOURCE(6154, 87)
      if (( (int)(idx_v7628 + 1) ==  (int)(*  (ptr) ip_v7556 ))) {
SOURCE(6182, 36)
         {
            word idx66;
            (*  (ptr) ip_v7556 ) = (
               idx66 = (word) ((*  (ptr) ip_v7556 ) - 1),
               SGNCK(idx66)
               );
            };
         }
      else {
SOURCE(6218, 23)
         (* (( (ptr) ip_v7556)+1) ) = 1;
         };
      };
SOURCE(5985, 256)
   return(idx_v7628);
   }

static word RemoveChildAndSqueezeLR_P1080(widget_v5656, child_v5684)
   word widget_v5656;
   word child_v5684;
   {
   W6 var_c23524;
   register ptr gf_c23556 =  (ptr) &globalframe;
   word done_v5728;
   /* declaration of var_c21988 skipped */ 
   word ip_v7684;
   /* RemoveChildAndSqueezeLR: */ 
SOURCE(6444, 862)
   {
      word tmpAddr67;
      tmpAddr67 = (word) (( (ptr) &var_c23524)+4)/* var_c21988 */ ;
      (*  (ptr) tmpAddr67 ) = ( ((word)  (fPt) SqueezeNRemoveLR_P2076) );
      (* (( (ptr) tmpAddr67) + 1) ) = 1;
      };
SOURCE(6444, 862)
   done_v5728 = 0;
SOURCE(7116, 54)
   {
      word var_c22020;
      word superClass_v19916;
      superClass_v19916 = (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c23556)+76)/* var_c21636 */  ))+14) ) );
      {
         word idx68;
         word limit69;
         var_c22020 = (* ((( (ptr) widget_v5656)+49)+(
               idx68 = (* (( (ptr) superClass_v19916)+4) ),
               limit69 = (* (( (ptr) widget_v5656)+48) ),
               BCK(idx68, limit69)
               )) );
         };
      ip_v7684 = XR_Narrow(var_c22020, (* (( (ptr) gf_c23556)+17) ));
      };
SOURCE(7172, 18)
   if ((child_v5684 == 0)) {
SOURCE(7190, 5)
      (void) XR_RaiseUnnamedError();
      };
SOURCE(7197, 109)
   if ((0 != (word) SqueezeNRemoveLR_P2076(ip_v7684, child_v5684, (word) (( (bPt) &var_c23524)+16)/* var_c21988 */ ))) {
SOURCE(7241, 11)
      done_v5728 = 1;
SOURCE(7254, 23)
      (void) RemoveXWindowsLR_P780(child_v5684);
SOURCE(7279, 27)
      {
         word pd70;
         pd70 = (* (( (ptr) (* (( (ptr) gf_c23556)+74)/* var_c21060 */  ))+45) );
         (void) ( *( (fPt) ((*  (ptr) pd70 ))))(widget_v5656, pd70);
         };
      };
SOURCE(6444, 862)
   return(done_v5728);
   }

static word SqueezeNRemoveLR_P2076(ip_v7760, child_v7788, formal_c23588)
   word ip_v7760;
   word child_v7788;
   word formal_c23588;
   {
   word found_v7832;
   word nextToUse_v7860 = 0;
   word nextToWatch_v7888 = 0;
   formal_c23588 = (formal_c23588 - 16);
   /* SqueezeNRemoveLR: */ 
SOURCE(6538, 573)
SOURCE(6538, 573)
   found_v7832 = 0;
SOURCE(6666, 298)
   lab_L100025: ;
   if ((nextToWatch_v7888 < (*  (ptr) ip_v7760 ))) {
      }
   else {
      goto lab_L100023;
      };
   {
      word c_v7932;
SOURCE(6700, 46)
      {
         word var_c22052;
         var_c22052 = (* (( (ptr) ip_v7760)+5) );
         {
            word limit71;
            c_v7932 = (* ((( (ptr) var_c22052)+1)+(
                  limit71 = (*  (ptr) var_c22052 ),
                  BCK(nextToWatch_v7888, limit71)
                  )) );
            };
         };
SOURCE(6748, 27)
      nextToWatch_v7888 = (nextToWatch_v7888 + 1);
      if ((c_v7932 == 0) || ((* (( (ptr) c_v7932)+38) ) == 4)) {
SOURCE(6820, 15)
         (* (( (ptr) ip_v7760)+4) ) = 0;
SOURCE(6837, 4)
         goto lab_L100025;
         }
      else {
         if ((c_v7932 == child_v7788)) {
SOURCE(6856, 12)
            found_v7832 = 1;
SOURCE(6870, 15)
            (* (( (ptr) ip_v7760)+4) ) = 0;
SOURCE(6887, 4)
            goto lab_L100025;
            }
         else {
SOURCE(6907, 32)
            {
               word var_c22084;
               var_c22084 = (* (( (ptr) ip_v7760)+5) );
               {
                  word limit72;
                  (* ((( (ptr) var_c22084)+1)+(
                        limit72 = (*  (ptr) var_c22084 ),
                        BCK(nextToUse_v7860, limit72)
                        )) ) = c_v7932;
                  };
               };
SOURCE(6941, 23)
            nextToUse_v7860 = (nextToUse_v7860 + 1);
            };
         };
      };
   goto lab_L100025;
   lab_L100023: ;
SOURCE(6978, 81)
   {
      register word empty_v7976;
      register word noName_c22116;
      empty_v7976 = nextToUse_v7860;
      noName_c22116 = (*  (ptr) ip_v7760 );
      if ((empty_v7976 >= noName_c22116)) {
         goto lab_L100026;
         };
      lab_L100029: ;
SOURCE(7025, 34)
      {
         word var_c22148;
         var_c22148 = (* (( (ptr) ip_v7760)+5) );
         {
            word limit73;
            (* ((( (ptr) var_c22148)+1)+(
                  limit73 = (*  (ptr) var_c22148 ),
                  BCK(empty_v7976, limit73)
                  )) ) = 0;
            };
         };
      empty_v7976 = (empty_v7976 + 1);
      if ((empty_v7976 < noName_c22116)) {
         goto lab_L100029;
         };
      lab_L100026: ;
      };
SOURCE(7061, 24)
   (*  (ptr) ip_v7760 ) = nextToUse_v7860;
SOURCE(7087, 24)
   (* (( (ptr) ip_v7760)+1) ) = 0;
SOURCE(6538, 573)
   return(found_v7832);
   }

static void AddChildInFirstPlaceLR_P1140(collection_v5788, newChild_v5816, position_v5844, reConsiderNow_v5872)
   word collection_v5788;
   word newChild_v5816;
   word position_v5844;
   word reConsiderNow_v5872;
   {
   W6 var_c23620;
   register ptr gf_c23652 =  (ptr) &globalframe;
   /* declaration of var_c22180 skipped */ 
   word ip_v8048;
   /* AddChildInFirstPlaceLR: */ 
SOURCE(7315, 1027)
   {
      word tmpAddr74;
      tmpAddr74 = (word) (( (ptr) &var_c23620)+4)/* var_c22180 */ ;
      (*  (ptr) tmpAddr74 ) = ( ((word)  (fPt) IncludeHardLR_P2232) );
      (* (( (ptr) tmpAddr74) + 1) ) = 1;
      };
SOURCE(8025, 58)
   {
      word var_c22212;
      word superClass_v19872;
      superClass_v19872 = (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c23652)+76)/* var_c21636 */  ))+14) ) );
      {
         word idx75;
         word limit76;
         var_c22212 = (* ((( (ptr) collection_v5788)+49)+(
               idx75 = (* (( (ptr) superClass_v19872)+4) ),
               limit76 = (* (( (ptr) collection_v5788)+48) ),
               BCK(idx75, limit76)
               )) );
         };
      ip_v8048 = XR_Narrow(var_c22212, (* (( (ptr) gf_c23652)+17) ));
      };
SOURCE(8085, 51)
   if ((newChild_v5816 == 0) || ((* (( (ptr) newChild_v5816)+31) ) != collection_v5788)) {
SOURCE(8136, 5)
      (void) XR_RaiseUnnamedError();
      };
SOURCE(8143, 30)
   if (( (int)(word) Find_P720(ip_v8048, newChild_v5816, 0) >=  (int)0)) {
SOURCE(8173, 5)
      (void) XR_RaiseUnnamedError();
      };
SOURCE(8214, 27)
   (void) IncludeHardLR_P2232(ip_v8048, newChild_v5816, (word) (( (bPt) &var_c23620)+16)/* var_c22180 */ );
SOURCE(8243, 31)
   {
      word pd77;
      pd77 = (* (( (ptr) (* (( (ptr) gf_c23652)+74)/* var_c21060 */  ))+45) );
      (void) ( *( (fPt) ((*  (ptr) pd77 ))))(collection_v5788, pd77);
      };
SOURCE(8276, 66)
   if ((0 != reConsiderNow_v5872)) {
SOURCE(8298, 44)
      {
         word pd78;
         pd78 = (* (( (ptr) (* (( (ptr) gf_c23652)+73)/* var_c20964 */  ))+16) );
         (void) ( *( (fPt) ((*  (ptr) pd78 ))))(collection_v5788, pd78);
         };
      };
   }

static void IncludeHardLR_P2232(ip_v8124, newChild_v8152, formal_c23716)
   word ip_v8124;
   word newChild_v8152;
   word formal_c23716;
   {
   W6 var_c23684;
   /* declaration of var_c22244 skipped */ 
   word idx_v8208;
   formal_c23716 = (formal_c23716 - 16);
   var_c23684.f0 = formal_c23716;
   /* IncludeHardLR: */ 
SOURCE(7440, 577)
   {
      word tmpAddr79;
      tmpAddr79 = (word) (( (ptr) &var_c23684)+4)/* var_c22244 */ ;
      (*  (ptr) tmpAddr79 ) = ( ((word)  (fPt) IncludeLR_P2292) );
      (* (( (ptr) tmpAddr79) + 1) ) = 1;
      };
SOURCE(7909, 34)
   idx_v8208 = (word) IncludeLR_P2292(ip_v8124, newChild_v8152, (word) (( (bPt) &var_c23684)+16)/* var_c22244 */ );
SOURCE(7945, 72)
   if (( (int)idx_v8208 <  (int)0)) {
SOURCE(7961, 26)
      (void) AssertEmptySlotsILR_P960(ip_v8124, 1);
SOURCE(7989, 28)
      {
         word var_c22276;
         var_c22276 = (word) IncludeLR_P2292(ip_v8124, newChild_v8152, (word) (( (bPt) &var_c23684)+16)/* var_c22244 */ );
         };
      };
   }

static word IncludeLR_P2292(ip_v8284, w_v8312, formal_c23748)
   word ip_v8284;
   word w_v8312;
   word formal_c23748;
   {
   word var_c8356;
   formal_c23748 = (formal_c23748 - 16);
   /* IncludeLR: */ 
SOURCE(7507, 394)
SOURCE(7507, 394)
   var_c8356 =  (word) -1;
SOURCE(7580, 194)
   if ((0 != (* (( (ptr) ip_v8284)+1) ))) {
SOURCE(7605, 169)
      {
         word idx_v8384;
SOURCE(7607, 24)
         idx_v8384 = (word) Find_P720(ip_v8284, 0, 0);
SOURCE(7633, 14)
         if (( (int)idx_v8384 <  (int)0)) {
SOURCE(7647, 5)
            (void) XR_RaiseUnnamedError();
            };
SOURCE(7680, 22)
         {
            word var_c22308;
            var_c22308 = (* (( (ptr) ip_v8284)+5) );
            {
               word limit80;
               (* ((( (ptr) var_c22308)+1)+(
                     limit80 = (*  (ptr) var_c22308 ),
                     BCK(idx_v8384, limit80)
                     )) ) = w_v8312;
               };
            };
SOURCE(7704, 55)
         if (( (int)(word) Find_P720(ip_v8284, 0, SGNCK((idx_v8384 + 1))) <  (int)0)) {
SOURCE(7735, 24)
            (* (( (ptr) ip_v8284)+1) ) = 0;
            };
SOURCE(7761, 13)
         return(idx_v8384);
         };
      };
SOURCE(7777, 124)
   if (((*  (ptr) ip_v8284 ) < (*  (ptr) (* (( (ptr) ip_v8284)+5) ) ))) {
SOURCE(7816, 87)
      {
         word idx_v8428;
SOURCE(7818, 23)
         idx_v8428 = (*  (ptr) ip_v8284 );
SOURCE(7843, 22)
         {
            word var_c22340;
            var_c22340 = (* (( (ptr) ip_v8284)+5) );
            {
               word limit81;
               (* ((( (ptr) var_c22340)+1)+(
                     limit81 = (*  (ptr) var_c22340 ),
                     BCK(idx_v8428, limit81)
                     )) ) = w_v8312;
               };
            };
SOURCE(7867, 20)
         (*  (ptr) ip_v8284 ) = (idx_v8428 + 1);
SOURCE(7889, 12)
         return(idx_v8428);
         };
      };
SOURCE(7507, 394)
   return(var_c8356);
   }

static void DefaultAddChildrenLR_P1200(collection_v5944, children_v5972, reConsiderNow_v6000)
   word collection_v5944;
   word children_v5972;
   word reConsiderNow_v6000;
   {
   register ptr gf_c23780 =  (ptr) &globalframe;
   word classPart_v8472;
   /* DefaultAddChildrenLR: */ 
SOURCE(8348, 312)
SOURCE(8457, 67)
   {
      word var_c22372;
      word var_c0254;
      var_c22372 = (* (( (ptr) collection_v5944)+4) );
      {
         word idx82;
         word limit83;
         var_c0254 = (* ((( (ptr) var_c22372)+30)+(
               idx82 = (* (( (ptr) (* (( (ptr) gf_c23780)+8)/* collectionClass_v2664 */  ))+27) ),
               limit83 = (* (( (ptr) var_c22372)+29) ),
               BCK(idx82, limit83)
               )) );
         };
      classPart_v8472 = XR_Narrow(var_c0254, (* (( (ptr) gf_c23780)+16) ));
      };
SOURCE(8526, 134)
   {
      register word l_v8516;
      l_v8516 = children_v5972;
      lab_L100034: ;
      if ((l_v8516 != 0)) {
         }
      else {
         goto lab_L100031;
         };
SOURCE(8582, 78)
      {
         word pd84;
         pd84 = (* (( (ptr) classPart_v8472)+1) );
         (void) ( *( (fPt) ((*  (ptr) pd84 ))))(collection_v5944, (*  (ptr) l_v8516 ), 0,  ( ((* (( (ptr) l_v8516)+1) ) != 0) ? (0 != reConsiderNow_v6000) : 0 ) , pd84)
         ;
         };
      l_v8516 = (* (( (ptr) l_v8516)+1) );
      goto lab_L100034;
      lab_L100031: ;
      };
   }

static word CountChildren_P1260(collection_v6144)
   word collection_v6144;
   {
   register ptr gf_c23812 =  (ptr) &globalframe;
   word n_v6188;
   word ip_v8644;
   /* CountChildren: */ 
SOURCE(8675, 246)
SOURCE(8675, 246)
   n_v6188 = 0;
SOURCE(8751, 58)
   {
      word var_c22404;
      word superClass_v19828;
      superClass_v19828 = (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c23812)+76)/* var_c21636 */  ))+14) ) );
      {
         word idx85;
         word limit86;
         var_c22404 = (* ((( (ptr) collection_v6144)+49)+(
               idx85 = (* (( (ptr) superClass_v19828)+4) ),
               limit86 = (* (( (ptr) collection_v6144)+48) ),
               BCK(idx85, limit86)
               )) );
         };
      ip_v8644 = XR_Narrow(var_c22404, (* (( (ptr) gf_c23812)+17) ));
      };
SOURCE(8811, 110)
   {
      register word i_v8688 = 0;
      register word noName_c22436;
      noName_c22436 = (*  (ptr) ip_v8644 );
      if ((i_v8688 >= noName_c22436)) {
         goto lab_L100036;
         };
      lab_L100039: ;
      {
         word c_v8732;
SOURCE(8846, 26)
         {
            word var_c22468;
            var_c22468 = (* (( (ptr) ip_v8644)+5) );
            {
               word limit87;
               c_v8732 = (* ((( (ptr) var_c22468)+1)+(
                     limit87 = (*  (ptr) var_c22468 ),
                     BCK(i_v8688, limit87)
                     )) );
               };
            };
SOURCE(8874, 47)
         if ( ( (c_v8732 != 0) ? ((* (( (ptr) c_v8732)+38) ) < 4) : 0 ) ) {
SOURCE(8905, 16)
            n_v6188 = (n_v6188 + 1);
            };
         };
      i_v8688 = (i_v8688 + 1);
      if ((i_v8688 < noName_c22436)) {
         goto lab_L100039;
         };
      lab_L100036: ;
      };
SOURCE(8675, 246)
   return(n_v6188);
   }

static void BasicEnumerateChildren_P1320(collection_v6248, eachChild_v6276, data_v6304)
   word collection_v6248;
   word eachChild_v6276;
   word data_v6304;
   {
   register ptr gf_c23844 =  (ptr) &globalframe;
   word ip_v8776;
   /* BasicEnumerateChildren: */ 
SOURCE(8927, 322)
SOURCE(9041, 58)
   {
      word var_c22500;
      word superClass_v19784;
      superClass_v19784 = (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c23844)+76)/* var_c21636 */  ))+14) ) );
      {
         word idx88;
         word limit89;
         var_c22500 = (* ((( (ptr) collection_v6248)+49)+(
               idx88 = (* (( (ptr) superClass_v19784)+4) ),
               limit89 = (* (( (ptr) collection_v6248)+48) ),
               BCK(idx88, limit89)
               )) );
         };
      ip_v8776 = XR_Narrow(var_c22500, (* (( (ptr) gf_c23844)+17) ));
      };
SOURCE(9101, 148)
   {
      register word i_v8820 = 0;
      register word noName_c22532;
      noName_c22532 = (*  (ptr) ip_v8776 );
      if ((i_v8820 >= noName_c22532)) {
         goto lab_L100041;
         };
      lab_L100044: ;
      {
         word c_v8864;
SOURCE(9136, 26)
         {
            word var_c22564;
            var_c22564 = (* (( (ptr) ip_v8776)+5) );
            {
               word limit90;
               c_v8864 = (* ((( (ptr) var_c22564)+1)+(
                     limit90 = (*  (ptr) var_c22564 ),
                     BCK(i_v8820, limit90)
                     )) );
               };
            };
SOURCE(9164, 85)
         if ( ( (c_v8864 != 0) ? ((* (( (ptr) c_v8864)+38) ) < 4) : 0 ) ) {
SOURCE(9196, 53)
            if ((0 != (word) ( *( (fPt) ((*  (ptr) eachChild_v6276 ))))(collection_v6248, c_v8864, data_v6304, i_v8820, eachChild_v6276)
            )) {
SOURCE(9243, 6)
               return;
               };
            };
         };
      i_v8820 = (i_v8820 + 1);
      if ((i_v8820 < noName_c22532)) {
         goto lab_L100044;
         };
      lab_L100041: ;
      };
   }

static word InternalEnumerateChildren_P1380(self_v11736, classLevel_v11764, proc_v11792, data_v11820)
   word self_v11736;
   word classLevel_v11764;
   word proc_v11792;
   word data_v11820;
   {
   register ptr gf_c23876 =  (ptr) &globalframe;
   word stop_v11864;
   word ip_v8908;
   /* InternalEnumerateChildren: */ 
SOURCE(9264, 269)
SOURCE(9264, 269)
   stop_v11864 = 0;
SOURCE(9329, 52)
   {
      word var_c22596;
      word superClass_v19740;
      superClass_v19740 = (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c23876)+76)/* var_c21636 */  ))+14) ) );
      {
         word idx91;
         word limit92;
         var_c22596 = (* ((( (ptr) self_v11736)+49)+(
               idx91 = (* (( (ptr) superClass_v19740)+4) ),
               limit92 = (* (( (ptr) self_v11736)+48) ),
               BCK(idx91, limit92)
               )) );
         };
      ip_v8908 = XR_Narrow(var_c22596, (* (( (ptr) gf_c23876)+17) ));
      };
SOURCE(9383, 150)
   {
      register word i_v8952 = 0;
      register word noName_c22628;
      noName_c22628 = (*  (ptr) ip_v8908 );
      if ((i_v8952 >= noName_c22628)) {
         goto lab_L100046;
         };
      lab_L100049: ;
      {
         word c_v8996;
SOURCE(9418, 26)
         {
            word var_c22660;
            var_c22660 = (* (( (ptr) ip_v8908)+5) );
            {
               word limit93;
               c_v8996 = (* ((( (ptr) var_c22660)+1)+(
                     limit93 = (*  (ptr) var_c22660 ),
                     BCK(i_v8952, limit93)
                     )) );
               };
            };
SOURCE(9446, 87)
         if ( ( (c_v8996 != 0) ? ((* (( (ptr) c_v8996)+38) ) < 4) : 0 ) ) {
SOURCE(9480, 53)
            if ((0 != (word) ( *( (fPt) ((*  (ptr) proc_v11792 ))))(self_v11736, c_v8996, data_v11820, proc_v11792))) {
SOURCE(9514, 11)
               stop_v11864 = 1;
SOURCE(9527, 6)
               return(stop_v11864);
               };
            };
         };
      i_v8952 = (i_v8952 + 1);
      if ((i_v8952 < noName_c22628)) {
         goto lab_L100049;
         };
      lab_L100046: ;
      };
SOURCE(9264, 269)
   return(stop_v11864);
   }

static word NewCollectionClassPart_P1440(class_v6376)
   word class_v6376;
   {
   register ptr gf_c23908 =  (ptr) &globalframe;
   word newClassPart_v6420;
   word oldClassPart_v9040;
   /* NewCollectionClassPart: */ 
SOURCE(9552, 321)
SOURCE(9552, 321)
   newClassPart_v6420 = 0;
SOURCE(9666, 86)
   {
      word idx94;
      word limit95;
      oldClassPart_v9040 = XR_Narrow((* ((( (ptr) class_v6376)+30)+(
               idx94 = (* (( (ptr) (* (( (ptr) gf_c23908)+8)/* collectionClass_v2664 */  ))+27) ),
               limit95 = (* (( (ptr) class_v6376)+29) ),
               BCK(idx94, limit95)
               )) ), (* (( (ptr) gf_c23908)+16) ));
      };
SOURCE(9756, 58)
   {
      word var_c22692;
      var_c22692 = XR_NewObject(12, (* (( (ptr) gf_c23908)+16) ));
      (*  (W3Pt) var_c22692 ) = (*  (W3Pt) oldClassPart_v9040 );
      newClassPart_v6420 = var_c22692;
      };
SOURCE(9816, 57)
   {
      word idx96;
      word limit97;
      (* ((( (ptr) class_v6376)+30)+(
            idx96 = (* (( (ptr) (* (( (ptr) gf_c23908)+8)/* collectionClass_v2664 */  ))+27) ),
            limit97 = (* (( (ptr) class_v6376)+29) ),
            BCK(idx96, limit97)
            )) ) = newClassPart_v6420;
      };
SOURCE(9552, 321)
   return(newClassPart_v6420);
   }

/* file: XTkCollectionsImpl, module: XTkCollectionsImpl, compiled at: June 12, 1992 10:44:05 am PDT */ 
extern void XR_install_XTkCollectionsImpl() {
   NoName_Q3408();
   }
extern void XR_run_XTkCollectionsImpl() { XR_Start(&globalframe); }