/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: April 19, 1993 10:40:55 am PDT */
/* C2C version: March 29, 1993 (sun4) */
/* ref-counting: off */
/* file: XTkHelpShellsImpl, module: XTkHelpShellsImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [4018915024,1237062829] XTkHelpShellsImpl";
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 {W8 f; word r;} W9;
typedef W9 *W9Pt;
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W16 f; W4 r;} W20;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef W5 *W5Pt;
#define SOURCE(p, l) /* source p, l */
static void NoName_Q1308();
static void XTkHelpShellsImpl_P0();
static word AssignLabel_P60();
static word CreateHelpWithPopShell_P120();
static void ParentDestroyed_P180();
static word MyCreateHandle_P240();
static void MyDisplay_P300();
static void MyClear_P360();
static void ForkedCreate_P420();
static word NoName_Q1368();
static void MakeVisible_P480();
static void NoVisible_P540();
static void Remove_P600();
static void ForkedDestroy_P660();
static void NoName_Q1428();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string2 = {1376277, "\007\000\001\002\007\020\001\002\000\007\036\002\004\003\002\004\014\016\015\003\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[4];} string4 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\244\000\000"};
static struct {unsigned f; char r[40];} string6 = {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];} string7 = {851984, "\257\300\267\210\110\244\300\302\136\033\142\100\200\000\000"};
static struct {unsigned f; char r[4];} string8 = {131074, "\003\004\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\267\210\110\244\300\302\136\033\142\100\164\000\000"};
static struct {unsigned f; char r[4];} string10 = {131074, "\004\003\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\357\213\306\320\300\111\274\024\255\100\200\000\000"};
static struct {unsigned f; char r[4];} string12 = {131074, "\004=\000"};
static struct {unsigned f; char r[4];} string13 = {131076, "\216\251\000"};
static struct {unsigned f; char r[8];} string14 = {262152, "Help\000\000\000"};
static struct {unsigned f; char r[36];} string15 = {2228260, "                                  \000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\357\213\306\320\300\111\274\024\255\100\164\000\000"};
static struct {unsigned f; char r[12];} string17 = {524296, "\006\002\040\001\100\110\004\007\000\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\263\064\342\215\300\063\160\325\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\150\000\000"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\000\150\313\125\300\372\040\271\021\100\150\000\000"};
static struct {unsigned f; char r[16];} string22 = {851984, "\257\300\234\350\054\033\300\120\345\145\367\100\150\000\000"};
static struct {unsigned f; char r[16];} string23 = {851984, "\257\300\054\174\025\242\300\120\014\117\154\100\150\000\000"};
static struct {unsigned f; char r[16];} string24 = {851984, "\257\300\320\075\064\316\300\052\004\271\020\100\150\000\000"};
static struct {
   word f0[21]; 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[2]; word f46; word f47; word f48; 
   word f49; word f50; word f51; word f52[2]; 
   word f54; word f55; word f56[3]; word f59; 
   word f60; word f61; word f62; word f63; 
   word f64; word f65[2]; word f67; word f68; 
   word f69; word f70; word f71; word f72[7]; 
   } globalframe = {
   {0}, (word) ForkedDestroy_P660, 0, (word) Remove_P600, 
   0, (word) NoVisible_P540, 0, (word) MakeVisible_P480, 
   0, (word) ForkedCreate_P420, 0, (word) MyClear_P360, 
   0, (word) MyDisplay_P300, 0, (word) MyCreateHandle_P240, 
   0, (word) ParentDestroyed_P180, 0, (word) CreateHelpWithPopShell_P120, 
   0, (word) AssignLabel_P60, 0, (word) XTkHelpShellsImpl_P0, 
   {0}, (word) 2147483648, (word) 2147483648, (word) 350, 
   (word) 20, (word) 2147483648, (word) 3, {0}, 
   (word) 4294967295, (word) 4294967295, {0}, (word) 2147483648, 
   (word) 2147483648, (word) 2147483648, (word) 2147483648, (word) 2147483648, 
   (word) 3, {0}, (word) 2147483648, (word) 2147483648, 
   (word) 2147483648, (word) 2147483648, (word) 2147483648, {0}
   };

static void NoName_Q1308()
   {
   register ptr gf_c093 =  (ptr) &globalframe;
   word var_c18524;
   (* (( (ptr) gf_c093)+9) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c093)+10) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf_c093)+11) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6);
   (* (( (ptr) gf_c093)+12) ) = (word) XR_GetTypeIndex((word) &string7, 0, (word) &string8);
   (* (( (ptr) gf_c093)+14) ) = (word) XR_GetTypeIndex((word) &string9, 0, (word) &string10);
   (* (( (ptr) gf_c093)+15) ) = (word) XR_GetTypeIndex((word) &string11, 0, (word) &string12);
   (* (( (ptr) gf_c093)+17) ) = (word) XR_GetTypeIndex((word) &string13, 0, (word) &string4);
   (*  (ptr) (( (bPt) gf_c093)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c093)+17) ), (word) &string14);
   (*  (ptr) (( (bPt) gf_c093)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c093)+10) ), (word) &string14);
   (*  (ptr) (( (bPt) gf_c093)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c093)+10) ), (word) &string15);
   (void) XR_DeclareGlobalFrame((word) "XTkHelpShellsImpl", &globalframe, (word) XR_GetTypeIndex((word) &string16, 0, (word) &string17)
      , (word) (( (bPt) gf_c093)+172)/* var_c17596 */ );
   var_c18524 = (word) XR_ImportInterface((word) "ForkOps", (word) XR_GetTypeIndexS((word) (&string18)), 4);
   (* (( (ptr) gf_c093)+73)/* var_c18140 */  ) = var_c18524;
   (void) XR_ImportProcS(var_c18524, 1048836);
   var_c18524 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string19)), 43);
   (* (( (ptr) gf_c093)+74)/* var_c18172 */  ) = var_c18524;
   (void) XR_ImportProcS(var_c18524, 67896323);
   var_c18524 = (word) XR_ImportInterface((word) "XTk", (word) XR_GetTypeIndexS((word) (&string20)), 50);
   (* (( (ptr) gf_c093)+72)/* var_c17916 */  ) = var_c18524;
   (void) XR_ImportProcS(var_c18524, 67378433);
   (void) XR_ImportProcS(var_c18524, 1050628);
   var_c18524 = (word) XR_ImportInterface((word) "XTkHelpStrings", (word) XR_GetTypeIndexS((word) (&string21)), 2);
   (* (( (ptr) gf_c093)+77)/* var_c18332 */  ) = var_c18524;
   (void) XR_ImportProcS(var_c18524, 524546);
   var_c18524 = (word) XR_ImportInterface((word) "XTkLabels", (word) XR_GetTypeIndexS((word) (&string22)), 9);
   (* (( (ptr) gf_c093)+75)/* var_c18204 */  ) = var_c18524;
   (void) XR_ImportProcS(var_c18524, 70778883);
   (void) XR_ImportProcS(var_c18524, 787203);
   var_c18524 = (word) XR_ImportInterface((word) "XTkShellWidgets", (word) XR_GetTypeIndexS((word) (&string23)), 26);
   (* (( (ptr) gf_c093)+76)/* var_c18300 */  ) = var_c18524;
   (void) XR_ImportProcS(var_c18524, 264705);
   (void) XR_ImportProcS(var_c18524, 67371009);
   (void) XR_ImportProcS(var_c18524, 2099204);
   (void) XR_ImportProcS(var_c18524, 786947);
   (void) XR_ImportProcS(var_c18524, 72352012);
   var_c18524 = (word) XR_ExportInterface((word) "XTkHelpShells", (word) XR_GetTypeIndexS((word) (&string24)), 1);
   (* (( (ptr) gf_c093)+78)/* var_c18556 */  ) = var_c18524;
   (void) XR_ExportProcS(var_c18524, (word) (( (bPt) gf_c093)+156)/* var_c17532 */ , 67371009);
   }

static void XTkHelpShellsImpl_P0(formal_c032, formal_c030)
   word formal_c032;
   word formal_c030;
   {
   register ptr gf_c18588 =  (ptr) &globalframe;
   /* XTkHelpShellsImpl: */ 
SOURCE(106, 3571)
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
SOURCE(302, 160)
   {
      word var_c17884;
      var_c17884 = XR_NewObject(20, (* (( (ptr) gf_c18588)+12) ));
      (*  (ptr) var_c17884 ) = (word) (( (bPt) gf_c18588)+132)/* var_c17436 */ ;
      (* (( (ptr) var_c17884)+1) ) = (word) (( (bPt) gf_c18588)+124)/* var_c17404 */ ;
      (* (( (ptr) var_c17884)+2) ) = (word) (( (bPt) gf_c18588)+108)/* var_c17340 */ ;
      (* (( (ptr) var_c17884)+3) ) = (word) (( (bPt) gf_c18588)+100)/* var_c17308 */ ;
      (* (( (ptr) gf_c18588)+8)/* myHelpClass_v2832 */  ) = var_c17884;
      };
   }

static word AssignLabel_P60(md_v3484, label_v3512)
   word md_v3484;
   word label_v3512;
   {
   register ptr gf_c18620 =  (ptr) &globalframe;
   word previous_v3568;
   /* AssignLabel: */ 
SOURCE(627, 133)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c18620)+16)/* LOCK_v2776 */ ));
SOURCE(627, 133)
   previous_v3568 = 0;
SOURCE(722, 20)
   previous_v3568 = (*  (ptr) md_v3484 );
SOURCE(744, 16)
   (*  (ptr) md_v3484 ) = label_v3512;
SOURCE(627, 133)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c18620)+16)/* LOCK_v2776 */ ));
   return(previous_v3568);
   }

static word CreateHelpWithPopShell_P120(for_v3628)
   word for_v3628;
   {
   register ptr gf_c18652 =  (ptr) &globalframe;
   word h_v3672;
   /* CreateHelpWithPopShell: */ 
SOURCE(766, 199)
SOURCE(766, 199)
   h_v3672 = 0;
SOURCE(856, 20)
   h_v3672 = (word) MyCreateHandle_P240();
SOURCE(878, 87)
   if ((for_v3628 != 0)) {
SOURCE(894, 71)
      {
         word pd25;
         pd25 = (* (( (ptr) (* (( (ptr) gf_c18652)+72)/* var_c17916 */  ))+12) );
         (void) ( *( (fPt) ((*  (ptr) pd25 ))))(for_v3628, (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c18652)+72)/* var_c17916 */  ))+22)
             ) ), (word) (( (bPt) gf_c18652)+148)/* var_c17500 */ , h_v3672, pd25);
         };
      };
SOURCE(766, 199)
   return(h_v3672);
   }

static void ParentDestroyed_P180(widget_v9408, registerData_v9436, callData_v9464, event_v9492)
   word widget_v9408;
   word registerData_v9436;
   word callData_v9464;
   word event_v9492;
   {
   register ptr gf_c18684 =  (ptr) &globalframe;
   word h_v4444;
   /* ParentDestroyed: */ 
SOURCE(971, 158)
SOURCE(1013, 44)
   h_v4444 = XR_Narrow(registerData_v9436, (* (( (ptr) gf_c18684)+14) ));
SOURCE(1059, 70)
   {
      word var_c17948;
      var_c17948 = (* (( (ptr) h_v4444)+1) );
      if ((var_c17948 == 0)) {
         goto lab_L100000;
         };
      if (((* (( (ptr) gf_c18684)+15) ) == XR_GetReferentType(var_c17948))) {
         {
            word md_v4488;
            md_v4488 = var_c17948;
SOURCE(1101, 28)
            {
               word var_c17980;
               var_c17980 = (word) AssignLabel_P60(md_v4488, 0);
               (void) Remove_P600(var_c17980);
               };
            };
         }
      else {
         lab_L100000: ;
         };
      };
   }

static word MyCreateHandle_P240()
   {
   register ptr gf_c18716 =  (ptr) &globalframe;
   word h_v3732;
   word md_v4544;
   /* MyCreateHandle: */ 
SOURCE(1149, 154)
SOURCE(1149, 154)
   h_v3732 = 0;
SOURCE(1215, 33)
   md_v4544 = XR_NewObject(24, (* (( (ptr) gf_c18716)+15) ));
SOURCE(1250, 53)
   {
      word var_c18044;
      var_c18044 = XR_NewObject(8, (* (( (ptr) gf_c18716)+14) ));
      (*  (ptr) var_c18044 ) = (* (( (ptr) gf_c18716)+8)/* myHelpClass_v2832 */  );
      (* (( (ptr) var_c18044)+1) ) = md_v4544;
      h_v3732 = var_c18044;
      };
SOURCE(1149, 154)
   return(h_v3732);
   }

static void MyDisplay_P300(h_v3792, string_v3820, key_v3848)
   word h_v3792;
   word string_v3820;
   word key_v3848;
   {
   register ptr gf_c18748 =  (ptr) &globalframe;
   /* MyDisplay: */ 
SOURCE(1307, 656)
SOURCE(1380, 583)
   {
      word var_c18076;
      var_c18076 = (* (( (ptr) h_v3792)+1) );
      if ((var_c18076 == 0)) {
         goto lab_L100001;
         };
      if (((* (( (ptr) gf_c18748)+15) ) == XR_GetReferentType(var_c18076))) {
         {
            word md_v4600;
            md_v4600 = var_c18076;
SOURCE(1422, 543)
            {
               word previousText_v4656;
               word label_v4684 = 0;
SOURCE(1424, 33)
               previousText_v4656 = (* (( (ptr) md_v4600)+4) );
SOURCE(1478, 70)
               {
                  word var_c18108;
                  var_c18108 = string_v3820;
                  if ((var_c18108 == 0)) {
                     goto lab_L100002;
                     };
                  {
                     word tc26;
                     if (((* (( (ptr) gf_c18748)+9) ) == XR_GetReferentType(var_c18108))) {
                        tc26 =  (word) ( (unsigned) (*(int*)var_c18108<0) == 0);
                        }
                     else {
                        tc26 =  (word) 0;
                        };
                     if (tc26) {
                        {
                           word r_v4728;
                           r_v4728 = var_c18108;
SOURCE(1518, 11)
                           (* (( (ptr) md_v4600)+4) ) = r_v4728;
                           };
                        }
                     else {
                        lab_L100002: ;
SOURCE(1542, 6)
                        return;
                        };
                     };
                  };
SOURCE(1550, 18)
               (* (( (ptr) md_v4600)+3) ) = string_v3820;
SOURCE(1570, 12)
               (* (( (ptr) md_v4600)+5) ) = key_v3848;
SOURCE(1584, 170)
               if ( ( (0 != (* (( (ptr) md_v4600)+1) )) ?  ( ((*  (ptr) md_v4600 ) == 0) ? 1 : ((* (( (ptr) (*  (ptr) md_v4600 ))+38) ) != 0) )  : 0 ) ) {
SOURCE(1663, 30)
                  (* (( (ptr) md_v4600)+1) ) = 0;
SOURCE(1695, 18)
                  previousText_v4656 = 0;
SOURCE(1715, 39)
                  {
                     word pd27;
                     pd27 = (* (( (ptr) (* (( (ptr) gf_c18748)+73)/* var_c18140 */  ))+5) );
                     (void) ( *( (fPt) ((*  (ptr) pd27 ))))(0, (word) (( (bPt) gf_c18748)+116)/* var_c17372 */ , h_v3792, 2, pd27);
                     };
                  };
SOURCE(1841, 16)
               label_v4684 = (*  (ptr) md_v4600 );
SOURCE(1859, 104)
               {
                  word tc28;
                  word pd29;
                  if ((label_v4684 != 0)) {
                     pd29 = (* (( (ptr) (* (( (ptr) gf_c18748)+74)/* var_c18172 */  ))+8) );
                     tc28 =  (word) (0 == (word) ( *( (fPt) ((*  (ptr) pd29 ))))(previousText_v4656, (* (( (ptr) md_v4600)+4) ), 1, pd29));
                     }
                  else {
                     tc28 =  (word) 0;
                     };
                  if (tc28) {
SOURCE(1917, 46)
                     {
                        word pd30;
                        pd30 = (* (( (ptr) (* (( (ptr) gf_c18748)+75)/* var_c18204 */  ))+7) );
                        (void) ( *( (fPt) ((*  (ptr) pd30 ))))(label_v4684, (* (( (ptr) md_v4600)+4) ), 2, pd30);
                        };
                     };
                  };
               };
            };
         }
      else {
         lab_L100001: ;
         };
      };
   }

static void MyClear_P360(h_v3932, string_v3960, key_v3988)
   word h_v3932;
   word string_v3960;
   word key_v3988;
   {
   register ptr gf_c18780 =  (ptr) &globalframe;
   /* MyClear: */ 
SOURCE(1986, 262)
SOURCE(2057, 191)
   {
      word var_c18236;
      var_c18236 = (* (( (ptr) h_v3932)+1) );
      if ((var_c18236 == 0)) {
         goto lab_L100003;
         };
      if (((* (( (ptr) gf_c18780)+15) ) == XR_GetReferentType(var_c18236))) {
         {
            word md_v4772;
            md_v4772 = var_c18236;
SOURCE(2101, 147)
            if (((* (( (ptr) md_v4772)+3) ) == string_v3960) || ((* (( (ptr) md_v4772)+5) ) == key_v3988)) {
SOURCE(2140, 110)
               {
                  word label_v4828;
SOURCE(2142, 28)
                  label_v4828 = (*  (ptr) md_v4772 );
SOURCE(2172, 61)
                  if ((label_v4828 != 0)) {
SOURCE(2190, 43)
                     {
                        word pd31;
                        pd31 = (* (( (ptr) (* (( (ptr) gf_c18780)+75)/* var_c18204 */  ))+7) );
                        (void) ( *( (fPt) ((*  (ptr) pd31 ))))((*  (ptr) md_v4772 ), (* (( (ptr) gf_c18780)+20) ), 1, pd31);
                        };
                     };
SOURCE(2235, 13)
                  (* (( (ptr) md_v4772)+4) ) = 0;
                  };
               };
            };
         }
      else {
         lab_L100003: ;
         };
      };
   }

static void ForkedCreate_P420(x_v4072)
   word x_v4072;
   {
   W9 var_c18812;
   register ptr gf_c18844 =  (ptr) &globalframe;
   /* declaration of h_v4872 skipped */ 
   /* ForkedCreate: */ 
SOURCE(2274, 760)
SOURCE(2306, 33)
   (* (( (ptr) &var_c18812)+4)/* h_v4872 */  ) = XR_Narrow(x_v4072, (* (( (ptr) gf_c18844)+14) ));
SOURCE(2341, 693)
   {
      word var_c18268;
      var_c18268 = (* (( (ptr) (* (( (ptr) &var_c18812)+4)/* h_v4872 */  ))+1) );
      if ((var_c18268 == 0)) {
         goto lab_L100004;
         };
      if (((* (( (ptr) gf_c18844)+15) ) == XR_GetReferentType(var_c18268))) {
         {
            /* declaration of md_v4916 skipped */ 
            (* (( (ptr) &var_c18812)+5)/* md_v4916 */  ) = var_c18268;
SOURCE(2383, 653)
            {
               /* declaration of connection_v4972 skipped */ 
               /* declaration of label_v5000 skipped */ 
               /* declaration of shell_v5028 skipped */ 
               word old_v5056;
SOURCE(2385, 19)
               (* (( (ptr) &var_c18812)+6)/* connection_v4972 */  ) = 0;
SOURCE(2406, 94)
               {
                  word pd32;
                  pd32 = (* (( (ptr) (* (( (ptr) gf_c18844)+75)/* var_c18204 */  ))+4) );
                  (* (( (ptr) &var_c18812)+7)/* label_v5000 */  ) = (word) ( *( (fPt) ((*  (ptr) pd32 ))))((*  (W9Pt) (( (ptr) gf_c18844)+45)
                     /* var_c17660 */  ), (* (( (ptr) gf_c18844)+20) ), (*  (W4Pt) (( (ptr) gf_c18844)+54)/* var_c17724 */  ), pd32);
                  };
SOURCE(2502, 123)
               {
                  W20 var_c071;
                  (*  (W9Pt) (word) &var_c071 ) = (*  (W9Pt) (( (ptr) gf_c18844)+58)/* var_c17788 */  );
                  (* (( (ptr) (word) &var_c071) + 9) ) = (* (( (ptr) &var_c18812)+7)/* label_v5000 */  );
                  (* (( (ptr) (word) &var_c071) + 10) ) = (* (( (ptr) gf_c18844)+19) );
                  (* (( (ptr) (word) &var_c071) + 11) ) = 0;
                  (* (( (ptr) (word) &var_c071) + 12) ) = (* (( (ptr) gf_c18844)+18) );
                  (* (( (ptr) (word) &var_c071) + 13) ) = 0;
                  (* (( (ptr) (word) &var_c071) + 14) ) = 0;
                  (* (( (ptr) (word) &var_c071) + 15) ) = 0;
                  (* (( (ptr) (word) &var_c071) + 16) ) = 0;
                  (* (( (ptr) (word) &var_c071) + 17) ) = 1;
                  (* (( (ptr) (word) &var_c071) + 18) ) = 0;
                  (* (( (ptr) (word) &var_c071) + 19) ) = 1;
                  {
                     word pd33;
                     pd33 = (* (( (ptr) (* (( (ptr) gf_c18844)+76)/* var_c18300 */  ))+5) );
                     (* (( (ptr) &var_c18812)+8)/* shell_v5028 */  ) = (word) ( *( (fPt) ((*  (ptr) pd33 ))))((word) (&var_c071), pd33);
                     };
                  };
SOURCE(2627, 40)
               old_v5056 = (word) AssignLabel_P60((* (( (ptr) &var_c18812)+5)/* md_v4916 */  ), (* (( (ptr) &var_c18812)+7)/* label_v5000 */  ))
               ;
SOURCE(2669, 349)
SOURCE(2675, 323)
               {
                  word var_c01;
                  {
                     word var_c0108;
                     var_c0108 = (word) &var_c18812;
                     var_c01 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1368) ), ( ((word)  (fPt) NoName_Q1428) ), var_c0108);
                     };
                  if ((var_c01 == 2)) {
                     goto lab_L100005;
                     };
                  };
               goto lab_L100009;
               lab_L100005: ;
               lab_L100009: ;
SOURCE(3023, 11)
               (void) Remove_P600(old_v5056);
               };
            };
         }
      else {
         lab_L100004: ;
         };
      };
   }

static word NoName_Q1368(formal_c0103)
   word formal_c0103;
   {
   register ptr gf_c0102 =  (ptr) &globalframe;
SOURCE(2705, 34)
   {
      word pd34;
      pd34 = (* (( (ptr) (* (( (ptr) gf_c0102)+77)/* var_c18332 */  ))+5) );
      (void) ( *( (fPt) ((*  (ptr) pd34 ))))((* (( (ptr) formal_c0103)+8) ), (* (( (ptr) formal_c0103)+4) ), pd34);
      };
SOURCE(2741, 100)
   {
      word var_c18364;
      var_c18364 = (* (( (ptr) (* (( (ptr) formal_c0103)+5) ))+2) );
      if ((var_c18364 == 0)) {
         goto lab_L100008;
         };
      if (((* (( (ptr) gf_c0102)+11) ) == XR_GetReferentType(var_c18364))) {
         {
            word w_v5112;
            w_v5112 = var_c18364;
SOURCE(2783, 25)
            (* (( (ptr) formal_c0103)+6) ) = (* (( (ptr) w_v5112)+34) );
            };
         }
      else {
         lab_L100008: ;
SOURCE(2821, 20)
         (* (( (ptr) formal_c0103)+6) ) = (* (( (ptr) (* (( (ptr) formal_c0103)+5) ))+2) );
         };
      };
SOURCE(2844, 69)
   {
      word pd35;
      pd35 = (* (( (ptr) (* (( (ptr) gf_c0102)+76)/* var_c18300 */  ))+6) );
      (void) ( *( (fPt) ((*  (ptr) pd35 ))))((* (( (ptr) formal_c0103)+8) ), (* (( (ptr) formal_c0103)+6) ), 0, pd35);
      };
SOURCE(2915, 46)
   {
      word pd36;
      pd36 = (* (( (ptr) (* (( (ptr) gf_c0102)+75)/* var_c18204 */  ))+7) );
      (void) ( *( (fPt) ((*  (ptr) pd36 ))))((* (( (ptr) formal_c0103)+7) ), (* (( (ptr) (* (( (ptr) formal_c0103)+5) ))+4) ), 2, pd36)
      ;
      };
SOURCE(2963, 35)
   {
      word pd37;
      pd37 = (* (( (ptr) (* (( (ptr) gf_c0102)+76)/* var_c18300 */  ))+12) );
      (void) ( *( (fPt) ((*  (ptr) pd37 ))))((* (( (ptr) formal_c0103)+8) ), (*  (W5Pt) (( (ptr) gf_c0102)+67)/* var_c17852 */  ), 0, 1, pd37)
      ;
      };
   return(0);
   }

static void MakeVisible_P480(h_v4144, data_v4172)
   word h_v4144;
   word data_v4172;
   {
   register ptr gf_c18876 =  (ptr) &globalframe;
   /* MakeVisible: */ 
SOURCE(3058, 146)
SOURCE(3115, 89)
   {
      word var_c18396;
      var_c18396 = (* (( (ptr) h_v4144)+1) );
      if ((var_c18396 == 0)) {
         goto lab_L100010;
         };
      if (((* (( (ptr) gf_c18876)+15) ) == XR_GetReferentType(var_c18396))) {
         {
            word md_v5156;
            md_v5156 = var_c18396;
SOURCE(3159, 14)
            (* (( (ptr) md_v5156)+2) ) = data_v4172;
SOURCE(3175, 29)
            (* (( (ptr) md_v5156)+1) ) = 1;
            };
         }
      else {
         lab_L100010: ;
         };
      };
   }

static void NoVisible_P540(h_v4244, data_v4272)
   word h_v4244;
   word data_v4272;
   {
   register ptr gf_c18908 =  (ptr) &globalframe;
   /* NoVisible: */ 
SOURCE(3227, 159)
SOURCE(3282, 104)
   {
      word var_c18428;
      var_c18428 = (* (( (ptr) h_v4244)+1) );
      if ((var_c18428 == 0)) {
         goto lab_L100011;
         };
      if (((* (( (ptr) gf_c18908)+15) ) == XR_GetReferentType(var_c18428))) {
         {
            word md_v5212;
            md_v5212 = var_c18428;
SOURCE(3326, 30)
            (* (( (ptr) md_v5212)+1) ) = 0;
SOURCE(3358, 28)
            {
               word var_c18460;
               var_c18460 = (word) AssignLabel_P60(md_v5212, 0);
               (void) Remove_P600(var_c18460);
               };
            };
         }
      else {
         lab_L100011: ;
         };
      };
   }

static void Remove_P600(old_v4344)
   word old_v4344;
   {
   register ptr gf_c18940 =  (ptr) &globalframe;
   /* Remove: */ 
SOURCE(3409, 93)
SOURCE(3444, 58)
   if ((old_v4344 != 0)) {
SOURCE(3460, 42)
      {
         word pd38;
         pd38 = (* (( (ptr) (* (( (ptr) gf_c18940)+73)/* var_c18140 */  ))+5) );
         (void) ( *( (fPt) ((*  (ptr) pd38 ))))(0, (word) (( (bPt) gf_c18940)+84)/* var_c17244 */ , old_v4344, 2, pd38);
         };
      };
   }

static void ForkedDestroy_P660(x_v4404)
   word x_v4404;
   {
   register ptr gf_c18972 =  (ptr) &globalframe;
   word shell_v5268;
   /* ForkedDestroy: */ 
SOURCE(3508, 169)
SOURCE(3541, 45)
   {
      word var_c18492;
      var_c18492 = XR_Narrow(x_v4404, (* (( (ptr) gf_c18972)+11) ));
      {
         word pd39;
         pd39 = (* (( (ptr) (* (( (ptr) gf_c18972)+72)/* var_c17916 */  ))+33) );
         shell_v5268 = (word) ( *( (fPt) ((*  (ptr) pd39 ))))(var_c18492, pd39);
         };
      };
SOURCE(3588, 89)
   {
      word tc40;
      word pd41;
      if ((shell_v5268 != 0)) {
         pd41 = (* (( (ptr) (* (( (ptr) gf_c18972)+76)/* var_c18300 */  ))+4) );
         tc40 =  (word) (0 != (word) ( *( (fPt) ((*  (ptr) pd41 ))))(shell_v5268, pd41));
         }
      else {
         tc40 =  (word) 0;
         };
      if (tc40) {
SOURCE(3642, 35)
         {
            word pd42;
            pd42 = (* (( (ptr) (* (( (ptr) gf_c18972)+76)/* var_c18300 */  ))+14) );
            (void) ( *( (fPt) ((*  (ptr) pd42 ))))(shell_v5268, pd42);
            };
         };
      };
   }

static void NoName_Q1428(formal_c092, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c092;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   if ((formal_c200001 == XR_Uncaught)) {
SOURCE(2694, 9)
      (*  (ptr) formal_c092 ) = 2;
      (* (( (ptr) formal_c092)+1) ) = 2;
      return;
      };
   (*  (ptr) formal_c092 ) = 0;
   (* (( (ptr) formal_c092)+1) ) = 0;
   return;
   }

/* file: XTkHelpShellsImpl, module: XTkHelpShellsImpl, compiled at: April 19, 1993 10:40:53 am PDT */ 
extern void XR_install_XTkHelpShellsImpl() {
   NoName_Q1308();
   }
extern void XR_run_XTkHelpShellsImpl() { XR_Start(&globalframe); }