/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: April 21, 1992 12:52:34 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: X11PopUpSelectionImplTk, module: X11PopUpSelectionImplTk */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [1231236267,1069701357] X11PopUpSelectionImplTk";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef word (*fPt)();
typedef W2 *W2Pt;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef struct {word f0, f1, f2, f3;} W4;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W8 f; word r;} W9;
typedef W9 *W9Pt;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W16 f; W4 r;} W20;
typedef struct {W16 f; W3 r;} W19;
typedef W4 *W4Pt;
typedef W5 *W5Pt;
#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 MIN(cast, x, y)  ( ( cast x) < ( cast y) ? (x) : (y) )
static void NoName_Q1092();
static void X11PopUpSelectionImplTk_P0();
static word NewInt_P60();
static void PositionAndScreen_P120();
static word MakeConnection_P180();
static word NoName_Q1152();
static void ReCheck_P240();
static word NoName_Q1212();
static void WaitDone_P300();
static word NoName_Q1272();
static void Hit_P360();
static word Request_P420();
static void InitModule_P480();
static word NoName_Q1332();
static void NoName_Q1392();
static void NoName_Q1452();
static void NoName_Q1512();
static void NoName_Q1572();
static struct {unsigned f; char r[8];} string1 = {458760, "\205\210\242\000\011\216\242"};
static struct {unsigned f; char r[4];} string2 = {196611, "\004C\377"};
static struct {unsigned f; char r[4];} string3 = {65540, "\242\000\000"};
static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\111\143\054\253\300\077\302\130\355\100\274\000\000"};
static struct {unsigned f; char r[4];} string5 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\244\000\000"};
static struct {unsigned f; char r[40];} string7 = {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];} string8 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\126\304\000\000"};
static struct {unsigned f; char r[60];} string9 = {3735609, "\006\023\040\001\070\001\100\100\001\100\104\001\100\110\001\100\140\001\100\144\001\100\150\001\100\154\001\100\160\001\100\164\001\100\170\001\100\174\001\100\200\001\100\224\001\100\234\001\100\240\001\100\244\001\100\250\001\000\000"};
static struct {unsigned f; char r[16];} string10 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string11 = {131076, "\216\251\000"};
static struct {unsigned f; char r[16];} string12 = {786448, "WhiteOnBlack\000\000\000"};
static struct {unsigned f; char r[16];} string13 = {786448, "\042popup\042 menu\000\000\000"};
static struct {unsigned f; char r[16];} string14 = {786448, "DISCARD MENU\000\000\000"};
static struct {unsigned f; char r[12];} string15 = {589836, "no action\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\111\143\054\253\300\077\302\130\355\100\164\000\000"};
static struct {unsigned f; char r[12];} string17 = {655370, "\006\003 \001$\001@h\004\017\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\240\236\274\315\300\111\163\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\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\072\360\043\311\300\372\054\163\300\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\145\202\371\143\300\336\312\353\353\100\150\000\000"};
static struct {unsigned f; char r[16];} string24 = {851984, "\257\300\140\341\205\343\300\377\264\132\364\100\150\000\000"};
static struct {
   word f0[30]; 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[2]; word f49; 
   word f50; word f51; word f52; word f53; 
   word f54; word f55[3]; word f58; word f59; 
   word f60; word f61; word f62; word f63; 
   word f64[2]; word f66; word f67; word f68[2]; 
   word f70; word f71; word f72; word f73; 
   word f74; word f75; word f76; word f77; 
   word f78; word f79; word f80[7]; 
   } globalframe = {
   {0}, (word) InitModule_P480, 0, (word) Request_P420, 
   0, (word) Hit_P360, 0, (word) WaitDone_P300, 
   0, (word) ReCheck_P240, 0, (word) MakeConnection_P180, 
   0, (word) PositionAndScreen_P120, 0, (word) NewInt_P60, 
   0, (word) X11PopUpSelectionImplTk_P0, {0}, 2147483648, 
   2147483648, 2147483648, 2147483648, 2147483648, 
   3, {0}, 2147483648, 2147483648, 
   2147483648, 2147483648, 2147483648, 3, 
   {0}, 5, 3, {0}, 
   2147483648, 2147483648, 2147483648, 2147483648, 
   2147483648, 2147483648, 2147483648, 2147483648, 
   2147483648, 2147483648, {0}
   };

static void NoName_Q1092()
   {
   register ptr gf_c0114 =  (ptr) &globalframe;
   word var_c23468;
   (* (( (ptr) gf_c0114)+16) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c0114)+18) ) = (word) XR_GetTypeIndexS((word) (&string3));
   (* (( (ptr) gf_c0114)+19) ) = (word) XR_GetTypeIndex((word) &string4, 0, (word) &string5);
   (* (( (ptr) gf_c0114)+20) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string7);
   (* (( (ptr) gf_c0114)+21) ) = (word) XR_GetTypeIndex((word) &string8, 0, (word) &string9);
   (* (( (ptr) gf_c0114)+23) ) = (word) XR_GetTypeIndex((word) &string10, 0, (word) &string5);
   (* (( (ptr) gf_c0114)+25) ) = (word) XR_GetTypeIndex((word) &string11, 0, (word) &string5);
   (*  (ptr) (( (bPt) gf_c0114)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0114)+25) ), (word) &string12);
   (*  (ptr) (( (bPt) gf_c0114)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0114)+23) ), (word) &string13);
   (*  (ptr) (( (bPt) gf_c0114)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0114)+23) ), (word) &string14);
   (*  (ptr) (( (bPt) gf_c0114)+116) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0114)+23) ), (word) &string15);
   (void) XR_DeclareGlobalFrame((word) "X11PopUpSelectionImplTk", &globalframe, (word) XR_GetTypeIndex((word) &string16, 0, (word) &string17)
      , (word) (( (bPt) gf_c0114)+184)/* var_c22412 */ );
   var_c23468 = (word) XR_ImportInterface((word) "Process", (word) XR_GetTypeIndexS((word) (&string18)), 22);
   (* (( (ptr) gf_c0114)+85)/* var_c23436 */  ) = var_c23468;
   (void) XR_ImportProcS(var_c23468, 67371521);
   (void) XR_ImportProcS(var_c23468, 524546);
   var_c23468 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string19)), 43);
   (* (( (ptr) gf_c0114)+83)/* var_c23212 */  ) = var_c23468;
   (void) XR_ImportProcS(var_c23468, 67373313);
   var_c23468 = (word) XR_ImportInterface((word) "Xl", (word) XR_GetTypeIndexS((word) (&string20)), 218);
   (* (( (ptr) gf_c0114)+80)/* var_c22860 */  ) = var_c23468;
   (void) XR_ImportProcS(var_c23468, 68690438);
   (void) XR_ImportProcS(var_c23468, 67654914);
   (void) XR_ImportProcS(var_c23468, 537423362);
   var_c23468 = (word) XR_ImportInterface((word) "XlCursor", (word) XR_GetTypeIndexS((word) (&string21)), 3);
   (* (( (ptr) gf_c0114)+81)/* var_c23084 */  ) = var_c23468;
   (void) XR_ImportProcS(var_c23468, 67633410);
   var_c23468 = (word) XR_ImportInterface((word) "XTkFriends", (word) XR_GetTypeIndexS((word) (&string22)), 33);
   (* (( (ptr) gf_c0114)+84)/* var_c23340 */  ) = var_c23468;
   (void) XR_ImportProcS(var_c23468, 337643012);
   var_c23468 = (word) XR_ImportInterface((word) "XTkWidgets", (word) XR_GetTypeIndexS((word) (&string23)), 52);
   (* (( (ptr) gf_c0114)+82)/* var_c23148 */  ) = var_c23468;
   (void) XR_ImportProcS(var_c23468, 264961);
   (void) XR_ImportProcS(var_c23468, 2099460);
   (void) XR_ImportProcS(var_c23468, 67376129);
   (void) XR_ImportProcS(var_c23468, 72097800);
   (void) XR_ImportProcS(var_c23468, 793347);
   (void) XR_ImportProcS(var_c23468, 70786819);
   (void) XR_ImportProcS(var_c23468, 787203);
   (void) XR_ImportProcS(var_c23468, 72352268);
   (void) XR_ImportProcS(var_c23468, 69998595);
   var_c23468 = (word) XR_ExportInterface((word) "X11PopUpSelection", (word) XR_GetTypeIndexS((word) (&string24)), 1);
   (* (( (ptr) gf_c0114)+86)/* var_c23500 */  ) = var_c23468;
   (void) XR_ExportProcS(var_c23468, (word) (( (bPt) gf_c0114)+128)/* var_c22188 */ , 69206024);
   }

static void X11PopUpSelectionImplTk_P0(formal_c031, formal_c030)
   word formal_c031;
   word formal_c030;
   {
   register ptr gf_c23532 =  (ptr) &globalframe;
   /* X11PopUpSelectionImplTk: */ 
SOURCE(91, 4541)
   /* 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 */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
SOURCE(291, 80)
   (* (( (ptr) gf_c23532)+8)/* ri_v2832 */  ) = XR_NewObject(40, (* (( (ptr) gf_c23532)+16) ));
SOURCE(4620, 12)
   (void) InitModule_P480();
   }

static word NewInt_P60(i_v3384)
   word i_v3384;
   {
   register ptr gf_c23564 =  (ptr) &globalframe;
   word var_c3428;
   /* NewInt: */ 
SOURCE(373, 110)
SOURCE(417, 45)
   if ( ( ( (int)i_v3384 >=  (int)0) ? ( (int)i_v3384 <=  (int)9) : 0 ) ) {
SOURCE(448, 14)
      return((* (( (ptr) (* (( (ptr) gf_c23564)+8)/* ri_v2832 */  ))+BCK(i_v3384, 10)) ));
      };
SOURCE(464, 19)
   {
      word var_c22828;
      var_c22828 = XR_NewObject(4, (* (( (ptr) gf_c23564)+18) ));
      (*  (ptr) var_c22828 ) = i_v3384;
      return(var_c22828);
      };
   }

static void PositionAndScreen_P120(formal_c041, connection_v3500)
   word formal_c041;
   word connection_v3500;
   {
   register ptr gf_c23596 =  (ptr) &globalframe;
   W2 pos_v3544;
   word s_v3572;
   W8 pointerQuery_v4360;
   /* PositionAndScreen: */ 
SOURCE(566, 271)
SOURCE(566, 271)
   s_v3572 = 0;
SOURCE(655, 65)
   {
      word pd25;
      pd25 = (* (( (ptr) (* (( (ptr) gf_c23596)+80)/* var_c22860 */  ))+114) );
      (void) ( *( (fPt) ((*  (ptr) pd25 ))))((word) &pointerQuery_v4360, connection_v3500, 0, pd25);
      };
SOURCE(722, 22)
   pos_v3544 = (*  (W2Pt) (( (ptr) &pointerQuery_v4360)+4) );
SOURCE(747, 46)
   {
      word pd26;
      pd26 = (* (( (ptr) (* (( (ptr) gf_c23596)+80)/* var_c22860 */  ))+89) );
      s_v3572 = (word) ( *( (fPt) ((*  (ptr) pd26 ))))(connection_v3500, pointerQuery_v4360.f0, pd26);
      };
SOURCE(795, 42)
   if ((s_v3572 == 0)) {
SOURCE(809, 28)
      {
         word var_c22892;
         var_c22892 = (* (( (ptr) (* (( (ptr) connection_v3500)+16) ))+17) );
         {
            word limit27;
            s_v3572 = (* ((( (ptr) var_c22892)+1)+(
                  limit27 = (*  (ptr) var_c22892 ),
                  BCK(0, limit27)
                  )) );
            };
         };
      };
   /* removed tail goto */ 
   (*  (W2Pt) formal_c041 ) = pos_v3544;
   (* (( (ptr) formal_c041)+2) ) = s_v3572;
   return;
   }

static word MakeConnection_P180()
   {
   W5 var_c23628;
   register ptr gf_c23660 =  (ptr) &globalframe;
   /* declaration of c_v3632 skipped */ 
   /* MakeConnection: */ 
SOURCE(841, 172)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c23660)+16)/* LOCK_v2776 */ ));
SOURCE(841, 172)
   var_c23628.f4/* c_v3632 */  = 0;
SOURCE(902, 111)
   {
      word var_c0136;
      var_c0136 = (word) &var_c23628;
       (void) (word) XR_Enable(( ((word)  (fPt) NoName_Q1152) ), ( ((word)  (fPt) NoName_Q1572) ), var_c0136);
      };
SOURCE(841, 172)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c23660)+16)/* LOCK_v2776 */ ));
   return(var_c23628.f4/* c_v3632 */ );
   }

static word NoName_Q1152(formal_c0120)
   word formal_c0120;
   {
   register ptr gf_c0119 =  (ptr) &globalframe;
SOURCE(925, 15)
   (* (( (ptr) formal_c0120)+4) ) = (* (( (ptr) gf_c0119)+9)/* gConnection_v2916 */  );
SOURCE(942, 71)
   if (((* (( (ptr) formal_c0120)+4) ) == 0) || (0 == (* (( (ptr) (* (( (ptr) formal_c0120)+4) ))+15) ))) {
SOURCE(963, 50)
      {
         word var_c22924;
         {
            word pd28;
            pd28 = (* (( (ptr) (* (( (ptr) gf_c0119)+80)/* var_c22860 */  ))+38) );
            var_c22924 = (word) ( *( (fPt) ((*  (ptr) pd28 ))))(0, 0, 0, 0, 0, 0, pd28);
            };
         (* (( (ptr) gf_c0119)+9)/* gConnection_v2916 */  ) = var_c22924;
         (* (( (ptr) formal_c0120)+4) ) = var_c22924;
         };
      };
   return(0);
   }

static void ReCheck_P240()
   {
   W4 var_c23692;
   register ptr gf_c23724 =  (ptr) &globalframe;
   /* ReCheck: */ 
SOURCE(1116, 65)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c23724)+16)/* LOCK_v2776 */ ));
SOURCE(1143, 38)
   {
      word var_c0137;
      var_c0137 = (word) &var_c23692;
       (void) (word) XR_Enable(( ((word)  (fPt) NoName_Q1212) ), ( ((word)  (fPt) NoName_Q1512) ), var_c0137);
      };
SOURCE(1116, 65)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c23724)+16)/* LOCK_v2776 */ ));
   return;
   }

static word NoName_Q1212(formal_c0123)
   word formal_c0123;
   {
   register ptr gf_c0122 =  (ptr) &globalframe;
SOURCE(1166, 15)
   (void) (XR_Broadcast((word) (( (bPt) gf_c0122)+40)/* cond_v2944 */ ));
   return(0);
   }

static void WaitDone_P300(formal_c0148)
   word formal_c0148;
   {
   W5 var_c23756;
   /* declaration of menu_v3808 skipped */ 
   register ptr gf_c23788 =  (ptr) &globalframe;
   var_c23756.f4/* menu_v3808 */  = formal_c0148;
   /* WaitDone: */ 
SOURCE(1185, 207)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c23788)+16)/* LOCK_v2776 */ ));
SOURCE(1230, 162)
   {
      word var_c01;
      {
         word var_c0138;
         var_c0138 = (word) &var_c23756;
         var_c01 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1272) ), ( ((word)  (fPt) NoName_Q1452) ), var_c0138);
         };
      /* removed trivial cond node */ 
      };
   return;
   }

static word NoName_Q1272(formal_c0126)
   word formal_c0126;
   {
   register ptr gf_c0125 =  (ptr) &globalframe;
SOURCE(1253, 139)
   lab_L100009: ;
   {
      word var_c22956;
      word c_v22108;
SOURCE(1257, 27)
      if ((0 != (* (( (ptr) (* (( (ptr) formal_c0126)+4) ))+1) ))) {
SOURCE(1278, 6)
         (void) (XR_MonitorExit((word) (( (bPt) gf_c0125)+16)/* LOCK_v2776 */ ));
         return(1);
         };
SOURCE(1286, 46)
      if (((* (( (ptr) (*  (ptr) (* (( (ptr) formal_c0126)+4) ) ))+37) ) != 0)) {
SOURCE(1326, 6)
         (void) (XR_MonitorExit((word) (( (bPt) gf_c0125)+16)/* LOCK_v2776 */ ));
         return(1);
         };
SOURCE(1334, 47)
      c_v22108 = (* (( (ptr) (*  (ptr) (* (( (ptr) formal_c0126)+4) ) ))+34) );
      if ((c_v22108 != 0)) {
         var_c22956 = (0 != (* (( (ptr) c_v22108)+15) ));
         }
      else {
         var_c22956 = 0;
         };
      if ((0 == var_c22956)) {
SOURCE(1375, 6)
         (void) (XR_MonitorExit((word) (( (bPt) gf_c0125)+16)/* LOCK_v2776 */ ));
         return(1);
         };
SOURCE(1383, 9)
      (void) (XR_Wait((word) (( (bPt) gf_c0125)+16)/* LOCK_v2776 */ , (word) (( (bPt) gf_c0125)+40)/* cond_v2944 */ ));
      };
   goto lab_L100009;
   /* c2c skipped dead code */ 
   }

static void Hit_P360(widget_v6384, registerData_v6412, callData_v6440, event_v6468)
   word widget_v6384;
   word registerData_v6412;
   word callData_v6440;
   word event_v6468;
   {
   register ptr gf_c23820 =  (ptr) &globalframe;
   word menu_v4404;
   /* Hit: */ 
SOURCE(1407, 155)
SOURCE(1445, 40)
   menu_v4404 = XR_Narrow(registerData_v6412, (* (( (ptr) gf_c23820)+19) ));
SOURCE(1487, 43)
   (* (( (ptr) menu_v4404)+2) ) = (*  (ptr) XR_Narrow(callData_v6440, (* (( (ptr) gf_c23820)+18) )) );
SOURCE(1532, 19)
   (* (( (ptr) menu_v4404)+1) ) = 1;
SOURCE(1553, 9)
   (void) ReCheck_P240();
   }

static word Request_P420(header_v3880, choice_v3908, headerDoc_v3936, choiceDoc_v3964, default_v3992, timeOut_v4020, position_v4048, connection_v4076)
   word header_v3880;
   word choice_v3908;
   word headerDoc_v3936;
   word choiceDoc_v3964;
   word default_v3992;
   word timeOut_v4020;
   word position_v4048;
   word connection_v4076;
   {
   register ptr gf_c23852 =  (ptr) &globalframe;
   word var_c4316;
   word c_v4472 = 0;
   word transientFor_v4500 = 0;
   W2 point_v4528;
   word screen_v4556 = 0;
   word container_v4584 = 0;
   word i_v4612 = 0;
   word choiceCursor_v4640;
   word backCursor_v4668;
   word menu_v4696;
   /* Request: */ 
SOURCE(1596, 2831)
SOURCE(2000, 32)
   menu_v4696 = XR_NewObject(12, (* (( (ptr) gf_c23852)+19) ));
   (* (( (ptr) menu_v4696)+2) ) =  (word) -1;
SOURCE(2034, 154)
   {
      word var_c23020;
      word var_c23052;
      var_c23020 = connection_v4076;
      if ((var_c23020 == 0)) {
         goto lab_L100011;
         };
      var_c23052 = XR_GetReferentType(var_c23020);
      if (((* (( (ptr) gf_c23852)+20) ) == var_c23052)) {
         {
            word w_v4752;
            w_v4752 = var_c23020;
SOURCE(2080, 16)
            c_v4472 = (* (( (ptr) w_v4752)+34) );
SOURCE(2098, 16)
            transientFor_v4500 = w_v4752;
            };
         }
      else {
         if (((* (( (ptr) gf_c23852)+21) ) == var_c23052)) {
            {
               word connection_v4796;
               connection_v4796 = var_c23020;
SOURCE(2146, 14)
               c_v4472 = connection_v4796;
               };
            }
         else {
            lab_L100011: ;
SOURCE(2173, 15)
            c_v4472 = (* (( (ptr) gf_c23852)+9)/* gConnection_v2916 */  );
            };
         };
      };
SOURCE(2190, 41)
   if ((c_v4472 == 0) || (0 == (* (( (ptr) c_v4472)+15) ))) {
SOURCE(2211, 20)
      c_v4472 = (word) MakeConnection_P180();
      };
SOURCE(2233, 60)
   {
      word pd29;
      pd29 = (* (( (ptr) (* (( (ptr) gf_c23852)+81)/* var_c23084 */  ))+5) );
      choiceCursor_v4640 = (word) ( *( (fPt) ((*  (ptr) pd29 ))))(c_v4472, 110, pd29);
      };
SOURCE(2295, 53)
   {
      word pd30;
      pd30 = (* (( (ptr) (* (( (ptr) gf_c23852)+81)/* var_c23084 */  ))+5) );
      backCursor_v4668 = (word) ( *( (fPt) ((*  (ptr) pd30 ))))(c_v4472, 24, pd30);
      };
SOURCE(2350, 38)
   {
      W3 var_c23116;
      (void) PositionAndScreen_P120((word) &var_c23116, c_v4472);
      screen_v4556 = var_c23116.f2;
      point_v4528 = (*  (W2Pt) &var_c23116 );
      };
SOURCE(2390, 37)
   {
      word pd31;
      pd31 = (* (( (ptr) (* (( (ptr) gf_c23852)+82)/* var_c23148 */  ))+28) );
      container_v4584 = (word) ( *( (fPt) ((*  (ptr) pd31 ))))((*  (W9Pt) (( (ptr) gf_c23852)+48)/* var_c22476 */  ), 0,  (word) -1, pd31)
      ;
      };
SOURCE(2429, 40)
   (* (( (ptr) container_v4584)+29) ) = backCursor_v4668;
SOURCE(2471, 162)
   {
      W9 var_c23180;
      W20 var_c077;
      (*  (ptr) &var_c23180 ) = 0;
      (*  (W2Pt) (( (ptr) &var_c23180)+1) ) = point_v4528;
      (* (( (ptr) &var_c23180)+3) ) = 2147483648;
      (* (( (ptr) &var_c23180)+4) ) = 2147483648;
      (* (( (ptr) &var_c23180)+5) ) = 2147483648;
      (* (( (ptr) &var_c23180)+6) ) = 3;
      (* (( (ptr) &var_c23180)+7) ) = 0;
      (* (( (ptr) &var_c23180)+8) ) = 0;
      (*  (W9Pt) (word) &var_c077 ) = var_c23180;
      (* (( (ptr) (word) &var_c077) + 9) ) = container_v4584;
      (* (( (ptr) (word) &var_c077) + 10) ) = (* (( (ptr) gf_c23852)+27) );
      (* (( (ptr) (word) &var_c077) + 11) ) = 0;
      (* (( (ptr) (word) &var_c077) + 12) ) = 0;
      (* (( (ptr) (word) &var_c077) + 13) ) = 0;
      (* (( (ptr) (word) &var_c077) + 14) ) = 0;
      (* (( (ptr) (word) &var_c077) + 15) ) = 0;
      (* (( (ptr) (word) &var_c077) + 16) ) = 1;
      (* (( (ptr) (word) &var_c077) + 17) ) = 1;
      (* (( (ptr) (word) &var_c077) + 18) ) = 1;
      (* (( (ptr) (word) &var_c077) + 19) ) = 1;
      {
         word pd32;
         pd32 = (* (( (ptr) (* (( (ptr) gf_c23852)+82)/* var_c23148 */  ))+6) );
         (*  (ptr) menu_v4696 ) = (word) ( *( (fPt) ((*  (ptr) pd32 ))))((word) (&var_c077), pd32);
         };
      };
SOURCE(2635, 54)
   {
      word pd33;
      pd33 = (* (( (ptr) (* (( (ptr) gf_c23852)+82)/* var_c23148 */  ))+7) );
      (void) ( *( (fPt) ((*  (ptr) pd33 ))))((*  (ptr) menu_v4696 ), c_v4472, (*  (ptr) screen_v4556 ), pd33);
      };
SOURCE(2691, 173)
   {
      word pd34;
      pd34 = (* (( (ptr) (* (( (ptr) gf_c23852)+83)/* var_c23212 */  ))+13) );
      if ((0 == (word) ( *( (fPt) ((*  (ptr) pd34 ))))(header_v3880, pd34))) {
SOURCE(2721, 143)
         {
            word hw_v4840;
SOURCE(2723, 83)
            {
               W4 var_c23244;
               var_c23244.f0 =  (word) -1;
               var_c23244.f1 =  (word) -1;
               var_c23244.f2 = 0;
               var_c23244.f3 = (* (( (ptr) gf_c23852)+26) );
               {
                  word pd35;
                  pd35 = (* (( (ptr) (* (( (ptr) gf_c23852)+82)/* var_c23148 */  ))+35) );
                  hw_v4840 = (word) ( *( (fPt) ((*  (ptr) pd35 ))))((*  (W9Pt) (( (ptr) gf_c23852)+57)/* var_c22540 */  ), header_v3880, var_c23244, pd35)
                  ;
                  };
               };
SOURCE(2808, 56)
            {
               word pd36;
               pd36 = (* (( (ptr) (* (( (ptr) gf_c23852)+82)/* var_c23148 */  ))+31) );
               (void) ( *( (fPt) ((*  (ptr) pd36 ))))(container_v4584, hw_v4840, 1, pd36);
               };
            };
         };
      };
SOURCE(2867, 430)
   {
      register word cl_v4884;
      cl_v4884 = choice_v3908;
      lab_L100015: ;
      if ((cl_v4884 != 0)) {
         }
      else {
         goto lab_L100012;
         };
      {
         word help_v5012;
         word entry_v5040;
SOURCE(2927, 64)
         help_v5012 =  ( (choiceDoc_v3964 == 0) ? 0 : (*  (ptr) choiceDoc_v3964 ) ) ;
SOURCE(2994, 153)
         {
            word var_c23276;
            i_v4612 = (i_v4612 + 1);
            var_c23276 = (word) NewInt_P60(i_v4612);
            {
               W19 var_c084;
               (*  (W9Pt) (word) &var_c084 ) = (*  (W9Pt) (( (ptr) gf_c23852)+57)/* var_c22540 */  );
               (* (( (ptr) (word) &var_c084) + 9) ) = (*  (ptr) cl_v4884 );
               (*  (W4Pt) (( (ptr) (word) &var_c084) + 10) ) = (*  (W4Pt) (( (ptr) gf_c23852)+66)/* var_c22604 */  );
               (* (( (ptr) (word) &var_c084) + 14) ) = (word) (( (bPt) gf_c23852)+136)/* var_c22220 */ ;
               (* (( (ptr) (word) &var_c084) + 15) ) = menu_v4696;
               (* (( (ptr) (word) &var_c084) + 16) ) = var_c23276;
               (* (( (ptr) (word) &var_c084) + 17) ) = 0;
               (* (( (ptr) (word) &var_c084) + 18) ) = help_v5012;
               {
                  word pd37;
                  pd37 = (* (( (ptr) (* (( (ptr) gf_c23852)+82)/* var_c23148 */  ))+36) );
                  entry_v5040 = (word) ( *( (fPt) ((*  (ptr) pd37 ))))((word) (&var_c084), pd37);
                  };
               };
            };
SOURCE(3149, 38)
         (* (( (ptr) entry_v5040)+29) ) = choiceCursor_v4640;
SOURCE(3189, 58)
         {
            word pd38;
            pd38 = (* (( (ptr) (* (( (ptr) gf_c23852)+82)/* var_c23148 */  ))+31) );
            (void) ( *( (fPt) ((*  (ptr) pd38 ))))(container_v4584, entry_v5040, 1, pd38);
            };
SOURCE(3249, 48)
         if ((choiceDoc_v3964 != 0)) {
SOURCE(3271, 26)
            choiceDoc_v3964 = (* (( (ptr) choiceDoc_v3964)+1) );
            };
         };
      cl_v4884 = (* (( (ptr) cl_v4884)+1) );
      goto lab_L100015;
      lab_L100012: ;
      };
SOURCE(3308, 268)
   {
      word entry_v5084;
SOURCE(3314, 160)
      {
         word var_c23308;
         var_c23308 = (word) NewInt_P60(0);
         {
            W19 var_c087;
            (*  (W9Pt) (word) &var_c087 ) = (*  (W9Pt) (( (ptr) gf_c23852)+57)/* var_c22540 */  );
            (* (( (ptr) (word) &var_c087) + 9) ) = (* (( (ptr) gf_c23852)+28) );
            (*  (W4Pt) (( (ptr) (word) &var_c087) + 10) ) = (*  (W4Pt) (( (ptr) gf_c23852)+66)/* var_c22604 */  );
            (* (( (ptr) (word) &var_c087) + 14) ) = (word) (( (bPt) gf_c23852)+136)/* var_c22220 */ ;
            (* (( (ptr) (word) &var_c087) + 15) ) = menu_v4696;
            (* (( (ptr) (word) &var_c087) + 16) ) = var_c23308;
            (* (( (ptr) (word) &var_c087) + 17) ) = 0;
            (* (( (ptr) (word) &var_c087) + 18) ) = (* (( (ptr) gf_c23852)+29) );
            {
               word pd39;
               pd39 = (* (( (ptr) (* (( (ptr) gf_c23852)+82)/* var_c23148 */  ))+36) );
               entry_v5084 = (word) ( *( (fPt) ((*  (ptr) pd39 ))))((word) (&var_c087), pd39);
               };
            };
         };
SOURCE(3476, 38)
      (* (( (ptr) entry_v5084)+29) ) = choiceCursor_v4640;
SOURCE(3516, 58)
      {
         word pd40;
         pd40 = (* (( (ptr) (* (( (ptr) gf_c23852)+82)/* var_c23148 */  ))+31) );
         (void) ( *( (fPt) ((*  (ptr) pd40 ))))(container_v4584, entry_v5084, 1, pd40);
         };
      };
SOURCE(3581, 728)
   {
      W5 preferred_v5156;
      word szh_v5184;
SOURCE(3661, 63)
      {
         word pd41;
         pd41 = (* (( (ptr) (* (( (ptr) gf_c23852)+84)/* var_c23340 */  ))+10) );
         (void) ( *( (fPt) ((*  (ptr) pd41 ))))((word) &preferred_v5156, (*  (ptr) menu_v4696 ), 0, (*  (W5Pt) (( (ptr) gf_c23852)+70)
            /* var_c22668 */  ), 0, pd41);
         };
SOURCE(3746, 53)
      {
         word pd42;
         pd42 = (* (( (ptr) (* (( (ptr) gf_c23852)+82)/* var_c23148 */  ))+24) );
         szh_v5184 = (word) ( *( (fPt) ((*  (ptr) pd42 ))))((*  (ptr) (menu_v4696) ), pd42);
         };
SOURCE(3801, 62)
      (* (( (ptr) szh_v5184)+9) ) = 1;
      (* (( (ptr) szh_v5184)+7) ) = 1;
SOURCE(3865, 64)
      (* (( (ptr) szh_v5184)+10) ) = 1;
      (* (( (ptr) szh_v5184)+8) ) = 1;
SOURCE(3931, 31)
      (* (( (ptr) szh_v5184)+41) ) = transientFor_v4500;
SOURCE(3964, 99)
      {
         word x43;
         word x44;
         word x45;
         point_v4528.f0 = (x45 = (x43 = point_v4528.f0,
               x44 = (((* (( (ptr) screen_v4556)+5) ) - preferred_v5156.f2) -  (word) -1),
               MIN((int)(word), x43, x44)),
            MAX((int)(word), x45, 0));
         };
SOURCE(4065, 102)
      {
         word x46;
         word x47;
         word x48;
         point_v4528.f1 = (x48 = (x46 = point_v4528.f1,
               x47 = (((* (( (ptr) screen_v4556)+6) ) - preferred_v5156.f3) -  (word) -10),
               MIN((int)(word), x46, x47)),
            MAX((int)(word), x48, 0));
         };
SOURCE(4169, 33)
      (*  (W2Pt) (( (ptr) (*  (ptr) menu_v4696 ))+5) ) = point_v4528;
SOURCE(4205, 37)
      (*  (W2Pt) (( (ptr) szh_v5184)+12) ) = point_v4528;
SOURCE(4244, 31)
      (*  (ptr) szh_v5184 ) = 1;
SOURCE(4277, 30)
      (* (( (ptr) szh_v5184)+4) ) = 1;
      };
SOURCE(4314, 35)
   {
      word pd49;
      pd49 = (* (( (ptr) (* (( (ptr) gf_c23852)+82)/* var_c23148 */  ))+13) );
      (void) ( *( (fPt) ((*  (ptr) pd49 ))))((*  (ptr) menu_v4696 ), (*  (W5Pt) (( (ptr) gf_c23852)+75)/* var_c22732 */  ), 0, 1, pd49)
      ;
      };
SOURCE(4351, 14)
   (void) WaitDone_P300(menu_v4696);
SOURCE(4367, 35)
   {
      word pd50;
      pd50 = (* (( (ptr) (* (( (ptr) gf_c23852)+82)/* var_c23148 */  ))+15) );
      (void) ( *( (fPt) ((*  (ptr) pd50 ))))((*  (ptr) (menu_v4696) ), pd50);
      };
SOURCE(4404, 23)
   return((* (( (ptr) menu_v4696)+2) ));
   }

static void InitModule_P480()
   {
   W4 var_c23884;
   register ptr gf_c23916 =  (ptr) &globalframe;
   /* InitModule: */ 
SOURCE(4433, 181)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c23916)+16)/* LOCK_v2776 */ ));
SOURCE(4468, 146)
   {
      word var_c0139;
      var_c0139 = (word) &var_c23884;
       (void) (word) XR_Enable(( ((word)  (fPt) NoName_Q1332) ), ( ((word)  (fPt) NoName_Q1392) ), var_c0139);
      };
SOURCE(4433, 181)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c23916)+16)/* LOCK_v2776 */ ));
   return;
   }

static word NoName_Q1332(formal_c0131)
   word formal_c0131;
   {
   register ptr gf_c0130 =  (ptr) &globalframe;
SOURCE(4491, 59)
   {
      register word i_v5240 = 0;
      if (( (int)i_v5240 >  (int)9)) {
         goto lab_L100018;
         };
      lab_L100021: ;
SOURCE(4524, 26)
      {
         word var_c23372;
         var_c23372 = XR_NewObject(4, (* (( (ptr) gf_c0130)+18) ));
         (*  (ptr) var_c23372 ) = i_v5240;
         (* (( (ptr) (* (( (ptr) gf_c0130)+8)/* ri_v2832 */  ))+BCK(i_v5240, 10)) ) = var_c23372;
         };
      if (( (int)i_v5240 >=  (int)9)) {
         goto lab_L100018;
         };
      i_v5240 = (i_v5240 + 1);
      goto lab_L100021;
      lab_L100018: ;
      };
SOURCE(4552, 62)
   {
      word var_c23404;
      {
         word pd51;
         pd51 = (* (( (ptr) (* (( (ptr) gf_c0130)+85)/* var_c23436 */  ))+6) );
         var_c23404 = (word) ( *( (fPt) ((*  (ptr) pd51 ))))(10000, pd51);
         };
      {
         word pd52;
         pd52 = (* (( (ptr) (* (( (ptr) gf_c0130)+85)/* var_c23436 */  ))+5) );
         (void) ( *( (fPt) ((*  (ptr) pd52 ))))((word) (( (bPt) gf_c0130)+40)/* cond_v2944 */ , var_c23404, pd52);
         };
      };
   return(0);
   }

static void NoName_Q1392(formal_c098, formal_c200012, formal_c200013, formal_c200014, formal_c200015)
   word formal_c098;
   word formal_c200012;
   word formal_c200013;
   word formal_c200014;
   word formal_c200015;
   {
   register ptr gf_c0132 =  (ptr) &globalframe;
   if ((formal_c200013 == XR_Unwind)) {
      (void) (XR_MonitorExit((word) (( (bPt) gf_c0132)+16)/* LOCK_v2776 */ ));
      };
   (*  (ptr) formal_c098 ) = 0;
   (* (( (ptr) formal_c098)+1) ) = 0;
   return;
   }

static void NoName_Q1452(formal_c0103, formal_c200008, formal_c200009, formal_c200010, formal_c200011)
   word formal_c0103;
   word formal_c200008;
   word formal_c200009;
   word formal_c200010;
   word formal_c200011;
   {
   register ptr gf_c0133 =  (ptr) &globalframe;
   if ((formal_c200009 == XR_Unwind)) {
      (void) (XR_MonitorExit((word) (( (bPt) gf_c0133)+16)/* LOCK_v2776 */ ));
      };
   (*  (ptr) formal_c0103 ) = 0;
   (* (( (ptr) formal_c0103)+1) ) = 0;
   return;
   }

static void NoName_Q1512(formal_c0108, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c0108;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   register ptr gf_c0134 =  (ptr) &globalframe;
   if ((formal_c200005 == XR_Unwind)) {
      (void) (XR_MonitorExit((word) (( (bPt) gf_c0134)+16)/* LOCK_v2776 */ ));
      };
   (*  (ptr) formal_c0108 ) = 0;
   (* (( (ptr) formal_c0108)+1) ) = 0;
   return;
   }

static void NoName_Q1572(formal_c0113, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c0113;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c0135 =  (ptr) &globalframe;
   if ((formal_c200001 == XR_Unwind)) {
      (void) (XR_MonitorExit((word) (( (bPt) gf_c0135)+16)/* LOCK_v2776 */ ));
      };
   (*  (ptr) formal_c0113 ) = 0;
   (* (( (ptr) formal_c0113)+1) ) = 0;
   return;
   }

/* file: X11PopUpSelectionImplTk, module: X11PopUpSelectionImplTk, compiled at: April 21, 1992 12:52:32 pm PDT */ 
extern void XR_install_X11PopUpSelectionImplTk() {
   NoName_Q1092();
   }
extern void XR_run_X11PopUpSelectionImplTk() { XR_Start(&globalframe); }