/* 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 #include 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); }