/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: October 21, 1992 9:24:19 am PDT */
/* C2C version: October 7, 1992 (native) */
/* ref-counting: off */
/* file: XTkFieldsImpl, module: XTkFieldsImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [1784628546,660138739] XTkFieldsImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W8 f; word r;} W9;
typedef struct {W16 f; W9 r;} W25;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {word f0, f1, f2, f3;} W4;
typedef struct {word f0, f1;} W2;
typedef W2 *W2Pt;
typedef struct {W8 f; W6 r;} W14;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef W5 *W5Pt;
typedef W4 *W4Pt;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W16 f; W3 r;} W19;
typedef W9 *W9Pt;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
#define IABS(i) ( ((int)(word)(i) > 0) ? (i) : (word)(-(int)(word)(i)) )
#define MIN(cast, x, y) ( ( cast x) < ( cast y) ? (x) : (y) )
static void NoName←Q2472();
static void XTkFieldsImpl←P0();
static word MakeClass←P60();
static void EventProc←P120();
static word NoName←Q2532();
static void FieldButtonChoice←P180();
static word NoName←Q2592();
static void From←P1512();
static void To←P1572();
static void FromProp←P1632();
static word CreateField←P240();
static void FieldInitInstPart←P360();
static void PushChar←P420();
static void InsertBS←P480();
static void InsertRope←P540();
static void ReplaceRope←P600();
static void FieldPreferredSize←P660();
static word CreateLabeledField←P720();
static void LabeledFieldLabelHit←P780();
static void NoName←Q2652();
static void NoName←Q2712();
static struct {unsigned f; char r[44];} string1 = {2752556, "\260\006\005\146\151\162\163\164\257\300\233\221\325\046\300\135\160\307\206\100\200\005\004\162\145\163\164\214\257\300\233\221\325\046\300\135\160\307\206\100\200\261\000"};
static struct {unsigned f; char r[4];} string2 = {131074, "\003\001\000"};
static struct {unsigned f; char r[44];} string3 = {2752556, "\260\006\005\146\151\162\163\164\257\300\306\142\131\144\300\027\030\213\334\100\244\005\004\162\145\163\164\214\257\300\306\142\131\144\300\027\030\213\334\100\244\261\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\004/\000"};
static struct {unsigned f; char r[44];} string5 = {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[4];} string6 = {65537, "\001\000\000"};
static struct {unsigned f; char r[48];} string7 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\033\115\307\000\300\214\060\055\310\100\244\005\004\162\145\163\164\214\216\257\300\033\115\307\000\300\214\060\055\310\100\244\261\000\000\000"};
static struct {unsigned f; char r[4];} string8 = {131074, "\004\003\000"};
static struct {unsigned f; char r[4];} string9 = {131076, "\216\251\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\152\137\105\102\300\047\130\352\363\100\230\000\000"};
static struct {unsigned f; char r[4];} string11 = {65540, "\242\000\000"};
static struct {unsigned f; char r[16];} string12 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string14 = {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];} string15 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\244\000\000"};
static struct {unsigned f; char r[40];} string16 = {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];} string17 = {851984, "\257\300\072\360\043\311\300\372\054\163\300\100\164\000\000"};
static struct {unsigned f; char r[16];} string18 = {786448, "default text\000\000\000"};
static struct {unsigned f; char r[8];} string19 = {458760, "default"};
static struct {unsigned f; char r[20];} string20 = {1245204, "actually typed text"};
static struct {unsigned f; char r[12];} string21 = {524300, "previous\000\000\000"};
static struct {unsigned f; char r[16];} string22 = {983056, "from cut buffer"};
static struct {unsigned f; char r[12];} string23 = {655372, "CutBuffer0\000"};
static struct {unsigned f; char r[16];} string24 = {917520, "from clipboard\000"};
static struct {unsigned f; char r[12];} string25 = {589836, "CLIPBOARD\000\000"};
static struct {unsigned f; char r[24];} string26 = {1441816, "from primary selection\000"};
static struct {unsigned f; char r[8];} string27 = {458760, "PRIMARY"};
static struct {unsigned f; char r[8];} string28 = {327688, "empty\000\000"};
static struct {unsigned f; char r[8];} string29 = {327688, "clear\000\000"};
static struct {unsigned f; char r[12];} string30 = {655372, "putPRIMARY\000"};
static struct {unsigned f; char r[8];} string31 = {327688, "Field\000\000"};
static struct {unsigned f; char r[12];} string32 = {655372, "to primary\000"};
static struct {unsigned f; char r[16];} string33 = {786448, "putCLIPBOARD\000\000\000"};
static struct {unsigned f; char r[16];} string34 = {917520, "FieldCharInput\000"};
static struct {unsigned f; char r[16];} string35 = {786448, "to clipboard\000\000\000"};
static struct {unsigned f; char r[16];} string36 = {851984, "putCutBuffer0\000\000"};
static struct {unsigned f; char r[16];} string37 = {786448, "Field values\000\000\000"};
static struct {unsigned f; char r[20];} string38 = {1048596, "PARC←Handwriting\000\000\000"};
static struct {unsigned f; char r[28];} string39 = {1572892, "HandwritingClientMessage\000\000\000"};
static struct {unsigned f; char r[16];} string40 = {851984, "to cut buffer\000\000"};
static struct {unsigned f; char r[8];} string41 = {458760, "Dismiss"};
static struct {unsigned f; char r[4];} string42 = {65540, " \000\000"};
static struct {unsigned f; char r[16];} string43 = {917520, "TextDelegation\000"};
static struct {unsigned f; char r[4];} string44 = {4, "\000\000\000"};
static struct {unsigned f; char r[16];} string45 = {851984, "\257\300j←EB\300'X\352\363@t\000\000"};
static struct {unsigned f; char r[20];} string46 = {1245203, "\006\006\044\001\050\001\054\001\060\001\064\001\100\170\010\000\004\034\001"};
static struct {unsigned f; char r[16];} string47 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string48 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string49 = {851984, "\257\300\072\360\036\365\300\334\030\146\334\100\150\000\000"};
static struct {unsigned f; char r[16];} string50 = {851984, "\257\300\130\354\167\377\300\226\325\031\150\100\150\000\000"};
static struct {unsigned f; char r[16];} string51 = {851984, "\257\300\310\203\372\072\300\300\310\160\135\100\150\000\000"};
static struct {unsigned f; char r[16];} string52 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\150\000\000"};
static struct {unsigned f; char r[16];} string53 = {851984, "\257\300\116\324\147\077\300\024\110\066\207\100\150\000\000"};
static struct {unsigned f; char r[16];} string54 = {851984, "\257\300\234\350\054\033\300\120\345\145\367\100\150\000\000"};
static struct {unsigned f; char r[16];} string55 = {851984, "\257\300\107\272\166\213\300\373\375\000\301\100\150\000\000"};
static struct {unsigned f; char r[8];} string56 = {1481927494, "ields"};
static struct {unsigned f; char r[16];} string57 = {851984, "\257\300\062\026\321\023\300\075\012\216\031\100\150\000\000"};
static struct {unsigned f; char r[16];} string58 = {851984, "\257\300\227\370\144\253\300\176\165\034\110\100\150\000\000"};
static struct {unsigned f; char r[16];} string59 = {851984, "\257\300\241\212\365\147\300\210\002\141\100\100\150\000\000"};
static struct {unsigned f; char r[16];} string60 = {851984, "\257\300\306\142\131\144\300\027\030\213\334\100\150\000\000"};
static struct {unsigned f; char r[16];} string61 = {851984, "\257\300\054\174\025\242\300\120\014\117\154\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[16];
} globalframe = {
{0}, (word) LabeledFieldLabelHit←P780, 0, (word) CreateLabeledField←P720,
0, (word) FieldPreferredSize←P660, 0, (word) ReplaceRope←P600,
0, (word) InsertRope←P540, 0, (word) InsertBS←P480,
0, (word) PushChar←P420, 0, (word) FieldInitInstPart←P360,
0, (word) CreateField←P240, 0, (word) FieldButtonChoice←P180,
0, (word) EventProc←P120, 0, (word) MakeClass←P60,
0, (word) XTkFieldsImpl←P0, {0}
};
static void NoName←Q2472()
{
register ptr gf←c0184 = (ptr) &globalframe;
word var←c36332;
(* (( (ptr) gf←c0184)+14) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c0184)+15) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (( (ptr) gf←c0184)+17) ) = (word) XR←GetTypeIndex((word) &string5, 0, (word) &string6);
(* (( (ptr) gf←c0184)+18) ) = (word) XR←GetTypeIndex((word) &string7, 0, (word) &string8);
(* (( (ptr) gf←c0184)+19) ) = (word) XR←GetTypeIndex((word) &string9, 0, (word) &string6);
(* (( (ptr) gf←c0184)+20) ) = (word) XR←GetTypeIndex((word) &string10, 0, (word) &string6);
(* (( (ptr) gf←c0184)+24) ) = (word) XR←GetTypeIndexS((word) (&string11));
(* (( (ptr) gf←c0184)+25) ) = (word) XR←GetTypeIndex((word) &string12, 0, (word) &string6);
(* (( (ptr) gf←c0184)+26) ) = (word) XR←GetTypeIndex((word) &string13, 0, (word) &string14);
(* (( (ptr) gf←c0184)+27) ) = (word) XR←GetTypeIndex((word) &string15, 0, (word) &string16);
(* (( (ptr) gf←c0184)+28) ) = (word) XR←GetTypeIndexS((word) (&string17));
(* (ptr) (( (bPt) gf←c0184)+120) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+17) ), (word) &string18);
(* (ptr) (( (bPt) gf←c0184)+124) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+19) ), (word) &string19);
(* (ptr) (( (bPt) gf←c0184)+128) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+17) ), (word) &string20);
(* (ptr) (( (bPt) gf←c0184)+132) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+19) ), (word) &string21);
(* (ptr) (( (bPt) gf←c0184)+136) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+17) ), (word) &string22);
(* (ptr) (( (bPt) gf←c0184)+140) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+19) ), (word) &string23);
(* (ptr) (( (bPt) gf←c0184)+144) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+17) ), (word) &string24);
(* (ptr) (( (bPt) gf←c0184)+148) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+19) ), (word) &string25);
(* (ptr) (( (bPt) gf←c0184)+152) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+17) ), (word) &string26);
(* (ptr) (( (bPt) gf←c0184)+156) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+19) ), (word) &string27);
(* (ptr) (( (bPt) gf←c0184)+160) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+17) ), (word) &string28);
(* (ptr) (( (bPt) gf←c0184)+164) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+19) ), (word) &string29);
(* (ptr) (( (bPt) gf←c0184)+168) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+19) ), (word) &string30);
(* (ptr) (( (bPt) gf←c0184)+172) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+19) ), (word) &string31);
(* (ptr) (( (bPt) gf←c0184)+176) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+17) ), (word) &string32);
(* (ptr) (( (bPt) gf←c0184)+180) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+19) ), (word) &string33);
(* (ptr) (( (bPt) gf←c0184)+184) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+19) ), (word) &string34);
(* (ptr) (( (bPt) gf←c0184)+188) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+17) ), (word) &string35);
(* (ptr) (( (bPt) gf←c0184)+192) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+19) ), (word) &string36);
(* (ptr) (( (bPt) gf←c0184)+196) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+25) ), (word) &string37);
(* (ptr) (( (bPt) gf←c0184)+200) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+25) ), (word) &string38);
(* (ptr) (( (bPt) gf←c0184)+204) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+19) ), (word) &string39);
(* (ptr) (( (bPt) gf←c0184)+208) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+17) ), (word) &string40);
(* (ptr) (( (bPt) gf←c0184)+212) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+19) ), (word) &string41);
(* (ptr) (( (bPt) gf←c0184)+216) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+25) ), (word) &string42);
(* (ptr) (( (bPt) gf←c0184)+220) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+17) ), (word) &string41);
(* (ptr) (( (bPt) gf←c0184)+224) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+19) ), (word) &string43);
(* (ptr) (( (bPt) gf←c0184)+228) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0184)+25) ), (word) &string44);
(void) XR←DeclareGlobalFrame((word) "XTkFieldsImpl", &globalframe, (word) XR←GetTypeIndex((word) &string45, 0, (word) &string46)
, (word) (( (bPt) gf←c0184)+328)/* var←c34476 */ );
var←c36332 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string47)), 43);
(* (( (ptr) gf←c0184)+92)/* var←c35084 */ ) = var←c36332;
(void) XR←ImportProcS(var←c36332, 68419845);
(void) XR←ImportProcS(var←c36332, 67633666);
(void) XR←ImportProcS(var←c36332, 67898627);
(void) XR←ImportProcS(var←c36332, 67373569);
(void) XR←ImportProcS(var←c36332, 67379457);
var←c36332 = (word) XR←ImportInterface((word) "Xl", (word) XR←GetTypeIndexS((word) (&string48)), 218);
(* (( (ptr) gf←c0184)+84)/* var←c34508 */ ) = var←c36332;
(void) XR←ImportProcS(var←c36332, 67910403);
(void) XR←ImportProcS(var←c36332, 67644930);
(void) XR←ImportProcS(var←c36332, 67397633);
(void) XR←ImportProcS(var←c36332, 68207876);
var←c36332 = (word) XR←ImportInterface((word) "XlAscii", (word) XR←GetTypeIndexS((word) (&string49)), 3);
(* (( (ptr) gf←c0184)+89)/* var←c34924 */ ) = var←c36332;
(void) XR←ImportProcS(var←c36332, 269484036);
var←c36332 = (word) XR←ImportInterface((word) "XlCutBuffers", (word) XR←GetTypeIndexS((word) (&string50)), 2);
(* (( (ptr) gf←c0184)+90)/* var←c34988 */ ) = var←c36332;
(void) XR←ImportProcS(var←c36332, 786691);
(void) XR←ImportProcS(var←c36332, 67633154);
var←c36332 = (word) XR←ImportInterface((word) "XTkContainers", (word) XR←GetTypeIndexS((word) (&string51)), 12);
(* (( (ptr) gf←c0184)+97)/* var←c36204 */ ) = var←c36332;
(void) XR←ImportProcS(var←c36332, 69993475);
var←c36332 = (word) XR←ImportInterface((word) "XTk", (word) XR←GetTypeIndexS((word) (&string52)), 50);
(* (( (ptr) gf←c0184)+88)/* var←c34860 */ ) = var←c36332;
(void) XR←ImportProcS(var←c36332, 1579523);
(void) XR←ImportProcS(var←c36332, 788227);
(void) XR←ImportProcS(var←c36332, 67634690);
(void) XR←ImportProcS(var←c36332, 67378433);
(void) XR←ImportProcS(var←c36332, 787459);
var←c36332 = (word) XR←ImportInterface((word) "XTkButtons", (word) XR←GetTypeIndexS((word) (&string53)), 5);
(* (( (ptr) gf←c0184)+96)/* var←c36076 */ ) = var←c36332;
(void) XR←ImportProcS(var←c36332, 72089608);
var←c36332 = (word) XR←ImportInterface((word) "XTkLabels", (word) XR←GetTypeIndexS((word) (&string54)), 9);
(* (( (ptr) gf←c0184)+86)/* var←c34796 */ ) = var←c36332;
(void) XR←ImportProcS(var←c36332, 70778883);
(void) XR←ImportProcS(var←c36332, 67371265);
(void) XR←ImportProcS(var←c36332, 787203);
var←c36332 = (word) XR←ImportInterface((word) "XTkLabelsExtras", (word) XR←GetTypeIndexS((word) (&string55)), 4);
(* (( (ptr) gf←c0184)+93)/* var←c35212 */ ) = var←c36332;
(void) XR←ImportProcS(var←c36332, 67371265);
(void) XR←ImportProcS(var←c36332, 1049091);
(void) XR←ImportProcS(var←c36332, 786435);
var←c36332 = (word) XR←ImportInterface((word) &string56, (word) XR←GetTypeIndexS((word) (&string57)), 3);
(* (( (ptr) gf←c0184)+95)/* var←c35980 */ ) = var←c36332;
(void) XR←ImportProcS(var←c36332, 70778883);
var←c36332 = (word) XR←ImportInterface((word) "XTkFriends", (word) XR←GetTypeIndexS((word) (&string58)), 33);
(* (( (ptr) gf←c0184)+87)/* var←c34828 */ ) = var←c36332;
(void) XR←ImportProcS(var←c36332, 67637250);
(void) XR←ImportProcS(var←c36332, 1048580);
(void) XR←ImportProcS(var←c36332, 73666049);
var←c36332 = (word) XR←ImportInterface((word) "XTkInputFocus", (word) XR←GetTypeIndexS((word) (&string59)), 7);
(* (( (ptr) gf←c0184)+91)/* var←c35052 */ ) = var←c36332;
(void) XR←ImportProcS(var←c36332, 525570);
(void) XR←ImportProcS(var←c36332, 524546);
(void) XR←ImportProcS(var←c36332, 67633922);
(void) XR←ImportProcS(var←c36332, 524290);
var←c36332 = (word) XR←ImportInterface((word) "XTkPopUps", (word) XR←GetTypeIndexS((word) (&string60)), 14);
(* (( (ptr) gf←c0184)+85)/* var←c34668 */ ) = var←c36332;
(void) XR←ImportProcS(var←c36332, 2360584);
(void) XR←ImportProcS(var←c36332, 67895811);
var←c36332 = (word) XR←ImportInterface((word) "XTkShellWidgets", (word) XR←GetTypeIndexS((word) (&string61)), 26);
(* (( (ptr) gf←c0184)+94)/* var←c35724 */ ) = var←c36332;
(void) XR←ImportProcS(var←c36332, 264705);
var←c36332 = (word) XR←ExportInterface((word) &string56, (word) XR←GetTypeIndexS((word) (&string57)), 3);
(* (( (ptr) gf←c0184)+98)/* var←c36364 */ ) = var←c36332;
(void) XR←ExportProcS(var←c36332, (word) (( (bPt) gf←c0184)+296)/* var←c34348 */ , 70778883);
(void) XR←ExportProcS(var←c36332, (word) (( (bPt) gf←c0184)+240)/* var←c34124 */ , 71565574);
(void) XR←ExportVar(var←c36332, 2, (word) (( (bPt) gf←c0184)+44)/* fieldClass←v3644 */ );
}
static void XTkFieldsImpl←P0(formal←c046, formal←c041)
word formal←c046;
word formal←c041;
{
register ptr gf←c36396 = (ptr) &globalframe;
/* XTkFieldsImpl: */
SOURCE(260, 9610)
SOURCE(674, 98)
{
word pd62;
pd62 = (* (( (ptr) (* (( (ptr) gf←c36396)+84)/* var←c34508 */ ))+201) );
(* (( (ptr) gf←c36396)+9)/* events←v3588 */ ) = (word) ( *( (fPt) ((* (ptr) pd62 ))))(2, 4, 5, 33, pd62);
};
SOURCE(774, 16)
{
word var←c34540;
word var←c34572;
var←c34540 = XR←NewObject(8, (* (( (ptr) gf←c36396)+14) ));
var←c34572 = var←c34540;
(* (ptr) var←c34572 ) = 268828532;
(* (( (ptr) var←c34572)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c36396)+14) ));
var←c34572 = (* (( (ptr) var←c34572)+1) );
(* (ptr) var←c34572 ) = 268762884;
(* (( (ptr) var←c34572)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c36396)+14) ));
var←c34572 = (* (( (ptr) var←c34572)+1) );
(* (ptr) var←c34572 ) = 268500740;
(* (( (ptr) var←c34572)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c36396)+14) ));
var←c34572 = (* (( (ptr) var←c34572)+1) );
(* (ptr) var←c34572 ) = 65385;
(* (( (ptr) var←c34572)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c36396)+14) ));
var←c34572 = (* (( (ptr) var←c34572)+1) );
(* (ptr) var←c34572 ) = 65366;
(* (( (ptr) var←c34572)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c36396)+14) ));
var←c34572 = (* (( (ptr) var←c34572)+1) );
(* (ptr) var←c34572 ) = 65363;
(* (( (ptr) gf←c36396)+10)/* listOfSpecials←v3616 */ ) = var←c34540;
};
SOURCE(923, 42)
(* (( (ptr) gf←c36396)+11)/* fieldClass←v3644 */ ) = (word) MakeClass←P60();
SOURCE(5436, 344)
{
word var←c34604;
word var←c34636;
var←c34604 = XR←NewObject(24, (* (( (ptr) gf←c36396)+15) ));
var←c34636 = var←c34604;
(* (ptr) var←c34636 ) = (* (( (ptr) gf←c36396)+40) );
(* (( (ptr) var←c34636)+1) ) = (* (( (ptr) gf←c36396)+41) );
(* (( (ptr) var←c34636)+4) ) = XR←CheckProc(0);
(* (( (ptr) var←c34636)+5) ) = XR←NewObject(24, (* (( (ptr) gf←c36396)+15) ));
var←c34636 = (* (( (ptr) var←c34636)+5) );
(* (ptr) var←c34636 ) = (* (( (ptr) gf←c36396)+38) );
(* (( (ptr) var←c34636)+1) ) = (* (( (ptr) gf←c36396)+39) );
(* (( (ptr) var←c34636)+4) ) = XR←CheckProc(0);
(* (( (ptr) var←c34636)+5) ) = XR←NewObject(24, (* (( (ptr) gf←c36396)+15) ));
var←c34636 = (* (( (ptr) var←c34636)+5) );
(* (ptr) var←c34636 ) = (* (( (ptr) gf←c36396)+36) );
(* (( (ptr) var←c34636)+1) ) = (* (( (ptr) gf←c36396)+37) );
(* (( (ptr) var←c34636)+4) ) = XR←CheckProc(0);
(* (( (ptr) var←c34636)+5) ) = XR←NewObject(24, (* (( (ptr) gf←c36396)+15) ));
var←c34636 = (* (( (ptr) var←c34636)+5) );
(* (ptr) var←c34636 ) = (* (( (ptr) gf←c36396)+34) );
(* (( (ptr) var←c34636)+1) ) = (* (( (ptr) gf←c36396)+35) );
(* (( (ptr) var←c34636)+4) ) = XR←CheckProc(0);
(* (( (ptr) var←c34636)+5) ) = XR←NewObject(24, (* (( (ptr) gf←c36396)+15) ));
var←c34636 = (* (( (ptr) var←c34636)+5) );
(* (ptr) var←c34636 ) = (* (( (ptr) gf←c36396)+32) );
(* (( (ptr) var←c34636)+1) ) = (* (( (ptr) gf←c36396)+33) );
(* (( (ptr) var←c34636)+4) ) = XR←CheckProc(0);
(* (( (ptr) var←c34636)+5) ) = XR←NewObject(24, (* (( (ptr) gf←c36396)+15) ));
var←c34636 = (* (( (ptr) var←c34636)+5) );
(* (ptr) var←c34636 ) = (* (( (ptr) gf←c36396)+30) );
(* (( (ptr) var←c34636)+1) ) = (* (( (ptr) gf←c36396)+31) );
(* (( (ptr) var←c34636)+4) ) = XR←CheckProc(0);
(* (( (ptr) var←c34636)+5) ) = XR←NewObject(24, (* (( (ptr) gf←c36396)+15) ));
var←c34636 = (* (( (ptr) var←c34636)+5) );
(* (ptr) var←c34636 ) = (* (( (ptr) gf←c36396)+44) );
(* (( (ptr) var←c34636)+1) ) = (* (( (ptr) gf←c36396)+42) );
(* (( (ptr) var←c34636)+4) ) = XR←CheckProc(0);
(* (( (ptr) var←c34636)+5) ) = XR←NewObject(24, (* (( (ptr) gf←c36396)+15) ));
var←c34636 = (* (( (ptr) var←c34636)+5) );
(* (ptr) var←c34636 ) = (* (( (ptr) gf←c36396)+47) );
(* (( (ptr) var←c34636)+1) ) = (* (( (ptr) gf←c36396)+45) );
(* (( (ptr) var←c34636)+4) ) = XR←CheckProc(0);
(* (( (ptr) var←c34636)+5) ) = XR←NewObject(24, (* (( (ptr) gf←c36396)+15) ));
var←c34636 = (* (( (ptr) var←c34636)+5) );
(* (ptr) var←c34636 ) = (* (( (ptr) gf←c36396)+52) );
(* (( (ptr) var←c34636)+1) ) = (* (( (ptr) gf←c36396)+48) );
(* (( (ptr) var←c34636)+4) ) = XR←CheckProc(0);
(* (( (ptr) var←c34636)+5) ) = XR←NewObject(24, (* (( (ptr) gf←c36396)+15) ));
var←c34636 = (* (( (ptr) var←c34636)+5) );
(* (ptr) var←c34636 ) = (* (( (ptr) gf←c36396)+55) );
(* (( (ptr) var←c34636)+1) ) = (* (( (ptr) gf←c36396)+53) );
(* (( (ptr) var←c34636)+4) ) = XR←CheckProc(0);
(* (( (ptr) gf←c36396)+12)/* menuList←v3812 */ ) = var←c34604;
};
SOURCE(5783, 138)
{
word pd63;
pd63 = (* (( (ptr) (* (( (ptr) gf←c36396)+85)/* var←c34668 */ ))+6) );
(* (( (ptr) gf←c36396)+13)/* menuClosure←v3840 */ ) = (word) ( *( (fPt) ((* (ptr) pd63 ))))((* (( (ptr) gf←c36396)+12)/* menuList←v3812 */ ), (word) (
( (bPt) gf←c36396)+304)/* var←c34380 */ , 0, pd63);
};
}
static word MakeClass←P60()
{
register ptr gf←c36428 = (ptr) &globalframe;
word c←v4284;
/* MakeClass: */
SOURCE(967, 332)
SOURCE(967, 332)
c←v4284 = 0;
SOURCE(1024, 232)
{
word var←c34700;
{
word var←c34732;
var←c34732 = XR←NewObject(4, (* (( (ptr) gf←c36428)+28) ));
(* (ptr) var←c34732 ) = 22;
var←c34700 = var←c34732;
};
{
W25 var←c051;
(* (ptr) &var←c051 ) = (* (( (ptr) gf←c36428)+43) );
(* (( (ptr) &var←c051)+1) ) = 0;
(* (( (ptr) &var←c051)+2) ) = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c36428)+86)/* var←c34796 */ ))+10) ) );
(* (( (ptr) &var←c051)+3) ) = 1;
(* (( (ptr) &var←c051)+4) ) = 0;
(* (( (ptr) &var←c051)+5) ) = 0;
(* (( (ptr) &var←c051)+6) ) = (word) (( (bPt) gf←c36428)+248)/* var←c34156 */ ;
(* (( (ptr) &var←c051)+7) ) = XR←CheckProc(0);
(* (( (ptr) &var←c051)+8) ) = XR←CheckProc(0);
(* (( (ptr) &var←c051)+9) ) = XR←CheckProc(0);
(* (( (ptr) &var←c051)+10) ) = XR←CheckProc(0);
(* (( (ptr) &var←c051)+11) ) = XR←CheckProc(0);
(* (( (ptr) &var←c051)+12) ) = XR←CheckProc(0);
(* (( (ptr) &var←c051)+13) ) = XR←CheckProc(0);
(* (( (ptr) &var←c051)+14) ) = XR←CheckProc(0);
(* (( (ptr) &var←c051)+15) ) = XR←CheckProc(0);
(* (( (ptr) &var←c051)+16) ) = XR←CheckProc(0);
(* (( (ptr) &var←c051)+17) ) = XR←CheckProc(0);
(* (( (ptr) &var←c051)+18) ) = (word) (( (bPt) gf←c36428)+288)/* var←c34316 */ ;
(* (( (ptr) &var←c051)+19) ) = var←c34700;
(* (( (ptr) &var←c051)+20) ) = 0;
(* (( (ptr) &var←c051)+21) ) = 0;
(* (( (ptr) &var←c051)+22) ) = 0;
(* (( (ptr) &var←c051)+23) ) = XR←CheckProc(0);
(* (( (ptr) &var←c051)+24) ) = XR←CheckProc(0);
{
word pd64;
pd64 = (* (( (ptr) (* (( (ptr) gf←c36428)+87)/* var←c34828 */ ))+18) );
c←v4284 = (word) ( *( (fPt) ((* (ptr) pd64 ))))((word) (&var←c051), pd64);
};
};
};
SOURCE(1258, 41)
{
word pd65;
pd65 = (* (( (ptr) (* (( (ptr) gf←c36428)+88)/* var←c34860 */ ))+8) );
(void) ( *( (fPt) ((* (ptr) pd65 ))))(c←v4284, 1, 1, pd65);
};
SOURCE(967, 332)
return(c←v4284);
}
static void EventProc←P120(formal←c0213, formal←c0214, tq←v11044)
word formal←c0213;
word formal←c0214;
word tq←v11044;
{
W6 var←c36460;
/* declaration of event←v10988 skipped */
/* declaration of clientData←v11016 skipped */
var←c36460.f4/* event←v10988 */ = formal←c0213;
var←c36460.f5/* clientData←v11016 */ = formal←c0214;
/* EventProc: */
SOURCE(1478, 2899)
SOURCE(1508, 2869)
SOURCE(1510, 2808)
{
word var←c01;
{
word var←c0207;
var←c0207 = (word) &var←c36460;
var←c01 = (word) XR←Enable(( ((word) (fPt) NoName←Q2532) ), ( ((word) (fPt) NoName←Q2712) ), var←c0207);
};
if ((var←c01 == 2)) {
goto lab←L100000;
}
else {
if ((var←c01 == 1)) {
goto lab←L02;
};
};
};
goto lab←L100006;
lab←L100000: ;
lab←L100006: ;
lab←L02: ;
return;
}
static word NoName←Q2532(formal←c0188)
word formal←c0188;
{
register ptr gf←c0187 = (ptr) &globalframe;
SOURCE(1546, 39)
{
word widget←v5312;
SOURCE(1546, 39)
widget←v5312 = XR←Narrow((* (( (ptr) formal←c0188)+5) ), (* (( (ptr) gf←c0187)+27) ));
SOURCE(1587, 2731)
{
word var←c34892;
var←c34892 = (* (( (ptr) formal←c0188)+4) );
if ((var←c34892 == 0)) {
goto lab←L100003;
};
{
word var←c35500;
var←c35500 = (* (( (ptr) var←c34892)+4) );
switch (var←c35500) {
case 2:
{
word keyPress←v5356;
keyPress←v5356 = var←c34892;
SOURCE(1640, 846)
{
word asRope←v5400 = 0;
word char←v5428;
word keysym←v5456;
word matched←v5484;
word isModifier←v5512;
SOURCE(1730, 156)
{
W4 var←c34956;
{
/*1*/ word pd66;
/*1*/ pd66 = (* (( (ptr) (* (( (ptr) gf←c0187)+89)/* var←c34924 */ ))+4) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd66 ))))((word) &var←c34956, (* (( (ptr) (* (( (ptr) formal←c0188)+4) ))+2) ), (* (( (ptr) keyPress←v5356)+5)
/*1*/ ), (* (( (ptr) keyPress←v5356)+15) ), (* (( (ptr) gf←c0187)+10)/* listOfSpecials←v3616 */ ), pd66);
/*1*/ };
isModifier←v5512 = var←c34956.f3;
matched←v5484 = var←c34956.f2;
keysym←v5456 = var←c34956.f1;
char←v5428 = var←c34956.f0;
};
SOURCE(1888, 25)
if ((0 != isModifier←v5512)) {
SOURCE(1907, 6)
return(1);
};
SOURCE(1915, 194)
switch (matched←v5484) {
case 268828532: case 268762884: case 268500740:
SOURCE(2009, 100)
/*1*/ {
/*1*/ word insert←v5556;
SOURCE(2011, 54)
/*1*/ {
/*1*/ word pd67;
/*1*/ pd67 = (* (( (ptr) (* (( (ptr) gf←c0187)+90)/* var←c34988 */ ))+4) );
/*1*/ insert←v5556 = (word) ( *( (fPt) ((* (ptr) pd67 ))))((* (( (ptr) (* (( (ptr) formal←c0188)+4) ))+2) ), 0, pd67);
/*1*/ };
SOURCE(2067, 33)
/*1*/ (void) InsertRope←P540(widget←v5312, insert←v5556, 0);
SOURCE(2102, 7)
/*1*/ return(1);
/*1*/ };
};
SOURCE(2112, 137)
if ((matched←v5484 == 65366) || (matched←v5484 == 65363)) {
SOURCE(2180, 61)
{
/*1*/ word var←c35020;
/*1*/ {
/*1*/ word pd68;
/*1*/ pd68 = (* (( (ptr) (* (( (ptr) gf←c0187)+91)/* var←c35052 */ ))+7) );
/*1*/ var←c35020 = (word) ( *( (fPt) ((* (ptr) pd68 ))))(widget←v5312, 5, pd68);
/*1*/ };
/*1*/ {
/*1*/ word pd69;
/*1*/ pd69 = (* (( (ptr) (* (( (ptr) gf←c0187)+91)/* var←c35052 */ ))+4) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd69 ))))(var←c35020, 0, pd69);
/*1*/ };
/*1*/ };
SOURCE(2243, 6)
return(1);
};
SOURCE(2254, 96)
if ((matched←v5484 == 65385)) {
SOURCE(2289, 53)
{
/*1*/ word pd70;
/*1*/ pd70 = (* (( (ptr) (* (( (ptr) gf←c0187)+91)/* var←c35052 */ ))+5) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd70 ))))(widget←v5312, (* (( (ptr) keyPress←v5356)+7) ), pd70);
/*1*/ };
SOURCE(2344, 6)
return(1);
};
SOURCE(2355, 28)
{
word pd71;
pd71 = (* (( (ptr) (* (( (ptr) gf←c0187)+92)/* var←c35084 */ ))+37) );
asRope←v5400 = (word) ( *( (fPt) ((* (ptr) pd71 ))))(char←v5428, pd71);
};
SOURCE(2385, 30)
(void) PushChar←P420(widget←v5312, char←v5428, asRope←v5400);
SOURCE(2417, 67)
{
word pd72;
pd72 = (* (( (ptr) (* (( (ptr) gf←c0187)+87)/* var←c34828 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd72 ))))(widget←v5312, (* (( (ptr) gf←c0187)+46) ), asRope←v5400, keyPress←v5356, pd72);
};
};
};
break;
case 5:
{
word br←v5600;
br←v5600 = var←c34892;
SOURCE(2518, 683)
{
word pm←v5644;
SOURCE(2520, 59)
{
word pd73;
pd73 = (* (( (ptr) (* (( (ptr) gf←c0187)+84)/* var←c34508 */ ))+108) );
pm←v5644 = (word) ( *( (fPt) ((* (ptr) pd73 ))))((* ((( (ptr) br←v5600)+2)) ), pd73);
};
SOURCE(2581, 557)
{
word var←c35116;
{
/*1*/ word idx74;
/*1*/ word limit75;
/*1*/ var←c35116 = (* ((( (ptr) pm←v5644)+1)+(
/*1*/ idx74 = (* (( (ptr) br←v5600)+5) ),
/*1*/ limit75 = (* (ptr) pm←v5644 ),
/*1*/ BCK(idx74, limit75)
/*1*/ )) );
/*1*/ };
if ((var←c35116 == 1)) {
SOURCE(2612, 466)
/*1*/ {
/*1*/ word fd←v5688;
SOURCE(2614, 36)
/*1*/ {
/*1*/ word fieldData←v33824;
SOURCE(6252, 141)
/*1*/ fieldData←v33824 = 0;
SOURCE(6334, 59)
/*1*/ {
/*1*/ word idx76;
/*1*/ word limit77;
/*1*/ fieldData←v33824 = XR←Narrow((* ((( (ptr) widget←v5312)+49)+(
/*1*/ idx76 = (* (( (ptr) (* (( (ptr) gf←c0187)+11)/* fieldClass←v3644 */ ))+4) ),
/*1*/ limit77 = (* (( (ptr) widget←v5312)+48) ),
/*1*/ BCK(idx76, limit77)
/*1*/ )) ), (* (( (ptr) gf←c0187)+20) ));
/*1*/ };
SOURCE(6252, 141)
/*1*/ fd←v5688 = fieldData←v33824;
/*1*/ };
SOURCE(2652, 244)
/*1*/ {
/*1*/ word tc78;
/*1*/ word x79;
/*1*/ word x80;
/*1*/ if (((
/*1*/ x79 = ((* (( (ptr) fd←v5688)+2) ) - (* (( (ptr) br←v5600)+14) )),
/*1*/ IABS(x79)
/*1*/ ) > 8)) {
/*1*/ tc78 = (word) ((
/*1*/ x80 = ((* (( (ptr) fd←v5688)+1) ) - (* (( (ptr) br←v5600)+13) )),
/*1*/ IABS(x80)
/*1*/ ) < 8);
/*1*/ }
/*1*/ else {
/*1*/ tc78 = (word) 0;
/*1*/ };
/*1*/ if (tc78) {
SOURCE(2758, 138)
/*1*/ {
/*1*/ W2 var←c35180;
/*1*/ var←c35180.f0 = (word) -1;
/*1*/ var←c35180.f1 = (word) -1;
/*1*/ {
/*1*/ word pd81;
/*1*/ pd81 = (* (( (ptr) (* (( (ptr) gf←c0187)+85)/* var←c34668 */ ))+9) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd81 ))))((* (( (ptr) gf←c0187)+13)/* menuClosure←v3840 */ ), (* (( (ptr) (* (( (ptr) widget←v5312)+36)
/*1*/ ))+1) ), var←c35180, widget←v5312, 0, 0
/*1*/ , (* (( (ptr) gf←c0187)+49) ), 0, pd81);
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ if ((* (( (bPt) br←v5600)+63) ) & 04) {
/*1*/ }
/*1*/ else {
/*1*/ if ((* (( (bPt) br←v5600)+63) ) & 1) {
SOURCE(2960, 52)
/*1*/ {
/*1*/ word pd82;
/*1*/ pd82 = (* (( (ptr) (* (( (ptr) gf←c0187)+93)/* var←c35212 */ ))+4) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd82 ))))(widget←v5312, 10000, 2, pd82);
/*1*/ };
/*1*/ }
/*1*/ else {
SOURCE(3025, 51)
/*1*/ {
/*1*/ word pd83;
/*1*/ pd83 = (* (( (ptr) (* (( (ptr) gf←c0187)+93)/* var←c35212 */ ))+6) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd83 ))))(widget←v5312, (* (W2Pt) (( (ptr) br←v5600)+13) ), 2, pd83);
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ }
else {
/*1*/ if ((var←c35116 == 2)) {
SOURCE(3086, 52)
/*1*/ {
/*1*/ word pd84;
/*1*/ pd84 = (* (( (ptr) (* (( (ptr) gf←c0187)+93)/* var←c35212 */ ))+4) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd84 ))))(widget←v5312, 10000, 2, pd84);
/*1*/ };
/*1*/ };
/*1*/ };
};
SOURCE(3155, 44)
{
word pd85;
pd85 = (* (( (ptr) (* (( (ptr) gf←c0187)+91)/* var←c35052 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd85 ))))(widget←v5312, (* (( (ptr) br←v5600)+7) ), pd85);
};
};
};
break;
case 4:
{
word bp←v5732;
bp←v5732 = var←c34892;
SOURCE(3231, 521)
{
word pm←v5776;
word fd←v5804;
SOURCE(3233, 59)
{
word pd86;
pd86 = (* (( (ptr) (* (( (ptr) gf←c0187)+84)/* var←c34508 */ ))+108) );
pm←v5776 = (word) ( *( (fPt) ((* (ptr) pd86 ))))((* ((( (ptr) bp←v5732)+2)) ), pd86);
};
SOURCE(3294, 36)
{
word fieldData←v33776;
SOURCE(6252, 141)
fieldData←v33776 = 0;
SOURCE(6334, 59)
{
/*1*/ word idx87;
/*1*/ word limit88;
/*1*/ fieldData←v33776 = XR←Narrow((* ((( (ptr) widget←v5312)+49)+(
/*1*/ idx87 = (* (( (ptr) (* (( (ptr) gf←c0187)+11)/* fieldClass←v3644 */ ))+4) ),
/*1*/ limit88 = (* (( (ptr) widget←v5312)+48) ),
/*1*/ BCK(idx87, limit88)
/*1*/ )) ), (* (( (ptr) gf←c0187)+20) ));
/*1*/ };
SOURCE(6252, 141)
fd←v5804 = fieldData←v33776;
};
SOURCE(3332, 19)
(* (W2Pt) (( (ptr) fd←v5804)+1) ) = (* (W2Pt) (( (ptr) bp←v5732)+13) );
SOURCE(3353, 397)
{
word var←c35276;
{
/*1*/ word idx89;
/*1*/ word limit90;
/*1*/ var←c35276 = (* ((( (ptr) pm←v5776)+1)+(
/*1*/ idx89 = (* (( (ptr) bp←v5732)+5) ),
/*1*/ limit90 = (* (ptr) pm←v5776 ),
/*1*/ BCK(idx89, limit90)
/*1*/ )) );
/*1*/ };
if ((var←c35276 == 1)) {
/*1*/ if ((* (( (bPt) bp←v5732)+63) ) & 04) {
SOURCE(3425, 138)
/*1*/ {
/*1*/ W2 var←c35308;
/*1*/ var←c35308.f0 = (word) -1;
/*1*/ var←c35308.f1 = (word) -1;
/*1*/ {
/*1*/ word pd91;
/*1*/ pd91 = (* (( (ptr) (* (( (ptr) gf←c0187)+85)/* var←c34668 */ ))+9) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd91 ))))((* (( (ptr) gf←c0187)+13)/* menuClosure←v3840 */ ), (* (( (ptr) (* (( (ptr) widget←v5312)+36)
/*1*/ ))+1) ), var←c35308, widget←v5312, 0, 0
/*1*/ , (* (( (ptr) gf←c0187)+49) ), 0, pd91);
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ }
else {
/*1*/ if ((var←c35276 == 3)) {
SOURCE(3591, 137)
/*1*/ {
/*1*/ W2 var←c35340;
/*1*/ var←c35340.f0 = (word) -1;
/*1*/ var←c35340.f1 = (word) -1;
/*1*/ {
/*1*/ word pd92;
/*1*/ pd92 = (* (( (ptr) (* (( (ptr) gf←c0187)+85)/* var←c34668 */ ))+9) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd92 ))))((* (( (ptr) gf←c0187)+13)/* menuClosure←v3840 */ ), (* (( (ptr) (* (( (ptr) widget←v5312)+36)
/*1*/ ))+1) ), var←c35340, widget←v5312, 0, 0
/*1*/ , (* (( (ptr) gf←c0187)+49) ), 0, pd92);
/*1*/ };
/*1*/ };
/*1*/ }
/*1*/ else {
SOURCE(3744, 6)
/*1*/ return(1);
/*1*/ };
/*1*/ };
};
};
};
break;
case 33:
{
word cm←v5848;
cm←v5848 = var←c34892;
SOURCE(3784, 557)
{
word a←v5892;
SOURCE(3786, 60)
{
word pd93;
pd93 = (* (( (ptr) (* (( (ptr) gf←c0187)+84)/* var←c34508 */ ))+50) );
a←v5892 = (word) ( *( (fPt) ((* (ptr) pd93 ))))((* (( (ptr) cm←v5848)+2) ), (* (( (ptr) gf←c0187)+50) ), pd93);
};
SOURCE(3848, 470)
if ( ( ((* (( (ptr) cm←v5848)+8) ) == a←v5892) ? ((* (( (ptr) cm←v5848)+9) ) == a←v5892) : 0 ) ) {
SOURCE(3895, 443)
{
/*1*/ word i←v5936;
SOURCE(3897, 28)
/*1*/ i←v5936 = (* (( (ptr) cm←v5848)+10) );
SOURCE(3970, 348)
/*1*/ {
/*1*/ word var←c35372;
/*1*/ var←c35372 = i←v5936;
/*1*/ if (( (int)var←c35372 == (int) (word) -1)) {
SOURCE(3997, 85)
/*1*/ {
/*1*/ word text←v6036;
SOURCE(3999, 49)
/*1*/ {
/*1*/ word pd94;
/*1*/ pd94 = (* (( (ptr) (* (( (ptr) gf←c0187)+90)/* var←c34988 */ ))+4) );
/*1*/ text←v6036 = (word) ( *( (fPt) ((* (ptr) pd94 ))))((* (( (ptr) cm←v5848)+2) ), 0, pd94);
/*1*/ };
SOURCE(4050, 30)
/*1*/ (void) InsertRope←P540(widget←v5312, text←v6036, 1);
/*1*/ };
/*1*/ }
/*1*/ else {
/*1*/ if (( (int)var←c35372 == (int) (word) -3)) {
SOURCE(4099, 61)
/*1*/ {
/*1*/ word var←c35404;
/*1*/ {
/*1*/ word pd95;
/*1*/ pd95 = (* (( (ptr) (* (( (ptr) gf←c0187)+91)/* var←c35052 */ ))+7) );
/*1*/ var←c35404 = (word) ( *( (fPt) ((* (ptr) pd95 ))))(widget←v5312, 5, pd95);
/*1*/ };
/*1*/ {
/*1*/ word pd96;
/*1*/ pd96 = (* (( (ptr) (* (( (ptr) gf←c0187)+91)/* var←c35052 */ ))+4) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd96 ))))(var←c35404, 0, pd96);
/*1*/ };
/*1*/ };
/*1*/ }
/*1*/ else {
/*1*/ if (( (int)i←v5936 < (int)0)) {
SOURCE(4204, 77)
/*1*/ {
/*1*/ word var←c35436;
/*1*/ {
/*1*/ word var←c35468;
/*1*/ var←c35468 = XR←NewObject(4, (* (( (ptr) gf←c0187)+24) ));
/*1*/ (* (ptr) var←c35468 ) = i←v5936;
/*1*/ var←c35436 = var←c35468;
/*1*/ };
/*1*/ {
/*1*/ word pd97;
/*1*/ pd97 = (* (( (ptr) (* (( (ptr) gf←c0187)+87)/* var←c34828 */ ))+4) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd97 ))))(widget←v5312, (* (( (ptr) gf←c0187)+51) ), var←c35436, cm←v5848, pd97);
/*1*/ };
/*1*/ };
/*1*/ }
/*1*/ else {
/*1*/ if (( (int)i←v5936 <= (int)255)) {
SOURCE(4294, 24)
/*1*/ (void) PushChar←P420(widget←v5312, BCK(i←v5936, 256), 0);
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
};
};
};
break;
default:
lab←L100003: ;
break;
};
};
};
};
return(0);
}
static void FieldButtonChoice←P180(formal←c0215, formal←c0216, formal←c0217, event←v11188)
word formal←c0215;
word formal←c0216;
word formal←c0217;
word event←v11188;
{
W14 var←c36492;
/* declaration of widget←v11104 skipped */
/* declaration of registerData←v11132 skipped */
/* declaration of callData←v11160 skipped */
/* declaration of var←c35532 skipped */
/* declaration of var←c35564 skipped */
/* declaration of var←c35596 skipped */
(* (( (ptr) &var←c36492)+4)/* widget←v11104 */ ) = formal←c0215;
(* (( (ptr) &var←c36492)+5)/* registerData←v11132 */ ) = formal←c0216;
(* (( (ptr) &var←c36492)+6)/* callData←v11160 */ ) = formal←c0217;
/* FieldButtonChoice: */
SOURCE(4381, 1051)
{
word tmpAddr98;
tmpAddr98 = (word) (( (ptr) &var←c36492)+7)/* var←c35532 */ ;
(* (ptr) tmpAddr98 ) = ( ((word) (fPt) FromProp←P1632) );
(* (( (ptr) tmpAddr98) + 1) ) = 1;
};
{
word tmpAddr99;
tmpAddr99 = (word) (( (ptr) &var←c36492)+9)/* var←c35564 */ ;
(* (ptr) tmpAddr99 ) = ( ((word) (fPt) To←P1572) );
(* (( (ptr) tmpAddr99) + 1) ) = 1;
};
{
word tmpAddr100;
tmpAddr100 = (word) (( (ptr) &var←c36492)+11)/* var←c35596 */ ;
(* (ptr) tmpAddr100 ) = ( ((word) (fPt) From←P1512) );
(* (( (ptr) tmpAddr100) + 1) ) = 1;
};
SOURCE(4423, 1009)
SOURCE(4425, 972)
{
/* declaration of field←v6080 skipped */
word var←c02;
{
word var←c0208;
var←c0208 = (word) &var←c36492;
var←c02 = (word) XR←Enable(( ((word) (fPt) NoName←Q2592) ), ( ((word) (fPt) NoName←Q2652) ), var←c0208);
};
if ((var←c02 == 3)) {
goto lab←L100007;
};
};
goto lab←L100011;
lab←L100007: ;
lab←L100011: ;
}
static word NoName←Q2592(formal←c0190)
word formal←c0190;
{
register ptr gf←c0189 = (ptr) &globalframe;
SOURCE(4503, 40)
{
word time←v6108;
SOURCE(4503, 40)
(* (( (ptr) formal←c0190)+13) ) = XR←Narrow((* (( (ptr) formal←c0190)+5) ), (* (( (ptr) gf←c0189)+27) ));
SOURCE(4545, 50)
{
word c←v34044;
c←v34044 = (* (( (ptr) (* (( (ptr) formal←c0190)+13) ))+34) );
time←v6108 = (* (( (ptr) c←v34044)+21) );
};
SOURCE(4972, 425)
{
word var←c35660;
var←c35660 = (* (( (ptr) formal←c0190)+6) );
if ((var←c35660 == (* (( (ptr) gf←c0189)+41) ))) {
SOURCE(5005, 29)
{
word pd102;
pd102 = (* (( (ptr) (* (( (ptr) gf←c0189)+86)/* var←c34796 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd102 ))))((* (( (ptr) formal←c0190)+13) ), 0, 2, pd102);
};
SOURCE(5036, 35)
{
word pd103;
pd103 = (* (( (ptr) (* (( (ptr) gf←c0189)+91)/* var←c35052 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd103 ))))((* (( (ptr) formal←c0190)+13) ), time←v6108, pd103);
};
goto endif0101;
};
if ((var←c35660 == (* (( (ptr) gf←c0189)+39) ))) {
SOURCE(5088, 14)
(void) From←P1512((* (( (ptr) gf←c0189)+39) ), (word) (( (bPt) formal←c0190)+44));
goto endif0101;
};
if ((var←c35660 == (* (( (ptr) gf←c0189)+37) ))) {
SOURCE(5118, 16)
(void) From←P1512((* (( (ptr) gf←c0189)+37) ), (word) (( (bPt) formal←c0190)+44));
goto endif0101;
};
if ((var←c35660 == (* (( (ptr) gf←c0189)+35) ))) {
SOURCE(5151, 17)
(void) From←P1512((* (( (ptr) gf←c0189)+35) ), (word) (( (bPt) formal←c0190)+44));
goto endif0101;
};
if ((var←c35660 == (* (( (ptr) gf←c0189)+33) ))) {
SOURCE(5183, 19)
(void) FromProp←P1632((* (( (ptr) gf←c0189)+33) ), (word) (( (bPt) formal←c0190)+28));
goto endif0101;
};
if ((var←c35660 == (* (( (ptr) gf←c0189)+31) ))) {
SOURCE(5216, 18)
(void) FromProp←P1632((* (( (ptr) gf←c0189)+31) ), (word) (( (bPt) formal←c0190)+28));
goto endif0101;
};
if ((var←c35660 == (* (( (ptr) gf←c0189)+42) ))) {
SOURCE(5251, 12)
(void) To←P1572((* (( (ptr) gf←c0189)+39) ), (word) (( (bPt) formal←c0190)+36));
goto endif0101;
};
if ((var←c35660 == (* (( (ptr) gf←c0189)+45) ))) {
SOURCE(5282, 14)
(void) To←P1572((* (( (ptr) gf←c0189)+37) ), (word) (( (bPt) formal←c0190)+36));
goto endif0101;
};
if ((var←c35660 == (* (( (ptr) gf←c0189)+48) ))) {
SOURCE(5316, 15)
(void) To←P1572((* (( (ptr) gf←c0189)+35) ), (word) (( (bPt) formal←c0190)+36));
goto endif0101;
};
if ((var←c35660 == (* (( (ptr) gf←c0189)+53) ))) {
SOURCE(5345, 52)
{
word var←c35692;
{
word pd104;
pd104 = (* (( (ptr) (* (( (ptr) gf←c0189)+88)/* var←c34860 */ ))+33) );
var←c35692 = (word) ( *( (fPt) ((* (ptr) pd104 ))))((* ((( (ptr) formal←c0190)+4)) ), pd104);
};
{
word pd105;
pd105 = (* (( (ptr) (* (( (ptr) gf←c0189)+94)/* var←c35724 */ ))+14) );
(void) ( *( (fPt) ((* (ptr) pd105 ))))(var←c35692, pd105);
};
};
goto endif0101;
};
endif0101: ;
};
};
return(0);
}
static void From←P1512(convention←v6268, formal←c36556)
word convention←v6268;
word formal←c36556;
{
register ptr gf←c36524 = (ptr) &globalframe;
word r←v6416;
formal←c36556 = (formal←c36556 - 44);
/* From: */
SOURCE(4597, 12)
SOURCE(4631, 61)
{
word pd106;
pd106 = (* (( (ptr) (* (( (ptr) gf←c36524)+90)/* var←c34988 */ ))+4) );
r←v6416 = (word) ( *( (fPt) ((* (ptr) pd106 ))))((* (( (ptr) (* (( (ptr) formal←c36556)+13) ))+34) ), convention←v6268, pd106)
;
};
SOURCE(4694, 21)
(void) ReplaceRope←P600((* (( (ptr) formal←c36556)+13) ), r←v6416);
}
static void To←P1572(convention←v6328, formal←c36620)
word convention←v6328;
word formal←c36620;
{
register ptr gf←c36588 = (ptr) &globalframe;
formal←c36620 = (formal←c36620 - 36);
/* To: */
SOURCE(4720, 10)
SOURCE(4752, 72)
{
word var←c35756;
{
word pd107;
pd107 = (* (( (ptr) (* (( (ptr) gf←c36588)+86)/* var←c34796 */ ))+5) );
var←c35756 = (word) ( *( (fPt) ((* (ptr) pd107 ))))((* ((( (ptr) formal←c36620)+13)) ), pd107);
};
{
word pd108;
pd108 = (* (( (ptr) (* (( (ptr) gf←c36588)+90)/* var←c34988 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd108 ))))((* (( (ptr) (* (( (ptr) formal←c36620)+13) ))+34) ), var←c35756, convention←v6328, pd108)
;
};
};
}
static void FromProp←P1632(prop←v6388, formal←c36684)
word prop←v6388;
word formal←c36684;
{
register ptr gf←c36652 = (ptr) &globalframe;
formal←c36684 = (formal←c36684 - 28);
/* FromProp: */
SOURCE(4829, 16)
SOURCE(4861, 91)
{
word var←c35788;
{
word pd109;
pd109 = (* (( (ptr) (* (( (ptr) gf←c36652)+88)/* var←c34860 */ ))+10) );
var←c35788 = (word) ( *( (fPt) ((* (ptr) pd109 ))))((* (( (ptr) formal←c36684)+13) ), prop←v6388, pd109);
};
if ((var←c35788 == 0)) {
goto lab←L100012;
};
{
word tc110;
if (((* (( (ptr) gf←c36652)+26) ) == XR←GetReferentType(var←c35788))) {
tc110 = (word) ((*(int*)var←c35788<0) == 0);
}
else {
tc110 = (word) 0;
};
if (tc110) {
{
word r←v6460;
r←v6460 = var←c35788;
SOURCE(4925, 27)
{
word pd111;
pd111 = (* (( (ptr) (* (( (ptr) gf←c36652)+86)/* var←c34796 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd111 ))))((* (( (ptr) formal←c36684)+13) ), r←v6460, 2, pd111);
};
};
}
else {
lab←L100012: ;
};
};
};
}
static word CreateField←P240(widgetSpec←v4428, text←v4456, style←v4484)
W9 widgetSpec←v4428;
word text←v4456;
W4 style←v4484;
{
register ptr gf←c36716 = (ptr) &globalframe;
word w←v4528;
/* CreateField: */
SOURCE(5924, 322)
SOURCE(5924, 322)
w←v4528 = 0;
SOURCE(6057, 74)
{
word pd112;
pd112 = (* (( (ptr) (* (( (ptr) gf←c36716)+87)/* var←c34828 */ ))+20) );
(* (ptr) &widgetSpec←v4428 ) = (word) ( *( (fPt) ((* (ptr) pd112 ))))((* (ptr) &widgetSpec←v4428 ), (* (( (ptr) gf←c36716)+11)
/* fieldClass←v3644 */ ), pd112);
};
SOURCE(6133, 75)
{
word pd113;
pd113 = (* (( (ptr) (* (( (ptr) gf←c36716)+86)/* var←c34796 */ ))+4) );
w←v4528 = (word) ( *( (fPt) ((* (ptr) pd113 ))))(widgetSpec←v4428, text←v4456, style←v4484, pd113);
};
SOURCE(6210, 36)
{
word pd114;
pd114 = (* (( (ptr) (* (( (ptr) gf←c36716)+88)/* var←c34860 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd114 ))))(w←v4528, (* (( (ptr) gf←c36716)+31) ), text←v4456, pd114);
};
SOURCE(5924, 322)
return(w←v4528);
}
static void FieldInitInstPart←P360(widget←v12148, arguments←v12176)
word widget←v12148;
word arguments←v12176;
{
register ptr gf←c36748 = (ptr) &globalframe;
word fieldData←v6504;
/* FieldInitInstPart: */
SOURCE(6399, 304)
SOURCE(6447, 40)
fieldData←v6504 = XR←NewObject(12, (* (( (ptr) gf←c36748)+20) ));
SOURCE(6489, 56)
{
word val←v33948;
val←v33948 = fieldData←v6504;
{
word idx115;
word limit116;
(* ((( (ptr) widget←v12148)+49)+(
idx115 = (* (( (ptr) (* (( (ptr) gf←c36748)+11)/* fieldClass←v3644 */ ))+4) ),
limit116 = (* (( (ptr) widget←v12148)+48) ),
BCK(idx115, limit116)
)) ) = val←v33948;
};
};
SOURCE(6547, 156)
{
word var←c35852;
{
word pd117;
pd117 = (* (( (ptr) (* (( (ptr) gf←c36748)+84)/* var←c34508 */ ))+63) );
var←c35852 = (word) ( *( (fPt) ((* (ptr) pd117 ))))(0, 0, 0, pd117);
};
{
W4 var←c35884;
var←c35884.f0 = (word) (( (bPt) gf←c36748)+312)/* var←c34412 */ ;
var←c35884.f1 = (* (( (ptr) gf←c36748)+9)/* events←v3588 */ );
var←c35884.f2 = var←c35852;
var←c35884.f3 = widget←v12148;
{
word pd118;
pd118 = (* (( (ptr) (* (( (ptr) gf←c36748)+88)/* var←c34860 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd118 ))))(widget←v12148, var←c35884, 13, pd118);
};
};
};
}
static void PushChar←P420(widget←v4692, ch←v4720, asRope←v4748)
word widget←v4692;
word ch←v4720;
word asRope←v4748;
{
register ptr gf←c36780 = (ptr) &globalframe;
/* PushChar: */
SOURCE(6709, 300)
SOURCE(6784, 225)
{
word var←c35916;
var←c35916 = ch←v4720;
switch (var←c35916) {
case 0: case 10: case 13:
break;
case 4: case 127:
SOURCE(6848, 24)
(void) ReplaceRope←P600(widget←v4692, 0);
break;
case 8:
SOURCE(6891, 22)
(void) InsertBS←P480(widget←v4692, 1);
break;
default:
SOURCE(6930, 45)
if ((asRope←v4748 == 0)) {
SOURCE(6949, 26)
{
word pd119;
pd119 = (* (( (ptr) (* (( (ptr) gf←c36780)+92)/* var←c35084 */ ))+37) );
asRope←v4748 = (word) ( *( (fPt) ((* (ptr) pd119 ))))(ch←v4720, pd119);
};
};
SOURCE(6977, 32)
(void) InsertRope←P540(widget←v4692, asRope←v4748, 1);
break;
};
};
}
static void InsertBS←P480(widget←v4808, remember←v4836)
word widget←v4808;
word remember←v4836;
{
register ptr gf←c36812 = (ptr) &globalframe;
word text←v6548;
word ip←v6576;
/* InsertBS: */
SOURCE(7018, 483)
SOURCE(7074, 43)
{
word pd120;
pd120 = (* (( (ptr) (* (( (ptr) gf←c36812)+86)/* var←c34796 */ ))+5) );
text←v6548 = (word) ( *( (fPt) ((* (ptr) pd120 ))))(widget←v4808, pd120);
};
SOURCE(7119, 79)
{
word pd121;
word x122;
word pd123;
word x124;
pd121 = (* (( (ptr) (* (( (ptr) gf←c36812)+93)/* var←c35212 */ ))+5) );
pd123 = (* (( (ptr) (* (( (ptr) gf←c36812)+92)/* var←c35084 */ ))+14) );
ip←v6576 = (x122 = (word) ( *( (fPt) ((* (ptr) pd121 ))))(widget←v4808, pd121),
x124 = (word) ( *( (fPt) ((* (ptr) pd123 ))))(text←v6548, pd123),
MIN((int)(word), x122, x124));
};
SOURCE(7200, 301)
if (( (int)ip←v6576 > (int)0)) {
SOURCE(7213, 290)
{
word left←v6620;
word right←v6648;
SOURCE(7215, 44)
{
word pd125;
pd125 = (* (( (ptr) (* (( (ptr) gf←c36812)+92)/* var←c35084 */ ))+17) );
left←v6620 = (word) ( *( (fPt) ((* (ptr) pd125 ))))(text←v6548, 0, (ip←v6576 - 1), pd125);
};
SOURCE(7261, 51)
{
word pd126;
pd126 = (* (( (ptr) (* (( (ptr) gf←c36812)+92)/* var←c35084 */ ))+17) );
right←v6648 = (word) ( *( (fPt) ((* (ptr) pd126 ))))(text←v6548, ip←v6576, 2147483647, pd126);
};
SOURCE(7314, 31)
{
word pd127;
pd127 = (* (( (ptr) (* (( (ptr) gf←c36812)+92)/* var←c35084 */ ))+6) );
text←v6548 = (word) ( *( (fPt) ((* (ptr) pd127 ))))(left←v6620, right←v6648, pd127);
};
SOURCE(7347, 9)
ip←v6576 = (ip←v6576 - 1);
SOURCE(7358, 31)
{
word pd128;
pd128 = (* (( (ptr) (* (( (ptr) gf←c36812)+86)/* var←c34796 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd128 ))))(widget←v4808, text←v6548, 2, pd128);
};
SOURCE(7391, 49)
{
word pd129;
pd129 = (* (( (ptr) (* (( (ptr) gf←c36812)+93)/* var←c35212 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd129 ))))(widget←v4808, ip←v6576, 2, pd129);
};
SOURCE(7442, 59)
if ((0 != remember←v4836)) {
SOURCE(7459, 42)
{
word pd130;
pd130 = (* (( (ptr) (* (( (ptr) gf←c36812)+88)/* var←c34860 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd130 ))))(widget←v4808, (* (( (ptr) gf←c36812)+33) ), text←v6548, pd130);
};
};
};
};
}
static void InsertRope←P540(widget←v4896, r←v4924, remember←v4952)
word widget←v4896;
word r←v4924;
word remember←v4952;
{
register ptr gf←c36844 = (ptr) &globalframe;
word text←v6692;
word ip←v6720;
word left←v6748;
word right←v6776;
/* InsertRope: */
SOURCE(7511, 510)
SOURCE(7583, 43)
{
word pd131;
pd131 = (* (( (ptr) (* (( (ptr) gf←c36844)+86)/* var←c34796 */ ))+5) );
text←v6692 = (word) ( *( (fPt) ((* (ptr) pd131 ))))(widget←v4896, pd131);
};
SOURCE(7628, 79)
{
word pd132;
word x133;
word pd134;
word x135;
pd132 = (* (( (ptr) (* (( (ptr) gf←c36844)+93)/* var←c35212 */ ))+5) );
pd134 = (* (( (ptr) (* (( (ptr) gf←c36844)+92)/* var←c35084 */ ))+14) );
ip←v6720 = (x133 = (word) ( *( (fPt) ((* (ptr) pd132 ))))(widget←v4896, pd132),
x135 = (word) ( *( (fPt) ((* (ptr) pd134 ))))(text←v6692, pd134),
MIN((int)(word), x133, x135));
};
SOURCE(7709, 42)
{
word pd136;
pd136 = (* (( (ptr) (* (( (ptr) gf←c36844)+92)/* var←c35084 */ ))+17) );
left←v6748 = (word) ( *( (fPt) ((* (ptr) pd136 ))))(text←v6692, 0, ip←v6720, pd136);
};
SOURCE(7753, 51)
{
word pd137;
pd137 = (* (( (ptr) (* (( (ptr) gf←c36844)+92)/* var←c35084 */ ))+17) );
right←v6776 = (word) ( *( (fPt) ((* (ptr) pd137 ))))(text←v6692, ip←v6720, 2147483647, pd137);
};
SOURCE(7806, 31)
{
word pd138;
pd138 = (* (( (ptr) (* (( (ptr) gf←c36844)+92)/* var←c35084 */ ))+5) );
text←v6692 = (word) ( *( (fPt) ((* (ptr) pd138 ))))(left←v6748, r←v4924, right←v6776, 0, 0, pd138);
};
SOURCE(7839, 37)
{
word pd139;
word pd140;
pd139 = (* (( (ptr) (* (( (ptr) gf←c36844)+92)/* var←c35084 */ ))+14) );
pd140 = (* (( (ptr) (* (( (ptr) gf←c36844)+92)/* var←c35084 */ ))+14) );
ip←v6720 = ((word) ( *( (fPt) ((* (ptr) pd139 ))))(left←v6748, pd139) + (word) ( *( (fPt) ((* (ptr) pd140 ))))(r←v4924, pd140)
);
};
SOURCE(7878, 31)
{
word pd141;
pd141 = (* (( (ptr) (* (( (ptr) gf←c36844)+86)/* var←c34796 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd141 ))))(widget←v4896, text←v6692, 2, pd141);
};
SOURCE(7911, 49)
{
word pd142;
pd142 = (* (( (ptr) (* (( (ptr) gf←c36844)+93)/* var←c35212 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd142 ))))(widget←v4896, ip←v6720, 2, pd142);
};
SOURCE(7962, 59)
if ((0 != remember←v4952)) {
SOURCE(7979, 42)
{
word pd143;
pd143 = (* (( (ptr) (* (( (ptr) gf←c36844)+88)/* var←c34860 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd143 ))))(widget←v4896, (* (( (ptr) gf←c36844)+33) ), text←v6692, pd143);
};
};
}
static void ReplaceRope←P600(widget←v5012, r←v5040)
word widget←v5012;
word r←v5040;
{
register ptr gf←c36876 = (ptr) &globalframe;
/* ReplaceRope: */
SOURCE(8027, 143)
SOURCE(8084, 28)
{
word pd144;
pd144 = (* (( (ptr) (* (( (ptr) gf←c36876)+86)/* var←c34796 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd144 ))))(widget←v5012, r←v5040, 2, pd144);
};
SOURCE(8114, 56)
{
word pd145;
pd145 = (* (( (ptr) (* (( (ptr) gf←c36876)+93)/* var←c35212 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd145 ))))(widget←v5012, 2147483647, 2, pd145);
};
}
static void FieldPreferredSize←P660(formal←c0142, widget←v12236, mode←v12264, proposed←v12292, maySkip←v12320)
word formal←c0142;
word widget←v12236;
word mode←v12264;
W5 proposed←v12292;
word maySkip←v12320;
{
W5 preferred←v12364;
/* FieldPreferredSize: */
SOURCE(8176, 384)
SOURCE(8176, 384)
preferred←v12364.f0 = 2147483648;
preferred←v12364.f1 = 2147483648;
preferred←v12364.f2 = 2147483648;
preferred←v12364.f3 = 2147483648;
preferred←v12364.f4 = 2147483648;
SOURCE(8222, 157)
(* (W2Pt) &preferred←v12364 ) = (* (W2Pt) (( (ptr) widget←v12236)+5) );
preferred←v12364.f2 = (* (( (ptr) widget←v12236)+7) );
preferred←v12364.f3 = (* (( (ptr) widget←v12236)+8) );
preferred←v12364.f4 = (* (( (ptr) widget←v12236)+9) );
SOURCE(8382, 57)
if (( (int)preferred←v12364.f4 < (int)0)) {
SOURCE(8414, 25)
preferred←v12364.f4 = 0;
};
SOURCE(8441, 58)
if (( (int)preferred←v12364.f2 <= (int)0)) {
SOURCE(8473, 26)
preferred←v12364.f2 = 200;
};
SOURCE(8501, 59)
if (( (int)preferred←v12364.f3 <= (int)0)) {
SOURCE(8534, 26)
preferred←v12364.f3 = 20;
};
/* removed tail goto */
(* (W5Pt) formal←c0142 ) = preferred←v12364;
return;
}
static word CreateLabeledField←P720(formal←c0149)
word formal←c0149;
{
register ptr gf←c36908 = (ptr) &globalframe;
word w←v5284;
word lab←v6820 = 0;
word field←v6848 = 0;
/* CreateLabeledField: */
SOURCE(8566, 831)
SOURCE(8566, 831)
w←v5284 = 0;
SOURCE(8770, 191)
{
W9 var←c35948;
(* (ptr) &var←c35948 ) = 0;
(* (( (ptr) &var←c35948)+1) ) = 2147483648;
(* (( (ptr) &var←c35948)+2) ) = 2147483648;
if (( (int)(* (( (ptr) formal←c0149)+16)/* fieldWidth←v5240 */ ) > (int)0)) {
(* (( (ptr) &var←c35948)+3) ) = (* (( (ptr) formal←c0149)+16)/* fieldWidth←v5240 */ );
}
else {
(* (( (ptr) &var←c35948)+3) ) = 2147483648;
};
(* (( (ptr) &var←c35948)+4) ) = (* (( (ptr) formal←c0149)+4) );
(* (( (ptr) &var←c35948)+5) ) = 2147483648;
(* (( (ptr) &var←c35948)+6) ) = 3;
(* (( (ptr) &var←c35948)+7) ) = 0;
(* (( (ptr) &var←c35948)+8) ) = 0;
{
word pd146;
pd146 = (* (( (ptr) (* (( (ptr) gf←c36908)+95)/* var←c35980 */ ))+4) );
field←v6848 = (word) ( *( (fPt) ((* (ptr) pd146 ))))(var←c35948, (* (( (ptr) formal←c0149)+10)/* init←v5156 */ ), (* (W4Pt) (
( (ptr) formal←c0149)+11)/* style←v5184 */ ), pd146);
};
};
SOURCE(8963, 263)
{
word var←c36012;
{
word pd147;
pd147 = (* (( (ptr) (* (( (ptr) gf←c36908)+92)/* var←c35084 */ ))+6) );
var←c36012 = (word) ( *( (fPt) ((* (ptr) pd147 ))))((* (( (ptr) formal←c0149)+9)/* label←v5128 */ ), (* (( (ptr) gf←c36908)+54)
), pd147);
};
{
W9 var←c36044;
W19 var←c0156;
(* (ptr) &var←c36044 ) = 0;
(* (( (ptr) &var←c36044)+1) ) = 2147483648;
(* (( (ptr) &var←c36044)+2) ) = 2147483648;
if (( (int)(* (( (ptr) formal←c0149)+15)/* labelWidth←v5212 */ ) > (int)0)) {
(* (( (ptr) &var←c36044)+3) ) = (* (( (ptr) formal←c0149)+15)/* labelWidth←v5212 */ );
}
else {
(* (( (ptr) &var←c36044)+3) ) = 2147483648;
};
(* (( (ptr) &var←c36044)+4) ) = (* (( (ptr) formal←c0149)+4) );
(* (( (ptr) &var←c36044)+5) ) = 2147483648;
(* (( (ptr) &var←c36044)+6) ) = 3;
(* (( (ptr) &var←c36044)+7) ) = 0;
(* (( (ptr) &var←c36044)+8) ) = 0;
(* (W9Pt) (word) &var←c0156 ) = var←c36044;
(* (( (ptr) (word) &var←c0156) + 9) ) = var←c36012;
(* (W4Pt) (( (ptr) (word) &var←c0156) + 10) ) = (* (W4Pt) (( (ptr) formal←c0149)+11)/* style←v5184 */ );
(* (( (ptr) (word) &var←c0156) + 14) ) = (word) (( (bPt) gf←c36908)+232)/* var←c34092 */ ;
(* (( (ptr) (word) &var←c0156) + 15) ) = field←v6848;
(* (( (ptr) (word) &var←c0156) + 16) ) = 0;
(* (( (ptr) (word) &var←c0156) + 17) ) = 0;
(* (( (ptr) (word) &var←c0156) + 18) ) = 0;
{
word pd148;
pd148 = (* (( (ptr) (* (( (ptr) gf←c36908)+96)/* var←c36076 */ ))+4) );
lab←v6820 = (word) ( *( (fPt) ((* (ptr) pd148 ))))((word) (&var←c0156), pd148);
};
};
};
SOURCE(9228, 60)
{
word var←c36108;
{
word var←c36140;
word var←c36172;
var←c36140 = XR←NewObject(8, (* (( (ptr) gf←c36908)+18) ));
var←c36172 = var←c36140;
(* (ptr) var←c36172 ) = lab←v6820;
(* (( (ptr) var←c36172)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c36908)+18) ));
var←c36172 = (* (( (ptr) var←c36172)+1) );
(* (ptr) var←c36172 ) = field←v6848;
var←c36108 = var←c36140;
};
{
word pd149;
pd149 = (* (( (ptr) (* (( (ptr) gf←c36908)+97)/* var←c36204 */ ))+8) );
w←v5284 = (word) ( *( (fPt) ((* (ptr) pd149 ))))((* (W9Pt) formal←c0149/* widgetSpec←v5100 */ ), var←c36108, (word) -1, pd149)
;
};
};
SOURCE(9290, 73)
{
word to←v33900;
to←v33900 = field←v6848;
{
word pd150;
pd150 = (* (( (ptr) (* (( (ptr) gf←c36908)+88)/* var←c34860 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd150 ))))(w←v5284, (* (( (ptr) gf←c36908)+56) ), to←v33900, pd150);
};
};
SOURCE(9365, 32)
{
word pd151;
pd151 = (* (( (ptr) (* (( (ptr) gf←c36908)+91)/* var←c35052 */ ))+9) );
(void) ( *( (fPt) ((* (ptr) pd151 ))))(w←v5284, field←v6848, pd151);
};
SOURCE(8566, 831)
return(w←v5284);
}
static void LabeledFieldLabelHit←P780(widget←v12424, registerData←v12452, callData←v12480, event←v12508)
word widget←v12424;
word registerData←v12452;
word callData←v12480;
word event←v12508;
{
register ptr gf←c36940 = (ptr) &globalframe;
word field←v6892;
word time←v6920;
/* LabeledFieldLabelHit: */
SOURCE(9403, 467)
SOURCE(9450, 40)
field←v6892 = XR←Narrow(registerData←v12452, (* (( (ptr) gf←c36940)+27) ));
SOURCE(9492, 50)
{
word c←v33996;
c←v33996 = (* (( (ptr) field←v6892)+34) );
time←v6920 = (* (( (ptr) c←v33996)+21) );
};
SOURCE(9544, 271)
{
word var←c36268;
var←c36268 = event←v12508;
if ((var←c36268 == 0)) {
goto lab←L100015;
};
if (((* (( (ptr) var←c36268)+4) ) == 5)) {
{
word br←v6964;
br←v6964 = var←c36268;
SOURCE(9596, 221)
{
word pm←v7008;
SOURCE(9598, 62)
{
word pd152;
pd152 = (* (( (ptr) (* (( (ptr) gf←c36940)+84)/* var←c34508 */ ))+108) );
pm←v7008 = (word) ( *( (fPt) ((* (ptr) pd152 ))))((* ((( (ptr) field←v6892)+34)) ), pd152);
};
SOURCE(9662, 117)
{
word var←c36300;
{
word idx153;
word limit154;
var←c36300 = (* ((( (ptr) pm←v7008)+1)+(
idx153 = (* (( (ptr) br←v6964)+5) ),
limit154 = (* (ptr) pm←v7008 ),
BCK(idx153, limit154)
)) );
};
if ((var←c36300 == 2)) {
SOURCE(9693, 51)
{
word pd155;
pd155 = (* (( (ptr) (* (( (ptr) gf←c36940)+93)/* var←c35212 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd155 ))))(field←v6892, 10000, 2, pd155);
};
}
else {
if ((var←c36300 == 3)) {
SOURCE(9751, 28)
{
word pd156;
pd156 = (* (( (ptr) (* (( (ptr) gf←c36940)+86)/* var←c34796 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd156 ))))(field←v6892, (* (( (ptr) gf←c36940)+57) ), 2, pd156);
};
};
};
};
SOURCE(9796, 19)
time←v6920 = (* (( (ptr) br←v6964)+7) );
};
};
}
else {
lab←L100015: ;
};
};
SOURCE(9835, 35)
{
word pd157;
pd157 = (* (( (ptr) (* (( (ptr) gf←c36940)+91)/* var←c35052 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd157 ))))(field←v6892, time←v6920, pd157);
};
}
static void NoName←Q2652(formal←c0177, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
word formal←c0177;
word formal←c200004;
word formal←c200005;
word formal←c200006;
word formal←c200007;
{
register ptr gf←c0205 = (ptr) &globalframe;
if ((formal←c200005 == (* (( (ptr) (* (( (ptr) gf←c0205)+84)/* var←c34508 */ ))+4) ))) {
{
word err←v26248;
err←v26248 = (* (ptr) formal←c200007 );
SOURCE(4447, 9)
(* (ptr) formal←c0177 ) = 2;
(* (( (ptr) formal←c0177)+1) ) = 3;
return;
};
}
else {
if ((formal←c200005 == XR←Uncaught)) {
SOURCE(4470, 19)
if ((0 == (* (( (ptr) gf←c0205)+8)/* debugging←v3448 */ ))) {
SOURCE(4489, 9)
(* (ptr) formal←c0177 ) = 2;
(* (( (ptr) formal←c0177)+1) ) = 3;
return;
};
};
};
(* (ptr) formal←c0177 ) = 0;
(* (( (ptr) formal←c0177)+1) ) = 0;
return;
}
static void NoName←Q2712(formal←c0183, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0183;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c0206 = (ptr) &globalframe;
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0206)+84)/* var←c34508 */ ))+4) ))) {
{
word err←v16396;
err←v16396 = (* (ptr) formal←c200003 );
SOURCE(1532, 9)
(* (ptr) formal←c0183 ) = 2;
(* (( (ptr) formal←c0183)+1) ) = 2;
return;
};
};
(* (ptr) formal←c0183 ) = 0;
(* (( (ptr) formal←c0183)+1) ) = 0;
return;
}
/* file: XTkFieldsImpl, module: XTkFieldsImpl, compiled at: October 21, 1992 9:24:19 am PDT */
extern void XR←install←XTkFieldsImpl() {
NoName←Q2472();
}
extern void XR←run←XTkFieldsImpl() { XR←Start(&globalframe); }