/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */
/* time: May 4, 1993 2:35:46 pm PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: XTkLabelsImpl, module: XTkLabelsImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [294049893,3745469316] XTkLabelsImpl";
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 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, f3, f4;} W5;
typedef W5 *W5Pt;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef W2 *W2Pt;
typedef W8 *W8Pt;
typedef struct {word f0, f1, f2, f3;} W4;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W8 f; W3 r;} W11;
typedef struct {W16 f; W11 r;} W27;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {W8 f; W7 r;} W15;
typedef W15 *W15Pt;
typedef W4 *W4Pt;
typedef struct {W8 f; W2 r;} W10;
typedef struct {W16 f; W2 r;} W18;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
#define MIN(cast, x, y) ( ( cast x) < ( cast y) ? (x) : (y) )
#define IOP2(op, x, y) ( (word) ((x) op (y)) )
static void NoName←Q5904();
static void XTkLabelsImpl←P0();
static word LabClass←P60();
static word NewLabelClassPart←P120();
static word InstallDepth←P180();
static void InvalidateDB←P240();
static void LabelEventProc←P360();
static word NoName←Q5964();
static void ForkSetStyle←P420();
static void ForkRepaint←P480();
static void ForkComputeCaretPosition←P540();
static void ComputeCaretPosition←P600();
static word NoName←Q6024();
static void ImmediateRepaint←P660();
static word EnforceConnection←P720();
static word GetDefaultFont←P780();
static word NiceOpenFont←P840();
static word NoName←Q6084();
static word QueryFontName←P900();
static void LocalSetFont←P960();
static void LabPreComputations←P1020();
static void LabPreferredSizeLR←P1080();
static void LabFullStopFastAccessLR←P1140();
static void LabActualCreateWindowLR←P1200();
static void CreateFocusBlinker←P1260();
static void LabelInitInstPart←P1320();
static void LabelForgetScreenLR←P1380();
static word CreateLabel←P1440();
static word GetText←P1620();
static word LabelGetText←P1680();
static void SetText←P1740();
static void LabelSetText←P1800();
static void EntrySetStyleSpec←P1860();
static void EntryGetStyleSpec←P1920();
static void SetGCPartOfStyle←P1980();
static void GetStyleSpec←P2040();
static void SetStyleSpec←P2100();
static void MultiDelegation←P3960();
static void SetStyleKey←P2160();
static void MultiDelegation←P4020();
static void LabelSetStyleKey←P2220();
static void LabelGetStyleSpec←P2280();
static void LabelSetStyleSpec←P2340();
static void SetWindowPartOfStyle←P2400();
static void CutLabelValue←P2460();
static void SetCharInsertionIndex←P2520();
static void SetCharInsertionPos←P2580();
static word GetCharInsertionIndex←P2640();
static word ToCharPos←P2700();
static word NoName←Q6144();
static void NoName←Q6204();
static void NoName←Q6264();
static void NoName←Q6324();
static void NoName←Q6384();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string2 = {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[16];} string3 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string4 = {65537, "\001\000\000"};
static struct {unsigned f; char r[8];} string5 = {393224, "\205\210\242\000\017\241\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\123\320\000\000"};
static struct {unsigned f; char r[60];} string7 = {3801146, "\007\100\200\040\047\004\100\354\004\200\140\054\004\014\015\015\015\015\015\015\015\015\004\140\014\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\015\013\004\100\114\004\102\354\004\100\314\000"};
static struct {unsigned f; char r[44];} string8 = {2752556, "\260\006\005\146\151\162\163\164\257\300\351\276\264\273\300\115\104\320\264\122\340\005\004\162\145\163\164\214\257\300\351\276\264\273\300\115\104\320\264\122\340\261\000"};
static struct {unsigned f; char r[4];} string9 = {131074, "\003\001\000"};
static struct {unsigned f; char r[4];} string10 = {131076, "\216\251\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\021\206\330\145\300\337\077\123\204\100\310\000\000"};
static struct {unsigned f; char r[4];} string12 = {196611, "\004A1"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\234\350\054\033\300\120\345\145\367\101\064\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\021\206\330\145\300\337\077\123\204\100\244\000\000"};
static struct {unsigned f; char r[44];} string15 = {2818092, "\216\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"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\244\000\000"};
static struct {unsigned f; char r[40];} string17 = {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];} string18 = {786448, "LabelRepaint\000\000\000"};
static struct {unsigned f; char r[12];} string19 = {524300, "FontName\000\000\000"};
static struct {unsigned f; char r[12];} string20 = {589836, "LabelFont\000\000"};
static struct {unsigned f; char r[8];} string21 = {327688, "focus\000\000"};
static struct {unsigned f; char r[12];} string22 = {524300, "actionTQ\000\000\000"};
static struct {unsigned f; char r[32];} string23 = {2031648, "(Cedar)(defaultLabelWExtension)"};
static struct {unsigned f; char r[32];} string24 = {2031648, "(Cedar)(defaultLabelHExtension)"};
static struct {unsigned f; char r[8];} string25 = {327688, "white\000\000"};
static struct {unsigned f; char r[8];} string26 = {327688, "Label\000\000"};
static struct {unsigned f; char r[8];} string27 = {262152, "fake\000\000\000"};
static struct {unsigned f; char r[16];} string28 = {917520, "TextDelegation\000"};
static struct {unsigned f; char r[8];} string29 = {393224, "invert\000"};
static struct {unsigned f; char r[16];} string30 = {786448, "WhiteOnBlack\000\000\000"};
static struct {unsigned f; char r[24];} string31 = {1441816, "TextDelegationSetStyle\000"};
static struct {unsigned f; char r[16];} string32 = {786448, "BlackOnWhite\000\000\000"};
static struct {unsigned f; char r[12];} string33 = {720908, "BlackOnGray"};
static struct {unsigned f; char r[8];} string34 = {327688, "Gray1\000\000"};
static struct {unsigned f; char r[8];} string35 = {327688, "Gray2\000\000"};
static struct {unsigned f; char r[8];} string36 = {327688, "Gray3\000\000"};
static struct {unsigned f; char r[8];} string37 = {327688, "Gray4\000\000"};
static struct {unsigned f; char r[16];} string38 = {851984, "\257\300\021\206\330\145\300\337\077\123\204\100\164\000\000"};
static struct {unsigned f; char r[32];} string39 = {2031647, "\006\013\040\001\044\001\050\001\054\001\060\001\064\001\070\001\074\001\100\100\001\100\104\001\100\230\010\000\004\024\001"};
static struct {unsigned f; char r[16];} string40 = {851984, "\257\300\047\312\257\214\300\225\003\264\361\100\150\000\000"};
static struct {unsigned f; char r[16];} string41 = {851984, "\257\300\003\153\243\146\300\005\107\115\327\100\150\000\000"};
static struct {unsigned f; char r[16];} string42 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string43 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string44 = {851984, "\257\300\130\354\167\377\300\226\325\031\150\100\150\000\000"};
static struct {unsigned f; char r[16];} string45 = {851984, "\257\300\264\326\343\056\300\340\077\001\214\100\150\000\000"};
static struct {unsigned f; char r[16];} string46 = {851984, "\257\300\213\047\253\045\300\271\243\347\012\100\150\000\000"};
static struct {unsigned f; char r[16];} string47 = {851984, "\257\300\307\342\130\103\300\212\340\271\244\100\150\000\000"};
static struct {unsigned f; char r[16];} string48 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\150\000\000"};
static struct {unsigned f; char r[16];} string49 = {851984, "\257\300\067\364\334\343\300\133\256\014\325\100\150\000\000"};
static struct {unsigned f; char r[16];} string50 = {851984, "\257\300\313\123\221\202\300\154\256\060\341\100\150\000\000"};
static struct {unsigned f; char r[16];} string51 = {851984, "\257\300\262\245\110\370\300\216\274\026\201\100\164\000\000"};
static struct {unsigned f; char r[16];} string52 = {851984, "\257\300\227\370\144\253\300\176\165\034\110\100\150\000\000"};
static struct {unsigned f; char r[16];} string53 = {851984, "\257\300\372\252\147\374\300\170\207\127\200\100\150\000\000"};
static struct {unsigned f; char r[16];} string54 = {851984, "\257\300\255\065\245\005\300\213\277\037\112\100\150\000\000"};
static struct {unsigned f; char r[16];} string55 = {851984, "\257\300\067\247\367\025\300\305\121\116\376\100\150\000\000"};
static struct {unsigned f; char r[16];} string56 = {851984, "\257\300\234\350\054\033\300\120\345\145\367\100\150\000\000"};
static struct {unsigned f; char r[16];} string57 = {851984, "\257\300\107\272\166\213\300\373\375\000\301\100\150\000\000"};
static struct {
word f0[58]; 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; word f119; word f120;
word f121; word f122; word f123; word f124;
word f125; word f126; word f127; 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[17];
} globalframe = {
{0}, (word) ToCharPos←P2700, 0, (word) GetCharInsertionIndex←P2640,
0, (word) SetCharInsertionPos←P2580, 0, (word) SetCharInsertionIndex←P2520,
0, (word) CutLabelValue←P2460, 0, (word) SetWindowPartOfStyle←P2400,
0, (word) LabelSetStyleSpec←P2340, 0, (word) LabelGetStyleSpec←P2280,
0, (word) LabelSetStyleKey←P2220, 0, (word) SetStyleKey←P2160,
0, (word) SetStyleSpec←P2100, 0, (word) GetStyleSpec←P2040,
0, (word) SetGCPartOfStyle←P1980, 0, (word) EntryGetStyleSpec←P1920,
0, (word) EntrySetStyleSpec←P1860, 0, (word) LabelSetText←P1800,
0, (word) SetText←P1740, 0, (word) LabelGetText←P1680,
0, (word) GetText←P1620, 0, (word) CreateLabel←P1440,
0, (word) LabelForgetScreenLR←P1380, 0, (word) LabelInitInstPart←P1320,
0, (word) CreateFocusBlinker←P1260, 0, (word) LabActualCreateWindowLR←P1200,
0, (word) LabFullStopFastAccessLR←P1140, 0, (word) LabPreferredSizeLR←P1080,
0, (word) LabPreComputations←P1020, 0, (word) LocalSetFont←P960,
0, (word) QueryFontName←P900, 0, (word) NiceOpenFont←P840,
0, (word) GetDefaultFont←P780, 0, (word) EnforceConnection←P720,
0, (word) ImmediateRepaint←P660, 0, (word) ComputeCaretPosition←P600,
0, (word) ForkComputeCaretPosition←P540, 0, (word) ForkRepaint←P480,
0, (word) ForkSetStyle←P420, 0, (word) LabelEventProc←P360,
0, (word) InvalidateDB←P240, 0, (word) InstallDepth←P180,
0, (word) NewLabelClassPart←P120, 0, (word) LabClass←P60,
0, (word) XTkLabelsImpl←P0, {0}
};
static void NoName←Q5904()
{
register ptr gf←c0430 = (ptr) &globalframe;
word var←c63804;
(* (( (ptr) gf←c0430)+18) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c0430)+19) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (( (ptr) gf←c0430)+21) ) = (word) XR←GetTypeIndexS((word) (&string5));
(* (( (ptr) gf←c0430)+22) ) = (word) XR←GetTypeIndex((word) &string6, 0, (word) &string7);
(* (( (ptr) gf←c0430)+27) ) = (word) XR←GetTypeIndex((word) &string8, 0, (word) &string9);
(* (( (ptr) gf←c0430)+29) ) = (word) XR←GetTypeIndex((word) &string10, 0, (word) &string4);
(* (( (ptr) gf←c0430)+32) ) = (word) XR←GetTypeIndex((word) &string11, 0, (word) &string12);
(* (( (ptr) gf←c0430)+33) ) = (word) XR←GetTypeIndexS((word) (&string13));
(* (( (ptr) gf←c0430)+34) ) = (word) XR←GetTypeIndex((word) &string14, 0, (word) &string4);
(* (( (ptr) gf←c0430)+35) ) = (word) XR←GetTypeIndex((word) &string15, 0, (word) &string4);
(* (( (ptr) gf←c0430)+36) ) = (word) XR←GetTypeIndex((word) &string16, 0, (word) &string17);
(* (ptr) (( (bPt) gf←c0430)+152) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+29) ), (word) &string18);
(* (ptr) (( (bPt) gf←c0430)+156) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+29) ), (word) &string19);
(* (ptr) (( (bPt) gf←c0430)+160) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+29) ), (word) &string20);
(* (ptr) (( (bPt) gf←c0430)+164) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+29) ), (word) &string21);
(* (ptr) (( (bPt) gf←c0430)+168) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+29) ), (word) &string22);
(* (ptr) (( (bPt) gf←c0430)+172) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+35) ), (word) &string23);
(* (ptr) (( (bPt) gf←c0430)+176) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+35) ), (word) &string24);
(* (ptr) (( (bPt) gf←c0430)+180) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+29) ), (word) &string25);
(* (ptr) (( (bPt) gf←c0430)+184) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+29) ), (word) &string26);
(* (ptr) (( (bPt) gf←c0430)+188) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+19) ), (word) &string27);
(* (ptr) (( (bPt) gf←c0430)+192) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+29) ), (word) &string28);
(* (ptr) (( (bPt) gf←c0430)+196) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+29) ), (word) &string29);
(* (ptr) (( (bPt) gf←c0430)+200) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+29) ), (word) &string30);
(* (ptr) (( (bPt) gf←c0430)+204) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+29) ), (word) &string31);
(* (ptr) (( (bPt) gf←c0430)+208) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+29) ), (word) &string32);
(* (ptr) (( (bPt) gf←c0430)+212) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+29) ), (word) &string33);
(* (ptr) (( (bPt) gf←c0430)+216) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+29) ), (word) &string34);
(* (ptr) (( (bPt) gf←c0430)+220) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+29) ), (word) &string35);
(* (ptr) (( (bPt) gf←c0430)+224) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+29) ), (word) &string36);
(* (ptr) (( (bPt) gf←c0430)+228) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0430)+29) ), (word) &string37);
(void) XR←DeclareGlobalFrame((word) "XTkLabelsImpl", &globalframe, (word) XR←GetTypeIndex((word) &string38, 0, (word) &string39)
, (word) (( (bPt) gf←c0430)+568)/* var←c59900 */ );
var←c63804 = (word) XR←ImportInterface((word) "Customize", (word) XR←GetTypeIndexS((word) (&string40)), 19);
(* (( (ptr) gf←c0430)+155)/* var←c61884 */ ) = var←c63804;
(void) XR←ImportProcS(var←c63804, 67634946);
var←c63804 = (word) XR←ImportInterface((word) "KeyMapping", (word) XR←GetTypeIndexS((word) (&string41)), 6);
(* (( (ptr) gf←c0430)+149)/* var←c60988 */ ) = var←c63804;
(void) XR←ImportProcS(var←c63804, 67633666);
var←c63804 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string42)), 43);
(* (( (ptr) gf←c0430)+150)/* var←c61404 */ ) = var←c63804;
(void) XR←ImportProcS(var←c63804, 67373313);
(void) XR←ImportProcS(var←c63804, 67898627);
(void) XR←ImportProcS(var←c63804, 67373569);
var←c63804 = (word) XR←ImportInterface((word) "Xl", (word) XR←GetTypeIndexS((word) (&string43)), 218);
(* (( (ptr) gf←c0430)+145)/* var←c59964 */ ) = var←c63804;
(void) XR←ImportProcS(var←c63804, 4736772);
(void) XR←ImportProcS(var←c63804, 560386);
(void) XR←ImportProcS(var←c63804, 560130);
(void) XR←ImportProcS(var←c63804, 561922);
(void) XR←ImportProcS(var←c63804, 74204681);
(void) XR←ImportProcS(var←c63804, 805635);
(void) XR←ImportProcS(var←c63804, 563970);
(void) XR←ImportProcS(var←c63804, 563458);
(void) XR←ImportProcS(var←c63804, 67395329);
(void) XR←ImportProcS(var←c63804, 67395073);
(void) XR←ImportProcS(var←c63804, 534274);
(void) XR←ImportProcS(var←c63804, 2142215);
(void) XR←ImportProcS(var←c63804, 2138630);
(void) XR←ImportProcS(var←c63804, 537682947);
(void) XR←ImportProcS(var←c63804, 1063940);
(void) XR←ImportProcS(var←c63804, 67401729);
(void) XR←ImportProcS(var←c63804, 67910403);
(void) XR←ImportProcS(var←c63804, 3450891);
(void) XR←ImportProcS(var←c63804, 68705285);
(void) XR←ImportProcS(var←c63804, 822787);
(void) XR←ImportProcS(var←c63804, 67668226);
(void) XR←ImportProcS(var←c63804, 68208131);
(void) XR←ImportProcS(var←c63804, 67919875);
var←c63804 = (word) XR←ImportInterface((word) "XlCutBuffers", (word) XR←GetTypeIndexS((word) (&string44)), 2);
(* (( (ptr) gf←c0430)+158)/* var←c63708 */ ) = var←c63804;
(void) XR←ImportProcS(var←c63804, 786691);
var←c63804 = (word) XR←ImportInterface((word) "XlDB", (word) XR←GetTypeIndexS((word) (&string45)), 4);
(* (( (ptr) gf←c0430)+148)/* var←c60892 */ ) = var←c63804;
(void) XR←ImportProcS(var←c63804, 67371265);
(void) XR←ImportProcS(var←c63804, 1049092);
var←c63804 = (word) XR←ImportInterface((word) "XlFontOps", (word) XR←GetTypeIndexS((word) (&string46)), 2);
(* (( (ptr) gf←c0430)+152)/* var←c61660 */ ) = var←c63804;
(void) XR←ImportProcS(var←c63804, 202375428);
(void) XR←ImportProcS(var←c63804, 67371009);
var←c63804 = (word) XR←ImportInterface((word) "XlPerDepth", (word) XR←GetTypeIndexS((word) (&string47)), 3);
(* (( (ptr) gf←c0430)+144)/* var←c59932 */ ) = var←c63804;
(void) XR←ImportProcS(var←c63804, 67633410);
(void) XR←ImportProcS(var←c63804, 67633666);
var←c63804 = (word) XR←ImportInterface((word) "XTk", (word) XR←GetTypeIndexS((word) (&string48)), 50);
(* (( (ptr) gf←c0430)+156)/* var←c62236 */ ) = var←c63804;
(void) XR←ImportProcS(var←c63804, 67643138);
(void) XR←ImportProcS(var←c63804, 69992451);
(void) XR←ImportProcS(var←c63804, 1579779);
var←c63804 = (word) XR←ImportInterface((word) "XTkBlinker", (word) XR←GetTypeIndexS((word) (&string49)), 6);
(* (( (ptr) gf←c0430)+146)/* var←c60284 */ ) = var←c63804;
(void) XR←ImportProcS(var←c63804, 1048836);
(void) XR←ImportProcS(var←c63804, 1049091);
(void) XR←ImportProcS(var←c63804, 525314);
(void) XR←ImportProcS(var←c63804, 787203);
(void) XR←ImportProcS(var←c63804, 68419589);
var←c63804 = (word) XR←ImportInterface((word) "XTkDB", (word) XR←GetTypeIndexS((word) (&string50)), 7);
(* (( (ptr) gf←c0430)+153)/* var←c61692 */ ) = var←c63804;
(void) XR←ImportProcS(var←c63804, 67372033);
(void) XR←ImportProcS(var←c63804, 68157700);
var←c63804 = (word) XR←ImportInterface((word) "XTkDelegation", (word) XR←GetTypeIndexS((word) (&string51)), 5);
(* (( (ptr) gf←c0430)+157)/* var←c62460 */ ) = var←c63804;
(void) XR←ImportProcS(var←c63804, 68158468);
(void) XR←ImportProcS(var←c63804, 67895811);
var←c63804 = (word) XR←ImportInterface((word) "XTkFriends", (word) XR←GetTypeIndexS((word) (&string52)), 33);
(* (( (ptr) gf←c0430)+147)/* var←c60348 */ ) = var←c63804;
(void) XR←ImportProcS(var←c63804, 269569);
(void) XR←ImportProcS(var←c63804, 1048580);
(void) XR←ImportProcS(var←c63804, 526082);
(void) XR←ImportProcS(var←c63804, 73666049);
var←c63804 = (word) XR←ImportInterface((word) "XTkOps", (word) XR←GetTypeIndexS((word) (&string53)), 5);
(* (( (ptr) gf←c0430)+154)/* var←c61756 */ ) = var←c63804;
(void) XR←ImportProcS(var←c63804, 134742786);
var←c63804 = (word) XR←ImportInterface((word) "XTkPrivate", (word) XR←GetTypeIndexS((word) (&string54)), 4);
(* (( (ptr) gf←c0430)+151)/* var←c61532 */ ) = var←c63804;
var←c63804 = (word) XR←ExportInterface((word) "XTkCommon", (word) XR←GetTypeIndexS((word) (&string55)), 1);
(* (( (ptr) gf←c0430)+159)/* var←c63836 */ ) = var←c63804;
(void) XR←ExportVar(var←c63804, 0, (word) (( (bPt) gf←c0430)+36)/* queryDBFont←v3560 */ );
var←c63804 = (word) XR←ExportInterface((word) "XTkLabels", (word) XR←GetTypeIndexS((word) (&string56)), 9);
(* (( (ptr) gf←c0430)+159)/* var←c63836 */ ) = var←c63804;
(void) XR←ExportProcS(var←c63804, (word) (( (bPt) gf←c0430)+384)/* var←c59164 */ , 70778883);
(void) XR←ExportProcS(var←c63804, (word) (( (bPt) gf←c0430)+376)/* var←c59132 */ , 67371265);
(void) XR←ExportProcS(var←c63804, (word) (( (bPt) gf←c0430)+320)/* var←c58908 */ , 268698113);
(void) XR←ExportProcS(var←c63804, (word) (( (bPt) gf←c0430)+360)/* var←c59068 */ , 787203);
(void) XR←ExportProcS(var←c63804, (word) (( (bPt) gf←c0430)+312)/* var←c58876 */ , 1573891);
(void) XR←ExportProcS(var←c63804, (word) (( (bPt) gf←c0430)+304)/* var←c58844 */ , 787715);
(void) XR←ExportVar(var←c63804, 6, (word) (( (bPt) gf←c0430)+40)/* labelClass←v3588 */ );
(void) XR←ExportProcS(var←c63804, (word) (( (bPt) gf←c0430)+552)/* var←c59836 */ , 67372801);
(void) XR←ExportProcS(var←c63804, (word) (( (bPt) gf←c0430)+472)/* var←c59516 */ , 67373057);
var←c63804 = (word) XR←ExportInterface((word) "XTkLabelsExtras", (word) XR←GetTypeIndexS((word) (&string57)), 4);
(* (( (ptr) gf←c0430)+159)/* var←c63836 */ ) = var←c63804;
(void) XR←ExportProcS(var←c63804, (word) (( (bPt) gf←c0430)+256)/* var←c58652 */ , 786435);
(void) XR←ExportProcS(var←c63804, (word) (( (bPt) gf←c0430)+240)/* var←c58588 */ , 67371265);
(void) XR←ExportProcS(var←c63804, (word) (( (bPt) gf←c0430)+248)/* var←c58620 */ , 1049091);
(void) XR←ExportProcS(var←c63804, (word) (( (bPt) gf←c0430)+232)/* var←c58556 */ , 67896066);
}
static void XTkLabelsImpl←P0(formal←c090, formal←c084)
word formal←c090;
word formal←c084;
{
register ptr gf←c63868 = (ptr) &globalframe;
/* XTkLabelsImpl: */
SOURCE(252, 19823)
SOURCE(593, 67)
{
word pd58;
pd58 = (* (( (ptr) (* (( (ptr) gf←c63868)+144)/* var←c59932 */ ))+6) );
(* (( (ptr) gf←c63868)+8)/* perDKey←v3532 */ ) = (word) ( *( (fPt) ((* (ptr) pd58 ))))((word) (( (bPt) gf←c63868)+544)/* var←c59804 */ , 0, pd58)
;
};
SOURCE(663, 54)
{
word pd59;
pd59 = (* (( (ptr) (* (( (ptr) gf←c63868)+145)/* var←c59964 */ ))+100) );
(* (( (ptr) gf←c63868)+9)/* queryDBFont←v3560 */ ) = (word) ( *( (fPt) ((* (ptr) pd59 ))))(0, (* (( (ptr) gf←c63868)+47)
), 0, pd59);
};
SOURCE(720, 41)
(* (( (ptr) gf←c63868)+10)/* labelClass←v3588 */ ) = (word) LabClass←P60();
SOURCE(2003, 229)
{
word var←c59996;
var←c59996 = XR←NewObject(64, (* (( (ptr) gf←c63868)+21) ));
(* (ptr) var←c59996 ) = 2290649224;
(* (( (ptr) var←c59996)+2) ) = 572662306;
(* (( (ptr) var←c59996)+4) ) = 2290649224;
(* (( (ptr) var←c59996)+5) ) = 1145324612;
(* (( (ptr) var←c59996)+6) ) = 572662306;
(* (( (ptr) var←c59996)+7) ) = 286331153;
(* (( (ptr) var←c59996)+8) ) = (word) -1;
(* (( (ptr) var←c59996)+12) ) = (word) -1;
(* (( (ptr) var←c59996)+13) ) = 2290649224;
(* (( (ptr) var←c59996)+14) ) = 2290649224;
(* (( (ptr) var←c59996)+15) ) = 2290649224;
(* (( (ptr) gf←c63868)+11)/* stipple1Space←v3700 */ ) = var←c59996;
};
SOURCE(4250, 54)
(* (( (ptr) gf←c63868)+12)/* repaintDelayed←v3868 */ ) = XR←NewObject(32, (* (( (ptr) gf←c63868)+22) ));
SOURCE(4306, 50)
(* (( (ptr) gf←c63868)+13)/* repaintNow←v3896 */ ) = XR←NewObject(32, (* (( (ptr) gf←c63868)+22) ));
SOURCE(4358, 48)
(* (( (ptr) gf←c63868)+14)/* setStyle←v3924 */ ) = XR←NewObject(32, (* (( (ptr) gf←c63868)+22) ));
SOURCE(4408, 56)
(* (( (ptr) gf←c63868)+15)/* setCaretPosition←v3952 */ ) = XR←NewObject(32, (* (( (ptr) gf←c63868)+22) ));
SOURCE(4467, 110)
{
word var←c60156;
{
word var←c60188;
word var←c60220;
var←c60188 = XR←NewObject(8, (* (( (ptr) gf←c63868)+27) ));
var←c60220 = var←c60188;
(* (ptr) var←c60220 ) = 12;
(* (( (ptr) var←c60220)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c63868)+27) ));
var←c60220 = (* (( (ptr) var←c60220)+1) );
(* (ptr) var←c60220 ) = 2;
(* (( (ptr) var←c60220)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c63868)+27) ));
var←c60220 = (* (( (ptr) var←c60220)+1) );
(* (ptr) var←c60220 ) = 17;
(* (( (ptr) var←c60220)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c63868)+27) ));
var←c60220 = (* (( (ptr) var←c60220)+1) );
(* (ptr) var←c60220 ) = 9;
(* (( (ptr) var←c60220)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c63868)+27) ));
var←c60220 = (* (( (ptr) var←c60220)+1) );
(* (ptr) var←c60220 ) = 10;
var←c60156 = var←c60188;
};
{
W2 var←c60252;
var←c60252.f0 = 0;
var←c60252.f1 = 0;
{
word pd60;
pd60 = (* (( (ptr) (* (( (ptr) gf←c63868)+145)/* var←c59964 */ ))+202) );
(* (( (ptr) gf←c63868)+16)/* labEvents←v3980 */ ) = (word) ( *( (fPt) ((* (ptr) pd60 ))))(var←c60156, var←c60252, 0, pd60)
;
};
};
};
SOURCE(12802, 103)
{
word pd61;
pd61 = (* (( (ptr) (* (( (ptr) gf←c63868)+146)/* var←c60284 */ ))+4) );
(* (( (ptr) gf←c63868)+17)/* focusBlinkerClass←v4484 */ ) = (word) ( *( (fPt) ((* (ptr) pd61 ))))((word) (( (bPt) gf←c63868)+408)
/* var←c59260 */ , 0, 0, 400, 400, pd61);
};
}
static word LabClass←P60()
{
register ptr gf←c63900 = (ptr) &globalframe;
word labelClass←v5264;
/* LabClass: */
SOURCE(763, 702)
SOURCE(763, 702)
labelClass←v5264 = 0;
SOURCE(828, 420)
{
W25 var←c093;
(* (ptr) &var←c093 ) = (* (( (ptr) gf←c63900)+46) );
(* (( (ptr) &var←c093)+1) ) = (* (( (ptr) gf←c63900)+46) );
(* (( (ptr) &var←c093)+2) ) = 0;
(* (( (ptr) &var←c093)+3) ) = 1;
(* (( (ptr) &var←c093)+4) ) = 1;
(* (( (ptr) &var←c093)+5) ) = 0;
(* (( (ptr) &var←c093)+6) ) = (word) (( (bPt) gf←c63900)+432)/* var←c59356 */ ;
(* (( (ptr) &var←c093)+7) ) = XR←CheckProc(0);
(* (( (ptr) &var←c093)+8) ) = (word) (( (bPt) gf←c63900)+416)/* var←c59292 */ ;
(* (( (ptr) &var←c093)+9) ) = XR←CheckProc(0);
(* (( (ptr) &var←c093)+10) ) = XR←CheckProc(0);
(* (( (ptr) &var←c093)+11) ) = XR←CheckProc(0);
(* (( (ptr) &var←c093)+12) ) = XR←CheckProc(0);
(* (( (ptr) &var←c093)+13) ) = (word) (( (bPt) gf←c63900)+424)/* var←c59324 */ ;
(* (( (ptr) &var←c093)+14) ) = XR←CheckProc(0);
(* (( (ptr) &var←c093)+15) ) = (word) (( (bPt) gf←c63900)+392)/* var←c59196 */ ;
(* (( (ptr) &var←c093)+16) ) = XR←CheckProc(0);
(* (( (ptr) &var←c093)+17) ) = XR←CheckProc(0);
(* (( (ptr) &var←c093)+18) ) = (word) (( (bPt) gf←c63900)+400)/* var←c59228 */ ;
(* (( (ptr) &var←c093)+19) ) = 0;
(* (( (ptr) &var←c093)+20) ) = (* (( (ptr) gf←c63900)+45) );
(* (( (ptr) &var←c093)+21) ) = 0;
(* (( (ptr) &var←c093)+22) ) = 2260993;
(* (( (ptr) &var←c093)+23) ) = XR←CheckProc(0);
(* (( (ptr) &var←c093)+24) ) = XR←CheckProc(0);
{
word pd62;
pd62 = (* (( (ptr) (* (( (ptr) gf←c63900)+147)/* var←c60348 */ ))+18) );
labelClass←v5264 = (word) ( *( (fPt) ((* (ptr) pd62 ))))((word) (&var←c093), pd62);
};
};
SOURCE(1250, 215)
{
word var←c60380;
var←c60380 = XR←NewObject(20, (* (( (ptr) gf←c63900)+33) ));
(* (ptr) var←c60380 ) = (word) (( (bPt) gf←c63900)+368)/* var←c59100 */ ;
(* (( (ptr) var←c60380)+1) ) = (word) (( (bPt) gf←c63900)+352)/* var←c59036 */ ;
(* (( (ptr) var←c60380)+2) ) = (word) (( (bPt) gf←c63900)+288)/* var←c58780 */ ;
(* (( (ptr) var←c60380)+3) ) = (word) (( (bPt) gf←c63900)+280)/* var←c58748 */ ;
(* (( (ptr) var←c60380)+4) ) = (word) (( (bPt) gf←c63900)+296)/* var←c58812 */ ;
{
word idx63;
word limit64;
(* ((( (ptr) labelClass←v5264)+30)+(
idx63 = (* (( (ptr) labelClass←v5264)+27) ),
limit64 = (* (( (ptr) labelClass←v5264)+29) ),
BCK(idx63, limit64)
)) ) = var←c60380;
};
};
SOURCE(763, 702)
return(labelClass←v5264);
}
static word NewLabelClassPart←P120(subClass←v5324)
word subClass←v5324;
{
register ptr gf←c63932 = (ptr) &globalframe;
word newClassPart←v5368;
word oldClassPart←v9688;
/* NewLabelClassPart: */
SOURCE(1472, 302)
SOURCE(1472, 302)
newClassPart←v5368 = 0;
SOURCE(1582, 82)
{
word idx65;
word limit66;
oldClassPart←v9688 = XR←Narrow((* ((( (ptr) subClass←v5324)+30)+(
idx65 = (* (( (ptr) (* (( (ptr) gf←c63932)+10)/* labelClass←v3588 */ ))+27) ),
limit66 = (* (( (ptr) subClass←v5324)+29) ),
BCK(idx65, limit66)
)) ), (* (( (ptr) gf←c63932)+33) ));
};
SOURCE(1668, 49)
{
word var←c60412;
var←c60412 = XR←NewObject(20, (* (( (ptr) gf←c63932)+33) ));
(* (W5Pt) var←c60412 ) = (* (W5Pt) oldClassPart←v9688 );
newClassPart←v5368 = var←c60412;
};
SOURCE(1719, 55)
{
word idx67;
word limit68;
(* ((( (ptr) subClass←v5324)+30)+(
idx67 = (* (( (ptr) (* (( (ptr) gf←c63932)+10)/* labelClass←v3588 */ ))+27) ),
limit68 = (* (( (ptr) subClass←v5324)+29) ),
BCK(idx67, limit68)
)) ) = newClassPart←v5368;
};
SOURCE(1472, 302)
return(newClassPart←v5368);
}
static word InstallDepth←P180(sd←v17576, initData←v17604)
word sd←v17576;
word initData←v17604;
{
register ptr gf←c63964 = (ptr) &globalframe;
word var←c17648;
word dd←v9744;
word var←c60476;
word c←v58508;
/* InstallDepth: */
SOURCE(2235, 1489)
SOURCE(2273, 38)
dd←v9744 = XR←NewObject(28, (* (( (ptr) gf←c63964)+34) ));
(* (( (ptr) dd←v9744)+1) ) = (word) -1;
(* (( (ptr) dd←v9744)+2) ) = (word) -1;
SOURCE(2313, 1356)
{
word tc69;
if ((sd←v17576 != 0)) {
c←v58508 = (* (( (ptr) (* (( (ptr) sd←v17576)+1) ))+16) );
if ((c←v58508 != 0)) {
var←c60476 = (unsigned) (0 != (* (( (ptr) c←v58508)+15) ));
}
else {
var←c60476 = (unsigned) 0;
};
tc69 = (word) (0 != var←c60476);
}
else {
tc69 = (word) 0;
};
if (tc69) {
SOURCE(2363, 1308)
{
word c←v9800;
word screen←v9828;
word gc←v9856;
SOURCE(2365, 39)
c←v9800 = (* (( (ptr) (* (( (ptr) sd←v17576)+1) ))+16) );
SOURCE(2406, 29)
screen←v9828 = (* (( (ptr) sd←v17576)+1) );
SOURCE(2437, 58)
{
word pd70;
pd70 = (* (( (ptr) (* (( (ptr) gf←c63964)+145)/* var←c59964 */ ))+141) );
gc←v9856 = (word) ( *( (fPt) ((* (ptr) pd70 ))))(c←v9800, (* (ptr) screen←v9828 ), pd70);
};
SOURCE(2497, 85)
{
word pd71;
pd71 = (* (( (ptr) (* (( (ptr) gf←c63964)+145)/* var←c59964 */ ))+146) );
(void) ( *( (fPt) ((* (ptr) pd71 ))))(gc←v9856, (* (( (ptr) screen←v9828)+3) ), (* (( (ptr) screen←v9828)+2) ), pd71);
};
SOURCE(2584, 75)
{
W2 var←c60508;
var←c60508.f0 = 4;
var←c60508.f1 = 4;
{
word pd72;
pd72 = (* (( (ptr) (* (( (ptr) gf←c63964)+145)/* var←c59964 */ ))+96) );
(* (( (ptr) dd←v9744)+3) ) = (word) ( *( (fPt) ((* (ptr) pd72 ))))(c←v9800, (* (ptr) screen←v9828 ), var←c60508, (* (( (ptr) sd←v17576)+3)
), 0, pd72);
};
};
SOURCE(2661, 75)
{
W2 var←c60540;
var←c60540.f0 = 4;
var←c60540.f1 = 4;
{
word pd73;
pd73 = (* (( (ptr) (* (( (ptr) gf←c63964)+145)/* var←c59964 */ ))+96) );
(* (( (ptr) dd←v9744)+4) ) = (word) ( *( (fPt) ((* (ptr) pd73 ))))(c←v9800, (* (ptr) screen←v9828 ), var←c60540, (* (( (ptr) sd←v17576)+3)
), 0, pd73);
};
};
SOURCE(2738, 75)
{
W2 var←c60572;
var←c60572.f0 = 4;
var←c60572.f1 = 4;
{
word pd74;
pd74 = (* (( (ptr) (* (( (ptr) gf←c63964)+145)/* var←c59964 */ ))+96) );
(* (( (ptr) dd←v9744)+5) ) = (word) ( *( (fPt) ((* (ptr) pd74 ))))(c←v9800, (* (ptr) screen←v9828 ), var←c60572, (* (( (ptr) sd←v17576)+3)
), 0, pd74);
};
};
SOURCE(2815, 75)
{
W2 var←c60604;
var←c60604.f0 = 4;
var←c60604.f1 = 4;
{
word pd75;
pd75 = (* (( (ptr) (* (( (ptr) gf←c63964)+145)/* var←c59964 */ ))+96) );
(* (( (ptr) dd←v9744)+6) ) = (word) ( *( (fPt) ((* (ptr) pd75 ))))(c←v9800, (* (ptr) screen←v9828 ), var←c60604, (* (( (ptr) sd←v17576)+3)
), 0, pd75);
};
};
SOURCE(2900, 714)
SOURCE(2902, 176)
{
W2 var←c60636;
W2 var←c60668;
var←c60636.f0 = 4;
var←c60636.f1 = 4;
var←c60668.f0 = 0;
var←c60668.f1 = 0;
{
word pd76;
pd76 = (* (( (ptr) (* (( (ptr) gf←c63964)+145)/* var←c59964 */ ))+172) );
(void) ( *( (fPt) ((* (ptr) pd76 ))))(c←v9800, (* (( (ptr) dd←v9744)+3) ), gc←v9856, var←c60636, var←c60668, (* (( (ptr) gf←c63964)+11)
/* stipple1Space←v3700 */ )
, 0, 0, 4, 1, 0, pd76);
};
};
SOURCE(3080, 176)
{
W2 var←c60700;
W2 var←c60732;
var←c60700.f0 = 4;
var←c60700.f1 = 4;
var←c60732.f0 = 0;
var←c60732.f1 = 0;
{
word pd77;
pd77 = (* (( (ptr) (* (( (ptr) gf←c63964)+145)/* var←c59964 */ ))+172) );
(void) ( *( (fPt) ((* (ptr) pd77 ))))(c←v9800, (* (( (ptr) dd←v9744)+4) ), gc←v9856, var←c60700, var←c60732, (word) (( (bPt) (* (
( (ptr) gf←c63964)+11)/* stipple1Space←v3700 */ ))+16)
, 0, 0, 4, 1, 0, pd77);
};
};
SOURCE(3258, 176)
{
W2 var←c60764;
W2 var←c60796;
var←c60764.f0 = 4;
var←c60764.f1 = 4;
var←c60796.f0 = 0;
var←c60796.f1 = 0;
{
word pd78;
pd78 = (* (( (ptr) (* (( (ptr) gf←c63964)+145)/* var←c59964 */ ))+172) );
(void) ( *( (fPt) ((* (ptr) pd78 ))))(c←v9800, (* (( (ptr) dd←v9744)+5) ), gc←v9856, var←c60764, var←c60796, (word) (( (bPt) (* (
( (ptr) gf←c63964)+11)/* stipple1Space←v3700 */ ))+32)
, 0, 0, 4, 1, 0, pd78);
};
};
SOURCE(3436, 178)
{
W2 var←c60828;
W2 var←c60860;
var←c60828.f0 = 4;
var←c60828.f1 = 4;
var←c60860.f0 = 0;
var←c60860.f1 = 0;
{
word pd79;
pd79 = (* (( (ptr) (* (( (ptr) gf←c63964)+145)/* var←c59964 */ ))+172) );
(void) ( *( (fPt) ((* (ptr) pd79 ))))(c←v9800, (* (( (ptr) dd←v9744)+6) ), gc←v9856, var←c60828, var←c60860, (word) (( (bPt) (* (
( (ptr) gf←c63964)+11)/* stipple1Space←v3700 */ ))+48)
, 0, 0, 4, 1, 0, pd79);
};
};
SOURCE(3617, 52)
{
word pd80;
pd80 = (* (( (ptr) (* (( (ptr) gf←c63964)+148)/* var←c60892 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd80 ))))(c←v9800, (word) (( (bPt) gf←c63964)+536)/* var←c59772 */ , 0, dd←v9744, pd80);
};
};
};
};
SOURCE(3674, 36)
{
word pd81;
pd81 = (* (( (ptr) (* (( (ptr) gf←c63964)+145)/* var←c59964 */ ))+63) );
(* (ptr) dd←v9744 ) = (word) ( *( (fPt) ((* (ptr) pd81 ))))((* (( (ptr) gf←c63964)+42) ), 0, 0, pd81);
};
SOURCE(3712, 12)
return(dd←v9744);
}
static void InvalidateDB←P240(event←v20560, clientData←v20588, tq←v20616)
word event←v20560;
word clientData←v20588;
word tq←v20616;
{
register ptr gf←c63996 = (ptr) &globalframe;
word dd←v9900;
/* InvalidateDB: */
SOURCE(3728, 138)
SOURCE(3763, 40)
dd←v9900 = XR←Narrow(clientData←v20588, (* (( (ptr) gf←c63996)+34) ));
SOURCE(3805, 29)
(* (( (ptr) dd←v9900)+1) ) = (word) -1;
SOURCE(3836, 30)
(* (( (ptr) dd←v9900)+2) ) = (word) -1;
}
static void LabelEventProc←P360(formal←c0507, formal←c0508, tq←v31364)
word formal←c0507;
word formal←c0508;
word tq←v31364;
{
W6 var←c64028;
/* declaration of event←v31308 skipped */
/* declaration of clientData←v31336 skipped */
var←c64028.f4/* event←v31308 */ = formal←c0507;
var←c64028.f5/* clientData←v31336 */ = formal←c0508;
/* LabelEventProc: */
SOURCE(4579, 1746)
SOURCE(4626, 1699)
SOURCE(4628, 1661)
{
word var←c01;
{
word var←c0482;
var←c0482 = (word) &var←c64028;
var←c01 = (word) XR←Enable(( ((word) (fPt) NoName←Q5964) ), ( ((word) (fPt) NoName←Q6384) ), var←c0482);
};
if ((var←c01 == 2)) {
goto lab←L100001;
}
else {
if ((var←c01 == 1)) {
goto lab←L02;
};
};
};
goto lab←L100009;
lab←L100001: ;
lab←L100009: ;
lab←L02: ;
return;
}
static word NoName←Q5964(formal←c0437)
word formal←c0437;
{
register ptr gf←c0436 = (ptr) &globalframe;
SOURCE(4669, 39)
{
word widget←v9956;
word ld←v9984;
SOURCE(4669, 39)
widget←v9956 = XR←Narrow((* (( (ptr) formal←c0437)+5) ), (* (( (ptr) gf←c0436)+36) ));
SOURCE(4710, 33)
{
word idx82;
word limit83;
ld←v9984 = XR←Narrow((* ((( (ptr) widget←v9956)+49)+(
idx82 = (* (( (ptr) (* (( (ptr) gf←c0436)+10)/* labelClass←v3588 */ ))+4) ),
limit83 = (* (( (ptr) widget←v9956)+48) ),
BCK(idx82, limit83)
)) ), (* (( (ptr) gf←c0436)+32) ));
};
SOURCE(4745, 67)
if (((* (( (ptr) widget←v9956)+37) ) != 0) || ((* (( (ptr) widget←v9956)+38) ) != 0)) {
SOURCE(4806, 6)
return(1);
};
SOURCE(4815, 1474)
{
word var←c60924;
var←c60924 = (* (( (ptr) formal←c0437)+4) );
if ((var←c60924 == 0)) {
goto lab←L100004;
};
{
word var←c61116;
var←c61116 = (* (( (ptr) var←c60924)+4) );
switch (var←c61116) {
case 0:
{
word local←v10028;
local←v10028 = var←c60924;
SOURCE(4864, 311)
{
word var←c60956;
var←c60956 = local←v10028;
if ((var←c60956 == (* (( (ptr) gf←c0436)+13)/* repaintNow←v3896 */ ))) {
SOURCE(4896, 48)
(void) ImmediateRepaint←P660(widget←v9956, ld←v9984, 2, (* (( (ptr) formal←c0437)+4) ));
goto endif084;
};
if ((var←c60956 == (* (( (ptr) gf←c0436)+12)/* repaintDelayed←v3868 */ ))) {
SOURCE(4964, 44)
(void) ImmediateRepaint←P660(widget←v9956, ld←v9984, 1, (* (( (ptr) formal←c0437)+4) ));
goto endif084;
};
if ((var←c60956 == (* (( (ptr) gf←c0436)+14)/* setStyle←v3924 */ ))) {
SOURCE(5024, 51)
(void) SetGCPartOfStyle←P1980(widget←v9956, ld←v9984, (* (( (ptr) ld←v9984)+5) ));
SOURCE(5077, 41)
(void) SetWindowPartOfStyle←P2400(widget←v9956, ld←v9984, 1);
goto endif084;
};
if ((var←c60956 == (* (( (ptr) gf←c0436)+15)/* setCaretPosition←v3952 */ ))) {
SOURCE(5143, 32)
(void) ComputeCaretPosition←P600(widget←v9956, ld←v9984);
goto endif084;
};
endif084: ;
};
};
break;
case 12:
{
word expose←v10072;
expose←v10072 = var←c60924;
SOURCE(5222, 68)
if (((* (( (ptr) expose←v10072)+11) ) <= 0)) {
SOURCE(5246, 44)
(void) ImmediateRepaint←P660(widget←v9956, ld←v9984, 1, (* (( (ptr) formal←c0437)+4) ));
};
};
break;
case 2:
{
word keyPress←v10116;
keyPress←v10116 = var←c60924;
SOURCE(5325, 440)
{
word mapping←v10160;
word keySyms←v10188;
SOURCE(5327, 69)
{
word pd85;
pd85 = (* (( (ptr) (* (( (ptr) gf←c0436)+145)/* var←c59964 */ ))+124) );
mapping←v10160 = (word) ( *( (fPt) ((* (ptr) pd85 ))))((* ((( (ptr) (* (( (ptr) formal←c0437)+4) ))+2)) ), pd85);
};
SOURCE(5398, 78)
{
word pd86;
pd86 = (* (( (ptr) (* (( (ptr) gf←c0436)+149)/* var←c60988 */ ))+6) );
keySyms←v10188 = (word) ( *( (fPt) ((* (ptr) pd86 ))))(mapping←v10160, (* (( (ptr) keyPress←v10116)+5) ), pd86);
};
SOURCE(5478, 269)
{
register word n←v10232 = 0;
register word noName←c61020;
noName←c61020 = (* (ptr) keySyms←v10188 );
if ((n←v10232 >= noName←c61020)) {
/*1*/ goto lab←L100005;
/*1*/ };
lab←L100008: ;
{
/*1*/ word keySym←v10276;
SOURCE(5511, 30)
/*1*/ {
/*1*/ word limit87;
/*1*/ keySym←v10276 = (* ((( (ptr) keySyms←v10188)+1)+(
/*1*/ limit87 = (* (ptr) keySyms←v10188 ),
/*1*/ BCK(n←v10232, limit87)
/*1*/ )) );
/*1*/ };
SOURCE(5543, 204)
/*1*/ switch (keySym←v10276) {
/*1*/ case 268828530: case 268828532: case 268500738: case 268500740: case 268762882: case 268762884:
SOURCE(5707, 40)
/*1*/ (void) CutLabelValue←P2460(widget←v9956, (unsigned) ((* (( (ptr) keyPress←v10116)+15) ) == 0));
SOURCE(5749, 5)
/*1*/ goto lab←L100006;
/*1*/ };
/*1*/ };
n←v10232 = (n←v10232 + 1);
if ((n←v10232 < noName←c61020)) {
/*1*/ goto lab←L100008;
/*1*/ };
lab←L100005: ;
lab←L100006: ;
};
};
};
break;
case 9:
{
word ev←v10320;
ev←v10320 = var←c60924;
SOURCE(5793, 91)
{
word var←c61052;
var←c61052 = (* (( (ptr) ev←v10320)+5) );
switch (var←c61052) {
case 2: case 0: case 3:
SOURCE(5848, 36)
/*1*/ {
/*1*/ word pd88;
/*1*/ pd88 = (* (( (ptr) (* (( (ptr) gf←c0436)+146)/* var←c60284 */ ))+7) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd88 ))))(widget←v9956, (* (( (ptr) gf←c0436)+41) ), (word) -1, pd88);
/*1*/ };
/*1*/ break;
};
};
};
break;
case 10:
{
word ev←v10364;
ev←v10364 = var←c60924;
SOURCE(5929, 174)
{
word var←c61084;
var←c61084 = (* (( (ptr) ev←v10364)+5) );
switch (var←c61084) {
case 2:
SOURCE(5963, 37)
/*1*/ {
/*1*/ word pd89;
/*1*/ pd89 = (* (( (ptr) (* (( (ptr) gf←c0436)+146)/* var←c60284 */ ))+8) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd89 ))))(widget←v9956, (* (( (ptr) gf←c0436)+41) ), pd89);
/*1*/ };
/*1*/ break;
case 0:
SOURCE(6014, 37)
/*1*/ {
/*1*/ word pd90;
/*1*/ pd90 = (* (( (ptr) (* (( (ptr) gf←c0436)+146)/* var←c60284 */ ))+8) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd90 ))))(widget←v9956, (* (( (ptr) gf←c0436)+41) ), pd90);
/*1*/ };
/*1*/ break;
case 3:
SOURCE(6066, 37)
/*1*/ {
/*1*/ word pd91;
/*1*/ pd91 = (* (( (ptr) (* (( (ptr) gf←c0436)+146)/* var←c60284 */ ))+8) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd91 ))))(widget←v9956, (* (( (ptr) gf←c0436)+41) ), pd91);
/*1*/ };
/*1*/ break;
};
};
};
break;
case 17:
{
word destroyNotify←v10408;
destroyNotify←v10408 = var←c60924;
SOURCE(6164, 125)
if ( ( ((* (( (ptr) destroyNotify←v10408)+7) ) == (* (( (ptr) widget←v9956)+35) )) ? ((* (ptr) (* (( (ptr) formal←c0437)+4)
) ) <= 127) : 0 ) ) {
SOURCE(6239, 50)
{
word pd92;
pd92 = (* (( (ptr) (* (( (ptr) gf←c0436)+147)/* var←c60348 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd92 ))))(widget←v9956, 1, pd92);
};
};
};
break;
default:
lab←L100004: ;
break;
};
};
};
};
return(0);
}
static void ForkSetStyle←P420(widget←v6020, ld←v6048, repaint←v6076)
word widget←v6020;
word ld←v6048;
word repaint←v6076;
{
register ptr gf←c64060 = (ptr) &globalframe;
/* ForkSetStyle: */
SOURCE(6329, 426)
SOURCE(6418, 337)
if ( ( ((* (( (ptr) widget←v6020)+37) ) == 0) ? ((* (( (ptr) widget←v6020)+38) ) == 0) : 0 ) ) {
SOURCE(6480, 292)
{
word dd←v10452;
SOURCE(6482, 42)
{
word var←c61148;
word sd←v57852;
sd←v57852 = (* (( (ptr) widget←v6020)+36) );
{
word pr←v57884;
pr←v57884 = (* (ptr) (* (( (ptr) gf←c64060)+8)/* perDKey←v3532 */ ) );
if (((* (ptr) pr←v57884 ) == sd←v57852)) {
var←c61148 = (* (( (ptr) pr←v57884)+1) );
goto lab←L100010;
};
{
word pd93;
pd93 = (* (( (ptr) (* (( (ptr) gf←c64060)+144)/* var←c59932 */ ))+5) );
var←c61148 = (word) ( *( (fPt) ((* (ptr) pd93 ))))((* (( (ptr) gf←c64060)+8)/* perDKey←v3532 */ ), sd←v57852, pd93);
};
};
lab←L100010: ;
dd←v10452 = XR←Narrow(var←c61148, (* (( (ptr) gf←c64060)+34) ));
};
SOURCE(6526, 57)
{
word pd94;
pd94 = (* (( (ptr) (* (( (ptr) gf←c64060)+145)/* var←c59964 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd94 ))))((* (ptr) dd←v10452 ), (word) (( (bPt) gf←c64060)+528)/* var←c59740 */ , widget←v6020, (* (
( (ptr) gf←c64060)+14)/* setStyle←v3924 */ ), pd94);
};
SOURCE(6585, 170)
{
word var←c61212;
var←c61212 = repaint←v6076;
if ((var←c61212 == 2)) {
SOURCE(6620, 59)
{
word pd95;
pd95 = (* (( (ptr) (* (( (ptr) gf←c64060)+145)/* var←c59964 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd95 ))))((* (ptr) dd←v10452 ), (word) (( (bPt) gf←c64060)+528)/* var←c59740 */ , widget←v6020, (* (
( (ptr) gf←c64060)+13)/* repaintNow←v3896 */ ), pd95);
};
}
else {
if ((var←c61212 == 1)) {
SOURCE(6692, 63)
{
word pd96;
pd96 = (* (( (ptr) (* (( (ptr) gf←c64060)+145)/* var←c59964 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd96 ))))((* (ptr) dd←v10452 ), (word) (( (bPt) gf←c64060)+528)/* var←c59740 */ , widget←v6020, (* (
( (ptr) gf←c64060)+12)/* repaintDelayed←v3868 */ ), pd96);
};
};
};
};
};
};
}
static void ForkRepaint←P480(widget←v6136, ld←v6164, repaint←v6192)
word widget←v6136;
word ld←v6164;
word repaint←v6192;
{
register ptr gf←c64092 = (ptr) &globalframe;
/* ForkRepaint: */
SOURCE(6780, 366)
SOURCE(6868, 278)
if ( ( ((* (( (ptr) widget←v6136)+37) ) == 0) ? ((* (( (ptr) widget←v6136)+38) ) == 0) : 0 ) ) {
SOURCE(6930, 233)
{
word dd←v10508;
SOURCE(6932, 42)
{
word var←c61244;
word sd←v58460;
sd←v58460 = (* (( (ptr) widget←v6136)+36) );
{
word pr←v40256;
pr←v40256 = (* (ptr) (* (( (ptr) gf←c64092)+8)/* perDKey←v3532 */ ) );
if (((* (ptr) pr←v40256 ) == sd←v58460)) {
var←c61244 = (* (( (ptr) pr←v40256)+1) );
goto lab←L100011;
};
{
word pd97;
pd97 = (* (( (ptr) (* (( (ptr) gf←c64092)+144)/* var←c59932 */ ))+5) );
var←c61244 = (word) ( *( (fPt) ((* (ptr) pd97 ))))((* (( (ptr) gf←c64092)+8)/* perDKey←v3532 */ ), sd←v58460, pd97);
};
};
lab←L100011: ;
dd←v10508 = XR←Narrow(var←c61244, (* (( (ptr) gf←c64092)+34) ));
};
SOURCE(6976, 170)
{
word var←c61308;
var←c61308 = repaint←v6192;
if ((var←c61308 == 2)) {
SOURCE(7011, 59)
{
word pd98;
pd98 = (* (( (ptr) (* (( (ptr) gf←c64092)+145)/* var←c59964 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd98 ))))((* (ptr) dd←v10508 ), (word) (( (bPt) gf←c64092)+528)/* var←c59740 */ , widget←v6136, (* (
( (ptr) gf←c64092)+13)/* repaintNow←v3896 */ ), pd98);
};
}
else {
if ((var←c61308 == 1)) {
SOURCE(7083, 63)
{
word pd99;
pd99 = (* (( (ptr) (* (( (ptr) gf←c64092)+145)/* var←c59964 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd99 ))))((* (ptr) dd←v10508 ), (word) (( (bPt) gf←c64092)+528)/* var←c59740 */ , widget←v6136, (* (
( (ptr) gf←c64092)+12)/* repaintDelayed←v3868 */ ), pd99);
};
};
};
};
};
};
}
static void ForkComputeCaretPosition←P540(widget←v6252, ld←v6280, repaint←v6308)
word widget←v6252;
word ld←v6280;
word repaint←v6308;
{
register ptr gf←c64124 = (ptr) &globalframe;
/* ForkComputeCaretPosition: */
SOURCE(7171, 274)
SOURCE(7272, 173)
if ( ( ((* (( (ptr) widget←v6252)+37) ) == 0) ? ((* (( (ptr) widget←v6252)+38) ) == 0) : 0 ) ) {
SOURCE(7334, 113)
{
word dd←v10564;
SOURCE(7336, 42)
{
word var←c61340;
word sd←v58384;
sd←v58384 = (* (( (ptr) widget←v6252)+36) );
{
word pr←v58416;
pr←v58416 = (* (ptr) (* (( (ptr) gf←c64124)+8)/* perDKey←v3532 */ ) );
if (((* (ptr) pr←v58416 ) == sd←v58384)) {
var←c61340 = (* (( (ptr) pr←v58416)+1) );
goto lab←L100012;
};
{
word pd100;
pd100 = (* (( (ptr) (* (( (ptr) gf←c64124)+144)/* var←c59932 */ ))+5) );
var←c61340 = (word) ( *( (fPt) ((* (ptr) pd100 ))))((* (( (ptr) gf←c64124)+8)/* perDKey←v3532 */ ), sd←v58384, pd100);
};
};
lab←L100012: ;
dd←v10564 = XR←Narrow(var←c61340, (* (( (ptr) gf←c64124)+34) ));
};
SOURCE(7380, 65)
{
word pd101;
pd101 = (* (( (ptr) (* (( (ptr) gf←c64124)+145)/* var←c59964 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd101 ))))((* (ptr) dd←v10564 ), (word) (( (bPt) gf←c64124)+528)/* var←c59740 */ , widget←v6252, (* (
( (ptr) gf←c64124)+15)/* setCaretPosition←v3952 */ ), pd101);
};
};
};
}
static void ComputeCaretPosition←P600(widget←v6368, ld←v6396)
word widget←v6368;
word ld←v6396;
{
W16 var←c64156;
register ptr gf←c64188 = (ptr) &globalframe;
/* ComputeCaretPosition: */
SOURCE(7455, 568)
SOURCE(7514, 509)
SOURCE(7516, 36)
{
/* declaration of c←v10620 skipped */
W2 off←v10648;
word text←v10676;
word charPos←v10704;
/* declaration of font←v10732 skipped */
W8 te←v10760;
SOURCE(7516, 36)
(* (( (ptr) &var←c64156)+4)/* c←v10620 */ ) = (* (( (ptr) widget←v6368)+34) );
SOURCE(7554, 22)
off←v10648 = (* (W2Pt) (( (ptr) ld←v6396)+6) );
SOURCE(7578, 25)
text←v10676 = (* (ptr) ld←v6396 );
SOURCE(7605, 53)
{
word pd102;
word x103;
word x104;
pd102 = (* (( (ptr) (* (( (ptr) gf←c64188)+150)/* var←c61404 */ ))+14) );
charPos←v10704 = (x103 = (word) ( *( (fPt) ((* (ptr) pd102 ))))(text←v10676, pd102),
x104 = (* (( (ptr) ld←v6396)+1) ),
MIN((int)(word), x103, x104));
};
SOURCE(7660, 33)
(* (( (ptr) &var←c64156)+5)/* font←v10732 */ ) = (* (( (ptr) ld←v6396)+4) );
SOURCE(7718, 83)
if ((((* (( (ptr) widget←v6368)+37) ) != 0) || ((* (( (ptr) widget←v6368)+38) ) != 0)) || ( ((* (( (ptr) &var←c64156)+4)
/* c←v10620 */ ) == 0) ? 1 : (0 == (* (( (ptr) (* (( (ptr) &var←c64156)+4)/* c←v10620 */ ))+15) )) ) ) {
SOURCE(7795, 6)
return;
};
SOURCE(7804, 79)
{
/* declaration of var←c61436 skipped */
{
word pd105;
pd105 = (* (( (ptr) (* (( (ptr) gf←c64188)+150)/* var←c61404 */ ))+17) );
(* (( (ptr) &var←c64156)+6)/* var←c61436 */ ) = (word) ( *( (fPt) ((* (ptr) pd105 ))))(text←v10676, 0, charPos←v10704, pd105)
;
};
{
/* declaration of var←c02 skipped */
(* (( (ptr) &var←c64156)+7)/* var←c02 */ ) = (* (( (ptr) (* (( (ptr) gf←c64188)+145)/* var←c59964 */ ))+104) );
{
/* declaration of var←c03 skipped */
{
word var←c04;
{
word var←c0483;
var←c0483 = (word) &var←c64156;
var←c04 = (word) XR←Enable(( ((word) (fPt) NoName←Q6024) ), ( ((word) (fPt) NoName←Q6324) ), var←c0483);
};
if ((var←c04 == 3)) {
goto lab←L100013;
};
};
te←v10760 = (* (W8Pt) (( (ptr) &var←c64156)+8)/* var←c03 */ );
};
};
};
SOURCE(7895, 62)
{
word x106;
word x107;
off←v10648.f0 = (x106 = (off←v10648.f0 + te←v10760.f7),
x107 = ((* (( (ptr) widget←v6368)+41) ) - 2),
MIN((int)(word), x106, x107));
};
SOURCE(7959, 45)
{
word pd108;
pd108 = (* (( (ptr) (* (( (ptr) gf←c64188)+146)/* var←c60284 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd108 ))))(widget←v6368, (* (( (ptr) gf←c64188)+41) ), off←v10648, pd108);
};
};
goto lab←L100016;
lab←L100013: ;
lab←L100016: ;
}
static word NoName←Q6024(formal←c0442)
word formal←c0442;
{
SOURCE(7804, 79)
{
word pd109;
pd109 = (* (( (ptr) formal←c0442)+7) );
(void) ( *( (fPt) ((* (ptr) pd109 ))))((word) (( (bPt) formal←c0442)+32), (* (( (ptr) formal←c0442)+4) ), (* (( (ptr) formal←c0442)+5)
), (* (( (ptr) formal←c0442)+6) ), pd109);
};
return(0);
}
static void ImmediateRepaint←P660(widget←v6456, ld←v6484, repaint←v6512, event←v6540)
word widget←v6456;
word ld←v6484;
word repaint←v6512;
word event←v6540;
{
register ptr gf←c64220 = (ptr) &globalframe;
word c←v10804;
word window←v10832;
/* ImmediateRepaint: */
SOURCE(8027, 590)
SOURCE(8153, 36)
c←v10804 = (* (( (ptr) widget←v6456)+34) );
SOURCE(8192, 33)
window←v10832 = (* (( (ptr) widget←v6456)+35) );
SOURCE(8227, 83)
if ((((* (( (ptr) widget←v6456)+37) ) != 0) || ((* (( (ptr) widget←v6456)+38) ) != 0)) || ( (c←v10804 == 0) ? 1 : (0 == (* (
( (ptr) c←v10804)+15) )) ) ) {
SOURCE(8304, 6)
return;
};
SOURCE(8313, 83)
{
W2 var←c61468;
W2 var←c61500;
var←c61468.f0 = 0;
var←c61468.f1 = 0;
var←c61500.f0 = 4000;
var←c61500.f1 = 4000;
{
word pd110;
pd110 = (* (( (ptr) (* (( (ptr) gf←c64220)+145)/* var←c59964 */ ))+166) );
(void) ( *( (fPt) ((* (ptr) pd110 ))))(c←v10804, window←v10832, var←c61468, var←c61500, 0, (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64220)+151)
/* var←c61532 */ ))+5) ) ), pd110);
};
};
SOURCE(8398, 80)
{
word pd111;
pd111 = (* (( (ptr) (* (( (ptr) gf←c64220)+145)/* var←c59964 */ ))+180) );
(void) ( *( (fPt) ((* (ptr) pd111 ))))(c←v10804, window←v10832, (* (W2Pt) (( (ptr) ld←v6484)+6) ), (* (( (ptr) ld←v6484)+8)
), (* (ptr) ld←v6484 ), 0
, (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64220)+151)/* var←c61532 */ ))+5) ) ), pd111);
};
SOURCE(8480, 59)
{
word pd112;
pd112 = (* (( (ptr) (* (( (ptr) gf←c64220)+147)/* var←c60348 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd112 ))))(widget←v6456, (* (( (ptr) gf←c64220)+38) ), 0, event←v6540, pd112);
};
SOURCE(8541, 76)
{
word var←c61564;
var←c61564 = repaint←v6512;
if ((var←c61564 == 2)) {
SOURCE(8576, 11)
{
word pd113;
pd113 = (* (( (ptr) (* (( (ptr) gf←c64220)+145)/* var←c59964 */ ))+43) );
(void) ( *( (fPt) ((* (ptr) pd113 ))))(c←v10804, 0, pd113);
};
}
else {
if ((var←c61564 == 1)) {
SOURCE(8600, 17)
{
word pd114;
pd114 = (* (( (ptr) (* (( (ptr) gf←c64220)+145)/* var←c59964 */ ))+43) );
(void) ( *( (fPt) ((* (ptr) pd114 ))))(c←v10804, 1, pd114);
};
};
};
};
}
static word EnforceConnection←P720(widget←v6600)
word widget←v6600;
{
word c←v6644;
/* EnforceConnection: */
SOURCE(8638, 212)
SOURCE(8638, 212)
c←v6644 = 0;
SOURCE(8710, 56)
if (((* (( (ptr) widget←v6600)+34) ) != 0)) {
SOURCE(8740, 26)
return((* (( (ptr) widget←v6600)+34) ));
};
SOURCE(8768, 82)
if (((* (( (ptr) widget←v6600)+31) ) != 0)) {
SOURCE(8794, 56)
{
word var←c61596;
var←c61596 = (word) EnforceConnection←P720((* ((( (ptr) widget←v6600)+31)) ));
(* (( (ptr) widget←v6600)+34) ) = var←c61596;
c←v6644 = var←c61596;
};
};
SOURCE(8638, 212)
return(c←v6644);
}
static word GetDefaultFont←P780(c←v6704)
word c←v6704;
{
register ptr gf←c64252 = (ptr) &globalframe;
word font←v6748;
/* GetDefaultFont: */
SOURCE(8856, 112)
SOURCE(8856, 112)
font←v6748 = 0;
SOURCE(8931, 37)
{
word pd115;
pd115 = (* (( (ptr) (* (( (ptr) gf←c64252)+152)/* var←c61660 */ ))+4) );
return((word) ( *( (fPt) ((* (ptr) pd115 ))))(c←v6704, pd115));
};
}
static word NiceOpenFont←P840(formal←c0509, formal←c0510)
word formal←c0509;
word formal←c0510;
{
W9 var←c64284;
/* declaration of c←v6808 skipped */
/* declaration of name←v6836 skipped */
register ptr gf←c64316 = (ptr) &globalframe;
word var←c6880;
(* (( (ptr) &var←c64284)+4)/* c←v6808 */ ) = formal←c0509;
(* (( (ptr) &var←c64284)+5)/* name←v6836 */ ) = formal←c0510;
/* NiceOpenFont: */
SOURCE(8972, 278)
SOURCE(8972, 278)
var←c6880 = 0;
SOURCE(9061, 189)
SOURCE(9063, 13)
{
word font←v10876 = 0;
SOURCE(9078, 49)
{
word pd116;
pd116 = (* (( (ptr) (* (( (ptr) gf←c64316)+150)/* var←c61404 */ ))+13) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd116 ))))((* ((( (ptr) &var←c64284)+5)/* name←v6836 */ ) ), pd116)) || ( ((* (( (ptr) &var←c64284)+4)
/* c←v6808 */ ) == 0) ? 1 : (0 == (* (( (ptr) (* (( (ptr) &var←c64284)+4)/* c←v6808 */ ))+15) )) ) ) {
SOURCE(9121, 6)
return(var←c6880);
};
};
SOURCE(9129, 76)
{
/* declaration of var←c05 skipped */
/* declaration of var←c06 skipped */
(* (( (ptr) &var←c64284)+6)/* var←c05 */ ) = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64316)+151)/* var←c61532 */ ))+4) ) );
(* (( (ptr) &var←c64284)+7)/* var←c06 */ ) = (* (( (ptr) (* (( (ptr) gf←c64316)+145)/* var←c59964 */ ))+100) );
{
/* declaration of var←c07 skipped */
{
word var←c08;
{
word var←c0484;
var←c0484 = (word) &var←c64284;
var←c08 = (word) XR←Enable(( ((word) (fPt) NoName←Q6084) ), ( ((word) (fPt) NoName←Q6264) ), var←c0484);
};
if ((var←c08 == 4)) {
goto lab←L100017;
};
};
font←v10876 = (* (( (ptr) &var←c64284)+8)/* var←c07 */ );
};
};
SOURCE(9217, 13)
return(font←v10876);
};
/* c2c skipped dead code */
lab←L100017: ;
SOURCE(8972, 278)
return(var←c6880);
}
static word NoName←Q6084(formal←c0446)
word formal←c0446;
{
SOURCE(9129, 76)
{
word pd117;
pd117 = (* (( (ptr) formal←c0446)+7) );
(* (( (ptr) formal←c0446)+8) ) = (word) ( *( (fPt) ((* (ptr) pd117 ))))((* (( (ptr) formal←c0446)+4) ), (* (( (ptr) formal←c0446)+5)
), (* (( (ptr) formal←c0446)+6) ), pd117);
};
return(0);
}
static word QueryFontName←P900(widget←v6940)
word widget←v6940;
{
register ptr gf←c64348 = (ptr) &globalframe;
word var←c6984;
/* QueryFontName: */
SOURCE(9254, 182)
SOURCE(9254, 182)
var←c6984 = 0;
SOURCE(9321, 115)
{
word var←c61724;
{
word pd118;
pd118 = (* (( (ptr) (* (( (ptr) gf←c64348)+153)/* var←c61692 */ ))+5) );
var←c61724 = (word) ( *( (fPt) ((* (ptr) pd118 ))))(widget←v6940, 1, (* (( (ptr) gf←c64348)+39) ), 0, pd118);
};
if ((var←c61724 == 0)) {
goto lab←L100021;
};
{
word tc119;
if (((* (( (ptr) gf←c64348)+18) ) == XR←GetReferentType(var←c61724))) {
tc119 = (word) ( (unsigned) (*(int*)var←c61724<0) == 0);
}
else {
tc119 = (word) 0;
};
if (tc119) {
{
word r←v10920;
r←v10920 = var←c61724;
SOURCE(9426, 10)
return(r←v10920);
};
}
else {
lab←L100021: ;
};
};
};
SOURCE(9254, 182)
return(var←c6984);
}
static void LocalSetFont←P960(widget←v7044, ld←v7072, font←v7100)
word widget←v7044;
word ld←v7072;
word font←v7100;
{
register ptr gf←c64380 = (ptr) &globalframe;
/* LocalSetFont: */
SOURCE(9457, 576)
SOURCE(9525, 121)
if ((font←v7100 == (* (( (ptr) gf←c64380)+9)/* queryDBFont←v3560 */ ))) {
SOURCE(9550, 98)
{
word fontName←v10964;
SOURCE(9552, 43)
fontName←v10964 = (word) QueryFontName←P900(widget←v7044);
SOURCE(9598, 48)
font←v7100 = (word) NiceOpenFont←P840((* (( (ptr) widget←v7044)+34) ), fontName←v10964);
};
};
SOURCE(9651, 353)
if ((font←v7100 == 0)) {
SOURCE(9676, 330)
{
word val←v11008;
W2 var←c0205;
SOURCE(9678, 59)
{
word pd120;
pd120 = (* (( (ptr) (* (( (ptr) gf←c64380)+154)/* var←c61756 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd120 ))))((word) &var←c0205, widget←v7044, (* (( (ptr) gf←c64380)+40) ), pd120);
};
val←v11008 = var←c0205.f0;
SOURCE(9739, 142)
{
word var←c61788;
var←c61788 = val←v11008;
if ((var←c61788 == 0)) {
goto lab←L100022;
};
{
word tc121;
if (((* (( (ptr) gf←c64380)+18) ) == XR←GetReferentType(var←c61788))) {
tc121 = (word) ( (unsigned) (*(int*)var←c61788<0) == 0);
}
else {
tc121 = (word) 0;
};
if (tc121) {
{
word r←v11068;
r←v11068 = var←c61788;
SOURCE(9777, 41)
font←v7100 = (word) NiceOpenFont←P840((* (( (ptr) widget←v7044)+34) ), r←v11068);
};
}
else {
lab←L100022: ;
SOURCE(9833, 48)
{
word pd122;
pd122 = (* (( (ptr) (* (( (ptr) gf←c64380)+145)/* var←c59964 */ ))+98) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd122 ))))(val←v11008, pd122))) {
SOURCE(9856, 25)
{
word pd123;
pd123 = (* (( (ptr) (* (( (ptr) gf←c64380)+145)/* var←c59964 */ ))+99) );
font←v7100 = (word) ( *( (fPt) ((* (ptr) pd123 ))))(val←v11008, pd123);
};
};
};
};
};
};
SOURCE(9884, 43)
if ((font←v7100 == (* (( (ptr) gf←c64380)+9)/* queryDBFont←v3560 */ ))) {
SOURCE(9909, 18)
font←v7100 = 0;
};
SOURCE(9929, 75)
if ((font←v7100 == 0)) {
SOURCE(9954, 50)
{
word pd124;
pd124 = (* (( (ptr) (* (( (ptr) gf←c64380)+152)/* var←c61660 */ ))+4) );
font←v7100 = (word) ( *( (fPt) ((* (ptr) pd124 ))))((* ((( (ptr) widget←v7044)+34)) ), pd124);
};
};
};
};
SOURCE(10009, 24)
(* (( (ptr) ld←v7072)+4) ) = font←v7100;
}
static void LabPreComputations←P1020(widget←v7160, ld←v7188)
word widget←v7160;
word ld←v7188;
{
register ptr gf←c64412 = (ptr) &globalframe;
word connection←v11112;
/* LabPreComputations: */
SOURCE(10106, 1471)
SOURCE(10165, 53)
connection←v11112 = (word) EnforceConnection←P720(widget←v7160);
SOURCE(10220, 43)
(void) LocalSetFont←P960(widget←v7160, ld←v7188, (* (( (ptr) ld←v7188)+4) ));
SOURCE(10265, 1286)
{
W8 ext←v11156;
W2 space←v11184;
SOURCE(10272, 84)
{
word pd125;
pd125 = (* (( (ptr) (* (( (ptr) gf←c64412)+145)/* var←c59964 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd125 ))))((word) &ext←v11156, connection←v11112, (* (( (ptr) ld←v7188)+4) ), (* (ptr) ld←v7188 ), pd125)
;
};
SOURCE(10358, 35)
space←v11184 = (* (W2Pt) (( (ptr) ld←v7188)+2) );
SOURCE(10395, 404)
if (( (int)space←v11184.f0 < (int)0)) {
SOURCE(10417, 384)
{
word dd←v11228;
SOURCE(10419, 42)
{
word var←c61820;
word sd←v58308;
sd←v58308 = (* (( (ptr) widget←v7160)+36) );
{
word pr←v58340;
pr←v58340 = (* (ptr) (* (( (ptr) gf←c64412)+8)/* perDKey←v3532 */ ) );
if (((* (ptr) pr←v58340 ) == sd←v58308)) {
var←c61820 = (* (( (ptr) pr←v58340)+1) );
goto lab←L100023;
};
{
word pd126;
pd126 = (* (( (ptr) (* (( (ptr) gf←c64412)+144)/* var←c59932 */ ))+5) );
var←c61820 = (word) ( *( (fPt) ((* (ptr) pd126 ))))((* (( (ptr) gf←c64412)+8)/* perDKey←v3532 */ ), sd←v58308, pd126);
};
};
lab←L100023: ;
dd←v11228 = XR←Narrow(var←c61820, (* (( (ptr) gf←c64412)+34) ));
};
SOURCE(10463, 38)
space←v11184.f0 = (* (( (ptr) dd←v11228)+1) );
SOURCE(10503, 215)
if (( (int)space←v11184.f0 < (int)0)) {
SOURCE(10525, 195)
{
word dbx←v11284;
word x←v11312;
SOURCE(10527, 58)
{
word pd127;
pd127 = (* (( (ptr) (* (( (ptr) gf←c64412)+148)/* var←c60892 */ ))+5) );
dbx←v11284 = (word) ( *( (fPt) ((* (ptr) pd127 ))))(connection←v11112, pd127);
};
SOURCE(10587, 72)
{
word pd128;
pd128 = (* (( (ptr) (* (( (ptr) gf←c64412)+155)/* var←c61884 */ ))+11) );
x←v11312 = (word) ( *( (fPt) ((* (ptr) pd128 ))))(dbx←v11284, (* (( (ptr) gf←c64412)+43) ), pd128);
};
SOURCE(10661, 57)
{
word var←c61916;
{
word pd129;
pd129 = (* (( (ptr) (* (( (ptr) gf←c64412)+153)/* var←c61692 */ ))+8) );
var←c61916 = (word) ( *( (fPt) ((* (ptr) pd129 ))))(x←v11312, pd129);
};
space←v11184.f0 = var←c61916;
(* (( (ptr) dd←v11228)+1) ) = var←c61916;
};
};
};
SOURCE(10723, 76)
if (( (int)space←v11184.f0 < (int)0) || ( (int)space←v11184.f0 > (int)50)) {
SOURCE(10763, 36)
space←v11184.f0 = 3;
};
};
};
SOURCE(10804, 413)
if (( (int)space←v11184.f1 < (int)0)) {
SOURCE(10827, 392)
{
word dd←v11368;
SOURCE(10829, 42)
{
word var←c61948;
word sd←v58232;
sd←v58232 = (* (( (ptr) widget←v7160)+36) );
{
word pr←v58264;
pr←v58264 = (* (ptr) (* (( (ptr) gf←c64412)+8)/* perDKey←v3532 */ ) );
if (((* (ptr) pr←v58264 ) == sd←v58232)) {
var←c61948 = (* (( (ptr) pr←v58264)+1) );
goto lab←L100024;
};
{
word pd130;
pd130 = (* (( (ptr) (* (( (ptr) gf←c64412)+144)/* var←c59932 */ ))+5) );
var←c61948 = (word) ( *( (fPt) ((* (ptr) pd130 ))))((* (( (ptr) gf←c64412)+8)/* perDKey←v3532 */ ), sd←v58232, pd130);
};
};
lab←L100024: ;
dd←v11368 = XR←Narrow(var←c61948, (* (( (ptr) gf←c64412)+34) ));
};
SOURCE(10873, 40)
space←v11184.f1 = (* (( (ptr) dd←v11368)+2) );
SOURCE(10915, 218)
if (( (int)space←v11184.f1 < (int)0)) {
SOURCE(10938, 197)
{
word dbx←v11424;
word x←v11452;
SOURCE(10940, 58)
{
word pd131;
pd131 = (* (( (ptr) (* (( (ptr) gf←c64412)+148)/* var←c60892 */ ))+5) );
dbx←v11424 = (word) ( *( (fPt) ((* (ptr) pd131 ))))(connection←v11112, pd131);
};
SOURCE(11000, 72)
{
word pd132;
pd132 = (* (( (ptr) (* (( (ptr) gf←c64412)+155)/* var←c61884 */ ))+11) );
x←v11452 = (word) ( *( (fPt) ((* (ptr) pd132 ))))(dbx←v11424, (* (( (ptr) gf←c64412)+44) ), pd132);
};
SOURCE(11074, 59)
{
word var←c62012;
{
word pd133;
pd133 = (* (( (ptr) (* (( (ptr) gf←c64412)+153)/* var←c61692 */ ))+8) );
var←c62012 = (word) ( *( (fPt) ((* (ptr) pd133 ))))(x←v11452, pd133);
};
space←v11184.f1 = var←c62012;
(* (( (ptr) dd←v11368)+2) ) = var←c62012;
};
};
};
SOURCE(11138, 79)
if (( (int)space←v11184.f1 < (int)0) || ( (int)space←v11184.f1 > (int)50)) {
SOURCE(11180, 37)
space←v11184.f1 = 3;
};
};
};
SOURCE(11222, 119)
if (( (int)(* (( (ptr) widget←v7160)+7) ) <= (int)0)) {
SOURCE(11264, 77)
(* (( (ptr) widget←v7160)+7) ) = ((IOP2( * , (int)2, (int)space←v11184.f0) + ext←v11156.f6) + ext←v11156.f7);
};
SOURCE(11346, 120)
if (( (int)(* (( (ptr) widget←v7160)+8) ) <= (int)0)) {
SOURCE(11389, 77)
(* (( (ptr) widget←v7160)+8) ) = ((IOP2( * , (int)2, (int)space←v11184.f1) + ext←v11156.f1) + ext←v11156.f2);
};
SOURCE(11471, 38)
(* (( (ptr) ld←v7188)+6) ) = (space←v11184.f0 + ext←v11156.f6);
SOURCE(11511, 38)
(* (( (ptr) ld←v7188)+7) ) = (space←v11184.f1 + ext←v11156.f1);
};
SOURCE(11556, 21)
(* (( (ptr) ld←v7188)+9) ) = 1;
}
static void LabPreferredSizeLR←P1080(formal←c0235, widget←v31488, mode←v31516, proposed←v31544, maySkip←v31572)
word formal←c0235;
word widget←v31488;
word mode←v31516;
W5 proposed←v31544;
word maySkip←v31572;
{
register ptr gf←c64444 = (ptr) &globalframe;
W5 preferred←v31616;
word ld←v11508;
/* LabPreferredSizeLR: */
SOURCE(11583, 163)
SOURCE(11583, 163)
preferred←v31616.f0 = 2147483648;
preferred←v31616.f1 = 2147483648;
preferred←v31616.f2 = 2147483648;
preferred←v31616.f3 = 2147483648;
preferred←v31616.f4 = 2147483648;
SOURCE(11629, 33)
{
word idx134;
word limit135;
ld←v11508 = XR←Narrow((* ((( (ptr) widget←v31488)+49)+(
idx134 = (* (( (ptr) (* (( (ptr) gf←c64444)+10)/* labelClass←v3588 */ ))+4) ),
limit135 = (* (( (ptr) widget←v31488)+48) ),
BCK(idx134, limit135)
)) ), (* (( (ptr) gf←c64444)+32) ));
};
SOURCE(11664, 54)
if ((0 == (* (( (ptr) ld←v11508)+9) ))) {
SOURCE(11688, 30)
(void) LabPreComputations←P1020(widget←v31488, ld←v11508);
};
SOURCE(11720, 26)
preferred←v31616 = (* (W5Pt) (( (ptr) widget←v31488)+5) );
/* removed tail goto */
(* (W5Pt) formal←c0235 ) = preferred←v31616;
return;
}
static void LabFullStopFastAccessLR←P1140(widget←v31676, protectTQLR←v31704, reason←v31732)
word widget←v31676;
word protectTQLR←v31704;
word reason←v31732;
{
register ptr gf←c64476 = (ptr) &globalframe;
word dd←v11552;
/* LabFullStopFastAccessLR: */
SOURCE(11752, 159)
SOURCE(11808, 42)
{
word var←c62076;
word sd←v58156;
sd←v58156 = (* (( (ptr) widget←v31676)+36) );
{
word pr←v58188;
pr←v58188 = (* (ptr) (* (( (ptr) gf←c64476)+8)/* perDKey←v3532 */ ) );
if (((* (ptr) pr←v58188 ) == sd←v58156)) {
var←c62076 = (* (( (ptr) pr←v58188)+1) );
goto lab←L100026;
};
{
word pd136;
pd136 = (* (( (ptr) (* (( (ptr) gf←c64476)+144)/* var←c59932 */ ))+5) );
var←c62076 = (word) ( *( (fPt) ((* (ptr) pd136 ))))((* (( (ptr) gf←c64476)+8)/* perDKey←v3532 */ ), sd←v58156, pd136);
};
};
lab←L100026: ;
dd←v11552 = XR←Narrow(var←c62076, (* (( (ptr) gf←c64476)+34) ));
};
SOURCE(11852, 59)
if ( ( (dd←v11552 != 0) ? ((* (ptr) dd←v11552 ) != 0) : 0 ) ) {
SOURCE(11887, 24)
(void) ( *( (fPt) ((* (ptr) protectTQLR←v31704 ))))((* (ptr) (dd←v11552) ), protectTQLR←v31704);
};
}
static void LabActualCreateWindowLR←P1200(widget←v31792)
word widget←v31792;
{
register ptr gf←c64508 = (ptr) &globalframe;
word dd←v11608;
word ld←v11636;
/* LabActualCreateWindowLR: */
SOURCE(11917, 879)
SOURCE(11962, 42)
{
word var←c62140;
word sd←v58080;
sd←v58080 = (* (( (ptr) widget←v31792)+36) );
{
word pr←v58112;
pr←v58112 = (* (ptr) (* (( (ptr) gf←c64508)+8)/* perDKey←v3532 */ ) );
if (((* (ptr) pr←v58112 ) == sd←v58080)) {
var←c62140 = (* (( (ptr) pr←v58112)+1) );
goto lab←L100027;
};
{
word pd137;
pd137 = (* (( (ptr) (* (( (ptr) gf←c64508)+144)/* var←c59932 */ ))+5) );
var←c62140 = (word) ( *( (fPt) ((* (ptr) pd137 ))))((* (( (ptr) gf←c64508)+8)/* perDKey←v3532 */ ), sd←v58080, pd137);
};
};
lab←L100027: ;
dd←v11608 = XR←Narrow(var←c62140, (* (( (ptr) gf←c64508)+34) ));
};
SOURCE(12006, 33)
{
word idx138;
word limit139;
ld←v11636 = XR←Narrow((* ((( (ptr) widget←v31792)+49)+(
idx138 = (* (( (ptr) (* (( (ptr) gf←c64508)+10)/* labelClass←v3588 */ ))+4) ),
limit139 = (* (( (ptr) widget←v31792)+48) ),
BCK(idx138, limit139)
)) ), (* (( (ptr) gf←c64508)+32) ));
};
SOURCE(12041, 54)
if ((0 == (* (( (ptr) ld←v11636)+9) ))) {
SOURCE(12065, 30)
(void) LabPreComputations←P1020(widget←v31792, ld←v11636);
};
SOURCE(12097, 126)
{
W4 var←c62204;
var←c62204.f0 = (word) (( (bPt) gf←c64508)+528)/* var←c59740 */ ;
var←c62204.f1 = (* (( (ptr) gf←c64508)+16)/* labEvents←v3980 */ );
var←c62204.f2 = (* (ptr) dd←v11608 );
var←c62204.f3 = widget←v31792;
{
word pd140;
pd140 = (* (( (ptr) (* (( (ptr) gf←c64508)+156)/* var←c62236 */ ))+31) );
(void) ( *( (fPt) ((* (ptr) pd140 ))))(widget←v31792, var←c62204, (* (( (ptr) (* (( (ptr) gf←c64508)+10)/* labelClass←v3588 */ ))+24)
), pd140);
};
};
SOURCE(12225, 86)
if (((* (( (ptr) widget←v31792)+19) ) == 11)) {
SOURCE(12271, 40)
(* (( (ptr) widget←v31792)+19) ) = 1;
};
SOURCE(12313, 73)
{
word pd141;
pd141 = (* (( (ptr) (* (( (ptr) gf←c64508)+145)/* var←c59964 */ ))+141) );
(* (( (ptr) ld←v11636)+8) ) = (word) ( *( (fPt) ((* (ptr) pd141 ))))((* (( (ptr) widget←v31792)+34) ), (* (( (ptr) (* (( (ptr) widget←v31792)+31)
))+35) ), pd141);
};
SOURCE(12389, 38)
{
word pd142;
pd142 = (* (( (ptr) (* (( (ptr) gf←c64508)+145)/* var←c59964 */ ))+157) );
(void) ( *( (fPt) ((* (ptr) pd142 ))))((* (( (ptr) ld←v11636)+8) ), (* (( (ptr) ld←v11636)+4) ), pd142);
};
SOURCE(12463, 39)
{
word pd143;
pd143 = (* (( (ptr) (* (( (ptr) gf←c64508)+145)/* var←c59964 */ ))+159) );
(void) ( *( (fPt) ((* (ptr) pd143 ))))((* (( (ptr) ld←v11636)+8) ), 0, pd143);
};
SOURCE(12504, 51)
(void) SetGCPartOfStyle←P1980(widget←v31792, ld←v11636, (* (( (ptr) ld←v11636)+5) ));
SOURCE(12557, 40)
{
word pd144;
pd144 = (* (( (ptr) (* (( (ptr) gf←c64508)+147)/* var←c60348 */ ))+33) );
(void) ( *( (fPt) ((* (ptr) pd144 ))))(widget←v31792, pd144);
};
SOURCE(12600, 72)
if (((* (( (ptr) ld←v11636)+5) ) != 0)) {
SOURCE(12634, 38)
(void) SetWindowPartOfStyle←P2400(widget←v31792, ld←v11636, 0);
};
SOURCE(12674, 83)
if (((* (( (ptr) widget←v31792)+44) ) == 0)) {
SOURCE(12711, 46)
{
word pd145;
pd145 = (* (( (ptr) (* (( (ptr) gf←c64508)+145)/* var←c59964 */ ))+79) );
(void) ( *( (fPt) ((* (ptr) pd145 ))))((* (( (ptr) widget←v31792)+34) ), (* (( (ptr) widget←v31792)+35) ), 0, pd145);
};
};
SOURCE(12760, 36)
(void) ForkComputeCaretPosition←P540(widget←v31792, ld←v11636, 2);
}
static void CreateFocusBlinker←P1260(formal←c0261, formal←c0254)
word formal←c0261;
word formal←c0254;
{
register ptr gf←c64540 = (ptr) &globalframe;
word w←v32404;
W5 geometry←v32432;
word ref←v32460;
W5 myGeometry←v11692;
word sd←v11720;
/* CreateFocusBlinker: */
SOURCE(12907, 426)
SOURCE(12907, 426)
geometry←v32432.f0 = 2147483648;
geometry←v32432.f1 = 2147483648;
geometry←v32432.f2 = 2147483648;
geometry←v32432.f3 = 2147483648;
geometry←v32432.f4 = 2147483648;
SOURCE(12907, 426)
ref←v32460 = 0;
SOURCE(12960, 77)
myGeometry←v11692.f0 = (* (( (ptr) formal←c0254)+17) );
myGeometry←v11692.f1 = (* (( (ptr) formal←c0254)+18) );
myGeometry←v11692.f2 = 4;
myGeometry←v11692.f3 = 6;
myGeometry←v11692.f4 = 0;
SOURCE(13039, 39)
sd←v11720 = (* (( (ptr) (* (( (ptr) formal←c0254)+1)/* parent←v32304 */ ))+36) );
SOURCE(13080, 49)
(* (( (ptr) formal←c0254)+3) ) = (* (( (ptr) (* (( (ptr) sd←v11720)+1) ))+3) );
SOURCE(13131, 54)
geometry←v32432.f0 = 0;
geometry←v32432.f1 = 0;
geometry←v32432.f2 = 4;
geometry←v32432.f3 = 6;
geometry←v32432.f4 = 0;
SOURCE(13187, 146)
{
W27 var←c0260;
(* (ptr) (word) &var←c0260 ) = (* (( (ptr) (* (( (ptr) formal←c0254)+1)/* parent←v32304 */ ))+34) );
(* (( (ptr) (word) &var←c0260) + 1) ) = 0;
(* (( (ptr) (word) &var←c0260) + 2) ) = (* (( (ptr) (* (( (ptr) formal←c0254)+1)/* parent←v32304 */ ))+35) );
(* (W5Pt) (( (ptr) (word) &var←c0260) + 3) ) = myGeometry←v11692;
(* (( (ptr) (word) &var←c0260) + 8) ) = 1;
(* (( (ptr) (word) &var←c0260) + 9) ) = 0;
(* (( (ptr) (word) &var←c0260) + 10) ) = (word) -1;
(* (W15Pt) (( (ptr) (word) &var←c0260) + 11) ) = (* (W15Pt) (( (ptr) formal←c0254)+2)/* attributes←v32332 */ );
(* (( (ptr) (word) &var←c0260) + 26) ) = 0;
{
word pd146;
pd146 = (* (( (ptr) (* (( (ptr) gf←c64540)+145)/* var←c59964 */ ))+74) );
w←v32404 = (word) ( *( (fPt) ((* (ptr) pd146 ))))((word) (&var←c0260), pd146);
};
};
/* removed tail goto */
(* (ptr) formal←c0261 ) = w←v32404;
(* (W5Pt) (( (ptr) formal←c0261)+1) ) = geometry←v32432;
(* (( (ptr) formal←c0261)+6) ) = ref←v32460;
return;
}
static void LabelInitInstPart←P1320(widget←v32520, arguments←v32548)
word widget←v32520;
word arguments←v32548;
{
register ptr gf←c64572 = (ptr) &globalframe;
word ld←v11764;
/* LabelInitInstPart: */
SOURCE(13339, 193)
SOURCE(13387, 25)
ld←v11764 = XR←NewObject(40, (* (( (ptr) gf←c64572)+32) ));
(* (( (ptr) ld←v11764)+1) ) = 2147483647;
(* (( (ptr) ld←v11764)+2) ) = (word) -1;
(* (( (ptr) ld←v11764)+3) ) = (word) -1;
SOURCE(13414, 49)
{
word val←v57804;
val←v57804 = ld←v11764;
{
word idx147;
word limit148;
(* ((( (ptr) widget←v32520)+49)+(
idx147 = (* (( (ptr) (* (( (ptr) gf←c64572)+10)/* labelClass←v3588 */ ))+4) ),
limit148 = (* (( (ptr) widget←v32520)+48) ),
BCK(idx147, limit148)
)) ) = val←v57804;
};
};
SOURCE(13465, 67)
{
word pd149;
pd149 = (* (( (ptr) (* (( (ptr) gf←c64572)+146)/* var←c60284 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd149 ))))(widget←v32520, (* (( (ptr) gf←c64572)+41) ), (* (( (ptr) gf←c64572)+17)/* focusBlinkerClass←v4484 */ ), 0, pd149)
;
};
}
static void LabelForgetScreenLR←P1380(widget←v32608, reason←v32636)
word widget←v32608;
word reason←v32636;
{
register ptr gf←c64604 = (ptr) &globalframe;
word ld←v11808;
/* LabelForgetScreenLR: */
SOURCE(13538, 148)
SOURCE(13581, 33)
{
word idx150;
word limit151;
ld←v11808 = XR←Narrow((* ((( (ptr) widget←v32608)+49)+(
idx150 = (* (( (ptr) (* (( (ptr) gf←c64604)+10)/* labelClass←v3588 */ ))+4) ),
limit151 = (* (( (ptr) widget←v32608)+48) ),
BCK(idx150, limit151)
)) ), (* (( (ptr) gf←c64604)+32) ));
};
SOURCE(13617, 22)
(* (( (ptr) ld←v11808)+9) ) = 0;
SOURCE(13641, 11)
(* (( (ptr) ld←v11808)+8) ) = 0;
SOURCE(13655, 31)
(* (( (ptr) ld←v11808)+4) ) = 0;
}
static word CreateLabel←P1440(widgetSpec←v7248, text←v7276, style←v7304)
W9 widgetSpec←v7248;
word text←v7276;
W4 style←v7304;
{
register ptr gf←c64636 = (ptr) &globalframe;
word var←c7348;
word widget←v11852;
word ld←v11880;
/* CreateLabel: */
SOURCE(13692, 266)
SOURCE(13809, 57)
{
word pd152;
pd152 = (* (( (ptr) (* (( (ptr) gf←c64636)+156)/* var←c62236 */ ))+4) );
widget←v11852 = (word) ( *( (fPt) ((* (ptr) pd152 ))))(widgetSpec←v7248, (* (( (ptr) gf←c64636)+10)/* labelClass←v3588 */ ), 0, pd152)
;
};
SOURCE(13868, 33)
{
word idx153;
word limit154;
ld←v11880 = XR←Narrow((* ((( (ptr) widget←v11852)+49)+(
idx153 = (* (( (ptr) (* (( (ptr) gf←c64636)+10)/* labelClass←v3588 */ ))+4) ),
limit154 = (* (( (ptr) widget←v11852)+48) ),
BCK(idx153, limit154)
)) ), (* (( (ptr) gf←c64636)+32) ));
};
SOURCE(13904, 14)
(* (ptr) ld←v11880 ) = text←v7276;
SOURCE(13920, 20)
(* (W4Pt) (( (ptr) ld←v11880)+2) ) = style←v7304;
SOURCE(13942, 16)
return(widget←v11852);
}
static word GetText←P1620(widget←v7628)
word widget←v7628;
{
register ptr gf←c64668 = (ptr) &globalframe;
word text←v7672;
word w←v11924;
/* GetText: */
SOURCE(14211, 197)
SOURCE(14211, 197)
text←v7672 = 0;
SOURCE(14279, 87)
{
word widget←v57684;
word expect←v57712;
word var←c62364;
word widget←v53936;
word classKey←v53968;
widget←v57684 = widget←v7628;
expect←v57712 = (* (ptr) (* (( (ptr) gf←c64668)+10)/* labelClass←v3588 */ ) );
{
word pd156;
widget←v53936 = widget←v57684;
classKey←v53968 = expect←v57712;
{
word pd155;
if (((* (ptr) (* (( (ptr) widget←v53936)+4) ) ) == classKey←v53968)) {
var←c62364 = 1;
}
else {
pd155 = (* (( (ptr) (* (( (ptr) gf←c64668)+156)/* var←c62236 */ ))+43) );
var←c62364 = (word) ( *( (fPt) ((* (ptr) pd155 ))))(widget←v53936, classKey←v53968, pd155);
};
};
if (((0 != var←c62364)
)) {
w←v11924 = widget←v57684;
}
else {
pd156 = (* (( (ptr) (* (( (ptr) gf←c64668)+157)/* var←c62460 */ ))+6) );
w←v11924 = (word) ( *( (fPt) ((* (ptr) pd156 ))))(widget←v57684, expect←v57712, (* (( (ptr) gf←c64668)+48) ), pd156);
};
};
};
SOURCE(14368, 40)
{
word var←c0487;
{
word var←c62524;
word var←c0485;
word var←c0486;
var←c62524 = (* (( (ptr) w←v11924)+4) );
{
word idx157;
word limit158;
var←c0485 = (* ((( (ptr) var←c62524)+30)+(
idx157 = (* (( (ptr) (* (( (ptr) gf←c64668)+10)/* labelClass←v3588 */ ))+27) ),
limit158 = (* (( (ptr) var←c62524)+29) ),
BCK(idx157, limit158)
)) );
};
var←c0486 = (* (ptr) XR←Narrow(var←c0485, (* (( (ptr) gf←c64668)+33) )) );
var←c0487 = (word) ( *( (fPt) ((* (ptr) var←c0486 ))))(w←v11924, var←c0486);
};
return(var←c0487);
};
}
static word LabelGetText←P1680(widget←v7732)
word widget←v7732;
{
register ptr gf←c64700 = (ptr) &globalframe;
word text←v7776;
/* LabelGetText: */
SOURCE(14414, 99)
SOURCE(14414, 99)
text←v7776 = 0;
SOURCE(14480, 33)
{
word idx159;
word limit160;
return((* (ptr) XR←Narrow((* ((( (ptr) widget←v7732)+49)+(
idx159 = (* (( (ptr) (* (( (ptr) gf←c64700)+10)/* labelClass←v3588 */ ))+4) ),
limit160 = (* (( (ptr) widget←v7732)+48) ),
BCK(idx159, limit160)
)) ), (* (( (ptr) gf←c64700)+32) )) ));
};
}
static void SetText←P1740(widget←v7836, text←v7864, repaint←v7892)
word widget←v7836;
word text←v7864;
word repaint←v7892;
{
register ptr gf←c64732 = (ptr) &globalframe;
word w←v11968;
/* SetText: */
SOURCE(14519, 230)
SOURCE(14614, 87)
{
word widget←v57508;
word expect←v57536;
word var←c62620;
word widget←v57612;
word classKey←v57640;
widget←v57508 = widget←v7836;
expect←v57536 = (* (ptr) (* (( (ptr) gf←c64732)+10)/* labelClass←v3588 */ ) );
{
word pd162;
widget←v57612 = widget←v57508;
classKey←v57640 = expect←v57536;
{
word pd161;
if (((* (ptr) (* (( (ptr) widget←v57612)+4) ) ) == classKey←v57640)) {
var←c62620 = 1;
}
else {
pd161 = (* (( (ptr) (* (( (ptr) gf←c64732)+156)/* var←c62236 */ ))+43) );
var←c62620 = (word) ( *( (fPt) ((* (ptr) pd161 ))))(widget←v57612, classKey←v57640, pd161);
};
};
if (((0 != var←c62620)
)) {
w←v11968 = widget←v57508;
}
else {
pd162 = (* (( (ptr) (* (( (ptr) gf←c64732)+157)/* var←c62460 */ ))+6) );
w←v11968 = (word) ( *( (fPt) ((* (ptr) pd162 ))))(widget←v57508, expect←v57536, (* (( (ptr) gf←c64732)+48) ), pd162);
};
};
};
SOURCE(14703, 46)
{
word var←c62716;
word var←c0488;
word var←c0489;
var←c62716 = (* (( (ptr) w←v11968)+4) );
{
word idx163;
word limit164;
var←c0488 = (* ((( (ptr) var←c62716)+30)+(
idx163 = (* (( (ptr) (* (( (ptr) gf←c64732)+10)/* labelClass←v3588 */ ))+27) ),
limit164 = (* (( (ptr) var←c62716)+29) ),
BCK(idx163, limit164)
)) );
};
var←c0489 = (* (( (ptr) XR←Narrow(var←c0488, (* (( (ptr) gf←c64732)+33) )))+1) );
(void) ( *( (fPt) ((* (ptr) var←c0489 ))))(w←v11968, text←v7864, repaint←v7892, var←c0489);
};
}
static void LabelSetText←P1800(widget←v7952, text←v7980, repaint←v8008)
word widget←v7952;
word text←v7980;
word repaint←v8008;
{
register ptr gf←c64764 = (ptr) &globalframe;
word ld←v12012;
/* LabelSetText: */
SOURCE(14755, 221)
SOURCE(14834, 33)
{
word idx165;
word limit166;
ld←v12012 = XR←Narrow((* ((( (ptr) widget←v7952)+49)+(
idx165 = (* (( (ptr) (* (( (ptr) gf←c64764)+10)/* labelClass←v3588 */ ))+4) ),
limit166 = (* (( (ptr) widget←v7952)+48) ),
BCK(idx165, limit166)
)) ), (* (( (ptr) gf←c64764)+32) ));
};
SOURCE(14869, 14)
(* (ptr) ld←v12012 ) = text←v7980;
SOURCE(14885, 53)
if ((repaint←v8008 != 0)) {
SOURCE(14906, 32)
(void) ForkRepaint←P480(widget←v7952, ld←v12012, 1);
};
SOURCE(14940, 36)
(void) ForkComputeCaretPosition←P540(widget←v7952, ld←v12012, 2);
}
static void EntrySetStyleSpec←P1860(ld←v8068, style←v8096)
word ld←v8068;
W4 style←v8096;
{
register ptr gf←c64796 = (ptr) &globalframe;
/* EntrySetStyleSpec: */
SOURCE(14982, 102)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c64796)+16)/* LOCK←v3448 */ ));
SOURCE(15048, 36)
if ((ld←v8068 != 0)) {
SOURCE(15063, 21)
(* (W4Pt) (( (ptr) ld←v8068)+2) ) = style←v8096;
};
SOURCE(14982, 102)
(void) (XR←MonitorExit((word) (( (bPt) gf←c64796)+16)/* LOCK←v3448 */ ));
return;
}
static void EntryGetStyleSpec←P1920(formal←c0304, ld←v8156)
word formal←c0304;
word ld←v8156;
{
register ptr gf←c64828 = (ptr) &globalframe;
W4 style←v8200;
/* EntryGetStyleSpec: */
SOURCE(15088, 111)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c64828)+16)/* LOCK←v3448 */ ));
SOURCE(15088, 111)
style←v8200.f0 = (word) -1;
style←v8200.f1 = (word) -1;
style←v8200.f2 = 0;
style←v8200.f3 = 0;
SOURCE(15163, 36)
if ((ld←v8156 != 0)) {
SOURCE(15178, 21)
style←v8200 = (* (W4Pt) (( (ptr) ld←v8156)+2) );
};
/* removed tail goto */
(void) (XR←MonitorExit((word) (( (bPt) gf←c64828)+16)/* LOCK←v3448 */ ));
(* (W4Pt) formal←c0304 ) = style←v8200;
return;
}
static void SetGCPartOfStyle←P1980(widget←v8260, ld←v8288, style←v8316)
word widget←v8260;
word ld←v8288;
word style←v8316;
{
register ptr gf←c64860 = (ptr) &globalframe;
word screen←v12056;
/* SetGCPartOfStyle: */
SOURCE(15203, 502)
SOURCE(15277, 45)
screen←v12056 = (* (( (ptr) (* (( (ptr) widget←v8260)+36) ))+1) );
SOURCE(15324, 31)
{
word pd167;
pd167 = (* (( (ptr) (* (( (ptr) gf←c64860)+145)/* var←c59964 */ ))+151) );
(void) ( *( (fPt) ((* (ptr) pd167 ))))((* (( (ptr) ld←v8288)+8) ), 0, pd167);
};
SOURCE(15357, 348)
{
word var←c62748;
var←c62748 = style←v8316;
if ((var←c62748 == 0)) {
SOURCE(15384, 44)
{
word pd168;
pd168 = (* (( (ptr) (* (( (ptr) gf←c64860)+145)/* var←c59964 */ ))+144) );
(void) ( *( (fPt) ((* (ptr) pd168 ))))((* (( (ptr) ld←v8288)+8) ), (* (( (ptr) screen←v12056)+3) ), pd168);
};
SOURCE(15430, 44)
{
word pd169;
pd169 = (* (( (ptr) (* (( (ptr) gf←c64860)+145)/* var←c59964 */ ))+145) );
(void) ( *( (fPt) ((* (ptr) pd169 ))))((* (( (ptr) ld←v8288)+8) ), (* (( (ptr) screen←v12056)+2) ), pd169);
};
}
else {
if ((var←c62748 == (* (( (ptr) gf←c64860)+49) )) || (var←c62748 == (* (( (ptr) gf←c64860)+50) ))) {
SOURCE(15507, 44)
{
word pd170;
pd170 = (* (( (ptr) (* (( (ptr) gf←c64860)+145)/* var←c59964 */ ))+144) );
(void) ( *( (fPt) ((* (ptr) pd170 ))))((* (( (ptr) ld←v8288)+8) ), (* (( (ptr) screen←v12056)+2) ), pd170);
};
SOURCE(15553, 44)
{
word pd171;
pd171 = (* (( (ptr) (* (( (ptr) gf←c64860)+145)/* var←c59964 */ ))+145) );
(void) ( *( (fPt) ((* (ptr) pd171 ))))((* (( (ptr) ld←v8288)+8) ), (* (( (ptr) screen←v12056)+3) ), pd171);
};
}
else {
SOURCE(15615, 44)
{
word pd172;
pd172 = (* (( (ptr) (* (( (ptr) gf←c64860)+145)/* var←c59964 */ ))+144) );
(void) ( *( (fPt) ((* (ptr) pd172 ))))((* (( (ptr) ld←v8288)+8) ), (* (( (ptr) screen←v12056)+3) ), pd172);
};
SOURCE(15661, 44)
{
word pd173;
pd173 = (* (( (ptr) (* (( (ptr) gf←c64860)+145)/* var←c59964 */ ))+145) );
(void) ( *( (fPt) ((* (ptr) pd173 ))))((* (( (ptr) ld←v8288)+8) ), (* (( (ptr) screen←v12056)+2) ), pd173);
};
};
};
};
}
static void GetStyleSpec←P2040(formal←c0321, widget←v8376)
word formal←c0321;
word widget←v8376;
{
register ptr gf←c64892 = (ptr) &globalframe;
W4 style←v8420;
word w←v12100;
word ld←v12128;
/* GetStyleSpec: */
SOURCE(15714, 223)
SOURCE(15714, 223)
style←v8420.f0 = (word) -1;
style←v8420.f1 = (word) -1;
style←v8420.f2 = 0;
style←v8420.f3 = 0;
SOURCE(15788, 87)
{
word widget←v57332;
word expect←v57360;
word var←c62812;
word widget←v57436;
word classKey←v57464;
widget←v57332 = widget←v8376;
expect←v57360 = (* (ptr) (* (( (ptr) gf←c64892)+10)/* labelClass←v3588 */ ) );
{
word pd175;
widget←v57436 = widget←v57332;
classKey←v57464 = expect←v57360;
{
word pd174;
if (((* (ptr) (* (( (ptr) widget←v57436)+4) ) ) == classKey←v57464)) {
var←c62812 = 1;
}
else {
pd174 = (* (( (ptr) (* (( (ptr) gf←c64892)+156)/* var←c62236 */ ))+43) );
var←c62812 = (word) ( *( (fPt) ((* (ptr) pd174 ))))(widget←v57436, classKey←v57464, pd174);
};
};
if (((0 != var←c62812)
)) {
w←v12100 = widget←v57332;
}
else {
pd175 = (* (( (ptr) (* (( (ptr) gf←c64892)+157)/* var←c62460 */ ))+6) );
w←v12100 = (word) ( *( (fPt) ((* (ptr) pd175 ))))(widget←v57332, expect←v57360, (* (( (ptr) gf←c64892)+48) ), pd175);
};
};
};
SOURCE(15877, 28)
{
word idx176;
word limit177;
ld←v12128 = XR←Narrow((* ((( (ptr) w←v12100)+49)+(
idx176 = (* (( (ptr) (* (( (ptr) gf←c64892)+10)/* labelClass←v3588 */ ))+4) ),
limit177 = (* (( (ptr) w←v12100)+48) ),
BCK(idx176, limit177)
)) ), (* (( (ptr) gf←c64892)+32) ));
};
SOURCE(15907, 30)
{
W4 var←c62940;
(void) EntryGetStyleSpec←P1920((word) &var←c62940, ld←v12128);
style←v8420 = var←c62940;
/* removed tail goto */
};
(* (W4Pt) formal←c0321 ) = style←v8420;
return;
}
static void SetStyleSpec←P2100(widget←v8480, formal←c0511, repaint←v8536)
word widget←v8480;
W4 formal←c0511;
word repaint←v8536;
{
W10 var←c64924;
/* declaration of style←v8508 skipped */
register ptr gf←c64956 = (ptr) &globalframe;
/* declaration of var←c62972 skipped */
word var←c63004;
word widget←v57184;
word expect←v57212;
word var←c63036;
word widget←v55788;
word classKey←v55820;
(* (W4Pt) (( (ptr) &var←c64924)+4)/* style←v8508 */ ) = formal←c0511;
/* SetStyleSpec: */
SOURCE(15943, 495)
{
word tmpAddr178;
tmpAddr178 = (word) (( (ptr) &var←c64924)+8)/* var←c62972 */ ;
(* (ptr) tmpAddr178 ) = ( ((word) (fPt) MultiDelegation←P3960) );
(* (( (ptr) tmpAddr178) + 1) ) = 1;
};
SOURCE(16126, 312)
widget←v57184 = widget←v8480;
expect←v57212 = (* (ptr) (* (( (ptr) gf←c64956)+10)/* labelClass←v3588 */ ) );
{
word pd180;
widget←v55788 = widget←v57184;
classKey←v55820 = expect←v57212;
{
word pd179;
if (((* (ptr) (* (( (ptr) widget←v55788)+4) ) ) == classKey←v55820)) {
var←c63036 = 1;
}
else {
pd179 = (* (( (ptr) (* (( (ptr) gf←c64956)+156)/* var←c62236 */ ))+43) );
var←c63036 = (word) ( *( (fPt) ((* (ptr) pd179 ))))(widget←v55788, classKey←v55820, pd179);
};
};
if (((0 != var←c63036)
)) {
var←c63004 = 0;
}
else {
pd180 = (* (( (ptr) (* (( (ptr) gf←c64956)+157)/* var←c62460 */ ))+8) );
var←c63004 = (word) ( *( (fPt) ((* (ptr) pd180 ))))(widget←v57184, expect←v57212, (* (( (ptr) gf←c64956)+51) ), (word) (
( (bPt) &var←c64924)+32)/* var←c62972 */ , pd180);
};
};
if (((0 != var←c63004)
)) {
SOURCE(16242, 108)
{
word var←c63132;
var←c63132 = repaint←v8536;
if ((var←c63132 == 2)) {
SOURCE(16277, 27)
{
word pd181;
pd181 = (* (( (ptr) (* (( (ptr) gf←c64956)+145)/* var←c59964 */ ))+43) );
(void) ( *( (fPt) ((* (ptr) pd181 ))))((* (( (ptr) widget←v8480)+34) ), 0, pd181);
};
}
else {
if ((var←c63132 == 1)) {
SOURCE(16317, 33)
{
word pd182;
pd182 = (* (( (ptr) (* (( (ptr) gf←c64956)+145)/* var←c59964 */ ))+43) );
(void) ( *( (fPt) ((* (ptr) pd182 ))))((* (( (ptr) widget←v8480)+34) ), 1, pd182);
};
};
};
};
}
else {
SOURCE(16376, 62)
{
word var←c63164;
word var←c0490;
word var←c0491;
var←c63164 = (* (( (ptr) widget←v8480)+4) );
{
word idx183;
word limit184;
var←c0490 = (* ((( (ptr) var←c63164)+30)+(
idx183 = (* (( (ptr) (* (( (ptr) gf←c64956)+10)/* labelClass←v3588 */ ))+27) ),
limit184 = (* (( (ptr) var←c63164)+29) ),
BCK(idx183, limit184)
)) );
};
var←c0491 = (* (( (ptr) XR←Narrow(var←c0490, (* (( (ptr) gf←c64956)+33) )))+3) );
(void) ( *( (fPt) ((* (ptr) var←c0491 ))))(widget←v8480, (* (W4Pt) (( (ptr) &var←c64924)+4)/* style←v8508 */ ), repaint←v8536, var←c0491)
;
};
};
}
static void MultiDelegation←P3960(delegant←v12248, formal←c64988)
word delegant←v12248;
word formal←c64988;
{
formal←c64988 = (formal←c64988 - 32);
/* MultiDelegation: */
SOURCE(16044, 79)
SOURCE(16088, 35)
(void) SetStyleSpec←P2100(delegant←v12248, (* (W4Pt) (( (ptr) formal←c64988)+4) ), 0);
}
static void SetStyleKey←P2160(widget←v8596, formal←c0512, repaint←v8652)
word widget←v8596;
word formal←c0512;
word repaint←v8652;
{
W7 var←c65020;
/* declaration of styleKey←v8624 skipped */
register ptr gf←c65052 = (ptr) &globalframe;
/* declaration of var←c63196 skipped */
word var←c63228;
word widget←v56980;
word expect←v57008;
word var←c63260;
word widget←v57112;
word classKey←v57140;
var←c65020.f4/* styleKey←v8624 */ = formal←c0512;
/* SetStyleKey: */
SOURCE(16446, 496)
{
word tmpAddr185;
tmpAddr185 = (word) (( (ptr) &var←c65020)+5)/* var←c63196 */ ;
(* (ptr) tmpAddr185 ) = ( ((word) (fPt) MultiDelegation←P4020) );
(* (( (ptr) tmpAddr185) + 1) ) = 1;
};
SOURCE(16628, 314)
widget←v56980 = widget←v8596;
expect←v57008 = (* (ptr) (* (( (ptr) gf←c65052)+10)/* labelClass←v3588 */ ) );
{
word pd187;
widget←v57112 = widget←v56980;
classKey←v57140 = expect←v57008;
{
word pd186;
if (((* (ptr) (* (( (ptr) widget←v57112)+4) ) ) == classKey←v57140)) {
var←c63260 = 1;
}
else {
pd186 = (* (( (ptr) (* (( (ptr) gf←c65052)+156)/* var←c62236 */ ))+43) );
var←c63260 = (word) ( *( (fPt) ((* (ptr) pd186 ))))(widget←v57112, classKey←v57140, pd186);
};
};
if (((0 != var←c63260)
)) {
var←c63228 = 0;
}
else {
pd187 = (* (( (ptr) (* (( (ptr) gf←c65052)+157)/* var←c62460 */ ))+8) );
var←c63228 = (word) ( *( (fPt) ((* (ptr) pd187 ))))(widget←v56980, expect←v57008, (* (( (ptr) gf←c65052)+51) ), (word) (
( (bPt) &var←c65020)+20)/* var←c63196 */ , pd187);
};
};
if (((0 != var←c63228)
)) {
SOURCE(16744, 108)
{
word var←c63356;
var←c63356 = repaint←v8652;
if ((var←c63356 == 2)) {
SOURCE(16779, 27)
{
word pd188;
pd188 = (* (( (ptr) (* (( (ptr) gf←c65052)+145)/* var←c59964 */ ))+43) );
(void) ( *( (fPt) ((* (ptr) pd188 ))))((* (( (ptr) widget←v8596)+34) ), 0, pd188);
};
}
else {
if ((var←c63356 == 1)) {
SOURCE(16819, 33)
{
word pd189;
pd189 = (* (( (ptr) (* (( (ptr) gf←c65052)+145)/* var←c59964 */ ))+43) );
(void) ( *( (fPt) ((* (ptr) pd189 ))))((* (( (ptr) widget←v8596)+34) ), 1, pd189);
};
};
};
};
}
else {
SOURCE(16878, 64)
{
word var←c63388;
word var←c0492;
word var←c0493;
var←c63388 = (* (( (ptr) widget←v8596)+4) );
{
word idx190;
word limit191;
var←c0492 = (* ((( (ptr) var←c63388)+30)+(
idx190 = (* (( (ptr) (* (( (ptr) gf←c65052)+10)/* labelClass←v3588 */ ))+27) ),
limit191 = (* (( (ptr) var←c63388)+29) ),
BCK(idx190, limit191)
)) );
};
var←c0493 = (* (( (ptr) XR←Narrow(var←c0492, (* (( (ptr) gf←c65052)+33) )))+4) );
(void) ( *( (fPt) ((* (ptr) var←c0493 ))))(widget←v8596, var←c65020.f4/* styleKey←v8624 */ , repaint←v8652, var←c0493);
};
};
}
static void MultiDelegation←P4020(delegant←v12352, formal←c65084)
word delegant←v12352;
word formal←c65084;
{
formal←c65084 = (formal←c65084 - 20);
/* MultiDelegation: */
SOURCE(16544, 81)
SOURCE(16588, 37)
(void) SetStyleKey←P2160(delegant←v12352, (* (( (ptr) formal←c65084)+4) ), 0);
}
static void LabelSetStyleKey←P2220(widget←v8712, style←v8740, repaint←v8768)
word widget←v8712;
word style←v8740;
word repaint←v8768;
{
register ptr gf←c65116 = (ptr) &globalframe;
word ld←v12380;
/* LabelSetStyleKey: */
SOURCE(16950, 213)
SOURCE(17043, 33)
{
word idx192;
word limit193;
ld←v12380 = XR←Narrow((* ((( (ptr) widget←v8712)+49)+(
idx192 = (* (( (ptr) (* (( (ptr) gf←c65116)+10)/* labelClass←v3588 */ ))+4) ),
limit193 = (* (( (ptr) widget←v8712)+48) ),
BCK(idx192, limit193)
)) ), (* (( (ptr) gf←c65116)+32) ));
};
SOURCE(17078, 29)
(* (( (ptr) ld←v12380)+5) ) = style←v8740;
SOURCE(17109, 54)
if ((repaint←v8768 != 0)) {
SOURCE(17130, 33)
(void) ForkSetStyle←P420(widget←v8712, ld←v12380, repaint←v8768);
};
}
static void LabelGetStyleSpec←P2280(formal←c0356, widget←v8828)
word formal←c0356;
word widget←v8828;
{
register ptr gf←c65148 = (ptr) &globalframe;
W4 style←v8872;
word ld←v12424;
/* LabelGetStyleSpec: */
SOURCE(17169, 136)
SOURCE(17169, 136)
style←v8872.f0 = (word) -1;
style←v8872.f1 = (word) -1;
style←v8872.f2 = 0;
style←v8872.f3 = 0;
SOURCE(17241, 33)
{
word idx194;
word limit195;
ld←v12424 = XR←Narrow((* ((( (ptr) widget←v8828)+49)+(
idx194 = (* (( (ptr) (* (( (ptr) gf←c65148)+10)/* labelClass←v3588 */ ))+4) ),
limit195 = (* (( (ptr) widget←v8828)+48) ),
BCK(idx194, limit195)
)) ), (* (( (ptr) gf←c65148)+32) ));
};
SOURCE(17276, 29)
(void) EntryGetStyleSpec←P1920((word) &style←v8872, ld←v12424);
/* removed tail goto */
(* (W4Pt) formal←c0356 ) = style←v8872;
return;
}
static void LabelSetStyleSpec←P2340(widget←v8932, style←v8960, repaint←v8988)
word widget←v8932;
W4 style←v8960;
word repaint←v8988;
{
register ptr gf←c65180 = (ptr) &globalframe;
word ld←v12468;
/* LabelSetStyleSpec: */
SOURCE(17311, 218)
SOURCE(17410, 33)
{
word idx196;
word limit197;
ld←v12468 = XR←Narrow((* ((( (ptr) widget←v8932)+49)+(
idx196 = (* (( (ptr) (* (( (ptr) gf←c65180)+10)/* labelClass←v3588 */ ))+4) ),
limit197 = (* (( (ptr) widget←v8932)+48) ),
BCK(idx196, limit197)
)) ), (* (( (ptr) gf←c65180)+32) ));
};
SOURCE(17445, 28)
(void) EntrySetStyleSpec←P1860(ld←v12468, style←v8960);
SOURCE(17475, 54)
if ((repaint←v8988 != 0)) {
SOURCE(17496, 33)
(void) ForkSetStyle←P420(widget←v8932, ld←v12468, repaint←v8988);
};
}
static void SetWindowPartOfStyle←P2400(widget←v9048, ld←v9076, repaint←v9104)
word widget←v9048;
word ld←v9076;
word repaint←v9104;
{
register ptr gf←c65212 = (ptr) &globalframe;
word dd←v12512;
/* SetWindowPartOfStyle: */
SOURCE(17535, 1304)
SOURCE(17632, 42)
{
word var←c63420;
word sd←v58004;
sd←v58004 = (* (( (ptr) widget←v9048)+36) );
{
word pr←v58036;
pr←v58036 = (* (ptr) (* (( (ptr) gf←c65212)+8)/* perDKey←v3532 */ ) );
if (((* (ptr) pr←v58036 ) == sd←v58004)) {
var←c63420 = (* (( (ptr) pr←v58036)+1) );
goto lab←L100043;
};
{
word pd198;
pd198 = (* (( (ptr) (* (( (ptr) gf←c65212)+144)/* var←c59932 */ ))+5) );
var←c63420 = (word) ( *( (fPt) ((* (ptr) pd198 ))))((* (( (ptr) gf←c65212)+8)/* perDKey←v3532 */ ), sd←v58004, pd198);
};
};
lab←L100043: ;
dd←v12512 = XR←Narrow(var←c63420, (* (( (ptr) gf←c65212)+34) ));
};
SOURCE(17676, 1163)
{
word var←c63484;
var←c63484 = (* (( (ptr) ld←v9076)+5) );
if ((var←c63484 == 0) || (var←c63484 == (* (( (ptr) gf←c65212)+52) ))) {
SOURCE(17734, 179)
{
W18 var←c0370;
W15 var←c63516;
(* (ptr) (word) &var←c0370 ) = (* (( (ptr) widget←v9048)+34) );
(* (( (ptr) (word) &var←c0370) + 1) ) = (* (( (ptr) widget←v9048)+35) );
(* (ptr) &var←c63516 ) = (word) -1;
(* (( (ptr) &var←c63516)+1) ) = (* (( (ptr) (* (( (ptr) (* (( (ptr) widget←v9048)+36) ))+1) ))+2) );
(* (( (ptr) &var←c63516)+2) ) = (word) -1;
(* (( (ptr) &var←c63516)+3) ) = (word) -1;
(* (( (ptr) &var←c63516)+4) ) = 11;
(* (( (ptr) &var←c63516)+5) ) = 11;
(* (( (ptr) &var←c63516)+6) ) = 3;
(* (( (ptr) &var←c63516)+7) ) = (word) -1;
(* (( (ptr) &var←c63516)+8) ) = (word) -1;
(* (( (ptr) &var←c63516)+9) ) = 2;
(* (( (ptr) &var←c63516)+10) ) = 2;
(* (( (ptr) &var←c63516)+11) ) = 0;
(* (( (ptr) &var←c63516)+12) ) = 0;
(* (( (ptr) &var←c63516)+13) ) = (word) -1;
(* (( (ptr) &var←c63516)+14) ) = (word) -1;
(* (W15Pt) (( (ptr) (word) &var←c0370) + 2) ) = var←c63516;
(* (( (ptr) (word) &var←c0370) + 17) ) = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c65212)+151)/* var←c61532 */ ))+5) ) );
{
word pd200;
pd200 = (* (( (ptr) (* (( (ptr) gf←c65212)+145)/* var←c59964 */ ))+75) );
(void) ( *( (fPt) ((* (ptr) pd200 ))))((word) (&var←c0370), pd200);
};
};
goto endif0199;
};
if ((var←c63484 == (* (( (ptr) gf←c65212)+49) )) || (var←c63484 == (* (( (ptr) gf←c65212)+50) ))) {
SOURCE(17946, 179)
{
W18 var←c0372;
W15 var←c63548;
(* (ptr) (word) &var←c0372 ) = (* (( (ptr) widget←v9048)+34) );
(* (( (ptr) (word) &var←c0372) + 1) ) = (* (( (ptr) widget←v9048)+35) );
(* (ptr) &var←c63548 ) = (word) -1;
(* (( (ptr) &var←c63548)+1) ) = (* (( (ptr) (* (( (ptr) (* (( (ptr) widget←v9048)+36) ))+1) ))+3) );
(* (( (ptr) &var←c63548)+2) ) = (word) -1;
(* (( (ptr) &var←c63548)+3) ) = (word) -1;
(* (( (ptr) &var←c63548)+4) ) = 11;
(* (( (ptr) &var←c63548)+5) ) = 11;
(* (( (ptr) &var←c63548)+6) ) = 3;
(* (( (ptr) &var←c63548)+7) ) = (word) -1;
(* (( (ptr) &var←c63548)+8) ) = (word) -1;
(* (( (ptr) &var←c63548)+9) ) = 2;
(* (( (ptr) &var←c63548)+10) ) = 2;
(* (( (ptr) &var←c63548)+11) ) = 0;
(* (( (ptr) &var←c63548)+12) ) = 0;
(* (( (ptr) &var←c63548)+13) ) = (word) -1;
(* (( (ptr) &var←c63548)+14) ) = (word) -1;
(* (W15Pt) (( (ptr) (word) &var←c0372) + 2) ) = var←c63548;
(* (( (ptr) (word) &var←c0372) + 17) ) = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c65212)+151)/* var←c61532 */ ))+5) ) );
{
word pd201;
pd201 = (* (( (ptr) (* (( (ptr) gf←c65212)+145)/* var←c59964 */ ))+75) );
(void) ( *( (fPt) ((* (ptr) pd201 ))))((word) (&var←c0372), pd201);
};
};
goto endif0199;
};
if ((var←c63484 == (* (( (ptr) gf←c65212)+53) )) || (var←c63484 == (* (( (ptr) gf←c65212)+54) ))) {
SOURCE(18156, 158)
{
W18 var←c0374;
W15 var←c63580;
(* (ptr) (word) &var←c0374 ) = (* (( (ptr) widget←v9048)+34) );
(* (( (ptr) (word) &var←c0374) + 1) ) = (* (( (ptr) widget←v9048)+35) );
(* (ptr) &var←c63580 ) = (* (( (ptr) dd←v12512)+3) );
(* (( (ptr) &var←c63580)+1) ) = (word) -1;
(* (( (ptr) &var←c63580)+2) ) = (word) -1;
(* (( (ptr) &var←c63580)+3) ) = (word) -1;
(* (( (ptr) &var←c63580)+4) ) = 11;
(* (( (ptr) &var←c63580)+5) ) = 11;
(* (( (ptr) &var←c63580)+6) ) = 3;
(* (( (ptr) &var←c63580)+7) ) = (word) -1;
(* (( (ptr) &var←c63580)+8) ) = (word) -1;
(* (( (ptr) &var←c63580)+9) ) = 2;
(* (( (ptr) &var←c63580)+10) ) = 2;
(* (( (ptr) &var←c63580)+11) ) = 0;
(* (( (ptr) &var←c63580)+12) ) = 0;
(* (( (ptr) &var←c63580)+13) ) = (word) -1;
(* (( (ptr) &var←c63580)+14) ) = (word) -1;
(* (W15Pt) (( (ptr) (word) &var←c0374) + 2) ) = var←c63580;
(* (( (ptr) (word) &var←c0374) + 17) ) = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c65212)+151)/* var←c61532 */ ))+5) ) );
{
word pd202;
pd202 = (* (( (ptr) (* (( (ptr) gf←c65212)+145)/* var←c59964 */ ))+75) );
(void) ( *( (fPt) ((* (ptr) pd202 ))))((word) (&var←c0374), pd202);
};
};
goto endif0199;
};
if ((var←c63484 == (* (( (ptr) gf←c65212)+55) ))) {
SOURCE(18331, 158)
{
W18 var←c0376;
W15 var←c63612;
(* (ptr) (word) &var←c0376 ) = (* (( (ptr) widget←v9048)+34) );
(* (( (ptr) (word) &var←c0376) + 1) ) = (* (( (ptr) widget←v9048)+35) );
(* (ptr) &var←c63612 ) = (* (( (ptr) dd←v12512)+4) );
(* (( (ptr) &var←c63612)+1) ) = (word) -1;
(* (( (ptr) &var←c63612)+2) ) = (word) -1;
(* (( (ptr) &var←c63612)+3) ) = (word) -1;
(* (( (ptr) &var←c63612)+4) ) = 11;
(* (( (ptr) &var←c63612)+5) ) = 11;
(* (( (ptr) &var←c63612)+6) ) = 3;
(* (( (ptr) &var←c63612)+7) ) = (word) -1;
(* (( (ptr) &var←c63612)+8) ) = (word) -1;
(* (( (ptr) &var←c63612)+9) ) = 2;
(* (( (ptr) &var←c63612)+10) ) = 2;
(* (( (ptr) &var←c63612)+11) ) = 0;
(* (( (ptr) &var←c63612)+12) ) = 0;
(* (( (ptr) &var←c63612)+13) ) = (word) -1;
(* (( (ptr) &var←c63612)+14) ) = (word) -1;
(* (W15Pt) (( (ptr) (word) &var←c0376) + 2) ) = var←c63612;
(* (( (ptr) (word) &var←c0376) + 17) ) = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c65212)+151)/* var←c61532 */ ))+5) ) );
{
word pd203;
pd203 = (* (( (ptr) (* (( (ptr) gf←c65212)+145)/* var←c59964 */ ))+75) );
(void) ( *( (fPt) ((* (ptr) pd203 ))))((word) (&var←c0376), pd203);
};
};
goto endif0199;
};
if ((var←c63484 == (* (( (ptr) gf←c65212)+56) ))) {
SOURCE(18506, 158)
{
W18 var←c0378;
W15 var←c63644;
(* (ptr) (word) &var←c0378 ) = (* (( (ptr) widget←v9048)+34) );
(* (( (ptr) (word) &var←c0378) + 1) ) = (* (( (ptr) widget←v9048)+35) );
(* (ptr) &var←c63644 ) = (* (( (ptr) dd←v12512)+5) );
(* (( (ptr) &var←c63644)+1) ) = (word) -1;
(* (( (ptr) &var←c63644)+2) ) = (word) -1;
(* (( (ptr) &var←c63644)+3) ) = (word) -1;
(* (( (ptr) &var←c63644)+4) ) = 11;
(* (( (ptr) &var←c63644)+5) ) = 11;
(* (( (ptr) &var←c63644)+6) ) = 3;
(* (( (ptr) &var←c63644)+7) ) = (word) -1;
(* (( (ptr) &var←c63644)+8) ) = (word) -1;
(* (( (ptr) &var←c63644)+9) ) = 2;
(* (( (ptr) &var←c63644)+10) ) = 2;
(* (( (ptr) &var←c63644)+11) ) = 0;
(* (( (ptr) &var←c63644)+12) ) = 0;
(* (( (ptr) &var←c63644)+13) ) = (word) -1;
(* (( (ptr) &var←c63644)+14) ) = (word) -1;
(* (W15Pt) (( (ptr) (word) &var←c0378) + 2) ) = var←c63644;
(* (( (ptr) (word) &var←c0378) + 17) ) = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c65212)+151)/* var←c61532 */ ))+5) ) );
{
word pd204;
pd204 = (* (( (ptr) (* (( (ptr) gf←c65212)+145)/* var←c59964 */ ))+75) );
(void) ( *( (fPt) ((* (ptr) pd204 ))))((word) (&var←c0378), pd204);
};
};
goto endif0199;
};
if ((var←c63484 == (* (( (ptr) gf←c65212)+57) ))) {
SOURCE(18681, 158)
{
W18 var←c0380;
W15 var←c63676;
(* (ptr) (word) &var←c0380 ) = (* (( (ptr) widget←v9048)+34) );
(* (( (ptr) (word) &var←c0380) + 1) ) = (* (( (ptr) widget←v9048)+35) );
(* (ptr) &var←c63676 ) = (* (( (ptr) dd←v12512)+6) );
(* (( (ptr) &var←c63676)+1) ) = (word) -1;
(* (( (ptr) &var←c63676)+2) ) = (word) -1;
(* (( (ptr) &var←c63676)+3) ) = (word) -1;
(* (( (ptr) &var←c63676)+4) ) = 11;
(* (( (ptr) &var←c63676)+5) ) = 11;
(* (( (ptr) &var←c63676)+6) ) = 3;
(* (( (ptr) &var←c63676)+7) ) = (word) -1;
(* (( (ptr) &var←c63676)+8) ) = (word) -1;
(* (( (ptr) &var←c63676)+9) ) = 2;
(* (( (ptr) &var←c63676)+10) ) = 2;
(* (( (ptr) &var←c63676)+11) ) = 0;
(* (( (ptr) &var←c63676)+12) ) = 0;
(* (( (ptr) &var←c63676)+13) ) = (word) -1;
(* (( (ptr) &var←c63676)+14) ) = (word) -1;
(* (W15Pt) (( (ptr) (word) &var←c0380) + 2) ) = var←c63676;
(* (( (ptr) (word) &var←c0380) + 17) ) = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c65212)+151)/* var←c61532 */ ))+5) ) );
{
word pd205;
pd205 = (* (( (ptr) (* (( (ptr) gf←c65212)+145)/* var←c59964 */ ))+75) );
(void) ( *( (fPt) ((* (ptr) pd205 ))))((word) (&var←c0380), pd205);
};
};
goto endif0199;
};
endif0199: ;
};
}
static void CutLabelValue←P2460(label←v9164, hackForXTerm←v9192)
word label←v9164;
word hackForXTerm←v9192;
{
register ptr gf←c65244 = (ptr) &globalframe;
word text←v12568;
/* CutLabelValue: */
SOURCE(18863, 146)
SOURCE(18935, 32)
text←v12568 = (word) GetText←P1620(label←v9164);
SOURCE(18969, 40)
{
word pd206;
pd206 = (* (( (ptr) (* (( (ptr) gf←c65244)+158)/* var←c63708 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd206 ))))((* (( (ptr) label←v9164)+34) ), text←v12568, 0, pd206);
};
}
static void SetCharInsertionIndex←P2520(label←v9252, pos←v9280, repaint←v9308)
word label←v9252;
word pos←v9280;
word repaint←v9308;
{
register ptr gf←c65276 = (ptr) &globalframe;
word c←v12612;
word ld←v12640;
/* SetCharInsertionIndex: */
SOURCE(19014, 328)
SOURCE(19119, 35)
c←v12612 = (* (( (ptr) label←v9252)+34) );
SOURCE(19157, 32)
{
word idx207;
word limit208;
ld←v12640 = XR←Narrow((* ((( (ptr) label←v9252)+49)+(
idx207 = (* (( (ptr) (* (( (ptr) gf←c65276)+10)/* labelClass←v3588 */ ))+4) ),
limit208 = (* (( (ptr) label←v9252)+48) ),
BCK(idx207, limit208)
)) ), (* (( (ptr) gf←c65276)+32) ));
};
SOURCE(19191, 20)
(* (( (ptr) ld←v12640)+1) ) = pos←v9280;
SOURCE(19213, 129)
if ( ( (c←v12612 != 0) ? (0 != (* (( (ptr) c←v12612)+15) )) : 0 ) ) {
SOURCE(19233, 111)
{
word dd←v12684;
SOURCE(19235, 41)
{
word var←c63740;
word sd←v57928;
sd←v57928 = (* (( (ptr) label←v9252)+36) );
{
word pr←v57960;
pr←v57960 = (* (ptr) (* (( (ptr) gf←c65276)+8)/* perDKey←v3532 */ ) );
if (((* (ptr) pr←v57960 ) == sd←v57928)) {
var←c63740 = (* (( (ptr) pr←v57960)+1) );
goto lab←L100044;
};
{
word pd209;
pd209 = (* (( (ptr) (* (( (ptr) gf←c65276)+144)/* var←c59932 */ ))+5) );
var←c63740 = (word) ( *( (fPt) ((* (ptr) pd209 ))))((* (( (ptr) gf←c65276)+8)/* perDKey←v3532 */ ), sd←v57928, pd209);
};
};
lab←L100044: ;
dd←v12684 = XR←Narrow(var←c63740, (* (( (ptr) gf←c65276)+34) ));
};
SOURCE(19278, 64)
{
word pd210;
pd210 = (* (( (ptr) (* (( (ptr) gf←c65276)+145)/* var←c59964 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd210 ))))((* (ptr) dd←v12684 ), (word) (( (bPt) gf←c65276)+528)/* var←c59740 */ , label←v9252, (* (
( (ptr) gf←c65276)+15)/* setCaretPosition←v3952 */ ), pd210);
};
};
};
}
static void SetCharInsertionPos←P2580(label←v9368, pos←v9396, repaint←v9424)
word label←v9368;
W2 pos←v9396;
word repaint←v9424;
{
word i←v12740;
/* SetCharInsertionPos: */
SOURCE(19351, 180)
SOURCE(19459, 30)
i←v12740 = (word) ToCharPos←P2700(label←v9368, pos←v9396);
SOURCE(19491, 40)
(void) SetCharInsertionIndex←P2520(label←v9368, i←v12740, repaint←v9424);
}
static word GetCharInsertionIndex←P2640(label←v9484)
word label←v9484;
{
register ptr gf←c65308 = (ptr) &globalframe;
word pos←v9528;
word ld←v12784;
/* GetCharInsertionIndex: */
SOURCE(19537, 136)
SOURCE(19615, 32)
{
word idx211;
word limit212;
ld←v12784 = XR←Narrow((* ((( (ptr) label←v9484)+49)+(
idx211 = (* (( (ptr) (* (( (ptr) gf←c65308)+10)/* labelClass←v3588 */ ))+4) ),
limit212 = (* (( (ptr) label←v9484)+48) ),
BCK(idx211, limit212)
)) ), (* (( (ptr) gf←c65308)+32) ));
};
SOURCE(19649, 24)
return((* (( (ptr) ld←v12784)+1) ));
}
static word ToCharPos←P2700(formal←c0513, formal←c0514)
word formal←c0513;
W2 formal←c0514;
{
W9 var←c65340;
/* declaration of label←v9588 skipped */
/* declaration of pos←v9616 skipped */
/* declaration of var←c09 skipped */
/* declaration of cpos←v9660 skipped */
(* (( (ptr) &var←c65340)+4)/* label←v9588 */ ) = formal←c0513;
(* (W2Pt) (( (ptr) &var←c65340)+5)/* pos←v9616 */ ) = formal←c0514;
/* ToCharPos: */
SOURCE(19677, 398)
SOURCE(19677, 398)
(* (( (ptr) &var←c65340)+8)/* cpos←v9660 */ ) = 0;
SOURCE(19761, 314)
SOURCE(19763, 293)
{
word var←c010;
{
word var←c0494;
var←c0494 = (word) &var←c65340;
var←c010 = (word) XR←Enable(( ((word) (fPt) NoName←Q6144) ), ( ((word) (fPt) NoName←Q6204) ), var←c0494);
};
if ((var←c010 == 5)) {
goto lab←L100045;
}
else {
if ((var←c010 == 1)) {
goto lab←L06;
};
};
};
goto lab←L100048;
lab←L100045: ;
lab←L100048: ;
SOURCE(19677, 398)
return((* (( (ptr) &var←c65340)+8)/* cpos←v9660 */ ));
lab←L06: ;
return((* (( (ptr) &var←c65340)+7)/* var←c09 */ ));
}
static word NoName←Q6144(formal←c0477)
word formal←c0477;
{
register ptr gf←c0476 = (ptr) &globalframe;
SOURCE(19794, 32)
{
word ld←v12828;
word c←v12856;
word font←v12884;
W3 var←c0406;
SOURCE(19794, 32)
{
word idx213;
word limit214;
ld←v12828 = XR←Narrow((* ((( (ptr) (* (( (ptr) formal←c0477)+4) ))+49)+(
idx213 = (* (( (ptr) (* (( (ptr) gf←c0476)+10)/* labelClass←v3588 */ ))+4) ),
limit214 = (* (( (ptr) (* (( (ptr) formal←c0477)+4) ))+48) ),
BCK(idx213, limit214)
)) ), (* (( (ptr) gf←c0476)+32) ));
};
SOURCE(19828, 35)
c←v12856 = (* (( (ptr) (* (( (ptr) formal←c0477)+4) ))+34) );
SOURCE(19865, 33)
font←v12884 = (* (( (ptr) ld←v12828)+4) );
SOURCE(19900, 81)
if ((((* (( (ptr) (* (( (ptr) formal←c0477)+4) ))+37) ) != 0) || ((* (( (ptr) (* (( (ptr) formal←c0477)+4) ))+38) ) != 0)) || ( (c←v12856 == 0) ? 1 : (0 == (* (
( (ptr) c←v12856)+15) )) ) ) {
SOURCE(19975, 6)
(* (( (ptr) formal←c0477)+7) ) = (* (( (ptr) formal←c0477)+8) );
return(1);
};
SOURCE(19984, 72)
{
word pd215;
pd215 = (* (( (ptr) (* (( (ptr) gf←c0476)+152)/* var←c61660 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd215 ))))((word) &var←c0406, c←v12856, font←v12884, (* (ptr) ld←v12828 ), ((* (( (ptr) formal←c0477)+5)
) - (* (( (ptr) ld←v12828)+6) )), pd215);
};
(* (( (ptr) formal←c0477)+8) ) = var←c0406.f1;
};
return(0);
}
static void NoName←Q6204(formal←c0412, formal←c200012, formal←c200013, formal←c200014, formal←c200015)
word formal←c0412;
word formal←c200012;
word formal←c200013;
word formal←c200014;
word formal←c200015;
{
register ptr gf←c0478 = (ptr) &globalframe;
if ((formal←c200013 == (* (( (ptr) (* (( (ptr) gf←c0478)+145)/* var←c59964 */ ))+4) ))) {
{
word err←v56500;
err←v56500 = (* (ptr) formal←c200015 );
SOURCE(19783, 9)
(* (ptr) formal←c0412 ) = 2;
(* (( (ptr) formal←c0412)+1) ) = 5;
return;
};
};
(* (ptr) formal←c0412 ) = 0;
(* (( (ptr) formal←c0412)+1) ) = 0;
return;
}
static void NoName←Q6264(formal←c0418, formal←c200008, formal←c200009, formal←c200010, formal←c200011)
word formal←c0418;
word formal←c200008;
word formal←c200009;
word formal←c200010;
word formal←c200011;
{
register ptr gf←c0479 = (ptr) &globalframe;
if ((formal←c200009 == (* (( (ptr) (* (( (ptr) gf←c0479)+145)/* var←c59964 */ ))+4) ))) {
{
word err←v48296;
err←v48296 = (* (ptr) formal←c200011 );
SOURCE(9205, 10)
(* (ptr) formal←c0418 ) = 2;
(* (( (ptr) formal←c0418)+1) ) = 4;
return;
};
};
(* (ptr) formal←c0418 ) = 0;
(* (( (ptr) formal←c0418)+1) ) = 0;
return;
}
static void NoName←Q6324(formal←c0424, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
word formal←c0424;
word formal←c200004;
word formal←c200005;
word formal←c200006;
word formal←c200007;
{
register ptr gf←c0480 = (ptr) &globalframe;
if ((formal←c200005 == (* (( (ptr) (* (( (ptr) gf←c0480)+145)/* var←c59964 */ ))+4) ))) {
{
word err←v46832;
err←v46832 = (* (ptr) formal←c200007 );
SOURCE(7883, 10)
(* (ptr) formal←c0424 ) = 2;
(* (( (ptr) formal←c0424)+1) ) = 3;
return;
};
};
(* (ptr) formal←c0424 ) = 0;
(* (( (ptr) formal←c0424)+1) ) = 0;
return;
}
static void NoName←Q6384(formal←c0429, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0429;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c0481 = (ptr) &globalframe;
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0481)+145)/* var←c59964 */ ))+4) )) || (formal←c200001 == XR←Uncaught)) {
SOURCE(4658, 9)
(* (ptr) formal←c0429 ) = 2;
(* (( (ptr) formal←c0429)+1) ) = 2;
return;
};
(* (ptr) formal←c0429 ) = 0;
(* (( (ptr) formal←c0429)+1) ) = 0;
return;
}
/* file: XTkLabelsImpl, module: XTkLabelsImpl, compiled at: May 4, 1993 2:35:44 pm PDT */
extern void XR←install←XTkLabelsImpl() {
NoName←Q5904();
}
extern void XR←run←XTkLabelsImpl() { XR←Start(&globalframe); }