/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: April 21, 1992 12:51:03 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: XTkPseudoRootImpl, module: XTkPseudoRootImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [3174555522,3492396232] XTkPseudoRootImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W8 f; word r;} W9;
typedef struct {W16 f; W9 r;} W25;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef struct {W8 f; W5 r;} W13;
typedef struct {word f0, f1;} W2;
typedef W2 *W2Pt;
typedef W5 *W5Pt;
typedef struct {word f0, f1, f2, f3;} W4;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
#define MAX(cast, x, y) ( ( cast x) > ( cast y) ? (x) : (y) )
#define IOP2(op, x, y) ( (word) ((x) op (y)) )
static void NoName←Q1356();
static void XTkPseudoRootImpl←P0();
static word CreatePseudoRoot←P60();
static word PseudoChild←P120();
static void PseudoRootInitInstPart←P180();
static void IgnoreErrors←P300();
static void RedirectChildMapping←P360();
static word NoName←Q1416();
static word NoName←Q1476();
static void ChildDestroyed←P420();
static void PSRConfigureLR←P480();
static void NoName←Q1536();
static void NoName←Q1596();
static struct {unsigned f; char r[4];} string1 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string3 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\244\000\000"};
static struct {unsigned f; char r[40];} string5 = {2555943, "\011\000\004\106\000\040\006\011\020\004\101\201\100\174\001\100\200\001\100\204\001\100\210\001\100\220\001\100\264\001\100\270\001\100\274\001\100\304\001"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\105\154\000\000"};
static struct {unsigned f; char r[4];} string7 = {196611, "\004A\330"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\107\320\000\000"};
static struct {unsigned f; char r[4];} string9 = {131074, "\004\016\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\275\067\337\202\300\320\051\274\310\100\200\000\000"};
static struct {unsigned f; char r[8];} string11 = {327688, "white\000\000"};
static struct {unsigned f; char r[12];} string12 = {655372, "pseudoRoot\000"};
static struct {unsigned f; char r[8];} string13 = {262152, "bare\000\000\000"};
static struct {unsigned f; char r[24];} string14 = {1310744, "pseudoChildDestroyed\000\000\000"};
static struct {unsigned f; char r[28];} string15 = {1572892, "PARC←PseudoChildReplaced\000\000\000"};
static struct {unsigned f; char r[16];} string16 = {917520, "newPseudoChild\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\275\067\337\202\300\320\051\274\310\100\164\000\000"};
static struct {unsigned f; char r[24];} string18 = {1310740, "\006\010\020\001\024\001\030\001\034\001\040\001\044\001\050\001\100\144\004\077\000\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\122\362\040\033\300\221\350\241\274\100\150\000\000"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\150\000\000"};
static struct {unsigned f; char r[16];} string22 = {851984, "\257\300\227\370\144\253\300\176\165\034\110\100\150\000\000"};
static struct {unsigned f; char r[16];} string23 = {851984, "\257\300\360\033\371\207\300\263\176\140\200\100\150\000\000"};
static struct {
word f0[31]; word f31; word f32; word f33;
word f34; word f35; word f36; word f37;
word f38; word f39; word f40; word f41;
word f42; word f43; word f44; word f45;
word f46[6];
} globalframe = {
{0}, (word) PSRConfigureLR←P480, 0, (word) ChildDestroyed←P420,
0, (word) RedirectChildMapping←P360, 0, (word) IgnoreErrors←P300,
0, (word) PseudoRootInitInstPart←P180, 0, (word) PseudoChild←P120,
0, (word) CreatePseudoRoot←P60, 0, (word) XTkPseudoRootImpl←P0,
{0}
};
static void NoName←Q1356()
{
register ptr gf←c0107 = (ptr) &globalframe;
word var←c33372;
(* (( (ptr) gf←c0107)+11) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c0107)+14) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string2);
(* (( (ptr) gf←c0107)+17) ) = (word) XR←GetTypeIndex((word) &string4, 0, (word) &string5);
(* (( (ptr) gf←c0107)+18) ) = (word) XR←GetTypeIndex((word) &string6, 0, (word) &string7);
(* (( (ptr) gf←c0107)+22) ) = (word) XR←GetTypeIndex((word) &string8, 0, (word) &string9);
(* (( (ptr) gf←c0107)+24) ) = (word) XR←GetTypeIndex((word) &string10, 0, (word) &string2);
(* (ptr) (( (bPt) gf←c0107)+100) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0107)+11) ), (word) &string11);
(* (ptr) (( (bPt) gf←c0107)+104) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0107)+11) ), (word) &string12);
(* (ptr) (( (bPt) gf←c0107)+108) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0107)+11) ), (word) &string13);
(* (ptr) (( (bPt) gf←c0107)+112) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0107)+11) ), (word) &string14);
(* (ptr) (( (bPt) gf←c0107)+116) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0107)+14) ), (word) &string15);
(* (ptr) (( (bPt) gf←c0107)+120) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0107)+11) ), (word) &string16);
(void) XR←DeclareGlobalFrame((word) "XTkPseudoRootImpl", &globalframe, (word) XR←GetTypeIndex((word) &string17, 0, (word) &string18)
, (word) (( (bPt) gf←c0107)+180)/* var←c32572 */ );
var←c33372 = (word) XR←ImportInterface((word) "Xl", (word) XR←GetTypeIndexS((word) (&string19)), 218);
(* (( (ptr) gf←c0107)+48)/* var←c32668 */ ) = var←c33372;
(void) XR←ImportProcS(var←c33372, 805635);
(void) XR←ImportProcS(var←c33372, 2641670);
(void) XR←ImportProcS(var←c33372, 3199240);
(void) XR←ImportProcS(var←c33372, 806403);
(void) XR←ImportProcS(var←c33372, 67644930);
(void) XR←ImportProcS(var←c33372, 67910403);
(void) XR←ImportProcS(var←c33372, 68207876);
var←c33372 = (word) XR←ImportInterface((word) "XlDispatch", (word) XR←GetTypeIndexS((word) (&string20)), 18);
(* (( (ptr) gf←c0107)+50)/* var←c33052 */ ) = var←c33372;
(void) XR←ImportProcS(var←c33372, 1312517);
(void) XR←ImportProcS(var←c33372, 1050628);
var←c33372 = (word) XR←ImportInterface((word) "XTk", (word) XR←GetTypeIndexS((word) (&string21)), 50);
(* (( (ptr) gf←c0107)+49)/* var←c32860 */ ) = var←c33372;
(void) XR←ImportProcS(var←c33372, 1579779);
(void) XR←ImportProcS(var←c33372, 69992451);
var←c33372 = (word) XR←ImportInterface((word) "XTkFriends", (word) XR←GetTypeIndexS((word) (&string22)), 33);
(* (( (ptr) gf←c0107)+47)/* var←c32636 */ ) = var←c33372;
(void) XR←ImportProcS(var←c33372, 2102532);
(void) XR←ImportProcS(var←c33372, 1048580);
(void) XR←ImportProcS(var←c33372, 73666049);
var←c33372 = (word) XR←ExportInterface((word) "XTkPseudoRoot", (word) XR←GetTypeIndexS((word) (&string23)), 4);
(* (( (ptr) gf←c0107)+51)/* var←c33404 */ ) = var←c33372;
(void) XR←ExportProcS(var←c33372, (word) (( (bPt) gf←c0107)+172)/* var←c32540 */ , 69468161);
(void) XR←ExportProcS(var←c33372, (word) (( (bPt) gf←c0107)+164)/* var←c32508 */ , 67371265);
(void) XR←ExportVar(var←c33372, 2, (word) (( (bPt) gf←c0107)+16)/* newPseudoChild←v2664 */ );
(void) XR←ExportVar(var←c33372, 3, (word) (( (bPt) gf←c0107)+20)/* pseudoChildDestroyed←v2692 */ );
}
static void XTkPseudoRootImpl←P0(formal←c042, formal←c034)
word formal←c042;
word formal←c034;
{
register ptr gf←c33436 = (ptr) &globalframe;
/* XTkPseudoRootImpl: */
SOURCE(70, 4531)
SOURCE(176, 45)
(* (( (ptr) gf←c33436)+4)/* newPseudoChild←v2664 */ ) = (* (( (ptr) gf←c33436)+30) );
SOURCE(223, 57)
(* (( (ptr) gf←c33436)+5)/* pseudoChildDestroyed←v2692 */ ) = (* (( (ptr) gf←c33436)+28) );
SOURCE(283, 255)
{
W25 var←c036;
(* (ptr) &var←c036 ) = (* (( (ptr) gf←c33436)+27) );
(* (( (ptr) &var←c036)+1) ) = (* (( (ptr) gf←c33436)+26) );
(* (( (ptr) &var←c036)+2) ) = 0;
(* (( (ptr) &var←c036)+3) ) = 1;
(* (( (ptr) &var←c036)+4) ) = 0;
(* (( (ptr) &var←c036)+5) ) = 0;
(* (( (ptr) &var←c036)+6) ) = XR←CheckProc(0);
(* (( (ptr) &var←c036)+7) ) = (word) (( (bPt) gf←c33436)+124)/* var←c32348 */ ;
(* (( (ptr) &var←c036)+8) ) = XR←CheckProc(0);
(* (( (ptr) &var←c036)+9) ) = XR←CheckProc(0);
(* (( (ptr) &var←c036)+10) ) = XR←CheckProc(0);
(* (( (ptr) &var←c036)+11) ) = XR←CheckProc(0);
(* (( (ptr) &var←c036)+12) ) = XR←CheckProc(0);
(* (( (ptr) &var←c036)+13) ) = XR←CheckProc(0);
(* (( (ptr) &var←c036)+14) ) = XR←CheckProc(0);
(* (( (ptr) &var←c036)+15) ) = XR←CheckProc(0);
(* (( (ptr) &var←c036)+16) ) = XR←CheckProc(0);
(* (( (ptr) &var←c036)+17) ) = XR←CheckProc(0);
(* (( (ptr) &var←c036)+18) ) = (word) (( (bPt) gf←c33436)+156)/* var←c32476 */ ;
(* (( (ptr) &var←c036)+19) ) = 0;
(* (( (ptr) &var←c036)+20) ) = (* (( (ptr) gf←c33436)+25) );
(* (( (ptr) &var←c036)+21) ) = 0;
(* (( (ptr) &var←c036)+22) ) = 1048576;
(* (( (ptr) &var←c036)+23) ) = XR←CheckProc(0);
(* (( (ptr) &var←c036)+24) ) = XR←CheckProc(0);
{
word pd24;
pd24 = (* (( (ptr) (* (( (ptr) gf←c33436)+47)/* var←c32636 */ ))+18) );
(* (( (ptr) gf←c33436)+6)/* pseudoRootClass←v2720 */ ) = (word) ( *( (fPt) ((* (ptr) pd24 ))))((word) (&var←c036), pd24)
;
};
};
SOURCE(541, 85)
{
word pd25;
pd25 = (* (( (ptr) (* (( (ptr) gf←c33436)+48)/* var←c32668 */ ))+201) );
(* (( (ptr) gf←c33436)+7)/* pseudoRootEvents←v2748 */ ) = (word) ( *( (fPt) ((* (ptr) pd25 ))))(23, 20, 35, 35, pd25);
};
SOURCE(628, 71)
{
word pd26;
pd26 = (* (( (ptr) (* (( (ptr) gf←c33436)+48)/* var←c32668 */ ))+201) );
(* (( (ptr) gf←c33436)+8)/* pseudoChildEvents←v2776 */ ) = (word) ( *( (fPt) ((* (ptr) pd26 ))))(17, 35, 35, 35, pd26);
};
SOURCE(1483, 66)
{
word var←c32700;
var←c32700 = XR←NewObject(36, (* (( (ptr) gf←c33436)+18) ));
(* (( (ptr) var←c32700)+1) ) = 1;
(* (( (ptr) gf←c33436)+9)/* synchronous←v2972 */ ) = var←c32700;
};
SOURCE(1551, 134)
{
word var←c32732;
word var←c32828;
{
word var←c32764;
word var←c32796;
{
word pd27;
pd27 = (* (( (ptr) (* (( (ptr) gf←c33436)+48)/* var←c32668 */ ))+63) );
var←c32764 = (word) ( *( (fPt) ((* (ptr) pd27 ))))(0, 0, 0, pd27);
};
var←c32796 = XR←NewObject(16, (* (( (ptr) gf←c33436)+22) ));
(* (ptr) var←c32796 ) = (word) (( (bPt) gf←c33436)+148)/* var←c32444 */ ;
(* (( (ptr) var←c32796)+2) ) = var←c32764;
var←c32732 = var←c32796;
};
var←c32828 = XR←NewObject(36, (* (( (ptr) gf←c33436)+18) ));
(* (( (ptr) var←c32828)+3) ) = var←c32732;
(* (( (ptr) gf←c33436)+10)/* ignoreErrors←v3000 */ ) = var←c32828;
};
}
static word CreatePseudoRoot←P60(spec←v3276)
W9 spec←v3276;
{
register ptr gf←c33468 = (ptr) &globalframe;
word w←v3320;
/* CreatePseudoRoot: */
SOURCE(877, 129)
SOURCE(877, 129)
w←v3320 = 0;
SOURCE(963, 43)
{
word pd28;
pd28 = (* (( (ptr) (* (( (ptr) gf←c33468)+49)/* var←c32860 */ ))+4) );
w←v3320 = (word) ( *( (fPt) ((* (ptr) pd28 ))))(spec←v3276, (* (( (ptr) gf←c33468)+6)/* pseudoRootClass←v2720 */ ), 0, pd28)
;
};
SOURCE(877, 129)
return(w←v3320);
}
static word PseudoChild←P120(pseudoRoot←v3380)
word pseudoRoot←v3380;
{
register ptr gf←c33500 = (ptr) &globalframe;
word pseudoChild←v3424;
/* PseudoChild: */
SOURCE(1012, 143)
SOURCE(1099, 56)
{
word var←c0121;
word var←c32924;
word superClass←v32080;
superClass←v32080 = (* (( (ptr) gf←c33500)+6)/* pseudoRootClass←v2720 */ );
{
word idx29;
word limit30;
var←c32924 = (* ((( (ptr) pseudoRoot←v3380)+49)+(
idx29 = (* (( (ptr) superClass←v32080)+4) ),
limit30 = (* (( (ptr) pseudoRoot←v3380)+48) ),
BCK(idx29, limit30)
)) );
};
var←c0121 = (* (( (ptr) XR←Narrow(var←c32924, (* (( (ptr) gf←c33500)+24) )))+1) );
return(var←c0121);
};
}
static void PseudoRootInitInstPart←P180(widget←v9964, arguments←v9992)
word widget←v9964;
word arguments←v9992;
{
register ptr gf←c33532 = (ptr) &globalframe;
word prIP←v3556;
/* PseudoRootInitInstPart: */
SOURCE(1161, 164)
SOURCE(1214, 53)
prIP←v3556 = XR←NewObject(8, (* (( (ptr) gf←c33532)+24) ));
SOURCE(1269, 56)
{
word superClass←v32272;
word val←v32300;
superClass←v32272 = (* (( (ptr) gf←c33532)+6)/* pseudoRootClass←v2720 */ );
val←v32300 = prIP←v3556;
{
word idx31;
word limit32;
(* ((( (ptr) widget←v9964)+49)+(
idx31 = (* (( (ptr) superClass←v32272)+4) ),
limit32 = (* (( (ptr) widget←v9964)+48) ),
BCK(idx31, limit32)
)) ) = val←v32300;
};
};
}
static void IgnoreErrors←P300(event←v12372, clientData←v12400, tq←v12428)
word event←v12372;
word clientData←v12400;
word tq←v12428;
{
/* IgnoreErrors: */
}
static void RedirectChildMapping←P360(event←v12692, clientData←v12720, tq←v12748)
word event←v12692;
word clientData←v12720;
word tq←v12748;
{
W13 var←c33564;
register ptr gf←c33596 = (ptr) &globalframe;
/* RedirectChildMapping: */
SOURCE(1725, 1482)
SOURCE(1766, 1441)
SOURCE(1768, 36)
{
word psr←v3600;
/* declaration of prIP←v3628 skipped */
SOURCE(1768, 36)
psr←v3600 = XR←Narrow(clientData←v12720, (* (( (ptr) gf←c33596)+17) ));
SOURCE(1806, 53)
{
word var←c32988;
word superClass←v32224;
superClass←v32224 = (* (( (ptr) gf←c33596)+6)/* pseudoRootClass←v2720 */ );
{
word idx33;
word limit34;
var←c32988 = (* ((( (ptr) psr←v3600)+49)+(
idx33 = (* (( (ptr) superClass←v32224)+4) ),
limit34 = (* (( (ptr) psr←v3600)+48) ),
BCK(idx33, limit34)
)) );
};
(* (( (ptr) &var←c33564)+4)/* prIP←v3628 */ ) = XR←Narrow(var←c32988, (* (( (ptr) gf←c33596)+24) ));
};
SOURCE(1861, 1278)
{
word var←c33020;
var←c33020 = (* (( (ptr) event←v12692)+4) );
if ((var←c33020 == 20)) {
SOURCE(1898, 1243)
{
word mr←v3672;
word new←v3700;
SOURCE(1900, 38)
if ((event←v12692 == 0)) {
goto lab←L100003;
};
if (((* (( (ptr) event←v12692)+4) ) == 20)) {
goto lab←L100003;
};
(void) XR←RaiseError(XR←NarrowFault, 0);
lab←L100003: ;
mr←v3672 = event←v12692;
SOURCE(1940, 38)
new←v3700 = ((* (( (ptr) mr←v3672)+7) ) != (* (( (ptr) (* (( (ptr) &var←c33564)+4)/* prIP←v3628 */ ))+1) ));
SOURCE(1980, 768)
if ((0 != new←v3700)) {
SOURCE(1994, 581)
if (((* (( (ptr) (* (( (ptr) &var←c33564)+4)/* prIP←v3628 */ ))+1) ) != 0)) {
SOURCE(2033, 544)
{
word type←v3744;
SOURCE(2035, 74)
{
word pd35;
pd35 = (* (( (ptr) (* (( (ptr) gf←c33596)+48)/* var←c32668 */ ))+50) );
type←v3744 = (word) ( *( (fPt) ((* (ptr) pd35 ))))((* (( (ptr) event←v12692)+2) ), (* (( (ptr) gf←c33596)+29) ), pd35);
};
SOURCE(2111, 59)
{
word pd36;
pd36 = (* (( (ptr) (* (( (ptr) gf←c33596)+48)/* var←c32668 */ ))+82) );
(void) ( *( (fPt) ((* (ptr) pd36 ))))((* (( (ptr) event←v12692)+2) ), (* (( (ptr) psr←v3600)+35) ), 0, pd36);
};
SOURCE(2172, 122)
{
word pd37;
pd37 = (* (( (ptr) (* (( (ptr) gf←c33596)+50)/* var←c33052 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd37 ))))((* (( (ptr) event←v12692)+2) ), (* (( (ptr) (* (( (ptr) &var←c33564)+4)/* prIP←v3628 */ ))+1)
/*1*/ ), (* (ptr) (* (( (ptr) &var←c33564)+4)/* prIP←v3628 */ ) ), (* (( (ptr) gf←c33596)+10)/* ignoreErrors←v3000 */ ), pd37)
;
};
SOURCE(2296, 245)
{
word var←c33084;
{
/*1*/ word var←c33116;
/*1*/ word w←v32032;
/*1*/ w←v32032 = (* (( (ptr) psr←v3600)+35) );
/*1*/ var←c33116 = w←v32032;
/*1*/ var←c33084 = var←c33116;
/*1*/ };
{
/*1*/ W5 var←c33148;
/*1*/ var←c33148.f0 = type←v3744;
/*1*/ var←c33148.f1 = var←c33084;
/*1*/ var←c33148.f2 = 0;
/*1*/ var←c33148.f3 = 0;
/*1*/ var←c33148.f4 = 0;
/*1*/ {
/*1*/ word pd38;
/*1*/ pd38 = (* (( (ptr) (* (( (ptr) gf←c33596)+48)/* var←c32668 */ ))+213) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd38 ))))((* (( (ptr) event←v12692)+2) ), (* (( (ptr) (* (( (ptr) &var←c33564)+4)/* prIP←v3628 */ ))+1)
/*1*/ ), 0, 0, (* (( (ptr) (* (( (ptr) &var←c33564)+4)/* prIP←v3628 */ ))+1) ), type←v3744
/*1*/ , var←c33148, (* (( (ptr) gf←c33596)+10)/* ignoreErrors←v3000 */ ), pd38);
/*1*/ };
/*1*/ };
};
SOURCE(2543, 32)
(* (( (ptr) (* (( (ptr) &var←c33564)+4)/* prIP←v3628 */ ))+1) ) = 0;
};
};
SOURCE(2580, 127)
{
/* declaration of var←c01 skipped */
/* declaration of var←c02 skipped */
/* declaration of var←c03 skipped */
/* declaration of var←c04 skipped */
(* (( (ptr) &var←c33564)+5)/* var←c01 */ ) = (* (( (ptr) event←v12692)+2) );
(* (( (ptr) &var←c33564)+6)/* var←c02 */ ) = (* (( (ptr) mr←v3672)+7) );
(* (( (ptr) &var←c33564)+7)/* var←c03 */ ) = (* (ptr) (* (( (ptr) &var←c33564)+4)/* prIP←v3628 */ ) );
(* (( (ptr) &var←c33564)+8)/* var←c04 */ ) = (* (( (ptr) (* (( (ptr) gf←c33596)+50)/* var←c33052 */ ))+11) );
{
word var←c05;
{
word var←c0122;
var←c0122 = (word) &var←c33564;
var←c05 = (word) XR←Enable(( ((word) (fPt) NoName←Q1476) ), ( ((word) (fPt) NoName←Q1596) ), var←c0122);
};
if ((var←c05 == 2)) {
goto lab←L100001;
};
};
};
SOURCE(2720, 28)
(* (( (ptr) (* (( (ptr) &var←c33564)+4)/* prIP←v3628 */ ))+1) ) = (* (( (ptr) mr←v3672)+7) );
};
SOURCE(2753, 209)
{
/* declaration of var←c06 skipped */
/* declaration of var←c07 skipped */
/* declaration of var←c08 skipped */
/* declaration of var←c09 skipped */
(* (( (ptr) &var←c33564)+5)/* var←c06 */ ) = (* (( (ptr) event←v12692)+2) );
(* (( (ptr) &var←c33564)+6)/* var←c07 */ ) = (* (( (ptr) (* (( (ptr) &var←c33564)+4)/* prIP←v3628 */ ))+1) );
(* (( (ptr) &var←c33564)+7) ) = 0;
(* (( (ptr) &var←c33564)+8) ) = 0;
(* (W2Pt) (( (ptr) &var←c33564)+9) ) = (* (W2Pt) (( (ptr) psr←v3600)+41) );
(* (( (ptr) &var←c33564)+11) ) = 2147483648;
(* (( (ptr) &var←c33564)+12)/* var←c09 */ ) = (* (( (ptr) (* (( (ptr) gf←c33596)+48)/* var←c32668 */ ))+83) );
{
word var←c010;
{
word var←c0123;
var←c0123 = (word) &var←c33564;
var←c010 = (word) XR←Enable(( ((word) (fPt) NoName←Q1416) ), ( ((word) (fPt) NoName←Q1536) ), var←c0123);
};
if ((var←c010 == 2)) {
goto lab←L100001;
};
};
};
SOURCE(2978, 82)
{
word pd39;
pd39 = (* (( (ptr) (* (( (ptr) gf←c33596)+48)/* var←c32668 */ ))+79) );
(void) ( *( (fPt) ((* (ptr) pd39 ))))((* (( (ptr) event←v12692)+2) ), (* (( (ptr) (* (( (ptr) &var←c33564)+4)/* prIP←v3628 */ ))+1)
), (* (( (ptr) gf←c33596)+10)/* ignoreErrors←v3000 */ ), pd39);
};
SOURCE(3062, 77)
if ((0 != new←v3700)) {
SOURCE(3074, 65)
{
word pd40;
pd40 = (* (( (ptr) (* (( (ptr) gf←c33596)+47)/* var←c32636 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd40 ))))(psr←v3600, (* (( (ptr) gf←c33596)+4)/* newPseudoChild←v2664 */ ), (* (( (ptr) gf←c33596)+4)
/* newPseudoChild←v2664 */ ), mr←v3672, pd40);
};
};
};
}
else {
if ((var←c33020 == 23)) {
};
};
};
};
goto lab←L100009;
lab←L100001: ;
lab←L100009: ;
}
static word NoName←Q1416(formal←c0114)
word formal←c0114;
{
register ptr gf←c0113 = (ptr) &globalframe;
SOURCE(2753, 209)
{
word pd41;
pd41 = (* (( (ptr) formal←c0114)+12) );
(void) ( *( (fPt) ((* (ptr) pd41 ))))((* (( (ptr) formal←c0114)+5) ), (* (( (ptr) formal←c0114)+6) ), (* (W5Pt) (( (ptr) formal←c0114)+7)
), 0, 5, (* (( (ptr) gf←c0113)+9)/* synchronous←v2972 */ ), pd41);
};
return(0);
}
static word NoName←Q1476(formal←c0116)
word formal←c0116;
{
register ptr gf←c0115 = (ptr) &globalframe;
SOURCE(2580, 127)
{
word pd42;
pd42 = (* (( (ptr) formal←c0116)+8) );
(void) ( *( (fPt) ((* (ptr) pd42 ))))((* (( (ptr) formal←c0116)+5) ), (* (( (ptr) formal←c0116)+6) ), (* (( (ptr) formal←c0116)+7)
), 0, (* (( (ptr) gf←c0115)+9)/* synchronous←v2972 */ ), pd42);
};
return(0);
}
static void ChildDestroyed←P420(event←v12808, clientData←v12836, tq←v12864)
word event←v12808;
word clientData←v12836;
word tq←v12864;
{
register ptr gf←c33628 = (ptr) &globalframe;
word psr←v3788;
word prIP←v3816;
/* ChildDestroyed: */
SOURCE(3211, 363)
SOURCE(3248, 36)
psr←v3788 = XR←Narrow(clientData←v12836, (* (( (ptr) gf←c33628)+17) ));
SOURCE(3286, 53)
{
word var←c33212;
word superClass←v32176;
superClass←v32176 = (* (( (ptr) gf←c33628)+6)/* pseudoRootClass←v2720 */ );
{
word idx43;
word limit44;
var←c33212 = (* ((( (ptr) psr←v3788)+49)+(
idx43 = (* (( (ptr) superClass←v32176)+4) ),
limit44 = (* (( (ptr) psr←v3788)+48) ),
BCK(idx43, limit44)
)) );
};
prIP←v3816 = XR←Narrow(var←c33212, (* (( (ptr) gf←c33628)+24) ));
};
SOURCE(3341, 233)
{
word var←c33244;
var←c33244 = (* (( (ptr) event←v12808)+4) );
if ((var←c33244 == 17)) {
SOURCE(3381, 198)
{
word dn←v3860;
SOURCE(3383, 41)
if ((event←v12808 == 0)) {
goto lab←L100011;
};
if (((* (( (ptr) event←v12808)+4) ) == 17)) {
goto lab←L100011;
};
(void) XR←RaiseError(XR←NarrowFault, 0);
lab←L100011: ;
dn←v3860 = event←v12808;
SOURCE(3426, 148)
if (((* (( (ptr) dn←v3860)+7) ) == (* (( (ptr) prIP←v3816)+1) ))) {
SOURCE(3463, 32)
(* (( (ptr) prIP←v3816)+1) ) = 0;
SOURCE(3497, 77)
{
word pd45;
pd45 = (* (( (ptr) (* (( (ptr) gf←c33628)+47)/* var←c32636 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd45 ))))(psr←v3788, (* (( (ptr) gf←c33628)+5)/* pseudoChildDestroyed←v2692 */ ), (* (( (ptr) gf←c33628)+5)
/* pseudoChildDestroyed←v2692 */ ), dn←v3860, pd45);
};
};
};
};
};
}
static void PSRConfigureLR←P480(widget←v9820, geometry←v9848, mapping←v9876, reConsiderChildren←v9904)
word widget←v9820;
W5 geometry←v9848;
word mapping←v9876;
word reConsiderChildren←v9904;
{
register ptr gf←c33660 = (ptr) &globalframe;
word existW←v3904;
word createW←v3932;
word prIP←v3960;
/* PSRConfigureLR: */
SOURCE(3600, 1001)
SOURCE(3661, 56)
{
word var←c33276;
word superClass←v32128;
superClass←v32128 = (* (( (ptr) gf←c33660)+6)/* pseudoRootClass←v2720 */ );
{
word idx46;
word limit47;
var←c33276 = (* ((( (ptr) widget←v9820)+49)+(
idx46 = (* (( (ptr) superClass←v32128)+4) ),
limit47 = (* (( (ptr) widget←v9820)+48) ),
BCK(idx46, limit47)
)) );
};
prIP←v3960 = XR←Narrow(var←c33276, (* (( (ptr) gf←c33660)+24) ));
};
SOURCE(3719, 42)
existW←v3904 = ((* (( (ptr) widget←v9820)+44) ) < 2);
SOURCE(3763, 42)
if ((mapping←v9876 < 2)) {
createW←v3932 = (0 == existW←v3904);
}
else {
createW←v3932 = 0;
};
SOURCE(3807, 276)
if ((0 != createW←v3932)) {
SOURCE(3823, 260)
{
word tq←v4004;
SOURCE(3825, 25)
{
word pd48;
pd48 = (* (( (ptr) (* (( (ptr) gf←c33660)+48)/* var←c32668 */ ))+63) );
tq←v4004 = (word) ( *( (fPt) ((* (ptr) pd48 ))))(0, 0, 0, pd48);
};
SOURCE(3852, 108)
{
W4 var←c33308;
var←c33308.f0 = (word) (( (bPt) gf←c33660)+140)/* var←c32412 */ ;
var←c33308.f1 = (* (( (ptr) gf←c33660)+7)/* pseudoRootEvents←v2748 */ );
var←c33308.f2 = tq←v4004;
var←c33308.f3 = widget←v9820;
{
word pd49;
pd49 = (* (( (ptr) (* (( (ptr) gf←c33660)+49)/* var←c32860 */ ))+31) );
(void) ( *( (fPt) ((* (ptr) pd49 ))))(widget←v9820, var←c33308, 0, pd49);
};
};
SOURCE(3962, 121)
{
word var←c33340;
var←c33340 = XR←NewObject(16, (* (( (ptr) gf←c33660)+22) ));
(* (ptr) var←c33340 ) = (word) (( (bPt) gf←c33660)+132)/* var←c32380 */ ;
(* (( (ptr) var←c33340)+1) ) = (* (( (ptr) gf←c33660)+8)/* pseudoChildEvents←v2776 */ );
(* (( (ptr) var←c33340)+2) ) = tq←v4004;
(* (( (ptr) var←c33340)+3) ) = widget←v9820;
(* (ptr) prIP←v3960 ) = var←c33340;
};
};
};
SOURCE(4086, 63)
{
word pd50;
pd50 = (* (( (ptr) (* (( (ptr) gf←c33660)+47)/* var←c32636 */ ))+25) );
(void) ( *( (fPt) ((* (ptr) pd50 ))))(widget←v9820, geometry←v9848, mapping←v9876, 0, pd50);
};
SOURCE(4151, 450)
if (((* (( (ptr) prIP←v3960)+1) ) != 0)) {
SOURCE(4190, 413)
{
W5 g←v4048;
SOURCE(4192, 25)
g←v4048 = geometry←v9848;
SOURCE(4219, 14)
g←v4048.f0 = 0;
g←v4048.f1 = 0;
SOURCE(4235, 17)
g←v4048.f4 = 0;
SOURCE(4254, 63)
if (( (int)g←v4048.f2 <= (int)0)) {
SOURCE(4278, 39)
g←v4048.f2 = (* (( (ptr) widget←v9820)+41) );
};
SOURCE(4319, 66)
if (( (int)g←v4048.f3 <= (int)0)) {
SOURCE(4344, 41)
g←v4048.f3 = (* (( (ptr) widget←v9820)+42) );
};
SOURCE(4387, 53)
{
word x51;
g←v4048.f2 = (x51 = (g←v4048.f2 - IOP2( * , (int)2, (int)g←v4048.f4)),
MAX((int)(word), 1, x51));
};
SOURCE(4442, 55)
{
word x52;
g←v4048.f3 = (x52 = (g←v4048.f3 - IOP2( * , (int)2, (int)g←v4048.f4)),
MAX((int)(word), 1, x52));
};
SOURCE(4499, 102)
{
word pd53;
pd53 = (* (( (ptr) (* (( (ptr) gf←c33660)+48)/* var←c32668 */ ))+83) );
(void) ( *( (fPt) ((* (ptr) pd53 ))))((* (( (ptr) widget←v9820)+34) ), (* (( (ptr) prIP←v3960)+1) ), g←v4048, 0, 5, (* (
( (ptr) gf←c33660)+10)/* ignoreErrors←v3000 */ ), pd53);
};
};
};
}
static void NoName←Q1536(formal←c0100, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
word formal←c0100;
word formal←c200004;
word formal←c200005;
word formal←c200006;
word formal←c200007;
{
register ptr gf←c0119 = (ptr) &globalframe;
if ((formal←c200005 == (* (( (ptr) (* (( (ptr) gf←c0119)+48)/* var←c32668 */ ))+4) ))) {
{
word err←v31212;
err←v31212 = (* (ptr) formal←c200007 );
SOURCE(2930, 32)
(* (( (ptr) (* (( (ptr) formal←c200004)+4) ))+1) ) = 0;
SOURCE(2964, 9)
(* (ptr) formal←c0100 ) = 2;
(* (( (ptr) formal←c0100)+1) ) = 2;
return;
};
};
(* (ptr) formal←c0100 ) = 0;
(* (( (ptr) formal←c0100)+1) ) = 0;
return;
}
static void NoName←Q1596(formal←c0106, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0106;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c0120 = (ptr) &globalframe;
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0120)+48)/* var←c32668 */ ))+4) ))) {
{
word err←v30856;
err←v30856 = (* (ptr) formal←c200003 );
SOURCE(2707, 11)
(* (ptr) formal←c0106 ) = 2;
(* (( (ptr) formal←c0106)+1) ) = 2;
return;
};
};
(* (ptr) formal←c0106 ) = 0;
(* (( (ptr) formal←c0106)+1) ) = 0;
return;
}
/* file: XTkPseudoRootImpl, module: XTkPseudoRootImpl, compiled at: April 21, 1992 12:51:02 pm PDT */
extern void XR←install←XTkPseudoRootImpl() {
NoName←Q1356();
}
extern void XR←run←XTkPseudoRootImpl() { XR←Start(&globalframe); }