home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1996-07-14 | 9.4 KB | [TEXT/CWIE] |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
You can browse this item here: ICPopupWhats.p
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| ZX81 Sinclair BASIC (image/sinclairBASIC)
| ext
| Supported |
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Applause Picture (image/applausePicture)
| ext
| Unsupported |
| 1%
| dexvert
| bsdiff patch (other/bsdiffPatch)
| ext
| Unsupported |
| 1%
| dexvert
| imgdiff patch (other/imgdiffPatch)
| ext
| Unsupported |
| 1%
| dexvert
| MATLAB p-code (other/matlabPCode)
| ext
| Unsupported |
| 1%
| dexvert
| WSUS Patch Storage File (other/wsusPatchStorageFile)
| ext
| Unsupported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Sun Jul 14 18:39:50 1996, modified Sun Jul 14 18:39:50 1996, creator 'CWIE', type ASCII, 8926 bytes "ICPopupWhats.p" , at 0x235e 410 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [CWIE] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 49 43 50 6f 70 75 | 70 57 68 61 74 73 2e 70 |..ICPopu|pWhats.p|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 57 49 | 45 01 00 00 00 00 00 00 |.TEXTCWI|E.......|
|00000050| 00 00 00 00 00 22 de 00 | 00 01 9a ae 0f 27 b6 ae |....."..|.....'..|
|00000060| 0f 27 b6 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.'......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 dd 3e 00 00 |........|.....>..|
|00000080| 75 6e 69 74 20 49 43 50 | 6f 70 75 70 57 68 61 74 |unit ICP|opupWhat|
|00000090| 73 3b 0d 0d 69 6e 74 65 | 72 66 61 63 65 0d 0d 09 |s;..inte|rface...|
|000000a0| 75 73 65 73 0d 09 09 49 | 43 57 69 6e 64 6f 77 47 |uses...I|CWindowG|
|000000b0| 6c 6f 62 61 6c 73 3b 0d | 0d 09 66 75 6e 63 74 69 |lobals;.|..functi|
|000000c0| 6f 6e 20 57 68 61 74 4f | 70 65 6e 50 6f 70 75 70 |on WhatO|penPopup|
|000000d0| 20 28 77 74 3a 20 57 69 | 6e 64 6f 77 54 79 70 65 | (wt: Wi|ndowType|
|000000e0| 3b 20 69 74 65 6d 3a 20 | 69 6e 74 65 67 65 72 29 |; item: |integer)|
|000000f0| 3a 20 4f 53 45 72 72 3b | 0d 09 66 75 6e 63 74 69 |: OSErr;|..functi|
|00000100| 6f 6e 20 57 68 61 74 46 | 6c 75 73 68 50 6f 70 75 |on WhatF|lushPopu|
|00000110| 70 20 28 77 74 3a 20 57 | 69 6e 64 6f 77 54 79 70 |p (wt: W|indowTyp|
|00000120| 65 3b 20 69 74 65 6d 3a | 20 69 6e 74 65 67 65 72 |e; item:| integer|
|00000130| 29 3a 20 4f 53 45 72 72 | 3b 0d 09 66 75 6e 63 74 |): OSErr|;..funct|
|00000140| 69 6f 6e 20 57 68 61 74 | 43 6c 6f 73 65 50 6f 70 |ion What|ClosePop|
|00000150| 75 70 20 28 77 74 3a 20 | 57 69 6e 64 6f 77 54 79 |up (wt: |WindowTy|
|00000160| 70 65 3b 20 69 74 65 6d | 3a 20 69 6e 74 65 67 65 |pe; item|: intege|
|00000170| 72 29 3a 20 4f 53 45 72 | 72 3b 0d 09 66 75 6e 63 |r): OSEr|r;..func|
|00000180| 74 69 6f 6e 20 57 68 61 | 74 43 6c 69 63 6b 50 6f |tion Wha|tClickPo|
|00000190| 70 75 70 20 28 77 74 3a | 20 57 69 6e 64 6f 77 54 |pup (wt:| WindowT|
|000001a0| 79 70 65 3b 20 69 74 65 | 6d 3a 20 69 6e 74 65 67 |ype; ite|m: integ|
|000001b0| 65 72 3b 20 65 72 3a 20 | 65 76 65 6e 74 52 65 63 |er; er: |eventRec|
|000001c0| 6f 72 64 29 3a 20 4f 53 | 45 72 72 3b 0d 0d 69 6d |ord): OS|Err;..im|
|000001d0| 70 6c 65 6d 65 6e 74 61 | 74 69 6f 6e 0d 0d 09 75 |plementa|tion...u|
|000001e0| 73 65 73 0d 09 09 52 65 | 73 6f 75 72 63 65 73 2c |ses...Re|sources,|
|000001f0| 0d 09 09 0d 09 09 49 43 | 54 79 70 65 73 2c 20 49 |......IC|Types, I|
|00000200| 43 53 74 72 48 2c 20 44 | 69 61 6c 6f 67 73 2c 20 |CStrH, D|ialogs, |
|00000210| 54 65 78 74 55 74 69 6c | 73 2c 0d 0d 09 09 49 43 |TextUtil|s,....IC|
|00000220| 44 69 61 6c 6f 67 73 2c | 20 49 43 4d 69 73 63 53 |Dialogs,| ICMiscS|
|00000230| 75 62 73 2c 20 49 43 53 | 75 62 73 2c 20 49 43 47 |ubs, ICS|ubs, ICG|
|00000240| 6c 6f 62 61 6c 73 2c 20 | 49 43 41 50 49 2c 20 49 |lobals, |ICAPI, I|
|00000250| 43 44 6f 63 75 6d 65 6e | 74 20 7b 58 7d 2c 20 49 |CDocumen|t {X}, I|
|00000260| 43 4d 6f 76 61 62 6c 65 | 4d 6f 64 61 6c 3b 0d 0d |CMovable|Modal;..|
|00000270| 09 63 6f 6e 73 74 0d 09 | 09 70 66 5f 61 72 63 68 |.const..|.pf_arch|
|00000280| 69 65 20 3d 20 30 3b 0d | 09 09 70 66 5f 61 72 63 |ie = 0;.|..pf_arc|
|00000290| 68 69 65 5f 6d 61 73 6b | 20 3d 20 24 30 30 30 31 |hie_mask| = $0001|
|000002a0| 3b 0d 0d 09 70 72 6f 63 | 65 64 75 72 65 20 49 6e |;...proc|edure In|
|000002b0| 74 65 72 6e 61 6c 53 65 | 74 49 74 65 6d 20 28 6d |ternalSe|tItem (m|
|000002c0| 68 3a 20 4d 65 6e 75 48 | 61 6e 64 6c 65 3b 20 69 |h: MenuH|andle; i|
|000002d0| 74 65 6d 5f 6e 75 6d 3a | 20 69 6e 74 65 67 65 72 |tem_num:| integer|
|000002e0| 3b 20 74 65 78 74 3a 20 | 53 74 72 32 35 35 29 3b |; text: |Str255);|
|000002f0| 0d 09 62 65 67 69 6e 0d | 09 09 44 65 6c 65 74 65 |..begin.|..Delete|
|00000300| 28 74 65 78 74 2c 20 54 | 50 50 6f 73 28 27 3a 27 |(text, T|PPos(':'|
|00000310| 2c 20 74 65 78 74 29 2c | 20 32 35 35 29 3b 0d 09 |, text),| 255);..|
|00000320| 09 53 65 74 4d 65 6e 75 | 49 74 65 6d 54 65 78 74 |.SetMenu|ItemText|
|00000330| 28 6d 68 2c 20 69 74 65 | 6d 5f 6e 75 6d 2c 20 74 |(mh, ite|m_num, t|
|00000340| 65 78 74 29 3b 0d 09 65 | 6e 64 3b 20 28 2a 20 49 |ext);..e|nd; (* I|
|00000350| 6e 74 65 72 6e 61 6c 53 | 65 74 49 74 65 6d 20 2a |nternalS|etItem *|
|00000360| 29 0d 0d 09 70 72 6f 63 | 65 64 75 72 65 20 50 6f |)...proc|edure Po|
|00000370| 70 75 70 53 61 66 65 41 | 70 70 65 6e 64 4d 65 6e |pupSafeA|ppendMen|
|00000380| 75 20 28 6d 68 3a 20 4d | 65 6e 75 48 61 6e 64 6c |u (mh: M|enuHandl|
|00000390| 65 3b 20 74 65 78 74 3a | 20 73 74 72 32 35 35 29 |e; text:| str255)|
|000003a0| 3b 0d 09 62 65 67 69 6e | 0d 09 09 41 70 70 65 6e |;..begin|...Appen|
|000003b0| 64 4d 65 6e 75 28 6d 68 | 2c 20 27 66 72 65 64 27 |dMenu(mh|, 'fred'|
|000003c0| 29 3b 0d 09 09 49 6e 74 | 65 72 6e 61 6c 53 65 74 |);...Int|ernalSet|
|000003d0| 49 74 65 6d 28 6d 68 2c | 20 43 6f 75 6e 74 4d 49 |Item(mh,| CountMI|
|000003e0| 74 65 6d 73 28 6d 68 29 | 2c 20 74 65 78 74 29 3b |tems(mh)|, text);|
|000003f0| 0d 09 65 6e 64 3b 0d 0d | 09 70 72 6f 63 65 64 75 |..end;..|.procedu|
|00000400| 72 65 20 41 64 6a 75 73 | 74 50 6f 70 75 70 4d 65 |re Adjus|tPopupMe|
|00000410| 6e 75 20 28 64 6c 67 3a | 20 44 69 61 6c 6f 67 50 |nu (dlg:| DialogP|
|00000420| 74 72 3b 20 69 74 65 6d | 3a 20 69 6e 74 65 67 65 |tr; item|: intege|
|00000430| 72 29 3b 0d 09 09 76 61 | 72 0d 09 09 09 63 6f 6e |r);...va|r....con|
|00000440| 74 72 6f 6c 3a 20 43 6f | 6e 74 72 6f 6c 48 61 6e |trol: Co|ntrolHan|
|00000450| 64 6c 65 3b 0d 09 09 09 | 6d 65 6e 75 68 3a 20 4d |dle;....|menuh: M|
|00000460| 65 6e 75 48 61 6e 64 6c | 65 3b 0d 09 09 09 73 65 |enuHandl|e;....se|
|00000470| 72 76 65 72 73 3a 20 68 | 61 6e 64 6c 65 3b 0d 09 |rvers: h|andle;..|
|00000480| 09 09 73 65 72 76 65 72 | 3a 20 73 74 72 32 35 35 |..server|: str255|
|00000490| 3b 0d 09 09 09 73 65 72 | 76 65 72 73 5f 63 6f 75 |;....ser|vers_cou|
|000004a0| 6e 74 2c 20 6d 65 6e 75 | 5f 63 6f 75 6e 74 2c 20 |nt, menu|_count, |
|000004b0| 69 2c 20 66 6f 75 6e 64 | 3a 20 69 6e 74 65 67 65 |i, found|: intege|
|000004c0| 72 3b 0d 09 09 09 6c 6f | 6e 67 6d 65 6e 75 3a 20 |r;....lo|ngmenu: |
|000004d0| 62 6f 6f 6c 65 61 6e 3b | 0d 09 62 65 67 69 6e 0d |boolean;|..begin.|
|000004e0| 09 09 63 6f 6e 74 72 6f | 6c 20 3a 3d 20 47 65 74 |..contro|l := Get|
|000004f0| 44 43 6f 6e 74 72 6f 6c | 48 61 6e 64 6c 65 28 64 |DControl|Handle(d|
|00000500| 6c 67 2c 20 69 74 65 6d | 29 3b 0d 09 09 6d 65 6e |lg, item|);...men|
|00000510| 75 68 20 3a 3d 20 47 65 | 74 50 6f 70 75 70 4d 48 |uh := Ge|tPopupMH|
|00000520| 61 6e 64 6c 65 28 64 6c | 67 2c 20 69 74 65 6d 29 |andle(dl|g, item)|
|00000530| 3b 0d 09 09 73 65 72 76 | 65 72 73 20 3a 3d 20 68 |;...serv|ers := h|
|00000540| 61 6e 64 6c 65 28 63 6f | 6e 74 72 6f 6c 5e 5e 2e |andle(co|ntrol^^.|
|00000550| 63 6f 6e 74 72 6c 52 66 | 43 6f 6e 29 3b 0d 09 09 |contrlRf|Con);...|
|00000560| 6d 65 6e 75 5f 63 6f 75 | 6e 74 20 3a 3d 20 43 6f |menu_cou|nt := Co|
|00000570| 75 6e 74 4d 49 74 65 6d | 73 28 6d 65 6e 75 68 29 |untMItem|s(menuh)|
|00000580| 3b 0d 09 09 73 65 72 76 | 65 72 73 5f 63 6f 75 6e |;...serv|ers_coun|
|00000590| 74 20 3a 3d 20 43 6f 75 | 6e 74 53 74 72 73 48 28 |t := Cou|ntStrsH(|
|000005a0| 73 65 72 76 65 72 73 29 | 3b 0d 0d 09 09 69 66 20 |servers)|;....if |
|000005b0| 6d 65 6e 75 5f 63 6f 75 | 6e 74 20 3d 20 30 20 74 |menu_cou|nt = 0 t|
|000005c0| 68 65 6e 20 62 65 67 69 | 6e 0d 09 09 09 66 6f 72 |hen begi|n....for|
|000005d0| 20 69 20 3a 3d 20 32 20 | 74 6f 20 73 65 72 76 65 | i := 2 |to serve|
|000005e0| 72 73 5f 63 6f 75 6e 74 | 20 64 6f 20 62 65 67 69 |rs_count| do begi|
|000005f0| 6e 0d 09 09 09 09 50 6f | 70 75 70 53 61 66 65 41 |n.....Po|pupSafeA|
|00000600| 70 70 65 6e 64 4d 65 6e | 75 28 6d 65 6e 75 68 2c |ppendMen|u(menuh,|
|00000610| 20 47 65 74 49 6e 64 53 | 74 72 48 28 73 65 72 76 | GetIndS|trH(serv|
|00000620| 65 72 73 2c 20 69 29 29 | 3b 0d 09 09 09 65 6e 64 |ers, i))|;....end|
|00000630| 3b 0d 09 09 09 41 70 70 | 65 6e 64 4d 65 6e 75 28 |;....App|endMenu(|
|00000640| 6d 65 6e 75 68 2c 20 27 | 28 2d 27 29 3b 0d 09 09 |menuh, '|(-');...|
|00000650| 09 41 70 70 65 6e 64 4d | 65 6e 75 28 6d 65 6e 75 |.AppendM|enu(menu|
|00000660| 68 2c 20 47 65 74 41 53 | 74 72 69 6e 67 28 31 32 |h, GetAS|tring(12|
|00000670| 38 2c 20 32 29 29 3b 0d | 09 09 09 6d 65 6e 75 5f |8, 2));.|...menu_|
|00000680| 63 6f 75 6e 74 20 3a 3d | 20 43 6f 75 6e 74 4d 49 |count :=| CountMI|
|00000690| 74 65 6d 73 28 6d 65 6e | 75 68 29 3b 0d 09 09 65 |tems(men|uh);...e|
|000006a0| 6e 64 3b 0d 09 09 66 6f | 75 6e 64 20 3a 3d 20 2d |nd;...fo|und := -|
|000006b0| 31 3b 0d 09 09 73 65 72 | 76 65 72 20 3a 3d 20 47 |1;...ser|ver := G|
|000006c0| 65 74 49 6e 64 53 74 72 | 48 28 73 65 72 76 65 72 |etIndStr|H(server|
|000006d0| 73 2c 20 31 29 3b 0d 09 | 09 66 6f 72 20 69 20 3a |s, 1);..|.for i :|
|000006e0| 3d 20 32 20 74 6f 20 73 | 65 72 76 65 72 73 5f 63 |= 2 to s|ervers_c|
|000006f0| 6f 75 6e 74 20 64 6f 20 | 62 65 67 69 6e 0d 09 09 |ount do |begin...|
|00000700| 09 69 66 20 73 65 72 76 | 65 72 20 3d 20 47 65 74 |.if serv|er = Get|
|00000710| 49 6e 64 53 74 72 48 28 | 73 65 72 76 65 72 73 2c |IndStrH(|servers,|
|00000720| 20 69 29 20 74 68 65 6e | 20 62 65 67 69 6e 0d 09 | i) then| begin..|
|00000730| 09 09 09 66 6f 75 6e 64 | 20 3a 3d 20 69 3b 0d 09 |...found| := i;..|
|00000740| 09 09 09 6c 65 61 76 65 | 3b 0d 09 09 09 65 6e 64 |...leave|;....end|
|00000750| 3b 0d 09 09 65 6e 64 3b | 0d 09 09 6c 6f 6e 67 6d |;...end;|...longm|
|00000760| 65 6e 75 20 3a 3d 20 6d | 65 6e 75 5f 63 6f 75 6e |enu := m|enu_coun|
|00000770| 74 20 3d 20 73 65 72 76 | 65 72 73 5f 63 6f 75 6e |t = serv|ers_coun|
|00000780| 74 20 2b 20 33 3b 0d 09 | 09 69 66 20 66 6f 75 6e |t + 3;..|.if foun|
|00000790| 64 20 3e 20 30 20 74 68 | 65 6e 20 62 65 67 69 6e |d > 0 th|en begin|
|000007a0| 0d 09 09 09 69 66 20 6c | 6f 6e 67 6d 65 6e 75 20 |....if l|ongmenu |
|000007b0| 74 68 65 6e 20 62 65 67 | 69 6e 0d 09 09 09 09 44 |then beg|in.....D|
|000007c0| 65 6c 65 74 65 4d 65 6e | 75 49 74 65 6d 28 6d 65 |eleteMen|uItem(me|
|000007d0| 6e 75 68 2c 20 31 29 3b | 0d 09 09 09 09 44 65 6c |nuh, 1);|.....Del|
|000007e0| 65 74 65 4d 65 6e 75 49 | 74 65 6d 28 6d 65 6e 75 |eteMenuI|tem(menu|
|000007f0| 68 2c 20 31 29 3b 0d 09 | 09 09 09 53 65 74 44 43 |h, 1);..|...SetDC|
|00000800| 74 6c 56 61 6c 75 65 28 | 64 6c 67 2c 20 69 74 65 |tlValue(|dlg, ite|
|00000810| 6d 2c 20 47 65 74 44 43 | 74 6c 56 61 6c 75 65 28 |m, GetDC|tlValue(|
|00000820| 64 6c 67 2c 20 69 74 65 | 6d 29 20 2d 20 32 29 3b |dlg, ite|m) - 2);|
|00000830| 0d 09 09 09 65 6e 64 3b | 0d 09 09 09 53 65 74 43 |....end;|....SetC|
|00000840| 6f 6e 74 72 6f 6c 4d 61 | 78 69 6d 75 6d 28 47 65 |ontrolMa|ximum(Ge|
|00000850| 74 44 43 6f 6e 74 72 6f | 6c 48 61 6e 64 6c 65 28 |tDContro|lHandle(|
|00000860| 64 6c 67 2c 20 69 74 65 | 6d 29 2c 20 43 6f 75 6e |dlg, ite|m), Coun|
|00000870| 74 4d 49 74 65 6d 73 28 | 6d 65 6e 75 68 29 29 3b |tMItems(|menuh));|
|00000880| 0d 09 09 09 53 65 74 44 | 43 74 6c 56 61 6c 75 65 |....SetD|CtlValue|
|00000890| 28 64 6c 67 2c 20 69 74 | 65 6d 2c 20 66 6f 75 6e |(dlg, it|em, foun|
|000008a0| 64 20 2d 20 31 29 3b 0d | 09 09 65 6e 64 20 65 6c |d - 1);.|..end el|
|000008b0| 73 65 20 62 65 67 69 6e | 0d 09 09 09 69 66 20 6e |se begin|....if n|
|000008c0| 6f 74 20 6c 6f 6e 67 6d | 65 6e 75 20 74 68 65 6e |ot longm|enu then|
|000008d0| 20 62 65 67 69 6e 0d 09 | 09 09 09 49 6e 73 65 72 | begin..|...Inser|
|000008e0| 74 4d 65 6e 75 49 74 65 | 6d 28 6d 65 6e 75 68 2c |tMenuIte|m(menuh,|
|000008f0| 20 27 28 2d 3b 66 72 65 | 64 27 2c 20 30 29 3b 0d | '(-;fre|d', 0);.|
|00000900| 09 09 09 09 53 65 74 44 | 43 74 6c 56 61 6c 75 65 |....SetD|CtlValue|
|00000910| 28 64 6c 67 2c 20 69 74 | 65 6d 2c 20 47 65 74 44 |(dlg, it|em, GetD|
|00000920| 43 74 6c 56 61 6c 75 65 | 28 64 6c 67 2c 20 69 74 |CtlValue|(dlg, it|
|00000930| 65 6d 29 20 2b 20 32 29 | 3b 0d 09 09 09 65 6e 64 |em) + 2)|;....end|
|00000940| 3b 0d 09 09 09 49 6e 74 | 65 72 6e 61 6c 53 65 74 |;....Int|ernalSet|
|00000950| 49 74 65 6d 28 6d 65 6e | 75 68 2c 20 31 2c 20 47 |Item(men|uh, 1, G|
|00000960| 65 74 49 6e 64 53 74 72 | 48 28 73 65 72 76 65 72 |etIndStr|H(server|
|00000970| 73 2c 20 31 29 29 3b 0d | 09 09 09 53 65 74 43 6f |s, 1));.|...SetCo|
|00000980| 6e 74 72 6f 6c 4d 61 78 | 69 6d 75 6d 28 47 65 74 |ntrolMax|imum(Get|
|00000990| 44 43 6f 6e 74 72 6f 6c | 48 61 6e 64 6c 65 28 64 |DControl|Handle(d|
|000009a0| 6c 67 2c 20 69 74 65 6d | 29 2c 20 43 6f 75 6e 74 |lg, item|), Count|
|000009b0| 4d 49 74 65 6d 73 28 6d | 65 6e 75 68 29 29 3b 0d |MItems(m|enuh));.|
|000009c0| 09 09 09 53 65 74 44 43 | 74 6c 56 61 6c 75 65 28 |...SetDC|tlValue(|
|000009d0| 64 6c 67 2c 20 69 74 65 | 6d 2c 20 31 29 3b 0d 09 |dlg, ite|m, 1);..|
|000009e0| 09 65 6e 64 3b 0d 09 09 | 45 6e 61 62 6c 65 49 74 |.end;...|EnableIt|
|000009f0| 65 6d 28 6d 65 6e 75 68 | 2c 20 47 65 74 44 43 74 |em(menuh|, GetDCt|
|00000a00| 6c 56 61 6c 75 65 28 64 | 6c 67 2c 20 69 74 65 6d |lValue(d|lg, item|
|00000a10| 29 29 3b 0d 09 65 6e 64 | 3b 0d 0d 09 66 75 6e 63 |));..end|;...func|
|00000a20| 74 69 6f 6e 20 55 73 69 | 6e 67 4e 61 6d 65 20 28 |tion Usi|ngName (|
|00000a30| 73 65 72 76 65 72 73 3a | 20 48 61 6e 64 6c 65 3b |servers:| Handle;|
|00000a40| 20 6e 61 6d 65 3a 20 53 | 74 72 32 35 35 29 3a 20 | name: S|tr255): |
|00000a50| 62 6f 6f 6c 65 61 6e 3b | 0d 09 09 76 61 72 0d 09 |boolean;|...var..|
|00000a60| 09 09 74 6d 70 73 74 72 | 3a 20 53 74 72 32 35 35 |..tmpstr|: Str255|
|00000a70| 3b 0d 09 09 09 69 3a 20 | 69 6e 74 65 67 65 72 3b |;....i: |integer;|
|00000a80| 0d 09 62 65 67 69 6e 0d | 09 09 55 73 69 6e 67 4e |..begin.|..UsingN|
|00000a90| 61 6d 65 20 3a 3d 20 66 | 61 6c 73 65 3b 0d 09 09 |ame := f|alse;...|
|00000aa0| 66 6f 72 20 69 20 3a 3d | 20 32 20 74 6f 20 43 6f |for i :=| 2 to Co|
|00000ab0| 75 6e 74 53 74 72 73 48 | 28 73 65 72 76 65 72 73 |untStrsH|(servers|
|00000ac0| 29 20 64 6f 20 62 65 67 | 69 6e 0d 09 09 09 74 6d |) do beg|in....tm|
|00000ad0| 70 73 74 72 20 3a 3d 20 | 47 65 74 49 6e 64 53 74 |pstr := |GetIndSt|
|00000ae0| 72 48 28 73 65 72 76 65 | 72 73 2c 20 69 29 3b 0d |rH(serve|rs, i);.|
|00000af0| 09 09 09 44 65 6c 65 74 | 65 28 74 6d 70 73 74 72 |...Delet|e(tmpstr|
|00000b00| 2c 20 54 50 50 6f 73 28 | 27 3a 27 2c 20 74 6d 70 |, TPPos(|':', tmp|
|00000b10| 73 74 72 29 2c 20 32 35 | 35 29 3b 0d 09 09 09 69 |str), 25|5);....i|
|00000b20| 66 20 49 55 45 71 75 61 | 6c 53 74 72 69 6e 67 28 |f IUEqua|lString(|
|00000b30| 74 6d 70 73 74 72 2c 20 | 6e 61 6d 65 29 20 3d 20 |tmpstr, |name) = |
|00000b40| 30 20 74 68 65 6e 20 62 | 65 67 69 6e 0d 09 09 09 |0 then b|egin....|
|00000b50| 09 55 73 69 6e 67 4e 61 | 6d 65 20 3a 3d 20 74 72 |.UsingNa|me := tr|
|00000b60| 75 65 3b 0d 09 09 09 09 | 6c 65 61 76 65 3b 0d 09 |ue;.....|leave;..|
|00000b70| 09 09 65 6e 64 3b 20 28 | 2a 20 69 66 20 2a 29 0d |..end; (|* if *).|
|00000b80| 09 09 65 6e 64 3b 20 28 | 2a 20 66 6f 72 20 2a 29 |..end; (|* for *)|
|00000b90| 0d 09 65 6e 64 3b 20 28 | 2a 20 55 73 69 6e 67 4e |..end; (|* UsingN|
|00000ba0| 61 6d 65 20 2a 29 0d 0d | 09 76 61 72 0d 09 09 61 |ame *)..|.var...a|
|00000bb0| 73 6b 5f 66 69 6c 74 65 | 72 5f 67 6c 6f 62 61 6c |sk_filte|r_global|
|00000bc0| 73 3a 20 48 61 6e 64 6c | 65 3b 0d 0d 09 66 75 6e |s: Handl|e;...fun|
|00000bd0| 63 74 69 6f 6e 20 41 73 | 6b 53 65 72 76 65 72 46 |ction As|kServerF|
|00000be0| 69 6c 74 65 72 20 28 64 | 6c 6f 67 3a 20 44 69 61 |ilter (d|log: Dia|
|00000bf0| 6c 6f 67 50 74 72 3b 20 | 76 61 72 20 65 76 65 6e |logPtr; |var even|
|00000c00| 74 3a 20 45 76 65 6e 74 | 52 65 63 6f 72 64 3b 20 |t: Event|Record; |
|00000c10| 76 61 72 20 69 74 65 6d | 3a 20 69 6e 74 65 67 65 |var item|: intege|
|00000c20| 72 29 3a 20 62 6f 6f 6c | 65 61 6e 3b 0d 09 09 76 |r): bool|ean;...v|
|00000c30| 61 72 0d 09 09 09 64 69 | 6d 5f 6f 6b 3a 20 62 6f |ar....di|m_ok: bo|
|00000c40| 6f 6c 65 61 6e 3b 0d 09 | 09 09 6e 61 6d 65 5f 73 |olean;..|..name_s|
|00000c50| 74 72 69 6e 67 2c 20 68 | 6f 73 74 5f 73 74 72 69 |tring, h|ost_stri|
|00000c60| 6e 67 3a 20 53 74 72 32 | 35 35 3b 0d 09 62 65 67 |ng: Str2|55;..beg|
|00000c70| 69 6e 0d 09 09 47 65 74 | 49 74 65 6d 54 65 78 74 |in...Get|ItemText|
|00000c80| 28 64 6c 6f 67 2c 20 34 | 2c 20 6e 61 6d 65 5f 73 |(dlog, 4|, name_s|
|00000c90| 74 72 69 6e 67 29 3b 0d | 09 09 47 65 74 49 74 65 |tring);.|..GetIte|
|00000ca0| 6d 54 65 78 74 28 64 6c | 6f 67 2c 20 35 2c 20 68 |mText(dl|og, 5, h|
|00000cb0| 6f 73 74 5f 73 74 72 69 | 6e 67 29 3b 0d 09 09 64 |ost_stri|ng);...d|
|00000cc0| 69 6d 5f 6f 6b 20 3a 3d | 20 28 6e 61 6d 65 5f 73 |im_ok :=| (name_s|
|00000cd0| 74 72 69 6e 67 20 3d 20 | 27 27 29 20 7c 20 28 68 |tring = |'') | (h|
|00000ce0| 6f 73 74 5f 73 74 72 69 | 6e 67 20 3d 20 27 27 29 |ost_stri|ng = '')|
|00000cf0| 20 7c 20 55 73 69 6e 67 | 4e 61 6d 65 28 61 73 6b | | Using|Name(ask|
|00000d00| 5f 66 69 6c 74 65 72 5f | 67 6c 6f 62 61 6c 73 2c |_filter_|globals,|
|00000d10| 20 6e 61 6d 65 5f 73 74 | 72 69 6e 67 29 3b 0d 09 | name_st|ring);..|
|00000d20| 09 53 65 74 44 43 74 6c | 45 6e 61 62 6c 65 28 64 |.SetDCtl|Enable(d|
|00000d30| 6c 6f 67 2c 20 6f 6b 2c | 20 6e 6f 74 20 64 69 6d |log, ok,| not dim|
|00000d40| 5f 6f 6b 29 3b 0d 09 09 | 4f 75 74 6c 69 6e 65 44 |_ok);...|OutlineD|
|00000d50| 65 66 61 75 6c 74 31 28 | 64 6c 6f 67 2c 20 33 29 |efault1(|dlog, 3)|
|00000d60| 3b 0d 09 09 41 73 6b 53 | 65 72 76 65 72 46 69 6c |;...AskS|erverFil|
|00000d70| 74 65 72 20 3a 3d 20 43 | 61 6e 63 65 6c 4d 6f 64 |ter := C|ancelMod|
|00000d80| 61 6c 46 69 6c 74 65 72 | 28 64 6c 6f 67 2c 20 65 |alFilter|(dlog, e|
|00000d90| 76 65 6e 74 2c 20 69 74 | 65 6d 29 3b 0d 09 65 6e |vent, it|em);..en|
|00000da0| 64 3b 20 28 2a 20 41 73 | 6b 53 65 72 76 65 72 46 |d; (* As|kServerF|
|00000db0| 69 6c 74 65 72 20 2a 29 | 0d 0d 09 66 75 6e 63 74 |ilter *)|...funct|
|00000dc0| 69 6f 6e 20 41 73 6b 4f | 74 68 65 72 53 65 72 76 |ion AskO|therServ|
|00000dd0| 65 72 20 28 61 72 63 68 | 69 65 5f 70 6f 70 75 70 |er (arch|ie_popup|
|00000de0| 3a 20 62 6f 6f 6c 65 61 | 6e 3b 20 73 65 72 76 65 |: boolea|n; serve|
|00000df0| 72 73 3a 20 48 61 6e 64 | 6c 65 3b 20 76 61 72 20 |rs: Hand|le; var |
|00000e00| 73 65 72 76 65 72 3a 20 | 53 74 72 32 35 35 29 3a |server: |Str255):|
|00000e10| 20 62 6f 6f 6c 65 61 6e | 3b 0d 09 09 76 61 72 0d | boolean|;...var.|
|00000e20| 09 09 09 6d 6f 64 61 6c | 3a 20 44 69 61 6c 6f 67 |...modal|: Dialog|
|00000e30| 50 74 72 3b 0d 09 09 09 | 72 65 73 75 6c 74 3a 20 |Ptr;....|result: |
|00000e40| 62 6f 6f 6c 65 61 6e 3b | 0d 09 09 09 69 74 65 6d |boolean;|....item|
|00000e50| 3a 20 69 6e 74 65 67 65 | 72 3b 0d 09 09 09 74 6d |: intege|r;....tm|
|00000e60| 70 73 74 72 3a 20 53 74 | 72 32 35 35 3b 0d 09 09 |pstr: St|r255;...|
|00000e70| 09 73 61 76 65 64 5f 73 | 74 61 74 65 3a 20 50 74 |.saved_s|tate: Pt|
|00000e80| 72 3b 0d 09 62 65 67 69 | 6e 0d 09 09 72 65 73 75 |r;..begi|n...resu|
|00000e90| 6c 74 20 3a 3d 20 66 61 | 6c 73 65 3b 0d 09 09 6d |lt := fa|lse;...m|
|00000ea0| 6f 64 61 6c 20 3a 3d 20 | 47 65 74 4e 65 77 44 69 |odal := |GetNewDi|
|00000eb0| 61 6c 6f 67 28 35 30 30 | 2c 20 6e 69 6c 2c 20 57 |alog(500|, nil, W|
|00000ec0| 69 6e 64 6f 77 50 74 72 | 28 2d 31 29 29 3b 0d 09 |indowPtr|(-1));..|
|00000ed0| 09 69 66 20 6d 6f 64 61 | 6c 20 3c 3e 20 6e 69 6c |.if moda|l <> nil|
|00000ee0| 20 74 68 65 6e 20 62 65 | 67 69 6e 0d 09 09 09 50 | then be|gin....P|
|00000ef0| 61 72 61 6d 54 65 78 74 | 28 47 65 74 41 53 74 72 |aramText|(GetAStr|
|00000f00| 69 6e 67 28 31 32 38 2c | 20 33 20 2b 20 6f 72 64 |ing(128,| 3 + ord|
|00000f10| 28 61 72 63 68 69 65 5f | 70 6f 70 75 70 29 29 2c |(archie_|popup)),|
|00000f20| 20 27 27 2c 20 27 27 2c | 20 27 27 29 3b 0d 09 09 | '', '',| '');...|
|00000f30| 09 53 65 6c 65 63 74 44 | 69 61 6c 6f 67 49 74 65 |.SelectD|ialogIte|
|00000f40| 6d 54 65 78 74 28 6d 6f | 64 61 6c 2c 20 34 2c 20 |mText(mo|dal, 4, |
|00000f50| 30 2c 20 33 32 37 36 37 | 29 3b 0d 09 09 09 53 65 |0, 32767|);....Se|
|00000f60| 74 55 70 44 65 66 61 75 | 6c 74 4f 75 74 6c 69 6e |tUpDefau|ltOutlin|
|00000f70| 65 28 6d 6f 64 61 6c 2c | 20 6f 6b 2c 20 33 29 3b |e(modal,| ok, 3);|
|00000f80| 0d 09 09 09 69 66 20 61 | 72 63 68 69 65 5f 70 6f |....if a|rchie_po|
|00000f90| 70 75 70 20 74 68 65 6e | 20 62 65 67 69 6e 0d 09 |pup then| begin..|
|00000fa0| 09 09 09 48 69 64 65 44 | 69 61 6c 6f 67 49 74 65 |...HideD|ialogIte|
|00000fb0| 6d 28 6d 6f 64 61 6c 2c | 20 36 29 3b 0d 09 09 09 |m(modal,| 6);....|
|00000fc0| 09 48 69 64 65 44 69 61 | 6c 6f 67 49 74 65 6d 28 |.HideDia|logItem(|
|00000fd0| 6d 6f 64 61 6c 2c 20 31 | 30 29 3b 0d 09 09 09 65 |modal, 1|0);....e|
|00000fe0| 6e 64 3b 20 28 2a 20 69 | 66 20 2a 29 0d 09 09 09 |nd; (* i|f *)....|
|00000ff0| 53 68 6f 77 57 69 6e 64 | 6f 77 28 6d 6f 64 61 6c |ShowWind|ow(modal|
|00001000| 29 3b 0d 09 09 09 44 69 | 73 61 62 6c 65 4d 65 6e |);....Di|sableMen|
|00001010| 75 42 61 72 28 73 61 76 | 65 64 5f 73 74 61 74 65 |uBar(sav|ed_state|
|00001020| 2c 20 2d 31 29 3b 0d 09 | 09 09 49 6e 69 74 43 75 |, -1);..|..InitCu|
|00001030| 72 73 6f 72 3b 0d 09 09 | 09 61 73 6b 5f 66 69 6c |rsor;...|.ask_fil|
|00001040| 74 65 72 5f 67 6c 6f 62 | 61 6c 73 20 3a 3d 20 73 |ter_glob|als := s|
|00001050| 65 72 76 65 72 73 3b 0d | 09 09 09 72 65 70 65 61 |ervers;.|...repea|
|00001060| 74 0d 09 09 09 09 4d 6f | 76 61 62 6c 65 4d 6f 64 |t.....Mo|vableMod|
|00001070| 61 6c 44 69 61 6c 6f 67 | 28 40 41 73 6b 53 65 72 |alDialog|(@AskSer|
|00001080| 76 65 72 46 69 6c 74 65 | 72 2c 20 69 74 65 6d 29 |verFilte|r, item)|
|00001090| 3b 0d 09 09 09 75 6e 74 | 69 6c 20 69 74 65 6d 20 |;....unt|il item |
|000010a0| 69 6e 20 5b 6f 6b 2c 20 | 63 61 6e 63 65 6c 5d 3b |in [ok, |cancel];|
|000010b0| 0d 09 09 09 72 65 73 75 | 6c 74 20 3a 3d 20 28 69 |....resu|lt := (i|
|000010c0| 74 65 6d 20 3d 20 6f 6b | 29 3b 0d 09 09 09 69 66 |tem = ok|);....if|
|000010d0| 20 72 65 73 75 6c 74 20 | 74 68 65 6e 20 62 65 67 | result |then beg|
|000010e0| 69 6e 0d 09 09 09 09 47 | 65 74 49 74 65 6d 54 65 |in.....G|etItemTe|
|000010f0| 78 74 28 6d 6f 64 61 6c | 2c 20 34 2c 20 73 65 72 |xt(modal|, 4, ser|
|00001100| 76 65 72 29 3b 0d 09 09 | 09 09 47 65 74 49 74 65 |ver);...|..GetIte|
|00001110| 6d 54 65 78 74 28 6d 6f | 64 61 6c 2c 20 35 2c 20 |mText(mo|dal, 5, |
|00001120| 74 6d 70 73 74 72 29 3b | 0d 09 09 09 09 73 65 72 |tmpstr);|.....ser|
|00001130| 76 65 72 20 3a 3d 20 63 | 6f 6e 63 61 74 28 73 65 |ver := c|oncat(se|
|00001140| 72 76 65 72 2c 20 27 3a | 27 2c 20 74 6d 70 73 74 |rver, ':|', tmpst|
|00001150| 72 29 3b 0d 09 09 09 09 | 47 65 74 49 74 65 6d 54 |r);.....|GetItemT|
|00001160| 65 78 74 28 6d 6f 64 61 | 6c 2c 20 36 2c 20 74 6d |ext(moda|l, 6, tm|
|00001170| 70 73 74 72 29 3b 0d 09 | 09 09 09 73 65 72 76 65 |pstr);..|...serve|
|00001180| 72 20 3a 3d 20 63 6f 6e | 63 61 74 28 73 65 72 76 |r := con|cat(serv|
|00001190| 65 72 2c 20 27 3a 27 2c | 20 74 6d 70 73 74 72 29 |er, ':',| tmpstr)|
|000011a0| 3b 0d 09 09 09 65 6e 64 | 3b 20 28 2a 20 69 66 20 |;....end|; (* if |
|000011b0| 2a 29 0d 09 09 09 52 65 | 45 6e 61 62 6c 65 4d 65 |*)....Re|EnableMe|
|000011c0| 6e 75 42 61 72 28 73 61 | 76 65 64 5f 73 74 61 74 |nuBar(sa|ved_stat|
|000011d0| 65 29 3b 0d 09 09 09 44 | 69 73 70 6f 73 65 57 69 |e);....D|isposeWi|
|000011e0| 6e 64 6f 77 28 6d 6f 64 | 61 6c 29 3b 0d 09 09 65 |ndow(mod|al);...e|
|000011f0| 6e 64 3b 20 28 2a 20 69 | 66 20 2a 29 0d 09 09 41 |nd; (* i|f *)...A|
|00001200| 73 6b 4f 74 68 65 72 53 | 65 72 76 65 72 20 3a 3d |skOtherS|erver :=|
|00001210| 20 72 65 73 75 6c 74 3b | 0d 09 65 6e 64 3b 20 28 | result;|..end; (|
|00001220| 2a 20 41 73 6b 4f 74 68 | 65 72 53 65 72 76 65 72 |* AskOth|erServer|
|00001230| 20 2a 29 0d 0d 09 66 75 | 6e 63 74 69 6f 6e 20 57 | *)...fu|nction W|
|00001240| 68 61 74 43 6c 69 63 6b | 50 6f 70 75 70 20 28 77 |hatClick|Popup (w|
|00001250| 74 3a 20 57 69 6e 64 6f | 77 54 79 70 65 3b 20 69 |t: Windo|wType; i|
|00001260| 74 65 6d 3a 20 69 6e 74 | 65 67 65 72 3b 20 65 72 |tem: int|eger; er|
|00001270| 3a 20 65 76 65 6e 74 52 | 65 63 6f 72 64 29 3a 20 |: eventR|ecord): |
|00001280| 4f 53 45 72 72 3b 0d 09 | 09 76 61 72 0d 09 09 09 |OSErr;..|.var....|
|00001290| 64 6c 67 3a 20 57 69 6e | 64 6f 77 50 74 72 3b 0d |dlg: Win|dowPtr;.|
|000012a0| 09 09 09 76 61 6c 75 65 | 3a 20 69 6e 74 65 67 65 |...value|: intege|
|000012b0| 72 3b 0d 09 09 09 63 6f | 6e 74 72 6f 6c 3a 20 43 |r;....co|ntrol: C|
|000012c0| 6f 6e 74 72 6f 6c 48 61 | 6e 64 6c 65 3b 0d 09 09 |ontrolHa|ndle;...|
|000012d0| 09 6d 65 6e 75 68 3a 20 | 4d 65 6e 75 48 61 6e 64 |.menuh: |MenuHand|
|000012e0| 6c 65 3b 0d 09 09 09 73 | 65 72 76 65 72 73 3a 20 |le;....s|ervers: |
|000012f0| 68 61 6e 64 6c 65 3b 0d | 09 09 09 73 65 72 76 65 |handle;.|...serve|
|00001300| 72 3a 20 73 74 72 32 35 | 35 3b 0d 09 09 09 73 65 |r: str25|5;....se|
|00001310| 72 76 65 72 73 5f 63 6f | 75 6e 74 2c 20 6d 65 6e |rvers_co|unt, men|
|00001320| 75 5f 63 6f 75 6e 74 3a | 20 69 6e 74 65 67 65 72 |u_count:| integer|
|00001330| 3b 0d 09 09 09 6c 6f 6e | 67 6d 65 6e 75 3a 20 62 |;....lon|gmenu: b|
|00001340| 6f 6f 6c 65 61 6e 3b 0d | 09 09 09 61 72 63 68 69 |oolean;.|...archi|
|00001350| 65 5f 70 6f 70 75 70 3a | 20 62 6f 6f 6c 65 61 6e |e_popup:| boolean|
|00001360| 3b 0d 09 62 65 67 69 6e | 0d 09 09 65 72 20 3a 3d |;..begin|...er :=|
|00001370| 20 65 72 3b 20 7b 20 55 | 6e 75 73 65 64 20 7d 0d | er; { U|nused }.|
|00001380| 09 09 64 6c 67 20 3a 3d | 20 77 69 6e 64 6f 77 69 |..dlg :=| windowi|
|00001390| 6e 66 6f 5b 77 74 5d 2e | 77 69 6e 64 6f 77 3b 0d |nfo[wt].|window;.|
|000013a0| 09 09 63 6f 6e 74 72 6f | 6c 20 3a 3d 20 47 65 74 |..contro|l := Get|
|000013b0| 44 43 6f 6e 74 72 6f 6c | 48 61 6e 64 6c 65 28 64 |DControl|Handle(d|
|000013c0| 6c 67 2c 20 69 74 65 6d | 29 3b 0d 09 09 6d 65 6e |lg, item|);...men|
|000013d0| 75 68 20 3a 3d 20 47 65 | 74 50 6f 70 75 70 4d 48 |uh := Ge|tPopupMH|
|000013e0| 61 6e 64 6c 65 28 64 6c | 67 2c 20 69 74 65 6d 29 |andle(dl|g, item)|
|000013f0| 3b 0d 09 09 73 65 72 76 | 65 72 73 20 3a 3d 20 68 |;...serv|ers := h|
|00001400| 61 6e 64 6c 65 28 63 6f | 6e 74 72 6f 6c 5e 5e 2e |andle(co|ntrol^^.|
|00001410| 63 6f 6e 74 72 6c 52 66 | 43 6f 6e 29 3b 0d 09 09 |contrlRf|Con);...|
|00001420| 6d 65 6e 75 5f 63 6f 75 | 6e 74 20 3a 3d 20 43 6f |menu_cou|nt := Co|
|00001430| 75 6e 74 4d 49 74 65 6d | 73 28 6d 65 6e 75 68 29 |untMItem|s(menuh)|
|00001440| 3b 0d 09 09 73 65 72 76 | 65 72 73 5f 63 6f 75 6e |;...serv|ers_coun|
|00001450| 74 20 3a 3d 20 43 6f 75 | 6e 74 53 74 72 73 48 28 |t := Cou|ntStrsH(|
|00001460| 73 65 72 76 65 72 73 29 | 3b 0d 09 09 6c 6f 6e 67 |servers)|;...long|
|00001470| 6d 65 6e 75 20 3a 3d 20 | 28 6d 65 6e 75 5f 63 6f |menu := |(menu_co|
|00001480| 75 6e 74 20 3d 20 73 65 | 72 76 65 72 73 5f 63 6f |unt = se|rvers_co|
|00001490| 75 6e 74 20 2b 20 33 29 | 3b 0d 0d 09 09 76 61 6c |unt + 3)|;....val|
|000014a0| 75 65 20 3a 3d 20 47 65 | 74 44 43 74 6c 56 61 6c |ue := Ge|tDCtlVal|
|000014b0| 75 65 28 64 6c 67 2c 20 | 69 74 65 6d 29 3b 0d 09 |ue(dlg, |item);..|
|000014c0| 09 69 66 20 76 61 6c 75 | 65 20 3d 20 6d 65 6e 75 |.if valu|e = menu|
|000014d0| 5f 63 6f 75 6e 74 20 74 | 68 65 6e 20 62 65 67 69 |_count t|hen begi|
|000014e0| 6e 0d 09 09 09 61 72 63 | 68 69 65 5f 70 6f 70 75 |n....arc|hie_popu|
|000014f0| 70 20 3a 3d 20 54 50 62 | 74 73 74 28 77 69 6e 64 |p := TPb|tst(wind|
|00001500| 6f 77 69 6e 66 6f 5b 77 | 74 5d 2e 69 74 65 6d 73 |owinfo[w|t].items|
|00001510| 5b 69 74 65 6d 5d 5e 2e | 66 6c 61 67 73 2c 20 70 |[item]^.|flags, p|
|00001520| 66 5f 61 72 63 68 69 65 | 29 3b 0d 09 09 09 69 66 |f_archie|);....if|
|00001530| 20 41 73 6b 4f 74 68 65 | 72 53 65 72 76 65 72 28 | AskOthe|rServer(|
|00001540| 61 72 63 68 69 65 5f 70 | 6f 70 75 70 2c 20 73 65 |archie_p|opup, se|
|00001550| 72 76 65 72 73 2c 20 73 | 65 72 76 65 72 29 20 74 |rvers, s|erver) t|
|00001560| 68 65 6e 20 62 65 67 69 | 6e 0d 09 09 09 09 53 65 |hen begi|n.....Se|
|00001570| 74 49 6e 64 53 74 72 48 | 28 73 65 72 76 65 72 73 |tIndStrH|(servers|
|00001580| 2c 20 31 2c 20 73 65 72 | 76 65 72 29 3b 0d 09 09 |, 1, ser|ver);...|
|00001590| 09 65 6e 64 3b 20 28 2a | 20 69 66 20 2a 29 0d 09 |.end; (*| if *)..|
|000015a0| 09 09 41 64 6a 75 73 74 | 50 6f 70 75 70 4d 65 6e |..Adjust|PopupMen|
|000015b0| 75 28 64 6c 67 2c 20 69 | 74 65 6d 29 3b 0d 09 09 |u(dlg, i|tem);...|
|000015c0| 65 6e 64 20 65 6c 73 65 | 20 62 65 67 69 6e 0d 09 |end else| begin..|
|000015d0| 09 09 76 61 6c 75 65 20 | 3a 3d 20 76 61 6c 75 65 |..value |:= value|
|000015e0| 20 2d 20 32 20 2a 20 6f | 72 64 28 6c 6f 6e 67 6d | - 2 * o|rd(longm|
|000015f0| 65 6e 75 29 3b 0d 09 09 | 09 69 66 20 76 61 6c 75 |enu);...|.if valu|
|00001600| 65 20 3e 20 30 20 74 68 | 65 6e 20 62 65 67 69 6e |e > 0 th|en begin|
|00001610| 0d 09 09 09 09 73 65 72 | 76 65 72 20 3a 3d 20 47 |.....ser|ver := G|
|00001620| 65 74 49 6e 64 53 74 72 | 48 28 73 65 72 76 65 72 |etIndStr|H(server|
|00001630| 73 2c 20 76 61 6c 75 65 | 20 2b 20 31 29 3b 0d 09 |s, value| + 1);..|
|00001640| 09 09 09 53 65 74 49 6e | 64 53 74 72 48 28 73 65 |...SetIn|dStrH(se|
|00001650| 72 76 65 72 73 2c 20 31 | 2c 20 73 65 72 76 65 72 |rvers, 1|, server|
|00001660| 29 3b 0d 09 09 09 09 41 | 64 6a 75 73 74 50 6f 70 |);.....A|djustPop|
|00001670| 75 70 4d 65 6e 75 28 64 | 6c 67 2c 20 69 74 65 6d |upMenu(d|lg, item|
|00001680| 29 3b 0d 09 09 09 65 6e | 64 3b 0d 09 09 65 6e 64 |);....en|d;...end|
|00001690| 3b 0d 09 09 57 68 61 74 | 43 6c 69 63 6b 50 6f 70 |;...What|ClickPop|
|000016a0| 75 70 20 3a 3d 20 6e 6f | 45 72 72 3b 0d 09 65 6e |up := no|Err;..en|
|000016b0| 64 3b 20 28 2a 20 57 68 | 61 74 43 6c 69 63 6b 50 |d; (* Wh|atClickP|
|000016c0| 6f 70 75 70 20 2a 29 0d | 0d 09 66 75 6e 63 74 69 |opup *).|..functi|
|000016d0| 6f 6e 20 57 68 61 74 4f | 70 65 6e 50 6f 70 75 70 |on WhatO|penPopup|
|000016e0| 20 28 77 74 3a 20 57 69 | 6e 64 6f 77 54 79 70 65 | (wt: Wi|ndowType|
|000016f0| 3b 20 69 74 65 6d 3a 20 | 69 6e 74 65 67 65 72 29 |; item: |integer)|
|00001700| 3a 20 4f 53 45 72 72 3b | 0d 09 09 76 61 72 0d 09 |: OSErr;|...var..|
|00001710| 09 09 64 6c 67 3a 20 57 | 69 6e 64 6f 77 50 74 72 |..dlg: W|indowPtr|
|00001720| 3b 0d 09 09 09 73 65 72 | 76 65 72 3a 20 73 74 72 |;....ser|ver: str|
|00001730| 32 35 35 3b 0d 09 09 09 | 73 65 72 76 65 72 73 3a |255;....|servers:|
|00001740| 20 68 61 6e 64 6c 65 3b | 0d 09 09 09 6b 65 79 62 | handle;|....keyb|
|00001750| 61 73 65 3a 20 53 74 72 | 32 35 35 3b 0d 09 09 09 |ase: Str|255;....|
|00001760| 61 74 74 72 3a 20 6c 6f | 6e 67 69 6e 74 3b 0d 09 |attr: lo|ngint;..|
|00001770| 09 09 65 72 72 3a 20 4f | 53 45 72 72 3b 0d 09 62 |..err: O|SErr;..b|
|00001780| 65 67 69 6e 0d 09 09 65 | 72 72 20 3a 3d 20 6e 6f |egin...e|rr := no|
|00001790| 45 72 72 3b 0d 09 09 77 | 69 6e 64 6f 77 69 6e 66 |Err;...w|indowinf|
|000017a0| 6f 5b 77 74 5d 2e 69 74 | 65 6d 73 5b 69 74 65 6d |o[wt].it|ems[item|
|000017b0| 5d 5e 2e 64 61 74 61 20 | 3a 3d 20 50 74 72 28 30 |]^.data |:= Ptr(0|
|000017c0| 29 3b 0d 09 09 6b 65 79 | 62 61 73 65 20 3a 3d 20 |);...key|base := |
|000017d0| 77 69 6e 64 6f 77 69 6e | 66 6f 5b 77 74 5d 2e 69 |windowin|fo[wt].i|
|000017e0| 74 65 6d 73 5b 69 74 65 | 6d 5d 5e 2e 6b 65 79 3b |tems[ite|m]^.key;|
|000017f0| 0d 09 09 73 65 72 76 65 | 72 73 20 3a 3d 20 6e 69 |...serve|rs := ni|
|00001800| 6c 3b 0d 09 09 69 66 20 | 49 43 47 65 74 50 72 65 |l;...if |ICGetPre|
|00001810| 66 48 61 6e 64 6c 65 28 | 47 65 74 49 6e 73 74 61 |fHandle(|GetInsta|
|00001820| 6e 63 65 2c 20 63 6f 6e | 63 61 74 28 6b 65 79 62 |nce, con|cat(keyb|
|00001830| 61 73 65 2c 20 27 41 6c | 6c 27 29 2c 20 61 74 74 |ase, 'Al|l'), att|
|00001840| 72 2c 20 73 65 72 76 65 | 72 73 29 20 3c 3e 20 6e |r, serve|rs) <> n|
|00001850| 6f 45 72 72 20 74 68 65 | 6e 20 62 65 67 69 6e 0d |oErr the|n begin.|
|00001860| 09 09 09 73 65 72 76 65 | 72 73 20 3a 3d 20 4e 65 |...serve|rs := Ne|
|00001870| 77 53 74 72 48 3b 0d 09 | 09 09 69 66 20 73 65 72 |wStrH;..|..if ser|
|00001880| 76 65 72 73 20 3d 20 6e | 69 6c 20 74 68 65 6e 20 |vers = n|il then |
|00001890| 62 65 67 69 6e 0d 09 09 | 09 09 65 72 72 20 3a 3d |begin...|..err :=|
|000018a0| 20 6d 65 6d 46 75 6c 6c | 45 72 72 3b 0d 09 09 09 | memFull|Err;....|
|000018b0| 65 6e 64 3b 20 28 2a 20 | 69 66 20 2a 29 0d 09 09 |end; (* |if *)...|
|000018c0| 65 6e 64 3b 20 28 2a 20 | 69 66 20 2a 29 0d 09 09 |end; (* |if *)...|
|000018d0| 69 66 20 28 65 72 72 20 | 3d 20 6e 6f 45 72 72 29 |if (err |= noErr)|
|000018e0| 20 26 20 28 47 65 74 48 | 61 6e 64 6c 65 53 69 7a | & (GetH|andleSiz|
|000018f0| 65 28 73 65 72 76 65 72 | 73 29 20 3d 20 30 29 20 |e(server|s) = 0) |
|00001900| 74 68 65 6e 20 62 65 67 | 69 6e 0d 09 09 09 28 2a |then beg|in....(*|
|00001910| 20 54 68 69 73 20 63 61 | 6e 20 68 61 70 70 65 6e | This ca|n happen|
|00001920| 20 69 66 20 77 65 20 65 | 69 74 68 65 72 20 66 61 | if we e|ither fa|
|00001930| 69 6c 65 64 20 74 6f 20 | 67 65 74 20 74 68 65 20 |iled to |get the |
|00001940| 70 72 65 66 65 72 65 6e | 63 65 20 28 73 6f 6d 65 |preferen|ce (some|
|00001950| 20 62 61 64 20 65 72 72 | 6f 72 29 20 6f 72 2c 20 | bad err|or) or, |
|00001960| 6d 6f 72 65 20 63 6f 6d | 6d 6f 6e 6c 79 2c 0d 09 |more com|monly,..|
|00001970| 09 09 09 69 66 20 74 68 | 65 20 61 70 70 6c 69 63 |...if th|e applic|
|00001980| 61 74 69 6f 6e 20 69 73 | 20 72 75 6e 20 61 66 74 |ation is| run aft|
|00001990| 65 72 20 73 6f 6d 65 20 | 49 43 20 61 77 61 72 65 |er some |IC aware|
|000019a0| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 20 68 61 73 | applica|tion has|
|000019b0| 20 72 75 6e 20 61 6e 64 | 20 63 72 65 61 74 65 64 | run and| created|
|000019c0| 20 61 20 62 6c 61 6e 6b | 20 70 72 65 66 65 72 65 | a blank| prefere|
|000019d0| 6e 63 65 73 0d 09 09 09 | 09 66 69 6c 65 2e 20 20 |nces....|.file. |
|000019e0| 57 65 20 67 65 74 20 74 | 68 65 20 70 6f 70 75 70 |We get t|he popup|
|000019f0| 20 73 65 74 74 69 6e 67 | 73 20 66 72 6f 6d 20 74 | setting|s from t|
|00001a00| 68 65 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 27 73 |he appli|cation's|
|00001a10| 20 63 6f 70 79 20 6f 66 | 20 74 68 65 20 70 72 65 | copy of| the pre|
|00001a20| 66 65 72 65 6e 63 65 73 | 2c 20 61 6e 64 20 68 61 |ferences|, and ha|
|00001a30| 76 65 20 61 20 68 61 70 | 70 79 0d 09 09 09 09 6c |ve a hap|py.....l|
|00001a40| 69 66 65 2e 0d 09 09 09 | 2a 29 0d 09 09 09 44 69 |ife.....|*)....Di|
|00001a50| 73 70 6f 73 65 48 61 6e | 64 6c 65 28 73 65 72 76 |sposeHan|dle(serv|
|00001a60| 65 72 73 29 3b 0d 09 09 | 09 55 73 65 52 65 73 46 |ers);...|.UseResF|
|00001a70| 69 6c 65 28 61 70 70 5f | 72 65 73 66 69 6c 65 29 |ile(app_|resfile)|
|00001a80| 3b 0d 09 09 09 73 65 72 | 76 65 72 73 20 3a 3d 20 |;....ser|vers := |
|00001a90| 47 65 74 31 4e 61 6d 65 | 64 52 65 73 6f 75 72 63 |Get1Name|dResourc|
|00001aa0| 65 28 27 50 72 65 66 27 | 2c 20 63 6f 6e 63 61 74 |e('Pref'|, concat|
|00001ab0| 28 6b 65 79 62 61 73 65 | 2c 20 27 41 6c 6c 27 29 |(keybase|, 'All')|
|00001ac0| 29 3b 0d 09 09 09 69 66 | 20 73 65 72 76 65 72 73 |);....if| servers|
|00001ad0| 20 3c 3e 20 6e 69 6c 20 | 74 68 65 6e 20 62 65 67 | <> nil |then beg|
|00001ae0| 69 6e 0d 09 09 09 09 77 | 69 6e 64 6f 77 69 6e 66 |in.....w|indowinf|
|00001af0| 6f 5b 77 74 5d 2e 69 74 | 65 6d 73 5b 69 74 65 6d |o[wt].it|ems[item|
|00001b00| 5d 5e 2e 64 61 74 61 20 | 3a 3d 20 50 74 72 28 31 |]^.data |:= Ptr(1|
|00001b10| 29 3b 0d 09 09 09 09 44 | 65 74 61 63 68 52 65 73 |);.....D|etachRes|
|00001b20| 6f 75 72 63 65 28 73 65 | 72 76 65 72 73 29 3b 0d |ource(se|rvers);.|
|00001b30| 09 09 09 65 6e 64 20 65 | 6c 73 65 20 62 65 67 69 |...end e|lse begi|
|00001b40| 6e 0d 09 09 09 09 65 72 | 72 20 3a 3d 20 6d 65 6d |n.....er|r := mem|
|00001b50| 46 75 6c 6c 45 72 72 3b | 0d 09 09 09 65 6e 64 3b |FullErr;|....end;|
|00001b60| 20 28 2a 20 69 66 20 2a | 29 0d 09 09 65 6e 64 3b | (* if *|)...end;|
|00001b70| 20 28 2a 20 69 66 20 2a | 29 0d 09 09 69 66 20 65 | (* if *|)...if e|
|00001b80| 72 72 20 3d 20 6e 6f 45 | 72 72 20 74 68 65 6e 20 |rr = noE|rr then |
|00001b90| 62 65 67 69 6e 0d 09 09 | 09 69 66 20 49 43 47 65 |begin...|.if ICGe|
|00001ba0| 74 50 72 65 66 53 74 72 | 28 47 65 74 49 6e 73 74 |tPrefStr|(GetInst|
|00001bb0| 61 6e 63 65 2c 20 63 6f | 6e 63 61 74 28 6b 65 79 |ance, co|ncat(key|
|00001bc0| 62 61 73 65 2c 20 27 50 | 72 65 66 65 72 72 65 64 |base, 'P|referred|
|00001bd0| 27 29 2c 20 61 74 74 72 | 2c 20 73 65 72 76 65 72 |'), attr|, server|
|00001be0| 29 20 3c 3e 20 6e 6f 45 | 72 72 20 74 68 65 6e 20 |) <> noE|rr then |
|00001bf0| 62 65 67 69 6e 0d 09 09 | 09 09 73 65 72 76 65 72 |begin...|..server|
|00001c00| 20 3a 3d 20 47 65 74 49 | 6e 64 53 74 72 48 28 73 | := GetI|ndStrH(s|
|00001c10| 65 72 76 65 72 73 2c 20 | 31 29 3b 0d 09 09 09 65 |ervers, |1);....e|
|00001c20| 6e 64 3b 20 28 2a 20 69 | 66 20 2a 29 0d 09 09 09 |nd; (* i|f *)....|
|00001c30| 50 72 6f 63 65 73 73 41 | 74 74 72 69 62 75 74 65 |ProcessA|ttribute|
|00001c40| 73 28 77 74 2c 20 69 74 | 65 6d 2c 20 61 74 74 72 |s(wt, it|em, attr|
|00001c50| 29 3b 0d 09 09 09 64 6c | 67 20 3a 3d 20 77 69 6e |);....dl|g := win|
|00001c60| 64 6f 77 69 6e 66 6f 5b | 77 74 5d 2e 77 69 6e 64 |dowinfo[|wt].wind|
|00001c70| 6f 77 3b 0d 09 09 09 47 | 65 74 44 43 6f 6e 74 72 |ow;....G|etDContr|
|00001c80| 6f 6c 48 61 6e 64 6c 65 | 28 64 6c 67 2c 20 69 74 |olHandle|(dlg, it|
|00001c90| 65 6d 29 5e 5e 2e 63 6f | 6e 74 72 6c 52 66 43 6f |em)^^.co|ntrlRfCo|
|00001ca0| 6e 20 3a 3d 20 6c 6f 6e | 67 69 6e 74 28 73 65 72 |n := lon|gint(ser|
|00001cb0| 76 65 72 73 29 3b 0d 09 | 09 09 49 6e 73 49 6e 64 |vers);..|..InsInd|
|00001cc0| 53 74 72 48 28 73 65 72 | 76 65 72 73 2c 20 31 2c |StrH(ser|vers, 1,|
|00001cd0| 20 73 65 72 76 65 72 29 | 3b 0d 09 09 09 41 64 6a | server)|;....Adj|
|00001ce0| 75 73 74 50 6f 70 75 70 | 4d 65 6e 75 28 64 6c 67 |ustPopup|Menu(dlg|
|00001cf0| 2c 20 69 74 65 6d 29 3b | 0d 09 09 09 53 65 74 44 |, item);|....SetD|
|00001d00| 43 74 6c 45 6e 61 62 6c | 65 28 64 6c 67 2c 20 69 |CtlEnabl|e(dlg, i|
|00001d10| 74 65 6d 2c 20 6e 6f 74 | 20 49 73 4c 6f 63 6b 65 |tem, not| IsLocke|
|00001d20| 64 28 77 74 2c 20 69 74 | 65 6d 29 29 3b 0d 09 09 |d(wt, it|em));...|
|00001d30| 65 6e 64 3b 20 28 2a 20 | 69 66 20 2a 29 0d 09 09 |end; (* |if *)...|
|00001d40| 57 68 61 74 4f 70 65 6e | 50 6f 70 75 70 20 3a 3d |WhatOpen|Popup :=|
|00001d50| 20 65 72 72 3b 0d 09 65 | 6e 64 3b 20 28 2a 20 57 | err;..e|nd; (* W|
|00001d60| 68 61 74 4f 70 65 6e 50 | 6f 70 75 70 20 2a 29 0d |hatOpenP|opup *).|
|00001d70| 0d 09 66 75 6e 63 74 69 | 6f 6e 20 57 68 61 74 46 |..functi|on WhatF|
|00001d80| 6c 75 73 68 50 6f 70 75 | 70 20 28 77 74 3a 20 57 |lushPopu|p (wt: W|
|00001d90| 69 6e 64 6f 77 54 79 70 | 65 3b 20 69 74 65 6d 3a |indowTyp|e; item:|
|00001da0| 20 69 6e 74 65 67 65 72 | 29 3a 20 4f 53 45 72 72 | integer|): OSErr|
|00001db0| 3b 0d 09 09 76 61 72 0d | 09 09 09 64 6c 67 3a 20 |;...var.|...dlg: |
|00001dc0| 57 69 6e 64 6f 77 50 74 | 72 3b 0d 09 09 09 73 65 |WindowPt|r;....se|
|00001dd0| 72 76 65 72 3a 20 53 74 | 72 32 35 35 3b 0d 09 09 |rver: St|r255;...|
|00001de0| 09 6f 6c 64 5f 73 65 72 | 76 65 72 3a 20 53 74 72 |.old_ser|ver: Str|
|00001df0| 32 35 35 3b 0d 09 09 09 | 6b 65 79 62 61 73 65 3a |255;....|keybase:|
|00001e00| 20 53 74 72 32 35 35 3b | 0d 09 09 09 65 72 72 3a | Str255;|....err:|
|00001e10| 20 4f 53 45 72 72 3b 0d | 09 09 09 61 74 74 72 3a | OSErr;.|...attr:|
|00001e20| 20 6c 6f 6e 67 69 6e 74 | 3b 0d 09 62 65 67 69 6e | longint|;..begin|
|00001e30| 0d 09 09 64 6c 67 20 3a | 3d 20 77 69 6e 64 6f 77 |...dlg :|= window|
|00001e40| 69 6e 66 6f 5b 77 74 5d | 2e 77 69 6e 64 6f 77 3b |info[wt]|.window;|
|00001e50| 0d 09 09 73 65 72 76 65 | 72 20 3a 3d 20 47 65 74 |...serve|r := Get|
|00001e60| 49 6e 64 53 74 72 48 28 | 48 61 6e 64 6c 65 28 47 |IndStrH(|Handle(G|
|00001e70| 65 74 44 43 6f 6e 74 72 | 6f 6c 48 61 6e 64 6c 65 |etDContr|olHandle|
|00001e80| 28 64 6c 67 2c 20 69 74 | 65 6d 29 5e 5e 2e 63 6f |(dlg, it|em)^^.co|
|00001e90| 6e 74 72 6c 52 66 43 6f | 6e 29 2c 20 31 29 3b 0d |ntrlRfCo|n), 1);.|
|00001ea0| 09 09 6b 65 79 62 61 73 | 65 20 3a 3d 20 77 69 6e |..keybas|e := win|
|00001eb0| 64 6f 77 69 6e 66 6f 5b | 77 74 5d 2e 69 74 65 6d |dowinfo[|wt].item|
|00001ec0| 73 5b 69 74 65 6d 5d 5e | 2e 6b 65 79 3b 0d 09 09 |s[item]^|.key;...|
|00001ed0| 69 66 20 49 43 4d 61 70 | 45 72 72 28 49 43 47 65 |if ICMap|Err(ICGe|
|00001ee0| 74 50 72 65 66 53 74 72 | 28 47 65 74 49 6e 73 74 |tPrefStr|(GetInst|
|00001ef0| 61 6e 63 65 2c 20 63 6f | 6e 63 61 74 28 6b 65 79 |ance, co|ncat(key|
|00001f00| 62 61 73 65 2c 20 27 50 | 72 65 66 65 72 72 65 64 |base, 'P|referred|
|00001f10| 27 29 2c 20 61 74 74 72 | 2c 20 6f 6c 64 5f 73 65 |'), attr|, old_se|
|00001f20| 72 76 65 72 29 29 20 3c | 3e 20 6e 6f 45 72 72 20 |rver)) <|> noErr |
|00001f30| 74 68 65 6e 20 62 65 67 | 69 6e 0d 09 09 09 6f 6c |then beg|in....ol|
|00001f40| 64 5f 73 65 72 76 65 72 | 20 3a 3d 20 27 3a 3a 27 |d_server| := '::'|
|00001f50| 3b 0d 09 09 65 6e 64 3b | 20 28 2a 20 69 66 20 2a |;...end;| (* if *|
|00001f60| 29 0d 09 09 65 72 72 20 | 3a 3d 20 6e 6f 45 72 72 |)...err |:= noErr|
|00001f70| 3b 0d 09 09 69 66 20 73 | 65 72 76 65 72 20 3c 3e |;...if s|erver <>|
|00001f80| 20 6f 6c 64 5f 73 65 72 | 76 65 72 20 74 68 65 6e | old_ser|ver then|
|00001f90| 20 62 65 67 69 6e 0d 09 | 09 09 65 72 72 20 3a 3d | begin..|..err :=|
|00001fa0| 20 49 43 4d 61 70 45 72 | 72 28 49 43 53 65 74 50 | ICMapEr|r(ICSetP|
|00001fb0| 72 65 66 53 74 72 28 47 | 65 74 49 6e 73 74 61 6e |refStr(G|etInstan|
|00001fc0| 63 65 2c 20 63 6f 6e 63 | 61 74 28 6b 65 79 62 61 |ce, conc|at(keyba|
|00001fd0| 73 65 2c 20 27 50 72 65 | 66 65 72 72 65 64 27 29 |se, 'Pre|ferred')|
|00001fe0| 2c 20 49 43 61 74 74 72 | 5f 6e 6f 5f 63 68 61 6e |, ICattr|_no_chan|
|00001ff0| 67 65 2c 20 73 65 72 76 | 65 72 29 29 3b 0d 09 09 |ge, serv|er));...|
|00002000| 09 69 66 20 65 72 72 20 | 3d 20 6e 6f 45 72 72 20 |.if err |= noErr |
|00002010| 74 68 65 6e 20 62 65 67 | 69 6e 0d 09 09 09 09 44 |then beg|in.....D|
|00002020| 69 72 74 79 44 6f 63 75 | 6d 65 6e 74 3b 0d 09 09 |irtyDocu|ment;...|
|00002030| 09 65 6e 64 3b 20 28 2a | 20 69 66 20 2a 29 0d 09 |.end; (*| if *)..|
|00002040| 09 65 6e 64 3b 20 28 2a | 20 69 66 20 2a 29 0d 09 |.end; (*| if *)..|
|00002050| 09 0d 09 09 28 2a 20 57 | 65 20 75 73 65 20 61 20 |....(* W|e use a |
|00002060| 68 61 63 6b 20 74 6f 20 | 64 65 74 65 72 6d 69 6e |hack to |determin|
|00002070| 65 20 77 68 65 74 68 65 | 72 20 77 65 20 6e 65 65 |e whethe|r we nee|
|00002080| 64 20 74 6f 20 73 61 76 | 65 20 74 68 65 20 6c 69 |d to sav|e the li|
|00002090| 73 74 20 6f 66 20 73 65 | 72 76 65 72 73 2e 20 20 |st of se|rvers. |
|000020a0| 42 61 73 69 63 61 6c 6c | 79 20 77 65 20 75 73 65 |Basicall|y we use|
|000020b0| 20 74 68 65 20 64 61 74 | 61 20 66 69 65 6c 64 0d | the dat|a field.|
|000020c0| 09 09 09 61 73 20 61 20 | 66 6c 61 67 20 74 6f 20 |...as a |flag to |
|000020d0| 73 61 79 20 77 68 65 74 | 68 65 72 20 77 65 27 76 |say whet|her we'v|
|000020e0| 65 20 63 72 65 61 74 65 | 64 20 74 68 69 73 20 6c |e create|d this l|
|000020f0| 69 73 74 20 6f 66 20 73 | 65 72 76 65 72 73 20 61 |ist of s|ervers a|
|00002100| 6e 64 20 69 74 20 6e 65 | 65 64 73 20 73 61 76 69 |nd it ne|eds savi|
|00002110| 6e 67 2e 0d 09 09 2a 29 | 0d 09 09 69 66 20 65 72 |ng....*)|...if er|
|00002120| 72 20 3d 20 6e 6f 45 72 | 72 20 74 68 65 6e 20 62 |r = noEr|r then b|
|00002130| 65 67 69 6e 0d 09 09 09 | 69 66 20 6c 6f 6e 67 69 |egin....|if longi|
|00002140| 6e 74 28 77 69 6e 64 6f | 77 69 6e 66 6f 5b 77 74 |nt(windo|winfo[wt|
|00002150| 5d 2e 69 74 65 6d 73 5b | 69 74 65 6d 5d 5e 2e 64 |].items[|item]^.d|
|00002160| 61 74 61 29 20 3c 3e 20 | 30 20 74 68 65 6e 20 62 |ata) <> |0 then b|
|00002170| 65 67 69 6e 0d 09 09 09 | 09 65 72 72 20 3a 3d 20 |egin....|.err := |
|00002180| 49 43 4d 61 70 45 72 72 | 28 49 43 53 65 74 50 72 |ICMapErr|(ICSetPr|
|00002190| 65 66 48 61 6e 64 6c 65 | 28 47 65 74 49 6e 73 74 |efHandle|(GetInst|
|000021a0| 61 6e 63 65 2c 20 63 6f | 6e 63 61 74 28 6b 65 79 |ance, co|ncat(key|
|000021b0| 62 61 73 65 2c 20 27 41 | 6c 6c 27 29 2c 20 49 43 |base, 'A|ll'), IC|
|000021c0| 61 74 74 72 5f 6e 6f 5f | 63 68 61 6e 67 65 2c 20 |attr_no_|change, |
|000021d0| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|000021e0| 09 09 09 09 48 61 6e 64 | 6c 65 28 47 65 74 44 43 |....Hand|le(GetDC|
|000021f0| 6f 6e 74 72 6f 6c 48 61 | 6e 64 6c 65 28 64 6c 67 |ontrolHa|ndle(dlg|
|00002200| 2c 20 69 74 65 6d 29 5e | 5e 2e 63 6f 6e 74 72 6c |, item)^|^.contrl|
|00002210| 52 66 43 6f 6e 29 29 29 | 3b 0d 09 09 09 65 6e 64 |RfCon)))|;....end|
|00002220| 3b 20 28 2a 20 69 66 20 | 2a 29 0d 09 09 65 6e 64 |; (* if |*)...end|
|00002230| 3b 20 28 2a 20 69 66 20 | 2a 29 0d 0d 09 09 57 68 |; (* if |*)....Wh|
|00002240| 61 74 46 6c 75 73 68 50 | 6f 70 75 70 20 3a 3d 20 |atFlushP|opup := |
|00002250| 65 72 72 3b 0d 09 65 6e | 64 3b 20 28 2a 20 57 68 |err;..en|d; (* Wh|
|00002260| 61 74 46 6c 75 73 68 50 | 6f 70 75 70 20 2a 29 0d |atFlushP|opup *).|
|00002270| 0d 09 66 75 6e 63 74 69 | 6f 6e 20 57 68 61 74 43 |..functi|on WhatC|
|00002280| 6c 6f 73 65 50 6f 70 75 | 70 20 28 77 74 3a 20 57 |losePopu|p (wt: W|
|00002290| 69 6e 64 6f 77 54 79 70 | 65 3b 20 69 74 65 6d 3a |indowTyp|e; item:|
|000022a0| 20 69 6e 74 65 67 65 72 | 29 3a 20 4f 53 45 72 72 | integer|): OSErr|
|000022b0| 3b 0d 09 62 65 67 69 6e | 0d 09 09 44 69 73 70 6f |;..begin|...Dispo|
|000022c0| 73 65 48 61 6e 64 6c 65 | 28 48 61 6e 64 6c 65 28 |seHandle|(Handle(|
|000022d0| 47 65 74 44 43 6f 6e 74 | 72 6f 6c 48 61 6e 64 6c |GetDCont|rolHandl|
|000022e0| 65 28 77 69 6e 64 6f 77 | 69 6e 66 6f 5b 77 74 5d |e(window|info[wt]|
|000022f0| 2e 77 69 6e 64 6f 77 2c | 20 69 74 65 6d 29 5e 5e |.window,| item)^^|
|00002300| 2e 63 6f 6e 74 72 6c 52 | 66 43 6f 6e 29 29 3b 0d |.contrlR|fCon));.|
|00002310| 09 09 57 68 61 74 43 6c | 6f 73 65 50 6f 70 75 70 |..WhatCl|osePopup|
|00002320| 20 3a 3d 20 6e 6f 45 72 | 72 3b 0d 09 65 6e 64 3b | := noEr|r;..end;|
|00002330| 20 28 2a 20 57 68 61 74 | 43 6c 6f 73 65 50 6f 70 | (* What|ClosePop|
|00002340| 75 70 20 2a 29 0d 0d 65 | 6e 64 2e 20 28 2a 20 49 |up *)..e|nd. (* I|
|00002350| 43 50 6f 70 75 70 57 68 | 61 74 73 20 2a 29 00 00 |CPopupWh|ats *)..|
|00002360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002380| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00002390| 5e 2e 63 6f 6e 74 72 6c | 4f 77 6e 65 72 3b 0d 09 |^.contrl|Owner;..|
|000023a0| 09 63 61 73 65 20 70 61 | 72 74 20 6f 66 0d 09 09 |.case pa|rt of...|
|000023b0| 0e 49 43 50 6f 70 75 70 | 57 68 61 74 73 2e 70 49 |.ICPopup|Whats.pI|
|000023c0| 02 00 00 00 54 45 58 54 | 43 57 49 45 00 00 01 04 |....TEXT|CWIE....|
|000023d0| 00 00 54 45 58 54 43 57 | 49 45 00 00 01 04 00 00 |..TEXTCW|IE......|
|000023e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023f0| 00 00 aa 8e 8c 46 00 00 | 22 de 00 00 01 9a 44 6f |.....F..|".....Do|
|00002400| 77 6e 3a 09 09 09 7b 20 | 6f 6e 65 20 70 61 67 65 |wn:...{ |one page|
|00002410| 20 20 7d 0d 09 09 09 09 | 77 69 74 68 20 61 63 74 | }.....|with act|
|00002420| 69 6f 6e 54 45 5e 5e 2c | 20 76 69 65 77 52 65 63 |ionTE^^,| viewRec|
|00002430| 74 20 64 6f 0d 09 09 09 | 09 09 61 6d 6f 75 6e 74 |t do....|..amount|
|00002440| 20 3a 3d 20 28 62 6f 74 | 74 6f 6d 20 2d 20 74 6f | := (bot|tom - to|
|00002450| 70 29 20 64 69 76 20 6c | 69 6e 65 48 65 69 67 68 |p) div l|ineHeigh|
|00002460| 74 3b 0d 09 09 65 6e 64 | 3b 0d 09 09 69 66 20 28 |t;...end|;...if (|
|00002470| 28 70 61 72 74 20 3d 20 | 69 6e 44 6f 77 6e 42 75 |(part = |inDownBu|
|00002480| 00 00 00 48 00 09 47 65 | 6e 65 76 61 00 00 00 00 |...H..Ge|neva....|
|00002490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024a0| 00 00 00 00 00 00 00 03 | 00 02 00 3e 00 0a 01 d7 |........|...>....|
|000024b0| 02 80 00 3e 00 0a 01 d7 | 02 80 ae 0f 15 64 00 00 |...>....|.....d..|
|000024c0| 17 88 00 00 17 97 00 00 | 16 2d 01 00 00 00 00 04 |........|.-......|
|000024d0| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|000024e0| 00 00 00 46 00 26 48 cc | 14 92 00 00 00 1c 00 46 |...F.&H.|.......F|
|000024f0| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00002500| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00002510| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|00002520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
