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