/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */
/* time: February 23, 1993 11:26:23 pm PST */
/* C2C version: January 29, 1993 (sun4) */
/* ref-counting: off */
/* file: XTkPopUpsImpl, module: XTkPopUpsImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [1176937210,2698788916] XTkPopUpsImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef W2 *W2Pt;
typedef struct {W8 f; W8 r;} W16;
typedef struct {word f0, f1, f2, f3;} W4;
typedef struct {W16 f; W4 r;} W20;
typedef struct {W8 f; word r;} W9;
typedef W9 *W9Pt;
typedef struct {word f0, f1, f2;} W3;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef W5 *W5Pt;
typedef W4 *W4Pt;
typedef struct {W16 f; W3 r;} W19;
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 MIN(cast, x, y) ( ( cast x) < ( cast y) ? (x) : (y) )
#define IOP2(op, x, y) ( (word) ((x) op (y)) )
static void NoName←Q5040();
static void XTkPopUpsImpl←P0();
static word IsDynamicPopShell←P60();
static void PositionAndScreen←P120();
static void RemovePriviledgedMatch←P180();
static void RemovePops←P240();
static void TearDown←P300();
static word BuildDynamic←P360();
static void DestroyIncludingCascaded←P420();
static void InternalDestroyIncludingCascaded←P480();
static void DestroyIncludingAncestorsAndCascaded←P540();
static void ForkDestroy←P600();
static void Destroy←P660();
static void DoNotify←P720();
static void QueuedDoNotify←P780();
static void ActualPopUp←P840();
static void PopUp←P900();
static word DynamicFromShell←P960();
static void SimplePopUpWithRegularShell←P1020();
static void PopUpWithRegularShell←P1080();
static void TestUpnessNow←P1140();
static void TestUpnessVerySoon←P1200();
static void TestUpnessSoon←P1260();
static void SetStyle←P1320();
static void BaseButtonEvent←P1380();
static void PopShellEvent←P1440();
static void PriviledgedUpEvent←P1500();
static word NewPopStatic←P1560();
static word CreatePseudoBase←P1620();
static word AssertBase←P1680();
static void PostRealized←P1740();
static void MakeItBase←P1800();
static word CreateSimplePopUpButton←P1860();
static word CreatePopUpButton←P1920();
static word GetPopStatic←P1980();
static void SetMenuCreator←P2040();
static void SetHelp←P2100();
static void RegisterBaseSelection←P2160();
static word ToRope←P2220();
static word ChoiceListCreateContents←P2280();
static word WidgetCreateClosureFromChoiceList←P2340();
static void Select←P2400();
static void SelectOnly←P2460();
static void NullNotify←P2520();
static word NoName←Q5100();
static struct {unsigned f; char r[4];} string1 = {65540, "\242\000\000"};
static struct {unsigned f; char r[16];} string2 = {851984, "\257\300\106\046\242\372\300\240\334\100\064\100\324\000\000"};
static struct {unsigned f; char r[4];} string3 = {196611, "\004A\374"};
static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\106\046\242\372\300\240\334\100\064\100\310\000\000"};
static struct {unsigned f; char r[4];} string5 = {196611, "\004C\375"};
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\106\046\242\372\300\240\334\100\064\100\340\000\000"};
static struct {unsigned f; char r[4];} string9 = {131074, "\004\033\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\267\210\110\244\300\302\136\033\142\100\164\000\000"};
static struct {unsigned f; char r[4];} string11 = {131074, "\004\003\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\107\320\000\000"};
static struct {unsigned f; char r[4];} string13 = {131074, "\004\016\000"};
static struct {unsigned f; char r[4];} string14 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string15 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\106\046\242\372\300\240\334\100\064\102\170\000\000"};
static struct {unsigned f; char r[4];} string17 = {65540, "\251\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\306\142\131\144\300\027\030\213\334\100\214\000\000"};
static struct {unsigned f; char r[4];} string19 = {131074, "\003\001\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string21 = {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[44];} string22 = {2752556, "\260\007\006\154\145\156\147\164\150\210\241\000\200\177\377\005\004\164\145\170\164\254\206\012\011\155\141\170\114\145\156\147\164\150\210\241\000\200\177\377\243\261\000"};
static struct {unsigned f; char r[16];} string23 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[44];} string24 = {2752556, "\260\006\005\146\151\162\163\164\257\300\306\142\131\144\300\027\030\213\334\100\244\005\004\162\145\163\164\214\257\300\306\142\131\144\300\027\030\213\334\100\244\261\000"};
static struct {unsigned f; char r[4];} string25 = {131074, "\004/\000"};
static struct {unsigned f; char r[8];} string26 = {458760, "more..."};
static struct {unsigned f; char r[12];} string27 = {720908, "BlackOnGray"};
static struct {unsigned f; char r[8];} string28 = {327688, "Label\000\000"};
static struct {unsigned f; char r[16];} string29 = {851984, "\257\300\106\046\242\372\300\240\334\100\064\100\164\000\000"};
static struct {unsigned f; char r[20];} string30 = {1048592, "\006\006\040\001\044\001\050\001\054\001\060\001\100\170\004\007\000\000\000"};
static struct {unsigned f; char r[16];} string31 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string32 = {851984, "\257\300\267\210\110\244\300\302\136\033\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string33 = {851984, "\257\300\240\236\274\315\300\111\163\325\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string34 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string35 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string36 = {851984, "\257\300\122\362\040\033\300\221\350\241\274\100\150\000\000"};
static struct {unsigned f; char r[16];} string37 = {851984, "\257\300\103\352\366\361\300\264\046\172\334\100\150\000\000"};
static struct {unsigned f; char r[16];} string38 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\150\000\000"};
static struct {unsigned f; char r[16];} string39 = {851984, "\257\300\372\252\147\374\300\170\207\127\200\100\150\000\000"};
static struct {unsigned f; char r[16];} string40 = {851984, "\257\300\227\370\144\253\300\176\165\034\110\100\150\000\000"};
static struct {unsigned f; char r[16];} string41 = {851984, "\257\300\320\075\064\316\300\052\004\271\020\100\150\000\000"};
static struct {unsigned f; char r[16];} string42 = {851984, "\257\300\000\150\313\125\300\372\040\271\021\100\150\000\000"};
static struct {unsigned f; char r[16];} string43 = {851984, "\257\300\145\202\371\143\300\336\312\353\353\100\150\000\000"};
static struct {unsigned f; char r[16];} string44 = {851984, "\257\300\306\142\131\144\300\027\030\213\334\100\150\000\000"};
static struct {
word f0[33]; 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; word f74; word f75;
word f76; word f77; word f78; word f79;
word f80; word f81; word f82; word f83;
word f84; word f85; word f86; word f87;
word f88; word f89; word f90; word f91;
word f92; word f93; word f94; word f95;
word f96; word f97; word f98; word f99;
word f100; word f101; word f102; word f103;
word f104; word f105; word f106; word f107;
word f108; word f109; word f110; word f111;
word f112; word f113; word f114; word f115;
word f116; word f117; word f118[2]; word f120;
word f121; word f122; word f123; word f124;
word f125; word f126[2]; word f128; word f129;
word f130; word f131; word f132; word f133;
word f134; word f135; word f136; word f137;
word f138; word f139; word f140; word f141;
word f142; word f143; word f144; word f145[2];
word f147; word f148; word f149[3]; word f152;
word f153; word f154; word f155; word f156;
word f157; word f158[16];
} globalframe = {
{0}, (word) NullNotify←P2520, 0, (word) SelectOnly←P2460,
0, (word) Select←P2400, 0, (word) WidgetCreateClosureFromChoiceList←P2340,
0, (word) ChoiceListCreateContents←P2280, 0, (word) ToRope←P2220,
0, (word) RegisterBaseSelection←P2160, 0, (word) SetHelp←P2100,
0, (word) SetMenuCreator←P2040, 0, (word) GetPopStatic←P1980,
0, (word) CreatePopUpButton←P1920, 0, (word) CreateSimplePopUpButton←P1860,
0, (word) MakeItBase←P1800, 0, (word) PostRealized←P1740,
0, (word) AssertBase←P1680, 0, (word) CreatePseudoBase←P1620,
0, (word) NewPopStatic←P1560, 0, (word) PriviledgedUpEvent←P1500,
0, (word) PopShellEvent←P1440, 0, (word) BaseButtonEvent←P1380,
0, (word) SetStyle←P1320, 0, (word) TestUpnessSoon←P1260,
0, (word) TestUpnessVerySoon←P1200, 0, (word) TestUpnessNow←P1140,
0, (word) PopUpWithRegularShell←P1080, 0, (word) SimplePopUpWithRegularShell←P1020,
0, (word) DynamicFromShell←P960, 0, (word) PopUp←P900,
0, (word) ActualPopUp←P840, 0, (word) QueuedDoNotify←P780,
0, (word) DoNotify←P720, 0, (word) Destroy←P660,
0, (word) ForkDestroy←P600, 0, (word) DestroyIncludingAncestorsAndCascaded←P540,
0, (word) InternalDestroyIncludingCascaded←P480, 0, (word) DestroyIncludingCascaded←P420,
0, (word) BuildDynamic←P360, 0, (word) TearDown←P300,
0, (word) RemovePops←P240, 0, (word) RemovePriviledgedMatch←P180,
0, (word) PositionAndScreen←P120, 0, (word) IsDynamicPopShell←P60,
0, (word) XTkPopUpsImpl←P0, {0}, (word) 2147483648,
(word) 2147483648, (word) 2147483648, (word) 2147483648, (word) 2147483648,
(word) 3, {0}, (word) 2147483648, (word) 2147483648,
(word) 2147483648, (word) 2147483648, (word) 2147483648, (word) 2147483648,
(word) 2147483648, (word) 2147483648, (word) 2147483648, (word) 2147483648,
0, (word) 2147483648, (word) 2147483648, (word) 2147483648,
(word) 2147483648, (word) 2147483648, (word) 3, {0},
(word) 4294967295, (word) 4294967295, {0}, (word) 2147483648,
(word) 2147483648, (word) 2147483648, (word) 2147483648, (word) 2147483648,
(word) 3, {0}
};
static void NoName←Q5040()
{
register ptr gf←c0351 = (ptr) &globalframe;
word var←c51288;
(* (( (ptr) gf←c0351)+13) ) = (word) XR←GetTypeIndexS((word) (&string1));
(* (( (ptr) gf←c0351)+15) ) = (word) XR←GetTypeIndex((word) &string2, 0, (word) &string3);
(* (( (ptr) gf←c0351)+16) ) = (word) XR←GetTypeIndex((word) &string4, 0, (word) &string5);
(* (( (ptr) gf←c0351)+17) ) = (word) XR←GetTypeIndex((word) &string6, 0, (word) &string7);
(* (( (ptr) gf←c0351)+18) ) = (word) XR←GetTypeIndex((word) &string8, 0, (word) &string9);
(* (( (ptr) gf←c0351)+19) ) = (word) XR←GetTypeIndex((word) &string10, 0, (word) &string11);
(* (( (ptr) gf←c0351)+20) ) = (word) XR←GetTypeIndex((word) &string12, 0, (word) &string13);
(* (( (ptr) gf←c0351)+21) ) = (word) XR←GetTypeIndex((word) &string14, 0, (word) &string15);
(* (( (ptr) gf←c0351)+22) ) = (word) XR←GetTypeIndex((word) &string16, 0, (word) &string13);
(* (( (ptr) gf←c0351)+23) ) = (word) XR←GetTypeIndexS((word) (&string17));
(* (( (ptr) gf←c0351)+24) ) = (word) XR←GetTypeIndex((word) &string18, 0, (word) &string19);
(* (( (ptr) gf←c0351)+26) ) = (word) XR←GetTypeIndex((word) &string20, 0, (word) &string21);
(* (( (ptr) gf←c0351)+27) ) = (word) XR←GetTypeIndexS((word) (&string22));
(* (( (ptr) gf←c0351)+28) ) = (word) XR←GetTypeIndex((word) &string23, 0, (word) &string15);
(* (( (ptr) gf←c0351)+29) ) = (word) XR←GetTypeIndex((word) &string24, 0, (word) &string25);
(* (ptr) (( (bPt) gf←c0351)+120) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0351)+28) ), (word) &string26);
(* (ptr) (( (bPt) gf←c0351)+124) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0351)+21) ), (word) &string27);
(* (ptr) (( (bPt) gf←c0351)+128) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0351)+21) ), (word) &string28);
(void) XR←DeclareGlobalFrame((word) "XTkPopUpsImpl", &globalframe, (word) XR←GetTypeIndex((word) &string29, 0, (word) &string30)
, (word) (( (bPt) gf←c0351)+468)/* var←c49048 */ );
var←c51288 = (word) XR←ImportInterface((word) "Atom", (word) XR←GetTypeIndexS((word) (&string31)), 16);
(* (( (ptr) gf←c0351)+172)/* var←c51000 */ ) = var←c51288;
(void) XR←ImportProcS(var←c51288, 67372289);
var←c51288 = (word) XR←ImportInterface((word) "HelpStrings", (word) XR←GetTypeIndexS((word) (&string32)), 5);
(* (( (ptr) gf←c0351)+168)/* var←c50104 */ ) = var←c51288;
(void) XR←ImportProcS(var←c51288, 786435);
(void) XR←ImportProcS(var←c51288, 786691);
(void) XR←ImportProcS(var←c51288, 524802);
var←c51288 = (word) XR←ImportInterface((word) "Process", (word) XR←GetTypeIndexS((word) (&string33)), 22);
(* (( (ptr) gf←c0351)+164)/* var←c49816 */ ) = var←c51288;
(void) XR←ImportProcS(var←c51288, 526081);
var←c51288 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string34)), 43);
(* (( (ptr) gf←c0351)+171)/* var←c50936 */ ) = var←c51288;
(void) XR←ImportProcS(var←c51288, 67903235);
var←c51288 = (word) XR←ImportInterface((word) "Xl", (word) XR←GetTypeIndexS((word) (&string35)), 218);
(* (( (ptr) gf←c0351)+160)/* var←c49464 */ ) = var←c51288;
(void) XR←ImportProcS(var←c51288, 67924739);
(void) XR←ImportProcS(var←c51288, 1063940);
(void) XR←ImportProcS(var←c51288, 67910403);
(void) XR←ImportProcS(var←c51288, 67654914);
(void) XR←ImportProcS(var←c51288, 537423362);
(void) XR←ImportProcS(var←c51288, 68207876);
var←c51288 = (word) XR←ImportInterface((word) "XlDispatch", (word) XR←GetTypeIndexS((word) (&string36)), 18);
(* (( (ptr) gf←c0351)+161)/* var←c49528 */ ) = var←c51288;
(void) XR←ImportProcS(var←c51288, 527106);
(void) XR←ImportProcS(var←c51288, 527362);
var←c51288 = (word) XR←ImportInterface((word) "XlTQOps", (word) XR←GetTypeIndexS((word) (&string37)), 2);
(* (( (ptr) gf←c0351)+169)/* var←c50296 */ ) = var←c51288;
(void) XR←ImportProcS(var←c51288, 1310725);
var←c51288 = (word) XR←ImportInterface((word) "XTk", (word) XR←GetTypeIndexS((word) (&string38)), 50);
(* (( (ptr) gf←c0351)+162)/* var←c49624 */ ) = var←c51288;
(void) XR←ImportProcS(var←c51288, 67643138);
(void) XR←ImportProcS(var←c51288, 1050628);
(void) XR←ImportProcS(var←c51288, 1579523);
(void) XR←ImportProcS(var←c51288, 786947);
(void) XR←ImportProcS(var←c51288, 788227);
(void) XR←ImportProcS(var←c51288, 67634690);
(void) XR←ImportProcS(var←c51288, 67378433);
var←c51288 = (word) XR←ImportInterface((word) "XTkOps", (word) XR←GetTypeIndexS((word) (&string39)), 5);
(* (( (ptr) gf←c0351)+170)/* var←c50680 */ ) = var←c51288;
(void) XR←ImportProcS(var←c51288, 786947);
var←c51288 = (word) XR←ImportInterface((word) "XTkFriends", (word) XR←GetTypeIndexS((word) (&string40)), 33);
(* (( (ptr) gf←c0351)+167)/* var←c50072 */ ) = var←c51288;
(void) XR←ImportProcS(var←c51288, 337643012);
var←c51288 = (word) XR←ImportInterface((word) "XTkHelpShells", (word) XR←GetTypeIndexS((word) (&string41)), 1);
(* (( (ptr) gf←c0351)+166)/* var←c50008 */ ) = var←c51288;
(void) XR←ImportProcS(var←c51288, 67371009);
var←c51288 = (word) XR←ImportInterface((word) "XTkHelpStrings", (word) XR←GetTypeIndexS((word) (&string42)), 2);
(* (( (ptr) gf←c0351)+165)/* var←c49912 */ ) = var←c51288;
(void) XR←ImportProcS(var←c51288, 524546);
(void) XR←ImportProcS(var←c51288, 67371009);
var←c51288 = (word) XR←ImportInterface((word) "XTkWidgets", (word) XR←GetTypeIndexS((word) (&string43)), 52);
(* (( (ptr) gf←c0351)+163)/* var←c49752 */ ) = var←c51288;
(void) XR←ImportProcS(var←c51288, 793347);
(void) XR←ImportProcS(var←c51288, 72097800);
(void) XR←ImportProcS(var←c51288, 69998595);
(void) XR←ImportProcS(var←c51288, 70786819);
(void) XR←ImportProcS(var←c51288, 796163);
(void) XR←ImportProcS(var←c51288, 2099460);
(void) XR←ImportProcS(var←c51288, 526338);
(void) XR←ImportProcS(var←c51288, 787203);
(void) XR←ImportProcS(var←c51288, 67376129);
(void) XR←ImportProcS(var←c51288, 72352268);
(void) XR←ImportProcS(var←c51288, 264961);
var←c51288 = (word) XR←ExportInterface((word) "XTkPopUps", (word) XR←GetTypeIndexS((word) (&string44)), 14);
(* (( (ptr) gf←c0351)+173)/* var←c51320 */ ) = var←c51288;
(void) XR←ExportProcS(var←c51288, (word) (( (bPt) gf←c0351)+220)/* var←c48056 */ , 68681734);
(void) XR←ExportProcS(var←c51288, (word) (( (bPt) gf←c0351)+212)/* var←c48024 */ , 68419845);
(void) XR←ExportProcS(var←c51288, (word) (( (bPt) gf←c0351)+156)/* var←c47800 */ , 67895811);
(void) XR←ExportProcS(var←c51288, (word) (( (bPt) gf←c0351)+180)/* var←c47896 */ , 1311493);
(void) XR←ExportProcS(var←c51288, (word) (( (bPt) gf←c0351)+332)/* var←c48504 */ , 2622473);
(void) XR←ExportProcS(var←c51288, (word) (( (bPt) gf←c0351)+324)/* var←c48472 */ , 2360584);
(void) XR←ExportProcS(var←c51288, (word) (( (bPt) gf←c0351)+132)/* var←c47704 */ , 1050116);
(void) XR←ExportProcS(var←c51288, (word) (( (bPt) gf←c0351)+252)/* var←c48184 */ , 67372801);
(void) XR←ExportProcS(var←c51288, (word) (( (bPt) gf←c0351)+228)/* var←c48088 */ , 1312773);
(void) XR←ExportProcS(var←c51288, (word) (( (bPt) gf←c0351)+196)/* var←c47960 */ , 526594);
(void) XR←ExportProcS(var←c51288, (word) (( (bPt) gf←c0351)+188)/* var←c47928 */ , 526850);
(void) XR←ExportProcS(var←c51288, (word) (( (bPt) gf←c0351)+148)/* var←c47768 */ , 527106);
(void) XR←ExportProcS(var←c51288, (word) (( (bPt) gf←c0351)+428)/* var←c48888 */ , 265217);
(void) XR←ExportProcS(var←c51288, (word) (( (bPt) gf←c0351)+348)/* var←c48568 */ , 1576197);
}
static void XTkPopUpsImpl←P0(formal←c074, formal←c073)
word formal←c074;
word formal←c073;
{
register ptr gf←c51352 = (ptr) &globalframe;
/* XTkPopUpsImpl: */
SOURCE(150, 20282)
/* 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 */
/* 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(420, 26)
(* (( (ptr) gf←c51352)+8)/* myShellKey←v3196 */ ) = XR←NewObject(4, (* (( (ptr) gf←c51352)+13) ));
SOURCE(501, 25)
(* (( (ptr) gf←c51352)+9)/* myBaseKey←v3224 */ ) = XR←NewObject(4, (* (( (ptr) gf←c51352)+13) ));
SOURCE(583, 27)
(* (( (ptr) gf←c51352)+10)/* myChoiceKey←v3252 */ ) = XR←NewObject(4, (* (( (ptr) gf←c51352)+13) ));
SOURCE(638, 73)
{
word pd45;
pd45 = (* (( (ptr) (* (( (ptr) gf←c51352)+160)/* var←c49464 */ ))+201) );
(* (( (ptr) gf←c51352)+11)/* buttonReleaseFilter←v3280 */ ) = (word) ( *( (fPt) ((* (ptr) pd45 ))))(5, 35, 35, 35, pd45)
;
};
SOURCE(713, 99)
{
word pd46;
pd46 = (* (( (ptr) (* (( (ptr) gf←c51352)+160)/* var←c49464 */ ))+201) );
(* (( (ptr) gf←c51352)+12)/* filter←v3308 */ ) = (word) ( *( (fPt) ((* (ptr) pd46 ))))(4, 5, 7, 8, pd46);
};
}
static word IsDynamicPopShell←P60(w←v4716)
word w←v4716;
{
word var←c4760;
/* IsDynamicPopShell: */
SOURCE(815, 117)
SOURCE(874, 58)
{
word tc47;
if ((w←v4716 != 0)) {
tc47 = (word) (unsigned) (((unsigned)(* (( (bPt) w←v4716)+120) ) << 27) >> 31);
}
else {
tc47 = (word) (unsigned) 0;
};
return(tc47);
};
}
static void PositionAndScreen←P120(formal←c083, connection←v4820)
word formal←c083;
word connection←v4820;
{
register ptr gf←c51384 = (ptr) &globalframe;
W2 pos←v4864;
word s←v4892;
W8 pointerQuery←v9912;
/* PositionAndScreen: */
SOURCE(936, 292)
SOURCE(936, 292)
s←v4892 = 0;
SOURCE(1031, 74)
{
word pd48;
pd48 = (* (( (ptr) (* (( (ptr) gf←c51384)+160)/* var←c49464 */ ))+114) );
(void) ( *( (fPt) ((* (ptr) pd48 ))))((word) &pointerQuery←v9912, connection←v4820, 0, pd48);
};
SOURCE(1107, 22)
pos←v4864 = (* (W2Pt) (( (ptr) &pointerQuery←v9912)+4) );
SOURCE(1132, 49)
{
word pd49;
pd49 = (* (( (ptr) (* (( (ptr) gf←c51384)+160)/* var←c49464 */ ))+89) );
s←v4892 = (word) ( *( (fPt) ((* (ptr) pd49 ))))(connection←v4820, pointerQuery←v9912.f0, pd49);
};
SOURCE(1183, 45)
if ((s←v4892 == 0)) {
SOURCE(1197, 31)
{
word var←c49496;
var←c49496 = (* (( (ptr) (* (( (ptr) connection←v4820)+16) ))+17) );
{
word limit50;
s←v4892 = (* ((( (ptr) var←c49496)+1)+(
limit50 = (* (ptr) var←c49496 ),
BCK(0, limit50)
)) );
};
};
};
/* removed tail goto */
(* (W2Pt) formal←c083 ) = pos←v4864;
(* (( (ptr) formal←c083)+2) ) = s←v4892;
return;
}
static void RemovePriviledgedMatch←P180(c←v4952, dyn←v4980)
word c←v4952;
word dyn←v4980;
{
register ptr gf←c51416 = (ptr) &globalframe;
word m←v9956;
/* RemovePriviledgedMatch: */
SOURCE(1232, 212)
SOURCE(1305, 34)
m←v9956 = (* (( (ptr) dyn←v4980)+8) );
SOURCE(1341, 103)
if ((m←v9956 != 0)) {
SOURCE(1357, 26)
(* (( (ptr) dyn←v4980)+8) ) = 0;
SOURCE(1385, 59)
if ( ( (c←v4952 != 0) ? (0 != (* (( (ptr) c←v4952)+15) )) : 0 ) ) {
SOURCE(1405, 39)
{
word pd51;
pd51 = (* (( (ptr) (* (( (ptr) gf←c51416)+161)/* var←c49528 */ ))+16) );
(void) ( *( (fPt) ((* (ptr) pd51 ))))(c←v4952, m←v9956, pd51);
};
};
};
}
static void RemovePops←P240(widget←v17068, registerData←v17096, callData←v17124, event←v17152)
word widget←v17068;
word registerData←v17096;
word callData←v17124;
word event←v17152;
{
register ptr gf←c51448 = (ptr) &globalframe;
word dyn←v10000;
/* RemovePops: */
SOURCE(1453, 130)
SOURCE(1490, 42)
dyn←v10000 = XR←Narrow(registerData←v17096, (* (( (ptr) gf←c51448)+15) ));
SOURCE(1534, 18)
(* (( (ptr) dyn←v10000)+4) ) = 0;
SOURCE(1554, 29)
(void) DestroyIncludingCascaded←P420(dyn←v10000);
}
static void TearDown←P300(carrier←v5052)
word carrier←v5052;
{
register ptr gf←c51480 = (ptr) &globalframe;
/* TearDown: */
SOURCE(1589, 527)
SOURCE(1637, 479)
{
word var←c49560;
word var←c49592;
var←c49560 = carrier←v5052;
if ((var←c49560 == 0)) {
goto lab←L100001;
};
var←c49592 = XR←GetReferentType(var←c49560);
if (((* (( (ptr) gf←c51480)+16) ) == var←c49592)) {
{
word static←v10056;
static←v10056 = var←c49560;
SOURCE(1687, 59)
(void) DestroyIncludingAncestorsAndCascaded←P540((* (ptr) (static←v10056) ));
};
goto endif052;
};
if (((* (( (ptr) gf←c51480)+17) ) == var←c49592)) {
{
word w←v10112;
w←v10112 = var←c49560;
SOURCE(1765, 284)
{
word root←v10156;
SOURCE(1767, 36)
{
word pd53;
pd53 = (* (( (ptr) (* (( (ptr) gf←c51480)+162)/* var←c49624 */ ))+33) );
root←v10156 = (word) ( *( (fPt) ((* (ptr) pd53 ))))(w←v10112, pd53);
};
SOURCE(1805, 133)
{
word var←c49656;
{
word pd54;
pd54 = (* (( (ptr) (* (( (ptr) gf←c51480)+162)/* var←c49624 */ ))+10) );
var←c49656 = (word) ( *( (fPt) ((* (ptr) pd54 ))))(w←v10112, (* (( (ptr) gf←c51480)+9)/* myBaseKey←v3224 */ ), pd54);
};
if ((var←c49656 == 0)) {
goto lab←L100002;
};
if (((* (( (ptr) gf←c51480)+16) ) == XR←GetReferentType(var←c49656))) {
{
word static←v10200;
static←v10200 = var←c49656;
SOURCE(1879, 59)
(void) DestroyIncludingAncestorsAndCascaded←P540((* (ptr) (static←v10200) ));
};
}
else {
lab←L100002: ;
};
};
SOURCE(1955, 92)
if ((0 != (word) IsDynamicPopShell←P60(root←v10156))) {
SOURCE(1987, 60)
{
word var←c49688;
var←c49688 = (word) DynamicFromShell←P960(root←v10156);
(void) DestroyIncludingAncestorsAndCascaded←P540(var←c49688);
};
};
};
};
goto endif052;
};
if (((* (( (ptr) gf←c51480)+15) ) == var←c49592)) {
{
word dyn←v10256;
dyn←v10256 = var←c49560;
SOURCE(2075, 41)
(void) DestroyIncludingAncestorsAndCascaded←P540(dyn←v10256);
};
goto endif052;
};
lab←L100001: ;
goto endif052;
endif052: ;
};
}
static word BuildDynamic←P360(static←v5928, parent←v5956, image←v5984)
word static←v5928;
word parent←v5956;
word image←v5984;
{
register ptr gf←c51512 = (ptr) &globalframe;
word dyn←v6064;
/* BuildDynamic: */
SOURCE(2991, 763)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c51512)+16)/* LOCK←v3140 */ ));
SOURCE(2991, 763)
dyn←v6064 = 0;
SOURCE(3116, 55)
if ( ( (parent←v5956 != 0) ? (0 != (* (( (ptr) parent←v5956)+1) )) : 0 ) ) {
SOURCE(3165, 6)
(void) (XR←MonitorExit((word) (( (bPt) gf←c51512)+16)/* LOCK←v3140 */ ));
return(dyn←v6064);
};
SOURCE(3173, 581)
if ((static←v5928 != 0)) {
SOURCE(3192, 564)
{
word oldD←v10312;
SOURCE(3194, 44)
oldD←v10312 = (* (ptr) static←v5928 );
SOURCE(3240, 127)
if ((oldD←v10312 != 0)) {
SOURCE(3259, 68)
if ( ( ((* (( (ptr) oldD←v10312)+2) ) == static←v5928) ? (0 == (* (( (ptr) oldD←v10312)+1) )) : 0 ) ) {
SOURCE(3315, 12)
(void) (XR←MonitorExit((word) (( (bPt) gf←c51512)+16)/* LOCK←v3140 */ ));
return(0);
};
SOURCE(3329, 38)
(void) InternalDestroyIncludingCascaded←P480(oldD←v10312);
};
SOURCE(3372, 21)
dyn←v6064 = XR←NewObject(36, (* (( (ptr) gf←c51512)+15) ));
SOURCE(3395, 19)
(* (( (ptr) dyn←v6064)+2) ) = static←v5928;
SOURCE(3416, 17)
(* (( (ptr) dyn←v6064)+7) ) = image←v5984;
SOURCE(3435, 30)
(* (( (ptr) dyn←v6064)+3) ) = (* (( (ptr) static←v5928)+5) );
SOURCE(3468, 176)
if ((parent←v5956 != 0)) {
SOURCE(3489, 19)
(* (( (ptr) dyn←v6064)+6) ) = parent←v5956;
SOURCE(3511, 54)
(void) InternalDestroyIncludingCascaded←P480((* ((( (ptr) parent←v5956)+5)) ));
SOURCE(3567, 26)
(* (( (ptr) parent←v5956)+5) ) = dyn←v6064;
SOURCE(3595, 49)
if (((* (( (ptr) dyn←v6064)+3) ) == 0)) {
SOURCE(3618, 26)
(* (( (ptr) dyn←v6064)+3) ) = (* (( (ptr) parent←v5956)+3) );
};
};
SOURCE(3649, 76)
if (((* (( (ptr) dyn←v6064)+3) ) == 0)) {
SOURCE(3672, 53)
{
word pd55;
pd55 = (* (( (ptr) (* (( (ptr) gf←c51512)+160)/* var←c49464 */ ))+63) );
(* (( (ptr) dyn←v6064)+3) ) = (word) ( *( (fPt) ((* (ptr) pd55 ))))(0, 5, 0, pd55);
};
};
SOURCE(3727, 27)
(* (ptr) static←v5928 ) = dyn←v6064;
};
};
SOURCE(2991, 763)
(void) (XR←MonitorExit((word) (( (bPt) gf←c51512)+16)/* LOCK←v3140 */ ));
return(dyn←v6064);
}
static void DestroyIncludingCascaded←P420(dyn←v6136)
word dyn←v6136;
{
register ptr gf←c51544 = (ptr) &globalframe;
/* DestroyIncludingCascaded: */
SOURCE(3763, 116)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c51544)+16)/* LOCK←v3140 */ ));
SOURCE(3826, 53)
if ((dyn←v6136 != 0)) {
SOURCE(3842, 37)
(void) InternalDestroyIncludingCascaded←P480(dyn←v6136);
};
SOURCE(3763, 116)
(void) (XR←MonitorExit((word) (( (bPt) gf←c51544)+16)/* LOCK←v3140 */ ));
return;
}
static void InternalDestroyIncludingCascaded←P480(dyn←v6208)
word dyn←v6208;
{
/* InternalDestroyIncludingCascaded: */
SOURCE(3885, 455)
SOURCE(3959, 381)
lab←L100005: ;
if ((dyn←v6208 != 0)) {
}
else {
goto lab←L100003;
};
{
word next←v10368;
word parent←v10396;
word static←v10424;
SOURCE(3977, 40)
next←v10368 = (* (( (ptr) dyn←v6208)+5) );
SOURCE(4019, 35)
parent←v10396 = (* (( (ptr) dyn←v6208)+6) );
SOURCE(4056, 34)
static←v10424 = (* (( (ptr) dyn←v6208)+2) );
SOURCE(4092, 29)
(* (( (ptr) dyn←v6208)+1) ) = 1;
SOURCE(4123, 23)
(* (( (ptr) dyn←v6208)+5) ) = 0;
SOURCE(4148, 16)
(* (( (ptr) dyn←v6208)+6) ) = 0;
SOURCE(4166, 76)
if ( ( (parent←v10396 != 0) ? ((* (( (ptr) parent←v10396)+5) ) == dyn←v6208) : 0 ) ) {
SOURCE(4216, 26)
(* (( (ptr) parent←v10396)+5) ) = 0;
};
SOURCE(4248, 61)
if (((* (ptr) static←v10424 ) == dyn←v6208)) {
SOURCE(4282, 27)
(* (ptr) static←v10424 ) = 0;
};
SOURCE(4312, 16)
(void) ForkDestroy←P600(dyn←v6208);
SOURCE(4330, 10)
dyn←v6208 = next←v10368;
};
goto lab←L100005;
lab←L100003: ;
}
static void DestroyIncludingAncestorsAndCascaded←P540(dyn←v6280)
word dyn←v6280;
{
register ptr gf←c51576 = (ptr) &globalframe;
/* DestroyIncludingAncestorsAndCascaded: */
SOURCE(4355, 180)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c51576)+16)/* LOCK←v3140 */ ));
SOURCE(4430, 105)
if ((dyn←v6280 != 0)) {
SOURCE(4448, 48)
lab←L100008: ;
if (((* (( (ptr) dyn←v6280)+6) ) != 0)) {
}
else {
goto lab←L100006;
};
SOURCE(4472, 24)
dyn←v6280 = (* (( (ptr) dyn←v6280)+6) );
goto lab←L100008;
lab←L100006: ;
SOURCE(4498, 37)
(void) InternalDestroyIncludingCascaded←P480(dyn←v6280);
};
SOURCE(4355, 180)
(void) (XR←MonitorExit((word) (( (bPt) gf←c51576)+16)/* LOCK←v3140 */ ));
return;
}
static void ForkDestroy←P600(dyn←v6352)
word dyn←v6352;
{
register ptr gf←c51608 = (ptr) &globalframe;
word shell←v10504;
/* ForkDestroy: */
SOURCE(4544, 203)
SOURCE(4597, 32)
shell←v10504 = (* (( (ptr) dyn←v6352)+4) );
SOURCE(4631, 18)
(* (( (ptr) dyn←v6352)+4) ) = 0;
SOURCE(4651, 96)
if ((0 != (word) IsDynamicPopShell←P60(shell←v10504))) {
SOURCE(4684, 63)
{
word pd56;
pd56 = (* (( (ptr) (* (( (ptr) gf←c51608)+160)/* var←c49464 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd56 ))))((* (( (ptr) dyn←v6352)+3) ), (word) (( (bPt) gf←c51608)+380)/* var←c48696 */ , shell←v10504, 0, pd56)
;
};
};
}
static void Destroy←P660(event←v17212, clientData←v17240, tq←v17268)
word event←v17212;
word clientData←v17240;
word tq←v17268;
{
register ptr gf←c51640 = (ptr) &globalframe;
word shell←v10548;
/* Destroy: */
SOURCE(4753, 133)
SOURCE(4783, 38)
shell←v10548 = XR←Narrow(clientData←v17240, (* (( (ptr) gf←c51640)+17) ));
SOURCE(4823, 63)
if ((0 != (word) IsDynamicPopShell←P60(shell←v10548))) {
SOURCE(4856, 30)
{
word pd57;
pd57 = (* (( (ptr) (* (( (ptr) gf←c51640)+163)/* var←c49752 */ ))+15) );
(void) ( *( (fPt) ((* (ptr) pd57 ))))(shell←v10548, pd57);
};
};
}
static void DoNotify←P720(nc←v6424, ev←v6452)
word nc←v6424;
word ev←v6452;
{
register ptr gf←c51672 = (ptr) &globalframe;
/* DoNotify: */
SOURCE(4892, 242)
SOURCE(4949, 185)
if (((* (( (ptr) nc←v6424)+1) ) == 0)) {
SOURCE(4983, 74)
SOURCE(4984, 73)
{
W2 var←c49784;
{
W2 var←c0123;
word var←c0122;
var←c0122 = XR←ExtensionAlloc(7);
{
word tmpAddr58;
tmpAddr58 = (word) var←c0122;
(* (ptr) tmpAddr58 ) = ( ((word) (fPt) NoName←Q5100) );
(* (( (ptr) tmpAddr58) + 1) ) = 0;
(* (( (ptr) tmpAddr58) + 2) ) = (word) (( (bPt) gf←c51672)+364)/* var←c48632 */ ;
(* (( (ptr) tmpAddr58) + 3) ) = 0;
(* (( (ptr) tmpAddr58) + 4) ) = ev←v6452;
(* (( (ptr) tmpAddr58) + 5) ) = nc←v6424;
(* (( (ptr) tmpAddr58) + 6) ) = 0;
};
(void) XR←Fork((word) &var←c0123, var←c0122);
var←c49784 = var←c0123;
};
{
word pd59;
pd59 = (* (( (ptr) (* (( (ptr) gf←c51672)+164)/* var←c49816 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd59 ))))(var←c49784, pd59);
};
};
}
else {
SOURCE(5064, 70)
{
word pd60;
pd60 = (* (( (ptr) (* (( (ptr) gf←c51672)+160)/* var←c49464 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd60 ))))((* (( (ptr) nc←v6424)+1) ), (word) (( (bPt) gf←c51672)+364)/* var←c48632 */ , nc←v6424, ev←v6452, pd60)
;
};
};
}
static void QueuedDoNotify←P780(event←v17328, clientData←v17356, tq←v17384)
word event←v17328;
word clientData←v17356;
word tq←v17384;
{
register ptr gf←c51704 = (ptr) &globalframe;
word nc←v10592;
/* QueuedDoNotify: */
SOURCE(5140, 196)
SOURCE(5201, 42)
nc←v10592 = XR←Narrow(clientData←v17356, (* (( (ptr) gf←c51704)+18) ));
SOURCE(5245, 91)
{
word pd61;
pd61 = (* (( (ptr) nc←v10592)+2) );
(void) ( *( (fPt) ((* (ptr) pd61 ))))((* (ptr) nc←v10592 ), (* (( (ptr) nc←v10592)+3) ), (* (( (ptr) nc←v10592)+4) ), event←v17328, pd61)
;
};
}
static void ActualPopUp←P840(dyn←v6524, ev←v6552, point←v6580, screen←v6608, dynamic←v6636, helpHandle←v6664)
word dyn←v6524;
word ev←v6552;
W2 point←v6580;
word screen←v6608;
word dynamic←v6636;
word helpHandle←v6664;
{
register ptr gf←c51736 = (ptr) &globalframe;
word h←v10648 = 0;
word static←v10676;
word base←v10704;
word createClosure←v10732;
word shell←v10760 = 0;
word child←v10788 = 0;
word szh←v10816 = 0;
W2 compensate←v10844;
/* ActualPopUp: */
SOURCE(5342, 3246)
SOURCE(5521, 34)
static←v10676 = (* (( (ptr) dyn←v6524)+2) );
SOURCE(5557, 30)
base←v10704 = (* (( (ptr) static←v10676)+6) );
SOURCE(5589, 57)
createClosure←v10732 = (* (( (ptr) static←v10676)+2) );
SOURCE(5713, 28)
compensate←v10844.f0 = 0;
compensate←v10844.f1 = 0;
SOURCE(5787, 58)
if ((0 != (* (( (ptr) dyn←v6524)+1) )) || (createClosure←v10732 == 0)) {
SOURCE(5839, 6)
return;
};
SOURCE(5849, 158)
{
W20 var←c0145;
(* (W9Pt) (word) &var←c0145 ) = (* (W9Pt) (( (ptr) gf←c51736)+119)/* var←c49112 */ );
(* (( (ptr) (word) &var←c0145) + 9) ) = 0;
(* (( (ptr) (word) &var←c0145) + 10) ) = (* (( (ptr) static←v10676)+9) );
(* (( (ptr) (word) &var←c0145) + 11) ) = (* (( (ptr) static←v10676)+9) );
(* (( (ptr) (word) &var←c0145) + 12) ) = 0;
(* (( (ptr) (word) &var←c0145) + 13) ) = 0;
(* (( (ptr) (word) &var←c0145) + 14) ) = 0;
(* (( (ptr) (word) &var←c0145) + 15) ) = (* (( (ptr) dyn←v6524)+3) );
(* (( (ptr) (word) &var←c0145) + 16) ) = 1;
(* (( (ptr) (word) &var←c0145) + 17) ) = 1;
(* (( (ptr) (word) &var←c0145) + 18) ) = 1;
(* (( (ptr) (word) &var←c0145) + 19) ) = (unsigned) (0 == dynamic←v6636);
{
word pd62;
pd62 = (* (( (ptr) (* (( (ptr) gf←c51736)+163)/* var←c49752 */ ))+6) );
shell←v10760 = (word) ( *( (fPt) ((* (ptr) pd62 ))))((word) (&var←c0145), pd62);
};
};
SOURCE(6009, 32)
{
word pd63;
pd63 = (* (( (ptr) (* (( (ptr) gf←c51736)+163)/* var←c49752 */ ))+24) );
szh←v10816 = (word) ( *( (fPt) ((* (ptr) pd63 ))))(shell←v10760, pd63);
};
SOURCE(6043, 41)
{
word pd64;
pd64 = (* (( (ptr) (* (( (ptr) gf←c51736)+162)/* var←c49624 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd64 ))))(shell←v10760, (* (( (ptr) gf←c51736)+8)/* myShellKey←v3196 */ ), dyn←v6524, pd64)
;
};
SOURCE(6086, 447)
if ( ( (screen←v6608 == 0) ? (ev←v6552 == 0) : 0 ) ) {
SOURCE(6119, 38)
{
word pd65;
pd65 = (* (( (ptr) (* (( (ptr) gf←c51736)+163)/* var←c49752 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd65 ))))(shell←v10760, 0, 0, pd65);
};
SOURCE(6159, 33)
screen←v6608 = (* (( (ptr) (* (( (ptr) shell←v10760)+36) ))+1) );
}
else {
SOURCE(6201, 334)
{
word c←v10912;
SOURCE(6203, 82)
if ((screen←v6608 != 0)) {
c←v10912 = (* (( (ptr) screen←v6608)+16) );
c←v10912 = c←v10912;
}
else {
c←v10912 = (* (( (ptr) ev←v6552)+2) );
c←v10912 = c←v10912;
};
SOURCE(6288, 191)
if (((screen←v6608 == 0) || ( (int)point←v6580.f0 < (int)0)) || ( (int)point←v6580.f1 < (int)0)) {
SOURCE(6333, 148)
{
W2 p←v10956;
SOURCE(6348, 34)
{
W3 var←c49880;
(void) PositionAndScreen←P120((word) &var←c49880, c←v10912);
screen←v6608 = var←c49880.f2;
p←v10956 = (* (W2Pt) &var←c49880 );
};
SOURCE(6415, 31)
if (( (int)point←v6580.f0 < (int)0)) {
SOURCE(6433, 13)
point←v6580.f0 = p←v10956.f0;
};
SOURCE(6448, 31)
if (( (int)point←v6580.f1 < (int)0)) {
SOURCE(6466, 13)
point←v6580.f1 = p←v10956.f1;
};
};
};
SOURCE(6484, 49)
{
word pd66;
pd66 = (* (( (ptr) (* (( (ptr) gf←c51736)+163)/* var←c49752 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd66 ))))(shell←v10760, c←v10912, (* (ptr) screen←v6608 ), pd66);
};
};
};
SOURCE(6538, 98)
if ( ( ( (int)point←v6580.f0 >= (int)0) ? ( (int)point←v6580.f1 >= (int)0) : 0 ) ) {
SOURCE(6574, 62)
(* (( (ptr) szh←v10816)+9) ) = 1;
(* (( (ptr) szh←v10816)+7) ) = 1;
};
SOURCE(6641, 20)
(* (( (ptr) dyn←v6524)+4) ) = shell←v10760;
SOURCE(6663, 94)
if ((base←v10704 != 0)) {
SOURCE(6682, 34)
{
word pd67;
pd67 = (* (( (ptr) (* (( (ptr) gf←c51736)+165)/* var←c49912 */ ))+4) );
h←v10648 = (word) ( *( (fPt) ((* (ptr) pd67 ))))(base←v10704, pd67);
};
SOURCE(6718, 39)
{
word pd68;
pd68 = (* (( (ptr) (* (( (ptr) gf←c51736)+162)/* var←c49624 */ ))+33) );
(* (( (ptr) szh←v10816)+41) ) = (word) ( *( (fPt) ((* (ptr) pd68 ))))(base←v10704, pd68);
};
};
SOURCE(6762, 80)
{
word var←c49944;
var←c49944 = helpHandle←v6664;
if ((var←c49944 == 0)) {
goto lab←L100009;
};
if (((* (( (ptr) gf←c51736)+19) ) == XR←GetReferentType(var←c49944))) {
{
word handle←v11000;
handle←v11000 = var←c49944;
SOURCE(6820, 22)
h←v10648 = handle←v11000;
};
}
else {
lab←L100009: ;
};
};
SOURCE(6846, 775)
if ((0 != dynamic←v6636)) {
SOURCE(6863, 726)
{
word parent←v11044;
SOURCE(6865, 35)
parent←v11044 = (* (( (ptr) dyn←v6524)+6) );
SOURCE(6902, 339)
if ((parent←v11044 == 0) || (0 == (word) IsDynamicPopShell←P60((* ((( (ptr) parent←v11044)+4)) )))) {
SOURCE(6961, 200)
{
word m←v11100;
SOURCE(6963, 116)
m←v11100 = XR←NewObject(16, (* (( (ptr) gf←c51736)+20) ));
(* (ptr) m←v11100 ) = (word) (( (bPt) gf←c51736)+268)/* var←c48248 */ ;
(* (( (ptr) m←v11100)+1) ) = (* (( (ptr) gf←c51736)+11)/* buttonReleaseFilter←v3280 */ );
(* (( (ptr) m←v11100)+2) ) = (* (( (ptr) dyn←v6524)+3) );
(* (( (ptr) m←v11100)+3) ) = dyn←v6524;
SOURCE(7081, 24)
(* (( (ptr) dyn←v6524)+8) ) = m←v11100;
SOURCE(7107, 52)
{
word pd69;
pd69 = (* (( (ptr) (* (( (ptr) gf←c51736)+161)/* var←c49528 */ ))+15) );
(void) ( *( (fPt) ((* (ptr) pd69 ))))((* (( (ptr) screen←v6608)+16) ), m←v11100, pd69);
};
};
}
else {
SOURCE(7170, 71)
if ((h←v10648 == 0)) {
SOURCE(7184, 57)
{
word pd70;
pd70 = (* (( (ptr) (* (( (ptr) gf←c51736)+166)/* var←c50008 */ ))+4) );
h←v10648 = (word) ( *( (fPt) ((* (ptr) pd70 ))))((* ((( (ptr) parent←v11044)+4)) ), pd70);
};
};
};
SOURCE(7246, 48)
{
word pd71;
pd71 = (* (( (ptr) (* (( (ptr) gf←c51736)+162)/* var←c49624 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd71 ))))(shell←v10760, 3, 1, pd71);
};
SOURCE(7296, 179)
{
W4 var←c50040;
var←c50040.f0 = (word) (( (bPt) gf←c51736)+276)/* var←c48280 */ ;
var←c50040.f1 = (* (( (ptr) gf←c51736)+12)/* filter←v3308 */ );
var←c50040.f2 = (* (( (ptr) dyn←v6524)+3) );
var←c50040.f3 = dyn←v6524;
{
word pd72;
pd72 = (* (( (ptr) (* (( (ptr) gf←c51736)+162)/* var←c49624 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd72 ))))(shell←v10760, var←c50040, 60, pd72);
};
};
SOURCE(7477, 40)
(* (( (ptr) shell←v10760)+24) ) = 1;
SOURCE(7519, 33)
(* (( (ptr) shell←v10760)+25) ) = 1;
SOURCE(7554, 32)
(* (( (ptr) shell←v10760)+9) ) = 3;
};
}
else {
SOURCE(7598, 23)
compensate←v10844.f0 = (word) -1;
compensate←v10844.f1 = (word) -10;
};
SOURCE(7624, 61)
if ((h←v10648 == 0)) {
SOURCE(7638, 47)
{
word pd73;
pd73 = (* (( (ptr) (* (( (ptr) gf←c51736)+166)/* var←c50008 */ ))+4) );
h←v10648 = (word) ( *( (fPt) ((* (ptr) pd73 ))))(shell←v10760, pd73);
};
};
SOURCE(7688, 34)
{
word pd74;
pd74 = (* (( (ptr) (* (( (ptr) gf←c51736)+165)/* var←c49912 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd74 ))))(shell←v10760, h←v10648, pd74);
};
SOURCE(7724, 71)
{
word pd75;
pd75 = (* (( (ptr) (* (( (ptr) gf←c51736)+162)/* var←c49624 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd75 ))))(shell←v10760, (* (ptr) (* (( (ptr) (* (( (ptr) gf←c51736)+162)/* var←c49624 */ ))+24)
) ), (word) (( (bPt) gf←c51736)+436)/* var←c48920 */ , dyn←v6524, pd75);
};
SOURCE(7797, 148)
{
word pd76;
pd76 = (* (ptr) createClosure←v10732 );
child←v10788 = (word) ( *( (fPt) ((* (ptr) pd76 ))))(shell←v10760, (* (( (ptr) createClosure←v10732)+1) ), (* (( (ptr) static←v10676)+3)
), (* (( (ptr) dyn←v6524)+7) ), ev←v6552, pd76);
};
SOURCE(7947, 38)
{
word pd77;
pd77 = (* (( (ptr) (* (( (ptr) gf←c51736)+163)/* var←c49752 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd77 ))))(shell←v10760, child←v10788, pd77);
};
SOURCE(7987, 492)
{
W5 preferred←v11144;
SOURCE(7993, 58)
{
word pd78;
pd78 = (* (( (ptr) (* (( (ptr) gf←c51736)+167)/* var←c50072 */ ))+10) );
(void) ( *( (fPt) ((* (ptr) pd78 ))))((word) &preferred←v11144, shell←v10760, 0, (* (W5Pt) (( (ptr) gf←c51736)+128)/* var←c49176 */ ), 0, pd78)
;
};
SOURCE(8073, 64)
(* (( (ptr) szh←v10816)+10) ) = 1;
(* (( (ptr) szh←v10816)+8) ) = 1;
SOURCE(8139, 99)
{
word x79;
word x80;
word x81;
point←v6580.f0 = (x81 = (x79 = point←v6580.f0,
x80 = (((* (( (ptr) screen←v6608)+5) ) - preferred←v11144.f2) - compensate←v10844.f0),
MIN((int)(word), x79, x80)),
MAX((int)(word), x81, 0));
};
SOURCE(8240, 102)
{
word x82;
word x83;
word x84;
point←v6580.f1 = (x84 = (x82 = point←v6580.f1,
x83 = (((* (( (ptr) screen←v6608)+6) ) - preferred←v11144.f3) - compensate←v10844.f1),
MIN((int)(word), x82, x83)),
MAX((int)(word), x84, 0));
};
SOURCE(8344, 28)
(* (W2Pt) (( (ptr) shell←v10760)+5) ) = point←v6580;
SOURCE(8375, 37)
(* (W2Pt) (( (ptr) szh←v10816)+12) ) = point←v6580;
SOURCE(8414, 31)
(* (ptr) szh←v10816 ) = 1;
SOURCE(8447, 30)
(* (( (ptr) szh←v10816)+4) ) = 1;
};
SOURCE(8484, 37)
if ((0 != (* (( (ptr) dyn←v6524)+1) ))) {
SOURCE(8515, 6)
return;
};
SOURCE(8523, 30)
{
word pd85;
pd85 = (* (( (ptr) (* (( (ptr) gf←c51736)+163)/* var←c49752 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd85 ))))(shell←v10760, (* (W5Pt) (( (ptr) gf←c51736)+133)/* var←c49240 */ ), 0, 1, pd85);
};
SOURCE(8555, 33)
{
word pd86;
pd86 = (* (( (ptr) (* (( (ptr) gf←c51736)+168)/* var←c50104 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd86 ))))(h←v10648, shell←v10760, pd86);
};
}
static void PopUp←P900(pseudoBase←v6748, event←v6776, parentCarrier←v6804, image←v6832, pos←v6860)
word pseudoBase←v6748;
word event←v6776;
word parentCarrier←v6804;
word image←v6832;
W2 pos←v6860;
{
register ptr gf←c51768 = (ptr) &globalframe;
word time←v11188 = 0;
word rootWindow←v11216 = 0;
word screen←v11244 = 0;
/* PopUp: */
SOURCE(8594, 1150)
SOURCE(8838, 212)
{
word var←c50136;
var←c50136 = event←v6776;
if ((var←c50136 == 0)) {
goto lab←L100010;
};
{
word var←c50168;
var←c50168 = (* (( (ptr) var←c50136)+4) );
if ((var←c50168 == 4)) {
{
word bp←v11288;
bp←v11288 = var←c50136;
SOURCE(8890, 19)
time←v11188 = (* (( (ptr) bp←v11288)+7) );
SOURCE(8911, 42)
if ((0 != (* (( (ptr) bp←v11288)+16) ))) {
SOURCE(8933, 20)
rootWindow←v11216 = (* (( (ptr) bp←v11288)+8) );
};
};
}
else {
if ((var←c50168 == 7)) {
{
word en←v11332;
en←v11332 = var←c50136;
SOURCE(8987, 19)
time←v11188 = (* (( (ptr) en←v11332)+7) );
SOURCE(9008, 42)
if ((0 != (* (( (ptr) en←v11332)+17) ))) {
SOURCE(9030, 20)
rootWindow←v11216 = (* (( (ptr) en←v11332)+8) );
};
};
}
else {
lab←L100010: ;
SOURCE(9066, 5)
(void) XR←RaiseUnnamedError();
};
};
};
};
SOURCE(9073, 671)
{
word pd87;
pd87 = (* (( (ptr) (* (( (ptr) gf←c51768)+160)/* var←c49464 */ ))+119) );
if (((word) ( *( (fPt) ((* (ptr) pd87 ))))((* (( (ptr) event←v6776)+2) ), time←v11188, pseudoBase←v6748, pd87) == 3)) {
SOURCE(9149, 600)
{
word static←v11376;
word dyn←v11404 = 0;
word parent←v11432 = 0;
SOURCE(9151, 42)
static←v11376 = XR←Narrow(pseudoBase←v6748, (* (( (ptr) gf←c51768)+16) ));
SOURCE(9246, 248)
{
word var←c50200;
word var←c50232;
var←c50200 = parentCarrier←v6804;
if ((var←c50200 == 0)) {
goto lab←L100011;
};
var←c50232 = XR←GetReferentType(var←c50200);
if (((* (( (ptr) gf←c51768)+16) ) == var←c50232)) {
{
word static←v11512;
static←v11512 = var←c50200;
SOURCE(9302, 30)
parent←v11432 = (* (ptr) static←v11512 );
};
goto endif088;
};
if (((* (( (ptr) gf←c51768)+17) ) == var←c50232)) {
{
word w←v11568;
w←v11568 = var←c50200;
SOURCE(9351, 105)
{
word root←v11612;
SOURCE(9353, 36)
{
word pd89;
pd89 = (* (( (ptr) (* (( (ptr) gf←c51768)+162)/* var←c49624 */ ))+33) );
root←v11612 = (word) ( *( (fPt) ((* (ptr) pd89 ))))(w←v11568, pd89);
};
SOURCE(9391, 63)
if ((0 != (word) IsDynamicPopShell←P60(root←v11612))) {
SOURCE(9423, 31)
parent←v11432 = (word) DynamicFromShell←P960(root←v11612);
};
};
};
goto endif088;
};
if (((* (( (ptr) gf←c51768)+15) ) == var←c50232)) {
{
word dyn←v11656;
dyn←v11656 = var←c50200;
SOURCE(9482, 12)
parent←v11432 = dyn←v11656;
};
goto endif088;
};
lab←L100011: ;
goto endif088;
endif088: ;
};
SOURCE(9511, 41)
dyn←v11404 = (word) BuildDynamic←P360(static←v11376, parent←v11432, image←v6832);
SOURCE(9554, 190)
if ((dyn←v11404 != 0)) {
SOURCE(9572, 95)
if ((rootWindow←v11216 != 0)) {
SOURCE(9605, 62)
{
word pd90;
pd90 = (* (( (ptr) (* (( (ptr) gf←c51768)+160)/* var←c49464 */ ))+89) );
screen←v11244 = (word) ( *( (fPt) ((* (ptr) pd90 ))))((* (( (ptr) event←v6776)+2) ), rootWindow←v11216, pd90);
};
};
SOURCE(9669, 75)
(void) ActualPopUp←P840(dyn←v11404, event←v6776, pos←v6860, screen←v11244, 1, 0);
};
};
};
};
}
static word DynamicFromShell←P960(root←v6932)
word root←v6932;
{
register ptr gf←c51800 = (ptr) &globalframe;
word var←c6976;
/* DynamicFromShell: */
SOURCE(9756, 164)
SOURCE(9756, 164)
var←c6976 = 0;
SOURCE(9833, 87)
{
word var←c50264;
{
word pd91;
pd91 = (* (( (ptr) (* (( (ptr) gf←c51800)+162)/* var←c49624 */ ))+10) );
var←c50264 = (word) ( *( (fPt) ((* (ptr) pd91 ))))(root←v6932, (* (( (ptr) gf←c51800)+8)/* myShellKey←v3196 */ ), pd91)
;
};
if ((var←c50264 == 0)) {
goto lab←L100012;
};
if (((* (( (ptr) gf←c51800)+15) ) == XR←GetReferentType(var←c50264))) {
{
word dyn←v11712;
dyn←v11712 = var←c50264;
SOURCE(9909, 11)
return(dyn←v11712);
};
}
else {
lab←L100012: ;
};
};
SOURCE(9756, 164)
return(var←c6976);
}
static void SimplePopUpWithRegularShell←P1020(list←v7048, defaultNotify←v7076, notifyTQ←v7104, screen←v7132, pos←v7160, registerData←v7188, event←v7216, header←v7244, helpHandle←v7272)
word list←v7048;
word defaultNotify←v7076;
word notifyTQ←v7104;
word screen←v7132;
W2 pos←v7160;
word registerData←v7188;
word event←v7216;
word header←v7244;
word helpHandle←v7272;
{
word createMenu←v11768;
/* SimplePopUpWithRegularShell: */
SOURCE(9941, 465)
SOURCE(10213, 98)
createMenu←v11768 = (word) WidgetCreateClosureFromChoiceList←P2340(list←v7048, defaultNotify←v7076, notifyTQ←v7104);
SOURCE(10313, 93)
(void) PopUpWithRegularShell←P1080(createMenu←v11768, screen←v7132, pos←v7160, registerData←v7188, 0, event←v7216
, header←v7244, helpHandle←v7272);
}
static void PopUpWithRegularShell←P1080(createMenu←v7356, screen←v7384, pos←v7412, registerData←v7440, image←v7468, event←v7496, header←v7524, helpHandle←v7552)
word createMenu←v7356;
word screen←v7384;
W2 pos←v7412;
word registerData←v7440;
word image←v7468;
word event←v7496;
word header←v7524;
word helpHandle←v7552;
{
word dyn←v11812 = 0;
word static←v11840;
/* PopUpWithRegularShell: */
SOURCE(10409, 568)
SOURCE(10662, 38)
static←v11840 = (word) NewPopStatic←P1560(0);
SOURCE(10702, 20)
(* (( (ptr) static←v11840)+4) ) = image←v7468;
SOURCE(10724, 34)
(* (( (ptr) static←v11840)+3) ) = registerData←v7440;
SOURCE(10760, 33)
(* (( (ptr) static←v11840)+2) ) = createMenu←v7356;
SOURCE(10795, 22)
(* (( (ptr) static←v11840)+9) ) = header←v7524;
SOURCE(10819, 38)
dyn←v11812 = (word) BuildDynamic←P360(static←v11840, 0, image←v7468);
SOURCE(10859, 118)
if ((dyn←v11812 != 0)) {
SOURCE(10877, 100)
(void) ActualPopUp←P840(dyn←v11812, event←v7496, pos←v7412, screen←v7384, 0, helpHandle←v7552);
};
}
static void TestUpnessNow←P1140(event←v17508, clientData←v17536, tq←v17564)
word event←v17508;
word clientData←v17536;
word tq←v17564;
{
register ptr gf←c51832 = (ptr) &globalframe;
word dyn←v11908;
/* TestUpnessNow: */
SOURCE(10986, 344)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c51832)+16)/* LOCK←v3140 */ ));
SOURCE(11028, 40)
dyn←v11908 = XR←Narrow(clientData←v17536, (* (( (ptr) gf←c51832)+15) ));
SOURCE(11070, 260)
lab←L100015: ;
if ( ( ( ( (dyn←v11908 != 0) ? (0 == (* (ptr) dyn←v11908 )) : 0 ) ? (0 == (* (( (ptr) (* (( (ptr) dyn←v11908)+2) ))+1)
)) : 0 ) ? ((* (( (ptr) dyn←v11908)+5) ) == 0) : 0 ) ) {
}
else {
goto lab←L100013;
};
{
word parent←v11964;
SOURCE(11163, 35)
parent←v11964 = (* (( (ptr) dyn←v11908)+6) );
SOURCE(11200, 25)
if ((parent←v11964 == 0)) {
SOURCE(11219, 6)
(void) (XR←MonitorExit((word) (( (bPt) gf←c51832)+16)/* LOCK←v3140 */ ));
return;
};
SOURCE(11227, 50)
if ((0 == (word) IsDynamicPopShell←P60((* ((( (ptr) parent←v11964)+4)) )))) {
SOURCE(11271, 6)
(void) (XR←MonitorExit((word) (( (bPt) gf←c51832)+16)/* LOCK←v3140 */ ));
return;
};
SOURCE(11279, 37)
(void) InternalDestroyIncludingCascaded←P480(dyn←v11908);
SOURCE(11318, 12)
dyn←v11908 = parent←v11964;
};
goto lab←L100015;
lab←L100013: ;
SOURCE(10986, 344)
(void) (XR←MonitorExit((word) (( (bPt) gf←c51832)+16)/* LOCK←v3140 */ ));
return;
}
static void TestUpnessVerySoon←P1200(event←v17624, clientData←v17652, tq←v17680)
word event←v17624;
word clientData←v17652;
word tq←v17680;
{
register ptr gf←c51864 = (ptr) &globalframe;
word dyn←v12020;
/* TestUpnessVerySoon: */
SOURCE(11344, 299)
SOURCE(11385, 40)
dyn←v12020 = XR←Narrow(clientData←v17652, (* (( (ptr) gf←c51864)+15) ));
SOURCE(11427, 216)
if ( ( ( ( ( ( (dyn←v12020 != 0) ? (0 == (* (( (ptr) dyn←v12020)+1) )) : 0 ) ? ((* (( (ptr) dyn←v12020)+6) ) != 0) : 0 ) ? (0 == (* (ptr) dyn←v12020 )) : 0 ) ? (0 == (* (
( (ptr) (* (( (ptr) dyn←v12020)+2) ))+1) )) : 0 ) ? ((* (( (ptr) dyn←v12020)+5) ) == 0) : 0 ) ) {
SOURCE(11566, 77)
{
word pd92;
pd92 = (* (( (ptr) (* (( (ptr) gf←c51864)+169)/* var←c50296 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd92 ))))(150, (* (( (ptr) dyn←v12020)+3) ), (word) (( (bPt) gf←c51864)+316)/* var←c48440 */ , dyn←v12020, 0, pd92)
;
};
};
}
static void TestUpnessSoon←P1260(dyn←v7648)
word dyn←v7648;
{
register ptr gf←c51896 = (ptr) &globalframe;
/* TestUpnessSoon: */
SOURCE(11647, 146)
SOURCE(11694, 99)
if ((dyn←v7648 != 0)) {
SOURCE(11711, 82)
{
word pd93;
pd93 = (* (( (ptr) (* (( (ptr) gf←c51896)+169)/* var←c50296 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd93 ))))(150, (* (( (ptr) dyn←v7648)+3) ), (word) (( (bPt) gf←c51896)+308)/* var←c48408 */ , dyn←v7648, 0, pd93)
;
};
};
}
static void SetStyle←P1320(base←v7720, style←v7748)
word base←v7720;
word style←v7748;
{
register ptr gf←c51928 = (ptr) &globalframe;
word var←c50328;
word widget←v47656;
/* SetStyle: */
SOURCE(11797, 137)
SOURCE(11848, 86)
{
word tc94;
if ((base←v7720 != 0)) {
widget←v47656 = base←v7720;
{
word pd95;
if (((* (ptr) (* (( (ptr) widget←v47656)+4) ) ) == (* (( (ptr) gf←c51928)+32) ))) {
var←c50328 = 1;
}
else {
pd95 = (* (( (ptr) (* (( (ptr) gf←c51928)+162)/* var←c49624 */ ))+43) );
var←c50328 = (word) ( *( (fPt) ((* (ptr) pd95 ))))(widget←v47656, (* (( (ptr) gf←c51928)+32) ), pd95);
};
};
tc94 = (word) (0 != var←c50328);
}
else {
tc94 = (word) 0;
};
if (tc94) {
SOURCE(11899, 35)
{
word pd96;
pd96 = (* (( (ptr) (* (( (ptr) gf←c51928)+163)/* var←c49752 */ ))+42) );
(void) ( *( (fPt) ((* (ptr) pd96 ))))(base←v7720, style←v7748, 2, pd96);
};
};
};
}
static void BaseButtonEvent←P1380(event←v17740, clientData←v17768, tq←v17796)
word event←v17740;
word clientData←v17768;
word tq←v17796;
{
register ptr gf←c51960 = (ptr) &globalframe;
word static←v12076;
word base←v12104;
/* BaseButtonEvent: */
SOURCE(11940, 1640)
SOURCE(12003, 42)
static←v12076 = XR←Narrow(clientData←v17768, (* (( (ptr) gf←c51960)+16) ));
SOURCE(12047, 30)
base←v12104 = (* (( (ptr) static←v12076)+6) );
SOURCE(12079, 1501)
{
word var←c50392;
var←c50392 = (* (( (ptr) event←v17740)+4) );
switch (var←c50392) {
case 4:
SOURCE(12119, 28)
(void) SetStyle←P1320(base←v12104, (* (( (ptr) gf←c51960)+31) ));
SOURCE(12149, 40)
{
W2 var←c50424;
var←c50424.f0 = (word) -1;
var←c50424.f1 = (word) -1;
(void) PopUp←P900(static←v12076, event←v17740, base←v12104, (* (( (ptr) static←v12076)+4) ), var←c50424);
};
break;
case 5:
SOURCE(12213, 59)
(void) DestroyIncludingAncestorsAndCascaded←P540((* (ptr) (static←v12076) ));
SOURCE(12274, 125)
if ((base←v12104 != 0)) {
SOURCE(12293, 80)
if ((0 != (* (( (ptr) static←v12076)+1) ))) {
SOURCE(12322, 26)
(* (( (ptr) static←v12076)+1) ) = 0;
SOURCE(12350, 23)
(void) SelectOnly←P2460(base←v12104, event←v17740);
};
SOURCE(12380, 19)
(void) SetStyle←P1320(base←v12104, 0);
};
break;
case 8:
SOURCE(12422, 292)
{
word lne←v12160;
SOURCE(12424, 40)
if ((event←v17740 == 0)) {
goto lab←L100017;
};
if (((* (( (ptr) event←v17740)+4) ) == 8)) {
goto lab←L100017;
};
(void) XR←RaiseError(XR←NarrowFault, 0);
lab←L100017: ;
lne←v12160 = event←v17740;
SOURCE(12466, 19)
(void) SetStyle←P1320(base←v12104, 0);
SOURCE(12487, 140)
{
word var←c50456;
var←c50456 = (* (( (ptr) lne←v12160)+5) );
switch (var←c50456) {
case 0: case 1: case 3: case 4:
SOURCE(12562, 26)
(* (( (ptr) static←v12076)+1) ) = 0;
SOURCE(12590, 37)
(void) TestUpnessSoon←P1260((* (ptr) (static←v12076) ));
break;
case 2:
break;
};
};
SOURCE(12663, 49)
{
word pd97;
pd97 = (* (( (ptr) (* (( (ptr) gf←c51960)+168)/* var←c50104 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd97 ))))((* (( (ptr) static←v12076)+8) ), (* (( (ptr) static←v12076)+7) ), 0, pd97);
};
};
break;
case 7:
SOURCE(12732, 856)
{
word ene←v12204;
word state←v12232;
SOURCE(12734, 40)
if ((event←v17740 == 0)) {
goto lab←L100018;
};
if (((* (( (ptr) event←v17740)+4) ) == 7)) {
goto lab←L100018;
};
(void) XR←RaiseError(XR←NarrowFault, 0);
lab←L100018: ;
ene←v12204 = event←v17740;
SOURCE(12776, 37)
state←v12232 = (* (( (ptr) ene←v12204)+15) );
SOURCE(12815, 765)
if ( ( (base←v12104 != 0) ? ( (((state←v12232 & 0400 || state←v12232 & 01000) || state←v12232 & 02000) || state←v12232 & 04000) ? 1 : (((unsigned)state←v12232 << 19) >> 31) ) : 0 ) ) {
SOURCE(12920, 665)
{
word root←v12276;
SOURCE(12924, 39)
{
word pd98;
pd98 = (* (( (ptr) (* (( (ptr) gf←c51960)+162)/* var←c49624 */ ))+33) );
root←v12276 = (word) ( *( (fPt) ((* (ptr) pd98 ))))(base←v12104, pd98);
};
SOURCE(12965, 26)
(* (( (ptr) static←v12076)+1) ) = 1;
SOURCE(12993, 587)
if ((0 != (word) IsDynamicPopShell←P60(root←v12276))) {
SOURCE(13025, 557)
{
word width←v12348;
W2 pos←v12376;
SOURCE(13049, 35)
width←v12348 = (* (( (ptr) base←v12104)+41) );
SOURCE(13086, 25)
pos←v12376 = (* (W2Pt) (( (ptr) ene←v12204)+11) );
SOURCE(13113, 235)
if ( ( ( (int)(* (( (ptr) ene←v12204)+13) ) >= (int)0) ? ( (int)(* (( (ptr) ene←v12204)+13) ) < (int)width←v12348) : 0 ) ) {
SOURCE(13160, 190)
/*1*/ {
/*1*/ word rightLimit←v12420;
/*1*/ word shift←v12448;
SOURCE(13162, 40)
/*1*/ rightLimit←v12420 = (MIN((int)(word), width←v12348, 32));
SOURCE(13204, 39)
/*1*/ shift←v12448 = IOP2( / , (int)(width←v12348 - (* (( (ptr) ene←v12204)+13) )), (int)4);
SOURCE(13245, 80)
/*1*/ if (( (int)(* (( (ptr) ene←v12204)+13) ) < (int)rightLimit←v12420)) {
SOURCE(13278, 47)
/*1*/ {
/*1*/ word x99;
/*1*/ shift←v12448 = (x99 = (rightLimit←v12420 - (* (( (ptr) ene←v12204)+13) )),
/*1*/ MAX((int)(word), shift←v12448, x99));
/*1*/ };
/*1*/ };
SOURCE(13327, 21)
/*1*/ pos←v12376.f0 = (pos←v12376.f0 + shift←v12448);
/*1*/ };
/*1*/ };
SOURCE(13353, 96)
if ( ( ( (int)(* (( (ptr) ene←v12204)+14) ) >= (int)0) ? ( (int)(* (( (ptr) ene←v12204)+14) ) < (int)(* (( (ptr) base←v12104)+42)
)) : 0 ) ) {
SOURCE(13420, 29)
/*1*/ pos←v12376.f1 = (pos←v12376.f1 - (* (( (ptr) ene←v12204)+14) ));
/*1*/ };
SOURCE(13452, 28)
(void) SetStyle←P1320(base←v12104, (* (( (ptr) gf←c51960)+31) ));
SOURCE(13482, 51)
{
/*1*/ word pd100;
/*1*/ pd100 = (* (( (ptr) (* (( (ptr) gf←c51960)+168)/* var←c50104 */ ))+4) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd100 ))))((* (( (ptr) static←v12076)+8) ), (* (( (ptr) static←v12076)+7) ), 0, pd100);
/*1*/ };
SOURCE(13535, 45)
(void) PopUp←P900(static←v12076, event←v17740, root←v12276, (* (( (ptr) static←v12076)+4) ), pos←v12376);
};
};
};
};
};
break;
};
};
}
static void PopShellEvent←P1440(event←v17856, clientData←v17884, tq←v17912)
word event←v17856;
word clientData←v17884;
word tq←v17912;
{
register ptr gf←c51992 = (ptr) &globalframe;
word dyn←v12492;
/* PopShellEvent: */
SOURCE(13610, 436)
SOURCE(13664, 40)
dyn←v12492 = XR←Narrow(clientData←v17884, (* (( (ptr) gf←c51992)+15) ));
SOURCE(13706, 340)
{
word var←c50488;
var←c50488 = (* (( (ptr) event←v17856)+4) );
switch (var←c50488) {
case 8:
SOURCE(13744, 200)
{
word lne←v12548;
SOURCE(13746, 40)
if ((event←v17856 == 0)) {
goto lab←L100019;
};
if (((* (( (ptr) event←v17856)+4) ) == 8)) {
goto lab←L100019;
};
(void) XR←RaiseError(XR←NarrowFault, 0);
lab←L100019: ;
lne←v12548 = event←v17856;
SOURCE(13788, 121)
{
word var←c50520;
var←c50520 = (* (( (ptr) lne←v12548)+5) );
switch (var←c50520) {
case 0: case 1: case 3: case 4:
SOURCE(13863, 25)
(* (ptr) dyn←v12492 ) = 0;
SOURCE(13890, 19)
(void) TestUpnessSoon←P1260(dyn←v12492);
break;
case 2:
break;
};
};
};
break;
case 7:
SOURCE(13962, 24)
(* (ptr) dyn←v12492 ) = 1;
break;
case 5:
SOURCE(14005, 41)
(void) DestroyIncludingAncestorsAndCascaded←P540(dyn←v12492);
break;
};
};
}
static void PriviledgedUpEvent←P1500(event←v17972, clientData←v18000, tq←v18028)
word event←v17972;
word clientData←v18000;
word tq←v18028;
{
register ptr gf←c52024 = (ptr) &globalframe;
word dyn←v12592;
/* PriviledgedUpEvent: */
SOURCE(14067, 235)
SOURCE(14130, 40)
dyn←v12592 = XR←Narrow(clientData←v18000, (* (( (ptr) gf←c52024)+15) ));
SOURCE(14172, 130)
{
word var←c50552;
var←c50552 = (* (( (ptr) event←v17972)+4) );
if ((var←c50552 == 5)) {
SOURCE(14214, 45)
(void) RemovePriviledgedMatch←P180((* (( (ptr) event←v17972)+2) ), dyn←v12592);
SOURCE(14261, 41)
(void) DestroyIncludingAncestorsAndCascaded←P540(dyn←v12592);
};
};
}
static word NewPopStatic←P1560(internalTQ←v7808)
word internalTQ←v7808;
{
register ptr gf←c52056 = (ptr) &globalframe;
word var←c7852;
word static←v12648;
/* NewPopStatic: */
SOURCE(14326, 238)
SOURCE(14399, 38)
static←v12648 = XR←NewObject(40, (* (( (ptr) gf←c52056)+16) ));
SOURCE(14439, 76)
if ((internalTQ←v7808 == 0)) {
SOURCE(14462, 53)
{
word pd101;
pd101 = (* (( (ptr) (* (( (ptr) gf←c52056)+160)/* var←c49464 */ ))+63) );
internalTQ←v7808 = (word) ( *( (fPt) ((* (ptr) pd101 ))))(0, 5, 0, pd101);
};
};
SOURCE(14517, 30)
(* (( (ptr) static←v12648)+5) ) = internalTQ←v7808;
SOURCE(14549, 15)
return(static←v12648);
}
static word CreatePseudoBase←P1620(registerData←v7924)
word registerData←v7924;
{
word pseudoBase←v7980;
word static←v12704;
/* CreatePseudoBase: */
SOURCE(14570, 184)
SOURCE(14570, 184)
pseudoBase←v7980 = 0;
SOURCE(14663, 38)
static←v12704 = (word) NewPopStatic←P1560(0);
SOURCE(14703, 34)
(* (( (ptr) static←v12704)+3) ) = registerData←v7924;
SOURCE(14739, 15)
return(static←v12704);
}
static word AssertBase←P1680(base←v8040)
word base←v8040;
{
register ptr gf←c52088 = (ptr) &globalframe;
word var←c8084;
/* AssertBase: */
SOURCE(14760, 594)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c52088)+16)/* LOCK←v3140 */ ));
SOURCE(14760, 594)
var←c8084 = 0;
SOURCE(14834, 520)
if ((base←v8040 != 0)) {
SOURCE(14852, 502)
{
word var←c50616;
{
word pd102;
pd102 = (* (( (ptr) (* (( (ptr) gf←c52088)+162)/* var←c49624 */ ))+10) );
var←c50616 = (word) ( *( (fPt) ((* (ptr) pd102 ))))(base←v8040, (* (( (ptr) gf←c52088)+9)/* myBaseKey←v3224 */ ), pd102)
;
};
if ((var←c50616 == 0)) {
goto lab←L100020;
};
if (((* (( (ptr) gf←c52088)+16) ) == XR←GetReferentType(var←c50616))) {
{
word static←v12760;
static←v12760 = var←c50616;
SOURCE(14929, 15)
(void) (XR←MonitorExit((word) (( (bPt) gf←c52088)+16)/* LOCK←v3140 */ ));
return(static←v12760);
};
}
else {
lab←L100020: ;
SOURCE(14957, 399)
{
word static←v12816;
SOURCE(14959, 38)
static←v12816 = (word) NewPopStatic←P1560(0);
SOURCE(14999, 209)
{
W4 var←c50648;
var←c50648.f0 = (word) (( (bPt) gf←c52088)+284)/* var←c48312 */ ;
var←c50648.f1 = (* (( (ptr) gf←c52088)+12)/* filter←v3308 */ );
var←c50648.f2 = (* (( (ptr) static←v12816)+5) );
var←c50648.f3 = static←v12816;
{
word pd103;
pd103 = (* (( (ptr) (* (( (ptr) gf←c52088)+162)/* var←c49624 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd103 ))))(base←v8040, var←c50648, 16777276, pd103);
};
};
SOURCE(15210, 18)
(* (( (ptr) static←v12816)+6) ) = base←v8040;
SOURCE(15230, 42)
{
word pd104;
pd104 = (* (( (ptr) (* (( (ptr) gf←c52088)+162)/* var←c49624 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd104 ))))(base←v8040, (* (( (ptr) gf←c52088)+9)/* myBaseKey←v3224 */ ), static←v12816, pd104)
;
};
SOURCE(15274, 63)
{
word pd105;
pd105 = (* (( (ptr) (* (( (ptr) gf←c52088)+170)/* var←c50680 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd105 ))))(base←v8040, (word) (( (bPt) gf←c52088)+236)/* var←c48120 */ , static←v12816, pd105)
;
};
SOURCE(15339, 15)
(void) (XR←MonitorExit((word) (( (bPt) gf←c52088)+16)/* LOCK←v3140 */ ));
return(static←v12816);
};
};
};
};
SOURCE(14760, 594)
(void) (XR←MonitorExit((word) (( (bPt) gf←c52088)+16)/* LOCK←v3140 */ ));
return(var←c8084);
}
static void PostRealized←P1740(widget←v18088, registerData←v18116, callData←v18144, event←v18172)
word widget←v18088;
word registerData←v18116;
word callData←v18144;
word event←v18172;
{
register ptr gf←c52120 = (ptr) &globalframe;
word static←v12872;
/* PostRealized: */
SOURCE(15363, 137)
SOURCE(15402, 44)
static←v12872 = XR←Narrow(registerData←v18116, (* (( (ptr) gf←c52120)+16) ));
SOURCE(15448, 52)
{
word pd106;
pd106 = (* (( (ptr) (* (( (ptr) gf←c52120)+165)/* var←c49912 */ ))+4) );
(* (( (ptr) static←v12872)+8) ) = (word) ( *( (fPt) ((* (ptr) pd106 ))))(widget←v18088, pd106);
};
}
static void MakeItBase←P1800(base←v8156, registerData←v8184, createMenu←v8212, image←v8240, help←v8268)
word base←v8156;
word registerData←v8184;
word createMenu←v8212;
word image←v8240;
word help←v8268;
{
word static←v12928;
/* MakeItBase: */
SOURCE(15506, 309)
SOURCE(15658, 40)
static←v12928 = (word) AssertBase←P1680(base←v8156);
SOURCE(15700, 34)
(* (( (ptr) static←v12928)+3) ) = registerData←v8184;
SOURCE(15736, 33)
(* (( (ptr) static←v12928)+2) ) = createMenu←v8212;
SOURCE(15773, 20)
(* (( (ptr) static←v12928)+4) ) = image←v8240;
SOURCE(15797, 18)
(* (( (ptr) static←v12928)+7) ) = help←v8268;
}
static word CreateSimplePopUpButton←P1860(text←v8352, list←v8380, defaultNotify←v8408, notifyTQ←v8436, registerData←v8464, help←v8492)
word text←v8352;
word list←v8380;
word defaultNotify←v8408;
word notifyTQ←v8436;
word registerData←v8464;
word help←v8492;
{
word button←v8548;
word createMenu←v12984;
/* CreateSimplePopUpButton: */
SOURCE(15823, 390)
SOURCE(15823, 390)
button←v8548 = 0;
SOURCE(16044, 98)
createMenu←v12984 = (word) WidgetCreateClosureFromChoiceList←P2340(list←v8380, defaultNotify←v8408, notifyTQ←v8436);
SOURCE(16144, 69)
button←v8548 = (word) CreatePopUpButton←P1920(text←v8352, createMenu←v12984, registerData←v8464, 0, help←v8492);
SOURCE(15823, 390)
return(button←v8548);
}
static word CreatePopUpButton←P1920(text←v8608, createMenu←v8636, registerData←v8664, image←v8692, help←v8720)
word text←v8608;
word createMenu←v8636;
word registerData←v8664;
word image←v8692;
word help←v8720;
{
register ptr gf←c52152 = (ptr) &globalframe;
word button←v8788;
/* CreatePopUpButton: */
SOURCE(16219, 283)
SOURCE(16219, 283)
button←v8788 = 0;
SOURCE(16406, 43)
{
word pd107;
pd107 = (* (( (ptr) (* (( (ptr) gf←c52152)+163)/* var←c49752 */ ))+35) );
button←v8788 = (word) ( *( (fPt) ((* (ptr) pd107 ))))((* (W9Pt) (( (ptr) gf←c52152)+138)/* var←c49304 */ ), text←v8608, (* (W4Pt) (
( (ptr) gf←c52152)+147)/* var←c49368 */ ), pd107);
};
SOURCE(16451, 51)
(void) MakeItBase←P1800(button←v8788, registerData←v8664, createMenu←v8636, image←v8692, 0);
SOURCE(16219, 283)
return(button←v8788);
}
static word GetPopStatic←P1980(carrier←v8848)
word carrier←v8848;
{
register ptr gf←c52184 = (ptr) &globalframe;
word var←c8892;
/* GetPopStatic: */
SOURCE(16508, 250)
SOURCE(16508, 250)
var←c8892 = 0;
SOURCE(16583, 175)
{
word var←c50712;
word var←c50744;
var←c50712 = carrier←v8848;
if ((var←c50712 == 0)) {
goto lab←L100021;
};
var←c50744 = XR←GetReferentType(var←c50712);
if (((* (( (ptr) gf←c52184)+16) ) == var←c50744)) {
{
word static←v13028;
static←v13028 = var←c50712;
SOURCE(16633, 15)
return(static←v13028);
};
}
else {
if (((* (( (ptr) gf←c52184)+17) ) == var←c50744)) {
{
word w←v13084;
w←v13084 = var←c50712;
SOURCE(16669, 89)
{
word var←c50776;
{
word pd108;
pd108 = (* (( (ptr) (* (( (ptr) gf←c52184)+162)/* var←c49624 */ ))+10) );
var←c50776 = (word) ( *( (fPt) ((* (ptr) pd108 ))))(w←v13084, (* (( (ptr) gf←c52184)+9)/* myBaseKey←v3224 */ ), pd108);
};
if ((var←c50776 == 0)) {
goto lab←L100022;
};
if (((* (( (ptr) gf←c52184)+16) ) == XR←GetReferentType(var←c50776))) {
{
word static←v13128;
static←v13128 = var←c50776;
SOURCE(16743, 15)
return(static←v13128);
};
}
else {
lab←L100022: ;
};
};
};
}
else {
lab←L100021: ;
};
};
};
SOURCE(16508, 250)
return(var←c8892);
}
static void SetMenuCreator←P2040(carrier←v8964, createMenu←v8992)
word carrier←v8964;
word createMenu←v8992;
{
word static←v13184;
/* SetMenuCreator: */
SOURCE(16797, 167)
SOURCE(16884, 45)
static←v13184 = (word) GetPopStatic←P1980(carrier←v8964);
SOURCE(16931, 33)
(* (( (ptr) static←v13184)+2) ) = createMenu←v8992;
}
static void SetHelp←P2100(carrier←v9052, help←v9080)
word carrier←v9052;
word help←v9080;
{
word static←v13240;
/* SetHelp: */
SOURCE(16999, 129)
SOURCE(17063, 45)
static←v13240 = (word) GetPopStatic←P1980(carrier←v9052);
SOURCE(17110, 18)
(* (( (ptr) static←v13240)+7) ) = help←v9080;
}
static void RegisterBaseSelection←P2160(base←v9140, notify←v9168, registerData←v9196, callData←v9224, notifyTQ←v9252)
word base←v9140;
word notify←v9168;
word registerData←v9196;
word callData←v9224;
word notifyTQ←v9252;
{
register ptr gf←c52216 = (ptr) &globalframe;
word notifyClosure←v13296 = 0;
/* RegisterBaseSelection: */
SOURCE(17163, 391)
SOURCE(17350, 151)
if ((notify←v9168 != 0)) {
SOURCE(17369, 132)
{
word var←c50808;
var←c50808 = XR←NewObject(20, (* (( (ptr) gf←c52216)+18) ));
(* (ptr) var←c50808 ) = base←v9140;
(* (( (ptr) var←c50808)+1) ) = notifyTQ←v9252;
(* (( (ptr) var←c50808)+2) ) = XR←CheckProc(notify←v9168);
(* (( (ptr) var←c50808)+3) ) = registerData←v9196;
(* (( (ptr) var←c50808)+4) ) = callData←v9224;
notifyClosure←v13296 = var←c50808;
};
};
SOURCE(17503, 51)
{
word pd109;
pd109 = (* (( (ptr) (* (( (ptr) gf←c52216)+162)/* var←c49624 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd109 ))))(base←v9140, (* (( (ptr) gf←c52216)+10)/* myChoiceKey←v3252 */ ), notifyClosure←v13296, pd109)
;
};
}
static word ToRope←P2220(x←v9324, default←v9352)
word x←v9324;
word default←v9352;
{
register ptr gf←c52248 = (ptr) &globalframe;
word var←c9408;
/* ToRope: */
SOURCE(17560, 234)
SOURCE(17636, 158)
{
word var←c50840;
word var←c50872;
var←c50840 = x←v9324;
if ((var←c50840 == 0)) {
goto lab←L100023;
};
var←c50872 = XR←GetReferentType(var←c50840);
{
word tc111;
if (((* (( (ptr) gf←c52248)+26) ) == var←c50872)) {
tc111 = (word) ( (unsigned) (*(int*)var←c50840<0) == 0);
}
else {
tc111 = (word) 0;
};
if (tc111) {
{
word r←v13352;
r←v13352 = var←c50840;
SOURCE(17671, 10)
return(r←v13352);
};
};
if (((* (( (ptr) gf←c52248)+27) ) == var←c50872)) {
{
word r←v13396;
r←v13396 = var←c50840;
SOURCE(17698, 28)
{
word pd112;
pd112 = (* (( (ptr) (* (( (ptr) gf←c52248)+171)/* var←c50936 */ ))+35) );
return((word) ( *( (fPt) ((* (ptr) pd112 ))))(r←v13396, 0, 32767, pd112));
};
};
};
if (((* (( (ptr) gf←c52248)+23) ) == var←c50872)) {
{
word a←v13452;
a←v13452 = var←c50840;
SOURCE(17739, 25)
{
word pd113;
pd113 = (* (( (ptr) (* (( (ptr) gf←c52248)+172)/* var←c51000 */ ))+9) );
return((word) ( *( (fPt) ((* (ptr) pd113 ))))(a←v13452, pd113));
};
};
};
lab←L100023: ;
SOURCE(17777, 17)
return(default←v9352);
};
};
}
static word ChoiceListCreateContents←P2280(parent←v18232, closureData←v18260, registerData←v18288, image←v18316, event←v18344)
word parent←v18232;
word closureData←v18260;
word registerData←v18288;
word image←v18316;
word event←v18344;
{
register ptr gf←c52280 = (ptr) &globalframe;
word var←c18388;
word container←v13496;
/* ChoiceListCreateContents: */
SOURCE(17927, 1830)
SOURCE(17974, 56)
{
word pd114;
pd114 = (* (( (ptr) (* (( (ptr) gf←c52280)+163)/* var←c49752 */ ))+28) );
container←v13496 = (word) ( *( (fPt) ((* (ptr) pd114 ))))((* (W9Pt) (( (ptr) gf←c52280)+151)/* var←c49432 */ ), 0, (word) -1, pd114)
;
};
SOURCE(18032, 1675)
{
word var←c51032;
var←c51032 = closureData←v18260;
if ((var←c51032 == 0)) {
goto lab←L100024;
};
if (((* (( (ptr) gf←c52280)+22) ) == XR←GetReferentType(var←c51032))) {
{
word cld←v13540;
cld←v13540 = var←c51032;
SOURCE(18090, 1617)
{
register word cl←v13596;
cl←v13596 = (* (( (ptr) cld←v13540)+1) );
lab←L100028: ;
if ((cl←v13596 != 0)) {
}
else {
goto lab←L100025;
};
{
word child←v13640 = 0;
word notify←v13668;
word impl←v13696;
word key←v13724;
word text←v13752;
SOURCE(18175, 46)
notify←v13668 = (* (( (ptr) cl←v13596)+4) );
SOURCE(18223, 25)
impl←v13696 = (* (( (ptr) cl←v13596)+2) );
SOURCE(18250, 23)
key←v13724 = (* (( (ptr) cl←v13596)+1) );
SOURCE(18275, 45)
text←v13752 = (word) ToRope←P2220((* (ptr) cl←v13596 ), 0);
SOURCE(18322, 45)
if ((notify←v13668 == 0)) {
SOURCE(18341, 26)
notify←v13668 = XR←CheckProc(* (ptr) cld←v13540 );
};
SOURCE(18369, 1259)
if ((impl←v13696 == 0)) {
SOURCE(18386, 221)
{
word help←v13820;
SOURCE(18388, 44)
help←v13820 = (word) ToRope←P2220((* (( (ptr) cl←v13596)+3) ), 0);
SOURCE(18434, 36)
if ((key←v13724 == 0)) {
SOURCE(18450, 20)
key←v13724 = (* (ptr) cl←v13596 );
};
SOURCE(18472, 133)
{
W19 var←c0326;
(* (W9Pt) (word) &var←c0326 ) = (* (W9Pt) (( (ptr) gf←c52280)+151)/* var←c49432 */ );
(* (( (ptr) (word) &var←c0326) + 9) ) = text←v13752;
(* (W4Pt) (( (ptr) (word) &var←c0326) + 10) ) = (* (W4Pt) (( (ptr) gf←c52280)+147)/* var←c49368 */ );
(* (( (ptr) (word) &var←c0326) + 14) ) = notify←v13668;
(* (( (ptr) (word) &var←c0326) + 15) ) = registerData←v18288;
(* (( (ptr) (word) &var←c0326) + 16) ) = key←v13724;
(* (( (ptr) (word) &var←c0326) + 17) ) = (* (( (ptr) cld←v13540)+2) );
(* (( (ptr) (word) &var←c0326) + 18) ) = help←v13820;
{
/*1*/ word pd115;
/*1*/ pd115 = (* (( (ptr) (* (( (ptr) gf←c52280)+163)/* var←c49752 */ ))+36) );
/*1*/ child←v13640 = (word) ( *( (fPt) ((* (ptr) pd115 ))))((word) (&var←c0326), pd115);
/*1*/ };
};
};
}
else {
SOURCE(18614, 1014)
{
word var←c51064;
word var←c51096;
var←c51064 = impl←v13696;
if ((var←c51064 == 0)) {
goto lab←L100029;
};
var←c51096 = XR←GetReferentType(var←c51064);
if (((* (( (ptr) gf←c52280)+29) ) == var←c51096)) {
{
/*1*/ word cl2←v13864;
/*1*/ cl2←v13864 = var←c51064;
SOURCE(18655, 419)
/*1*/ {
/*1*/ word closure←v13908;
SOURCE(18657, 122)
/*1*/ closure←v13908 = (word) WidgetCreateClosureFromChoiceList←P2340(cl2←v13864, notify←v13668, (* (( (ptr) cld←v13540)+2) ));
SOURCE(18781, 33)
/*1*/ if ((text←v13752 == 0)) {
SOURCE(18798, 16)
/*1*/ text←v13752 = (* (( (ptr) gf←c52280)+30) );
/*1*/ };
SOURCE(18816, 109)
/*1*/ child←v13640 = (word) CreatePopUpButton←P1920(text←v13752, closure←v13908, registerData←v18288, (* (ptr) cl←v13596 ), 0)
/*1*/ ;
SOURCE(18927, 145)
/*1*/ if ((key←v13724 != 0)) {
SOURCE(18944, 128)
/*1*/ (void) RegisterBaseSelection←P2160(child←v13640, (* (ptr) cld←v13540 ), registerData←v18288, key←v13724, (* (( (ptr) cld←v13540)+2)
/*1*/ ));
/*1*/ };
/*1*/ };
/*1*/ };
}
else {
if (((* (( (ptr) gf←c52280)+24) ) == var←c51096)) {
/*1*/ {
/*1*/ word wcc←v13952;
/*1*/ wcc←v13952 = var←c51064;
SOURCE(19107, 521)
/*1*/ if (((* (ptr) wcc←v13952 ) == (word) (( (bPt) gf←c52280)+164)/* var←c47832 */ )) {
SOURCE(19154, 33)
/*1*/ if ((text←v13752 == 0)) {
SOURCE(19171, 16)
/*1*/ text←v13752 = (* (( (ptr) gf←c52280)+30) );
/*1*/ };
SOURCE(19189, 105)
/*1*/ child←v13640 = (word) CreatePopUpButton←P1920(text←v13752, wcc←v13952, registerData←v18288, (* (ptr) cl←v13596 ), 0);
/*1*/ }
/*1*/ else {
SOURCE(19305, 36)
/*1*/ if ((key←v13724 == 0)) {
SOURCE(19321, 20)
/*1*/ key←v13724 = (* (ptr) cl←v13596 );
/*1*/ };
SOURCE(19343, 110)
/*1*/ {
/*1*/ word pd116;
/*1*/ pd116 = (* (ptr) wcc←v13952 );
/*1*/ child←v13640 = (word) ( *( (fPt) ((* (ptr) pd116 ))))(container←v13496, (* (( (ptr) wcc←v13952)+1) ), registerData←v18288, image←v18316, 0, pd116)
/*1*/ ;
/*1*/ };
SOURCE(19455, 173)
/*1*/ if ((child←v13640 != 0)) {
SOURCE(19474, 154)
/*1*/ {
/*1*/ word var←c51128;
/*1*/ {
/*1*/ word var←c51160;
/*1*/ var←c51160 = XR←NewObject(20, (* (( (ptr) gf←c52280)+18) ));
/*1*/ (* (ptr) var←c51160 ) = child←v13640;
/*1*/ (* (( (ptr) var←c51160)+1) ) = (* (( (ptr) cld←v13540)+2) );
/*1*/ (* (( (ptr) var←c51160)+2) ) = XR←CheckProc(notify←v13668);
/*1*/ (* (( (ptr) var←c51160)+3) ) = registerData←v18288;
/*1*/ (* (( (ptr) var←c51160)+4) ) = key←v13724;
/*1*/ var←c51128 = var←c51160;
/*1*/ };
/*1*/ {
/*1*/ word pd117;
/*1*/ pd117 = (* (( (ptr) (* (( (ptr) gf←c52280)+162)/* var←c49624 */ ))+11) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd117 ))))(child←v13640, (* (( (ptr) gf←c52280)+10)/* myChoiceKey←v3252 */ ), var←c51128, pd117)
/*1*/ ;
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ }
else {
/*1*/ lab←L100029: ;
/*1*/ };
};
};
};
SOURCE(19649, 58)
if ((child←v13640 != 0)) {
SOURCE(19667, 40)
{
word pd118;
pd118 = (* (( (ptr) (* (( (ptr) gf←c52280)+163)/* var←c49752 */ ))+31) );
(void) ( *( (fPt) ((* (ptr) pd118 ))))(container←v13496, child←v13640, 1, pd118);
};
};
};
cl←v13596 = (* (( (ptr) cl←v13596)+5) );
goto lab←L100028;
lab←L100025: ;
};
};
}
else {
lab←L100024: ;
SOURCE(19732, 5)
(void) XR←RaiseUnnamedError();
};
};
SOURCE(19739, 18)
return(container←v13496);
}
static word WidgetCreateClosureFromChoiceList←P2340(list←v9608, defaultNotify←v9636, notifyTQ←v9664)
word list←v9608;
word defaultNotify←v9636;
word notifyTQ←v9664;
{
register ptr gf←c52312 = (ptr) &globalframe;
word closure←v9708;
word cld←v13996;
/* WidgetCreateClosureFromChoiceList: */
SOURCE(19763, 351)
SOURCE(19763, 351)
closure←v9708 = 0;
SOURCE(19933, 108)
cld←v13996 = XR←NewObject(16, (* (( (ptr) gf←c52312)+22) ));
(* (ptr) cld←v13996 ) = XR←CheckProc(defaultNotify←v9636);
(* (( (ptr) cld←v13996)+1) ) = list←v9608;
(* (( (ptr) cld←v13996)+2) ) = notifyTQ←v9664;
SOURCE(20043, 71)
{
word var←c51224;
var←c51224 = XR←NewObject(8, (* (( (ptr) gf←c52312)+24) ));
(* (ptr) var←c51224 ) = (word) (( (bPt) gf←c52312)+164)/* var←c47832 */ ;
(* (( (ptr) var←c51224)+1) ) = cld←v13996;
closure←v9708 = var←c51224;
};
SOURCE(19763, 351)
return(closure←v9708);
}
static void Select←P2400(choice←v9768, event←v9796)
word choice←v9768;
word event←v9796;
{
register ptr gf←c52344 = (ptr) &globalframe;
word root←v14052;
/* Select: */
SOURCE(20120, 147)
SOURCE(20183, 41)
{
word pd119;
pd119 = (* (( (ptr) (* (( (ptr) gf←c52344)+162)/* var←c49624 */ ))+33) );
root←v14052 = (word) ( *( (fPt) ((* (ptr) pd119 ))))(choice←v9768, pd119);
};
SOURCE(20226, 14)
(void) TearDown←P300(root←v14052);
SOURCE(20242, 25)
(void) SelectOnly←P2460(choice←v9768, event←v9796);
}
static void SelectOnly←P2460(choice←v9856, event←v9884)
word choice←v9856;
word event←v9884;
{
register ptr gf←c52376 = (ptr) &globalframe;
/* SelectOnly: */
SOURCE(20272, 160)
SOURCE(20332, 100)
{
word var←c51256;
{
word pd120;
pd120 = (* (( (ptr) (* (( (ptr) gf←c52376)+162)/* var←c49624 */ ))+10) );
var←c51256 = (word) ( *( (fPt) ((* (ptr) pd120 ))))(choice←v9856, (* (( (ptr) gf←c52376)+10)/* myChoiceKey←v3252 */ ), pd120)
;
};
if ((var←c51256 == 0)) {
goto lab←L100030;
};
if (((* (( (ptr) gf←c52376)+18) ) == XR←GetReferentType(var←c51256))) {
{
word nc←v14096;
nc←v14096 = var←c51256;
SOURCE(20413, 19)
(void) DoNotify←P720(nc←v14096, event←v9884);
};
}
else {
lab←L100030: ;
};
};
}
static void NullNotify←P2520(widget←v18448, registerData←v18476, callData←v18504, event←v18532)
word widget←v18448;
word registerData←v18476;
word callData←v18504;
word event←v18532;
{
/* NullNotify: */
}
static word NoName←Q5100(formal←c0124)
word formal←c0124;
{
W3 var←c0126;
word var←c0125;
/* intermediary proc for a FORK, nArgs: 3, nRets: 0 */
var←c0126 = (* (W3Pt) (( (ptr) formal←c0124)+4) );
var←c0125 = (* (( (ptr) formal←c0124)+2) );
formal←c0124 = XR←ExtensionFree(formal←c0124);
(void) ( *( (fPt) ((* (ptr) var←c0125 ))))(var←c0126.f0, var←c0126.f1, var←c0126.f2, var←c0125);
return(0);
}
/* file: XTkPopUpsImpl, module: XTkPopUpsImpl, compiled at: February 23, 1993 11:26:20 pm PST */
extern void XR←install←XTkPopUpsImpl() {
NoName←Q5040();
}
extern void XR←run←XTkPopUpsImpl() { XR←Start(&globalframe); }