/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: July 9, 1992 6:01:28 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: XTkButtonsImpl, module: XTkButtonsImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [2154844012,2108115233] XTkButtonsImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W8 f; word r;} W9;
typedef struct {W16 f; W9 r;} W25;
typedef struct {word f0, f1, f2;} W3;
typedef W3 *W3Pt;
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
typedef struct {word f0, f1;} W2;
typedef W2 *W2Pt;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef W9 *W9Pt;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
static void NoName←Q1596();
static void XTkButtonsImpl←P0();
static word ButtonClass←P60();
static void EntrySetCallbackRec←P120();
static void EntryGetCallbackRec←P180();
static void ButtonSetStyleKey←P300();
static void ButtonGetStyleSpec←P360();
static void ButtonSetStyleSpec←P420();
static void ButtonEventProc←P480();
static void EnvelopeProc←P540();
static word NoName←Q1656();
static word ImplementorHitTQ←P600();
static void ButtonConfigureLR←P660();
static void NilHit←P720();
static void ButtonInitInstPart←P780();
static word CreateButton←P840();
static void SetButtonTQ←P900();
static void SetButtonHelp←P960();
static void SetButtonCallback←P1020();
static void NoName←Q1716();
static word NoName←Q1776();
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 = {851984, "\257\300\200\160\117\154\300\175\247\111\041\100\214\000\000"};
static struct {unsigned f; char r[4];} string4 = {196611, "\004Do"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\072\360\043\311\300\372\054\163\300\100\164\000\000"};
static struct {unsigned f; char r[8];} string6 = {393224, "Button\000"};
static struct {unsigned f; char r[4];} string7 = {196612, "but"};
static struct {unsigned f; char r[12];} string8 = {720908, "BlackOnGray"};
static struct {unsigned f; char r[16];} string9 = {786448, "WhiteOnBlack\000\000\000"};
static struct {unsigned f; char r[16];} string10 = {917520, "XTkButtonsImpl\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\200pOl\300}\247I!@t\000\000"};
static struct {unsigned f; char r[12];} string12 = {655370, "\006\003 \0014\001@T\004\037\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\267\210\110\244\300\302\136\033\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\240\236\274\315\300\111\163\325\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\150\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\227\370\144\253\300\176\165\034\110\100\150\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\000\150\313\125\300\372\040\271\021\100\150\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\234\350\054\033\300\120\345\145\367\100\150\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\116\324\147\077\300\024\110\066\207\100\150\000\000"};
static struct {
word f0[26]; word f26; word f27; word f28;
word f29; word f30; word f31; word f32;
word f33; word f34; word f35; word f36;
word f37; word f38; word f39; word f40;
word f41; word f42; word f43; word f44;
word f45; word f46; word f47; word f48;
word f49; word f50; word f51; word f52;
word f53; word f54; word f55; word f56;
word f57; word f58; word f59[9];
} globalframe = {
{0}, (word) SetButtonCallback←P1020, 0, (word) SetButtonHelp←P960,
0, (word) SetButtonTQ←P900, 0, (word) CreateButton←P840,
0, (word) ButtonInitInstPart←P780, 0, (word) NilHit←P720,
0, (word) ButtonConfigureLR←P660, 0, (word) ImplementorHitTQ←P600,
0, (word) EnvelopeProc←P540, 0, (word) ButtonEventProc←P480,
0, (word) ButtonSetStyleSpec←P420, 0, (word) ButtonGetStyleSpec←P360,
0, (word) ButtonSetStyleKey←P300, 0, (word) EntryGetCallbackRec←P180,
0, (word) EntrySetCallbackRec←P120, 0, (word) ButtonClass←P60,
0, (word) XTkButtonsImpl←P0, {0}
};
static void NoName←Q1596()
{
register ptr gf←c0135 = (ptr) &globalframe;
word var←c32688;
(* (( (ptr) gf←c0135)+14) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c0135)+17) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (( (ptr) gf←c0135)+20) ) = (word) XR←GetTypeIndexS((word) (&string5));
(* (ptr) (( (bPt) gf←c0135)+84) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0135)+14) ), (word) &string6);
(* (ptr) (( (bPt) gf←c0135)+88) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0135)+14) ), (word) &string7);
(* (ptr) (( (bPt) gf←c0135)+92) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0135)+14) ), (word) &string8);
(* (ptr) (( (bPt) gf←c0135)+96) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0135)+14) ), (word) &string9);
(* (ptr) (( (bPt) gf←c0135)+100) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0135)+14) ), (word) &string10);
(void) XR←DeclareGlobalFrame((word) "XTkButtonsImpl", &globalframe, (word) XR←GetTypeIndex((word) &string11, 0, (word) &string12)
, (word) (( (bPt) gf←c0135)+232)/* var←c32016 */ );
var←c32688 = (word) XR←ImportInterface((word) "HelpStrings", (word) XR←GetTypeIndexS((word) (&string13)), 5);
(* (( (ptr) gf←c0135)+63)/* var←c32304 */ ) = var←c32688;
(void) XR←ImportProcS(var←c32688, 786691);
(void) XR←ImportProcS(var←c32688, 786435);
var←c32688 = (word) XR←ImportInterface((word) "Process", (word) XR←GetTypeIndexS((word) (&string14)), 22);
(* (( (ptr) gf←c0135)+64)/* var←c32368 */ ) = var←c32688;
(void) XR←ImportProcS(var←c32688, 526081);
var←c32688 = (word) XR←ImportInterface((word) "Xl", (word) XR←GetTypeIndexS((word) (&string15)), 218);
(* (( (ptr) gf←c0135)+60)/* var←c32048 */ ) = var←c32688;
(void) XR←ImportProcS(var←c32688, 792323);
(void) XR←ImportProcS(var←c32688, 67910403);
(void) XR←ImportProcS(var←c32688, 67385345);
(void) XR←ImportProcS(var←c32688, 67385089);
(void) XR←ImportProcS(var←c32688, 67639298);
(void) XR←ImportProcS(var←c32688, 1063940);
(void) XR←ImportProcS(var←c32688, 67924739);
(void) XR←ImportProcS(var←c32688, 68207876);
var←c32688 = (word) XR←ImportInterface((word) "XTk", (word) XR←GetTypeIndexS((word) (&string16)), 50);
(* (( (ptr) gf←c0135)+65)/* var←c32496 */ ) = var←c32688;
(void) XR←ImportProcS(var←c32688, 67378433);
(void) XR←ImportProcS(var←c32688, 1579779);
var←c32688 = (word) XR←ImportInterface((word) "XTkFriends", (word) XR←GetTypeIndexS((word) (&string17)), 33);
(* (( (ptr) gf←c0135)+62)/* var←c32208 */ ) = var←c32688;
(void) XR←ImportProcS(var←c32688, 67637250);
(void) XR←ImportProcS(var←c32688, 67376129);
(void) XR←ImportProcS(var←c32688, 73666049);
var←c32688 = (word) XR←ImportInterface((word) "XTkHelpStrings", (word) XR←GetTypeIndexS((word) (&string18)), 2);
(* (( (ptr) gf←c0135)+66)/* var←c32592 */ ) = var←c32688;
(void) XR←ImportProcS(var←c32688, 67371009);
var←c32688 = (word) XR←ImportInterface((word) "XTkLabels", (word) XR←GetTypeIndexS((word) (&string19)), 9);
(* (( (ptr) gf←c0135)+61)/* var←c32176 */ ) = var←c32688;
(void) XR←ImportProcS(var←c32688, 70778883);
(void) XR←ImportProcS(var←c32688, 67372801);
var←c32688 = (word) XR←ExportInterface((word) "XTkButtons", (word) XR←GetTypeIndexS((word) (&string20)), 5);
(* (( (ptr) gf←c0135)+67)/* var←c32720 */ ) = var←c32688;
(void) XR←ExportProcS(var←c32688, (word) (( (bPt) gf←c0135)+128)/* var←c31600 */ , 72089608);
(void) XR←ExportProcS(var←c32688, (word) (( (bPt) gf←c0135)+120)/* var←c31568 */ , 524546);
(void) XR←ExportProcS(var←c32688, (word) (( (bPt) gf←c0135)+112)/* var←c31536 */ , 524802);
(void) XR←ExportProcS(var←c32688, (word) (( (bPt) gf←c0135)+104)/* var←c31504 */ , 1049348);
(void) XR←ExportVar(var←c32688, 4, (word) (( (bPt) gf←c0135)+32)/* buttonClass←v3000 */ );
}
static void XTkButtonsImpl←P0(formal←c039, formal←c038)
word formal←c039;
word formal←c038;
{
register ptr gf←c32752 = (ptr) &globalframe;
/* XTkButtonsImpl: */
SOURCE(255, 7089)
SOURCE(575, 45)
(* (( (ptr) gf←c32752)+8)/* buttonClass←v3000 */ ) = (word) ButtonClass←P60();
SOURCE(1748, 102)
{
word pd21;
pd21 = (* (( (ptr) (* (( (ptr) gf←c32752)+60)/* var←c32048 */ ))+201) );
(* (( (ptr) gf←c32752)+13)/* butEvents←v3196 */ ) = (word) ( *( (fPt) ((* (ptr) pd21 ))))(4, 5, 8, 7, pd21);
};
}
static word ButtonClass←P60()
{
register ptr gf←c32784 = (ptr) &globalframe;
word buttonClass←v3864;
/* ButtonClass: */
SOURCE(622, 806)
SOURCE(622, 806)
buttonClass←v3864 = 0;
SOURCE(691, 262)
{
word var←c32080;
{
word var←c32112;
var←c32112 = XR←NewObject(4, (* (( (ptr) gf←c32784)+20) ));
(* (ptr) var←c32112 ) = 128;
var←c32080 = var←c32112;
};
{
W25 var←c044;
(* (ptr) &var←c044 ) = (* (( (ptr) gf←c32784)+22) );
(* (( (ptr) &var←c044)+1) ) = (* (( (ptr) gf←c32784)+21) );
(* (( (ptr) &var←c044)+2) ) = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c32784)+61)/* var←c32176 */ ))+10) ) );
(* (( (ptr) &var←c044)+3) ) = 1;
(* (( (ptr) &var←c044)+4) ) = 0;
(* (( (ptr) &var←c044)+5) ) = 0;
(* (( (ptr) &var←c044)+6) ) = XR←CheckProc(0);
(* (( (ptr) &var←c044)+7) ) = (word) (( (bPt) gf←c32784)+152)/* var←c31696 */ ;
(* (( (ptr) &var←c044)+8) ) = XR←CheckProc(0);
(* (( (ptr) &var←c044)+9) ) = XR←CheckProc(0);
(* (( (ptr) &var←c044)+10) ) = XR←CheckProc(0);
(* (( (ptr) &var←c044)+11) ) = XR←CheckProc(0);
(* (( (ptr) &var←c044)+12) ) = XR←CheckProc(0);
(* (( (ptr) &var←c044)+13) ) = XR←CheckProc(0);
(* (( (ptr) &var←c044)+14) ) = XR←CheckProc(0);
(* (( (ptr) &var←c044)+15) ) = XR←CheckProc(0);
(* (( (ptr) &var←c044)+16) ) = XR←CheckProc(0);
(* (( (ptr) &var←c044)+17) ) = XR←CheckProc(0);
(* (( (ptr) &var←c044)+18) ) = (word) (( (bPt) gf←c32784)+136)/* var←c31632 */ ;
(* (( (ptr) &var←c044)+19) ) = var←c32080;
(* (( (ptr) &var←c044)+20) ) = 0;
(* (( (ptr) &var←c044)+21) ) = 0;
(* (( (ptr) &var←c044)+22) ) = 131132;
(* (( (ptr) &var←c044)+23) ) = XR←CheckProc(0);
(* (( (ptr) &var←c044)+24) ) = XR←CheckProc(0);
{
word pd22;
pd22 = (* (( (ptr) (* (( (ptr) gf←c32784)+62)/* var←c32208 */ ))+18) );
buttonClass←v3864 = (word) ( *( (fPt) ((* (ptr) pd22 ))))((word) (&var←c044), pd22);
};
};
};
SOURCE(955, 387)
{
word labelClassPart←v5668;
SOURCE(961, 86)
{
word pd23;
pd23 = (* (( (ptr) (* (( (ptr) gf←c32784)+61)/* var←c32176 */ ))+11) );
labelClassPart←v5668 = (word) ( *( (fPt) ((* (ptr) pd23 ))))(buttonClass←v3864, pd23);
};
SOURCE(1049, 47)
(* (( (ptr) gf←c32784)+9)/* superGetStyleSpec←v3056 */ ) = XR←CheckProc(* (( (ptr) labelClassPart←v5668)+2) );
SOURCE(1098, 47)
(* (( (ptr) gf←c32784)+10)/* superSetStyleSpec←v3084 */ ) = XR←CheckProc(* (( (ptr) labelClassPart←v5668)+3) );
SOURCE(1147, 45)
(* (( (ptr) gf←c32784)+11)/* superSetStyleKey←v3112 */ ) = XR←CheckProc(* (( (ptr) labelClassPart←v5668)+4) );
SOURCE(1194, 48)
(* (( (ptr) labelClassPart←v5668)+2) ) = (word) (( (bPt) gf←c32784)+192)/* var←c31856 */ ;
SOURCE(1244, 48)
(* (( (ptr) labelClassPart←v5668)+3) ) = (word) (( (bPt) gf←c32784)+184)/* var←c31824 */ ;
SOURCE(1294, 46)
(* (( (ptr) labelClassPart←v5668)+4) ) = (word) (( (bPt) gf←c32784)+200)/* var←c31888 */ ;
};
SOURCE(1347, 81)
{
word pd24;
pd24 = (* (( (ptr) (* (( (ptr) gf←c32784)+62)/* var←c32208 */ ))+24) );
(* (( (ptr) gf←c32784)+12)/* buttonInheritConfigureLR←v3140 */ ) = XR←CheckProc((word) ( *( (fPt) ((* (ptr) pd24 ))))((* ((
( (ptr) buttonClass←v3864)+3)) ), pd24));
};
SOURCE(622, 806)
return(buttonClass←v3864);
}
static void EntrySetCallbackRec←P120(bd←v4320, cbr←v4348)
word bd←v4320;
W3 cbr←v4348;
{
register ptr gf←c32816 = (ptr) &globalframe;
/* EntrySetCallbackRec: */
SOURCE(2329, 104)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c32816)+16)/* LOCK←v2860 */ ));
SOURCE(2397, 36)
if ((bd←v4320 != 0)) {
SOURCE(2412, 21)
(* (W3Pt) (( (ptr) bd←v4320)+4) ) = cbr←v4348;
};
SOURCE(2329, 104)
(void) (XR←MonitorExit((word) (( (bPt) gf←c32816)+16)/* LOCK←v2860 */ ));
return;
}
static void EntryGetCallbackRec←P180(formal←c051, bd←v4408)
word formal←c051;
word bd←v4408;
{
register ptr gf←c32848 = (ptr) &globalframe;
W3 cbr←v4452;
/* EntryGetCallbackRec: */
SOURCE(2437, 116)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c32848)+16)/* LOCK←v2860 */ ));
SOURCE(2437, 116)
cbr←v4452.f0 = 0;
cbr←v4452.f1 = 0;
cbr←v4452.f2 = 0;
SOURCE(2514, 39)
if ((bd←v4408 != 0)) {
SOURCE(2529, 24)
cbr←v4452 = (* (W3Pt) (( (ptr) bd←v4408)+4) );
goto lab←L100001;
};
/* removed tail goto */
lab←L100001: ;
(void) (XR←MonitorExit((word) (( (bPt) gf←c32848)+16)/* LOCK←v2860 */ ));
(* (W3Pt) formal←c051 ) = cbr←v4452;
return;
}
static void ButtonSetStyleKey←P300(widget←v4616, style←v4644, repaint←v4672)
word widget←v4616;
word style←v4644;
word repaint←v4672;
{
register ptr gf←c32880 = (ptr) &globalframe;
word bd←v5724;
/* ButtonSetStyleKey: */
SOURCE(2676, 186)
SOURCE(2756, 35)
{
word idx25;
word limit26;
bd←v5724 = XR←Narrow((* ((( (ptr) widget←v4616)+49)+(
idx25 = (* (( (ptr) (* (( (ptr) gf←c32880)+8)/* buttonClass←v3000 */ ))+4) ),
limit26 = (* (( (ptr) widget←v4616)+48) ),
BCK(idx25, limit26)
)) ), (* (( (ptr) gf←c32880)+17) ));
};
SOURCE(2793, 27)
(* (( (ptr) bd←v5724)+10) ) = style←v4644;
SOURCE(2822, 40)
{
word pd27;
pd27 = (* (( (ptr) gf←c32880)+11)/* superSetStyleKey←v3112 */ );
(void) ( *( (fPt) ((* (ptr) pd27 ))))(widget←v4616, style←v4644, repaint←v4672, pd27);
};
}
static void ButtonGetStyleSpec←P360(formal←c060, widget←v4732)
word formal←c060;
word widget←v4732;
{
register ptr gf←c32912 = (ptr) &globalframe;
W4 style←v4776;
word bd←v5768;
/* ButtonGetStyleSpec: */
SOURCE(2868, 182)
SOURCE(2868, 182)
style←v4776.f0 = (word) -1;
style←v4776.f1 = (word) -1;
style←v4776.f2 = 0;
style←v4776.f3 = 0;
SOURCE(2941, 35)
{
word idx28;
word limit29;
bd←v5768 = XR←Narrow((* ((( (ptr) widget←v4732)+49)+(
idx28 = (* (( (ptr) (* (( (ptr) gf←c32912)+8)/* buttonClass←v3000 */ ))+4) ),
limit29 = (* (( (ptr) widget←v4732)+48) ),
BCK(idx28, limit29)
)) ), (* (( (ptr) gf←c32912)+17) ));
};
SOURCE(2978, 33)
{
word pd30;
pd30 = (* (( (ptr) gf←c32912)+9)/* superGetStyleSpec←v3056 */ );
(void) ( *( (fPt) ((* (ptr) pd30 ))))((word) &style←v4776, widget←v4732, pd30);
};
SOURCE(3013, 37)
style←v4776.f3 = (* (( (ptr) bd←v5768)+10) );
/* removed tail goto */
(* (W4Pt) formal←c060 ) = style←v4776;
return;
}
static void ButtonSetStyleSpec←P420(widget←v4836, style←v4864, repaint←v4892)
word widget←v4836;
W4 style←v4864;
word repaint←v4892;
{
register ptr gf←c32944 = (ptr) &globalframe;
word bd←v5812;
/* ButtonSetStyleSpec: */
SOURCE(3054, 202)
SOURCE(3140, 35)
{
word idx31;
word limit32;
bd←v5812 = XR←Narrow((* ((( (ptr) widget←v4836)+49)+(
idx31 = (* (( (ptr) (* (( (ptr) gf←c32944)+8)/* buttonClass←v3000 */ ))+4) ),
limit32 = (* (( (ptr) widget←v4836)+48) ),
BCK(idx31, limit32)
)) ), (* (( (ptr) gf←c32944)+17) ));
};
SOURCE(3177, 36)
(* (( (ptr) bd←v5812)+10) ) = style←v4864.f3;
SOURCE(3215, 41)
{
word pd33;
pd33 = (* (( (ptr) gf←c32944)+10)/* superSetStyleSpec←v3084 */ );
(void) ( *( (fPt) ((* (ptr) pd33 ))))(widget←v4836, style←v4864, repaint←v4892, pd33);
};
}
static void ButtonEventProc←P480(event←v16084, clientData←v16112, tq←v16140)
word event←v16084;
word clientData←v16112;
word tq←v16140;
{
register ptr gf←c32976 = (ptr) &globalframe;
word bd←v5856;
/* ButtonEventProc: */
SOURCE(3261, 1584)
SOURCE(3299, 32)
bd←v5856 = XR←Narrow(clientData←v16112, (* (( (ptr) gf←c32976)+17) ));
SOURCE(3333, 86)
if (((* (( (ptr) (* (ptr) bd←v5856 ))+37) ) != 0)) {
SOURCE(3394, 17)
(* (( (ptr) bd←v5856)+9) ) = 0;
SOURCE(3413, 6)
return;
};
SOURCE(3425, 1420)
{
word var←c32272;
var←c32272 = (* (( (ptr) event←v16084)+4) );
switch (var←c32272) {
case 4:
SOURCE(3463, 398)
{
word ev←v5900;
SOURCE(3465, 39)
if ((event←v16084 == 0)) {
goto lab←L100003;
};
if (((* (( (ptr) event←v16084)+4) ) == 4)) {
goto lab←L100003;
};
(void) XR←RaiseError(XR←NarrowFault, 0);
lab←L100003: ;
ev←v5900 = event←v16084;
SOURCE(3506, 16)
(* (( (ptr) bd←v5856)+9) ) = 1;
SOURCE(3524, 111)
if (((((* (( (bPt) ev←v5900)+62) ) & 1 || (* (( (bPt) ev←v5900)+62) ) & 02) || (* (( (bPt) ev←v5900)+62) ) & 04) || (* (( (bPt) ev←v5900)+62)
) & 010) || (* (( (bPt) ev←v5900)+62) ) & 020) {
SOURCE(3629, 6)
return;
};
SOURCE(3637, 219)
{
word tc34;
word pd35;
if ((0 == (* (( (ptr) bd←v5856)+7) ))) {
pd35 = (* (( (ptr) (* (( (ptr) gf←c32976)+60)/* var←c32048 */ ))+119) );
tc34 = (word) ((word) ( *( (fPt) ((* (ptr) pd35 ))))((* (( (ptr) ev←v5900)+2) ), (* (( (ptr) ev←v5900)+7) ), bd←v5856, pd35)
== 3);
}
else {
tc34 = (word) 0;
};
if (tc34) {
SOURCE(3734, 18)
(* (( (ptr) bd←v5856)+8) ) = 1;
SOURCE(3754, 57)
{
word pd36;
pd36 = (* (( (ptr) gf←c32976)+11)/* superSetStyleKey←v3112 */ );
(void) ( *( (fPt) ((* (ptr) pd36 ))))((* (ptr) bd←v5856 ), (* (( (ptr) gf←c32976)+24) ), 2, pd36);
};
SOURCE(3813, 43)
{
word pd37;
pd37 = (* (( (ptr) (* (( (ptr) gf←c32976)+63)/* var←c32304 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd37 ))))((* (( (ptr) bd←v5856)+2) ), (* (( (ptr) bd←v5856)+1) ), 0, pd37);
};
};
};
};
break;
case 5:
SOURCE(3881, 586)
{
word ev←v5944;
W2 sz←v5972;
SOURCE(3883, 41)
if ((event←v16084 == 0)) {
goto lab←L100004;
};
if (((* (( (ptr) event←v16084)+4) ) == 5)) {
goto lab←L100004;
};
(void) XR←RaiseError(XR←NarrowFault, 0);
lab←L100004: ;
ev←v5944 = event←v16084;
SOURCE(3926, 35)
sz←v5972 = (* (W2Pt) (( (ptr) (* (ptr) bd←v5856 ))+41) );
SOURCE(3963, 27)
if ((0 == (* (( (ptr) bd←v5856)+8) ))) {
SOURCE(3984, 6)
return;
};
SOURCE(3992, 19)
(* (( (ptr) bd←v5856)+8) ) = 0;
SOURCE(4013, 31)
if ((0 != (* (( (ptr) bd←v5856)+7) ))) {
SOURCE(4038, 6)
return;
};
SOURCE(4046, 41)
{
word pd38;
pd38 = (* (( (ptr) (* (( (ptr) gf←c32976)+63)/* var←c32304 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd38 ))))((* (( (ptr) bd←v5856)+2) ), (* (( (ptr) bd←v5856)+1) ), 0, pd38);
};
SOURCE(4089, 163)
if ((((( (int)(* (( (ptr) ev←v5944)+13) ) < (int)0) || ( (int)(* (( (ptr) ev←v5944)+14) ) < (int)0)) || ( (int)(* (( (ptr) ev←v5944)+13)
) >= (int)sz←v5972.f0)) || ( (int)(* (( (ptr) ev←v5944)+14) ) >= (int)sz←v5972.f1)) || (0 == (* (( (ptr) bd←v5856)+9) ))) {
SOURCE(4183, 61)
{
word pd39;
pd39 = (* (( (ptr) gf←c32976)+11)/* superSetStyleKey←v3112 */ );
(void) ( *( (fPt) ((* (ptr) pd39 ))))((* (ptr) bd←v5856 ), (* (( (ptr) bd←v5856)+10) ), 2, pd39);
};
SOURCE(4246, 6)
return;
};
SOURCE(4257, 23)
(* (( (ptr) bd←v5856)+7) ) = 1;
SOURCE(4282, 55)
{
word pd40;
pd40 = (* (( (ptr) gf←c32976)+11)/* superSetStyleKey←v3112 */ );
(void) ( *( (fPt) ((* (ptr) pd40 ))))((* (ptr) bd←v5856 ), (* (( (ptr) gf←c32976)+23) ), 2, pd40);
};
SOURCE(4339, 126)
if (((* (( (ptr) bd←v5856)+3) ) == 0)) {
SOURCE(4369, 47)
SOURCE(4370, 46)
{
W2 var←c32336;
{
W2 var←c075;
word var←c074;
var←c074 = XR←ExtensionAlloc(7);
{
word tmpAddr41;
tmpAddr41 = (word) var←c074;
(* (ptr) tmpAddr41 ) = ( ((word) (fPt) NoName←Q1776) );
(* (( (ptr) tmpAddr41) + 1) ) = 0;
(* (( (ptr) tmpAddr41) + 2) ) = (word) (( (bPt) gf←c32976)+168)/* var←c31760 */ ;
(* (( (ptr) tmpAddr41) + 3) ) = 0;
(* (( (ptr) tmpAddr41) + 4) ) = ev←v5944;
(* (( (ptr) tmpAddr41) + 5) ) = bd←v5856;
(* (( (ptr) tmpAddr41) + 6) ) = 0;
};
(void) XR←Fork((word) &var←c075, var←c074);
var←c32336 = var←c075;
};
{
word pd42;
pd42 = (* (( (ptr) (* (( (ptr) gf←c32976)+64)/* var←c32368 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd42 ))))(var←c32336, pd42);
};
};
}
else {
SOURCE(4423, 42)
{
word pd43;
pd43 = (* (( (ptr) (* (( (ptr) gf←c32976)+60)/* var←c32048 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd43 ))))((* (( (ptr) bd←v5856)+3) ), (word) (( (bPt) gf←c32976)+168)/* var←c31760 */ , bd←v5856, ev←v5944, pd43)
;
};
};
};
break;
case 8:
SOURCE(4487, 17)
(* (( (ptr) bd←v5856)+9) ) = 0;
SOURCE(4506, 149)
if ( ( (0 == (* (( (ptr) bd←v5856)+7) )) ? (0 != (* (( (ptr) bd←v5856)+8) )) : 0 ) ) {
SOURCE(4551, 61)
{
word pd44;
pd44 = (* (( (ptr) gf←c32976)+11)/* superSetStyleKey←v3112 */ );
(void) ( *( (fPt) ((* (ptr) pd44 ))))((* (ptr) bd←v5856 ), (* (( (ptr) bd←v5856)+10) ), 2, pd44);
};
SOURCE(4614, 41)
{
word pd45;
pd45 = (* (( (ptr) (* (( (ptr) gf←c32976)+63)/* var←c32304 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd45 ))))((* (( (ptr) bd←v5856)+2) ), (* (( (ptr) bd←v5856)+1) ), 0, pd45);
};
};
break;
case 7:
SOURCE(4680, 16)
(* (( (ptr) bd←v5856)+9) ) = 1;
SOURCE(4698, 147)
if ( ( (0 == (* (( (ptr) bd←v5856)+7) )) ? (0 != (* (( (ptr) bd←v5856)+8) )) : 0 ) ) {
SOURCE(4743, 57)
{
word pd46;
pd46 = (* (( (ptr) gf←c32976)+11)/* superSetStyleKey←v3112 */ );
(void) ( *( (fPt) ((* (ptr) pd46 ))))((* (ptr) bd←v5856 ), (* (( (ptr) gf←c32976)+24) ), 2, pd46);
};
SOURCE(4802, 43)
{
word pd47;
pd47 = (* (( (ptr) (* (( (ptr) gf←c32976)+63)/* var←c32304 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd47 ))))((* (( (ptr) bd←v5856)+2) ), (* (( (ptr) bd←v5856)+1) ), 0, pd47);
};
};
break;
};
};
}
static void EnvelopeProc←P540(formal←c0156, clientData←v16228, tq←v16256)
word formal←c0156;
word clientData←v16228;
word tq←v16256;
{
W9 var←c33008;
/* declaration of event←v16200 skipped */
register ptr gf←c33040 = (ptr) &globalframe;
word bd←v6016;
/* declaration of cbr←v6044 skipped */
(* (( (ptr) &var←c33008)+4)/* event←v16200 */ ) = formal←c0156;
/* EnvelopeProc: */
SOURCE(4872, 324)
SOURCE(4907, 32)
bd←v6016 = XR←Narrow(clientData←v16228, (* (( (ptr) gf←c33040)+17) ));
SOURCE(4941, 42)
(void) EntryGetCallbackRec←P180((word) (( (bPt) &var←c33008)+20)/* cbr←v6044 */ , bd←v6016);
SOURCE(4985, 113)
SOURCE(4985, 113)
{
/* declaration of var←c01 skipped */
(* (( (ptr) &var←c33008)+8)/* var←c01 */ ) = (* (ptr) bd←v6016 );
{
word var←c02;
{
word var←c0153;
var←c0153 = (word) &var←c33008;
var←c02 = (word) XR←Enable(( ((word) (fPt) NoName←Q1656) ), ( ((word) (fPt) NoName←Q1716) ), var←c0153);
};
/* removed trivial cond node */
};
};
SOURCE(5109, 61)
{
word pd48;
pd48 = (* (( (ptr) gf←c33040)+11)/* superSetStyleKey←v3112 */ );
(void) ( *( (fPt) ((* (ptr) pd48 ))))((* (ptr) bd←v6016 ), (* (( (ptr) bd←v6016)+10) ), 2, pd48);
};
SOURCE(5172, 24)
(* (( (ptr) bd←v6016)+7) ) = 0;
}
static word NoName←Q1656(formal←c0145)
word formal←c0145;
{
SOURCE(4985, 113)
{
word pd49;
pd49 = (* (( (ptr) formal←c0145)+5) );
(void) ( *( (fPt) ((* (ptr) pd49 ))))((* (( (ptr) formal←c0145)+8) ), (* (( (ptr) formal←c0145)+6) ), (* (( (ptr) formal←c0145)+7)
), (* (( (ptr) formal←c0145)+4) ), pd49);
};
return(0);
}
static word ImplementorHitTQ←P600(w←v4952)
word w←v4952;
{
register ptr gf←c33072 = (ptr) &globalframe;
word tq←v4996;
word x←v6088;
/* ImplementorHitTQ: */
SOURCE(5202, 262)
SOURCE(5202, 262)
tq←v4996 = 0;
SOURCE(5265, 60)
{
word pd50;
pd50 = (* (( (ptr) (* (( (ptr) gf←c33072)+60)/* var←c32048 */ ))+28) );
x←v6088 = (word) ( *( (fPt) ((* (ptr) pd50 ))))((* (( (ptr) w←v4952)+34) ), (* (( (ptr) gf←c33072)+25) ), pd50);
};
SOURCE(5327, 42)
{
word pd51;
pd51 = (* (( (ptr) (* (( (ptr) gf←c33072)+60)/* var←c32048 */ ))+59) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd51 ))))(x←v6088, pd51))) {
SOURCE(5346, 23)
{
word pd52;
pd52 = (* (( (ptr) (* (( (ptr) gf←c33072)+60)/* var←c32048 */ ))+60) );
return((word) ( *( (fPt) ((* (ptr) pd52 ))))(x←v6088, pd52));
};
};
};
SOURCE(5371, 93)
if ((x←v6088 == 0)) {
SOURCE(5387, 18)
{
word pd53;
pd53 = (* (( (ptr) (* (( (ptr) gf←c33072)+60)/* var←c32048 */ ))+63) );
tq←v4996 = (word) ( *( (fPt) ((* (ptr) pd53 ))))(0, 0, 0, pd53);
};
SOURCE(5408, 56)
{
word pd54;
pd54 = (* (( (ptr) (* (( (ptr) gf←c33072)+60)/* var←c32048 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd54 ))))((* (( (ptr) w←v4952)+34) ), (* (( (ptr) gf←c33072)+25) ), tq←v4996, pd54);
};
};
SOURCE(5202, 262)
return(tq←v4996);
}
static void ButtonConfigureLR←P660(widget←v16316, geometry←v16344, mapping←v16372, reConsiderChildren←v16400)
word widget←v16316;
W5 geometry←v16344;
word mapping←v16372;
word reConsiderChildren←v16400;
{
register ptr gf←c33104 = (ptr) &globalframe;
word createW←v6144;
/* ButtonConfigureLR: */
SOURCE(5470, 521)
SOURCE(5511, 75)
createW←v6144 = ( (mapping←v16372 < 2) ? ((* (( (ptr) widget←v16316)+44) ) >= 2) : 0 ) ;
SOURCE(5588, 327)
if ((0 != createW←v6144)) {
SOURCE(5604, 313)
{
word bd←v6188;
word var←c32528;
word widget←v31408;
SOURCE(5606, 35)
{
word idx55;
word limit56;
bd←v6188 = XR←Narrow((* ((( (ptr) widget←v16316)+49)+(
idx55 = (* (( (ptr) (* (( (ptr) gf←c33104)+8)/* buttonClass←v3000 */ ))+4) ),
limit56 = (* (( (ptr) widget←v16316)+48) ),
BCK(idx55, limit56)
)) ), (* (( (ptr) gf←c33104)+17) ));
};
SOURCE(5643, 123)
{
word var←c32432;
var←c32432 = (word) ImplementorHitTQ←P600(widget←v16316);
{
W4 var←c32464;
var←c32464.f0 = (word) (( (bPt) gf←c33104)+176)/* var←c31792 */ ;
var←c32464.f1 = (* (( (ptr) gf←c33104)+13)/* butEvents←v3196 */ );
var←c32464.f2 = var←c32432;
var←c32464.f3 = bd←v6188;
{
word pd57;
pd57 = (* (( (ptr) (* (( (ptr) gf←c33104)+65)/* var←c32496 */ ))+31) );
(void) ( *( (fPt) ((* (ptr) pd57 ))))(widget←v16316, var←c32464, 131132, pd57);
};
};
};
SOURCE(5768, 81)
{
word pd58;
pd58 = (* (( (ptr) (* (( (ptr) gf←c33104)+65)/* var←c32496 */ ))+33) );
widget←v31408 = (word) ( *( (fPt) ((* (ptr) pd58 ))))(widget←v16316, pd58);
};
var←c32528 = (((unsigned)(* (( (bPt) widget←v31408)+120) ) << 27) >> 31);
if ((0 != var←c32528)) {
SOURCE(5831, 18)
(* (( (ptr) bd←v6188)+8) ) = 1;
};
SOURCE(5851, 64)
{
word var←c32560;
{
word pd59;
pd59 = (* (( (ptr) (* (( (ptr) gf←c33104)+65)/* var←c32496 */ ))+33) );
var←c32560 = (word) ( *( (fPt) ((* (ptr) pd59 ))))(widget←v16316, pd59);
};
{
word pd60;
pd60 = (* (( (ptr) (* (( (ptr) gf←c33104)+66)/* var←c32592 */ ))+4) );
(* (( (ptr) bd←v6188)+2) ) = (word) ( *( (fPt) ((* (ptr) pd60 ))))(var←c32560, pd60);
};
};
};
};
SOURCE(5920, 71)
{
word pd61;
pd61 = (* (( (ptr) gf←c33104)+12)/* buttonInheritConfigureLR←v3140 */ );
(void) ( *( (fPt) ((* (ptr) pd61 ))))(widget←v16316, geometry←v16344, mapping←v16372, reConsiderChildren←v16400, pd61);
};
}
static void NilHit←P720(widget←v16460, registerData←v16488, callData←v16516, event←v16544)
word widget←v16460;
word registerData←v16488;
word callData←v16516;
word event←v16544;
{
/* NilHit: */
}
static void ButtonInitInstPart←P780(widget←v16604, arguments←v16632)
word widget←v16604;
word arguments←v16632;
{
register ptr gf←c33136 = (ptr) &globalframe;
word bd←v6232;
/* ButtonInitInstPart: */
SOURCE(6034, 179)
SOURCE(6083, 25)
bd←v6232 = XR←NewObject(44, (* (( (ptr) gf←c33136)+17) ));
SOURCE(6110, 18)
(* (ptr) bd←v6232 ) = widget←v16604;
SOURCE(6130, 31)
(* (( (ptr) bd←v6232)+4) ) = (word) (( (bPt) gf←c33136)+144)/* var←c31664 */ ;
SOURCE(6163, 50)
{
word val←v31456;
val←v31456 = bd←v6232;
{
word idx62;
word limit63;
(* ((( (ptr) widget←v16604)+49)+(
idx62 = (* (( (ptr) (* (( (ptr) gf←c33136)+8)/* buttonClass←v3000 */ ))+4) ),
limit63 = (* (( (ptr) widget←v16604)+48) ),
BCK(idx62, limit63)
)) ) = val←v31456;
};
};
}
static word CreateButton←P840(formal←c0115)
word formal←c0115;
{
register ptr gf←c33168 = (ptr) &globalframe;
word widget←v5308;
/* CreateButton: */
SOURCE(6219, 550)
SOURCE(6219, 550)
widget←v5308 = 0;
SOURCE(6458, 75)
{
word pd64;
pd64 = (* (( (ptr) (* (( (ptr) gf←c33168)+62)/* var←c32208 */ ))+20) );
(* (ptr) formal←c0115 ) = (word) ( *( (fPt) ((* (ptr) pd64 ))))((* (ptr) formal←c0115 ), (* (( (ptr) gf←c33168)+8)/* buttonClass←v3000 */ ), pd64)
;
};
SOURCE(6535, 55)
{
word pd65;
pd65 = (* (( (ptr) (* (( (ptr) gf←c33168)+61)/* var←c32176 */ ))+4) );
widget←v5308 = (word) ( *( (fPt) ((* (ptr) pd65 ))))((* (W9Pt) formal←c0115/* widgetSpec←v5056 */ ), (* (( (ptr) formal←c0115)+9)
/* text←v5084 */ ), (* (W4Pt) (( (ptr) formal←c0115)+10)/* style←v5112 */ ), pd65);
};
SOURCE(6592, 114)
{
word bd←v6276;
SOURCE(6598, 35)
{
word idx66;
word limit67;
bd←v6276 = XR←Narrow((* ((( (ptr) widget←v5308)+49)+(
idx66 = (* (( (ptr) (* (( (ptr) gf←c33168)+8)/* buttonClass←v3000 */ ))+4) ),
limit67 = (* (( (ptr) widget←v5308)+48) ),
BCK(idx66, limit67)
)) ), (* (( (ptr) gf←c33168)+17) ));
};
SOURCE(6635, 36)
(* (( (ptr) bd←v6276)+10) ) = (* (( (ptr) formal←c0115)+13) );
SOURCE(6673, 16)
(* (( (ptr) bd←v6276)+3) ) = (* (( (ptr) formal←c0115)+17)/* hitTQ←v5224 */ );
SOURCE(6691, 15)
(* (( (ptr) bd←v6276)+1) ) = (* (( (ptr) formal←c0115)+18)/* help←v5252 */ );
};
SOURCE(6711, 58)
(void) SetButtonCallback←P1020(widget←v5308, (* (( (ptr) formal←c0115)+14)/* hitProc←v5140 */ ), (* (( (ptr) formal←c0115)+15)
/* registerData←v5168 */ ), (* (( (ptr) formal←c0115)+16)/* callData←v5196 */ ));
SOURCE(6219, 550)
return(widget←v5308);
}
static void SetButtonTQ←P900(button←v5368, hitTQ←v5396)
word button←v5368;
word hitTQ←v5396;
{
register ptr gf←c33200 = (ptr) &globalframe;
word bd←v6320;
/* SetButtonTQ: */
SOURCE(6775, 124)
SOURCE(6845, 35)
{
word idx68;
word limit69;
bd←v6320 = XR←Narrow((* ((( (ptr) button←v5368)+49)+(
idx68 = (* (( (ptr) (* (( (ptr) gf←c33200)+8)/* buttonClass←v3000 */ ))+4) ),
limit69 = (* (( (ptr) button←v5368)+48) ),
BCK(idx68, limit69)
)) ), (* (( (ptr) gf←c33200)+17) ));
};
SOURCE(6882, 17)
(* (( (ptr) bd←v6320)+3) ) = hitTQ←v5396;
}
static void SetButtonHelp←P960(button←v5456, help←v5484)
word button←v5456;
word help←v5484;
{
register ptr gf←c33232 = (ptr) &globalframe;
word bd←v6364;
/* SetButtonHelp: */
SOURCE(6902, 127)
SOURCE(6977, 35)
{
word idx70;
word limit71;
bd←v6364 = XR←Narrow((* ((( (ptr) button←v5456)+49)+(
idx70 = (* (( (ptr) (* (( (ptr) gf←c33232)+8)/* buttonClass←v3000 */ ))+4) ),
limit71 = (* (( (ptr) button←v5456)+48) ),
BCK(idx70, limit71)
)) ), (* (( (ptr) gf←c33232)+17) ));
};
SOURCE(7014, 15)
(* (( (ptr) bd←v6364)+1) ) = help←v5484;
}
static void SetButtonCallback←P1020(button←v5544, hitProc←v5572, registerData←v5600, callData←v5628)
word button←v5544;
word hitProc←v5572;
word registerData←v5600;
word callData←v5628;
{
register ptr gf←c33264 = (ptr) &globalframe;
word bd←v6408;
/* SetButtonCallback: */
SOURCE(7032, 312)
SOURCE(7160, 35)
{
word idx72;
word limit73;
bd←v6408 = XR←Narrow((* ((( (ptr) button←v5544)+49)+(
idx72 = (* (( (ptr) (* (( (ptr) gf←c33264)+8)/* buttonClass←v3000 */ ))+4) ),
limit73 = (* (( (ptr) button←v5544)+48) ),
BCK(idx72, limit73)
)) ), (* (( (ptr) gf←c33264)+17) ));
};
SOURCE(7197, 147)
if ((bd←v6408 != 0)) {
SOURCE(7215, 36)
if ((hitProc←v5572 == 0)) {
SOURCE(7235, 16)
hitProc←v5572 = (word) (( (bPt) gf←c33264)+144)/* var←c31664 */ ;
};
SOURCE(7253, 91)
{
W3 var←c32656;
var←c32656.f0 = XR←CheckProc(hitProc←v5572);
var←c32656.f1 = registerData←v5600;
var←c32656.f2 = callData←v5628;
(void) EntrySetCallbackRec←P120(bd←v6408, var←c32656);
};
};
}
static void NoName←Q1716(formal←c0134, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0134;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
if ((formal←c200001 == XR←Aborted)) {
SOURCE(5098, 9)
(* (ptr) formal←c0134 ) = 2;
(* (( (ptr) formal←c0134)+1) ) = 2;
return;
};
(* (ptr) formal←c0134 ) = 0;
(* (( (ptr) formal←c0134)+1) ) = 0;
return;
}
static word NoName←Q1776(formal←c076)
word formal←c076;
{
W3 var←c078;
word var←c077;
/* intermediary proc for a FORK, nArgs: 3, nRets: 0 */
var←c078 = (* (W3Pt) (( (ptr) formal←c076)+4) );
var←c077 = (* (( (ptr) formal←c076)+2) );
formal←c076 = XR←ExtensionFree(formal←c076);
(void) ( *( (fPt) ((* (ptr) var←c077 ))))(var←c078.f0, var←c078.f1, var←c078.f2, var←c077);
return(0);
}
/* file: XTkButtonsImpl, module: XTkButtonsImpl, compiled at: July 9, 1992 6:01:27 pm PDT */
extern void XR←install←XTkButtonsImpl() {
NoName←Q1596();
}
extern void XR←run←XTkButtonsImpl() { XR←Start(&globalframe); }