Mac Power 1997 January

home *** CD-ROM | disk | FTP | other *** search

/ Mac Power 1997 January / macpower199701.bin / AMUG / Programming_10 / ICPAppSource+ICprogKit / ICAppSourceKit 1.3.sit / ICAppSourceKit1.3 / ICCheckboxWhats.p < prev next >

MacBinary | 1996-07-20 | 2.4 KB | [TEXT/CWIE]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: ICCheckboxWhats.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, Sat Jul 20 15:03:59 1996, modified Sat Jul 20 15:03:59 1996, creator 'CWIE', type ASCII, 1755 bytes "ICCheckboxWhats.p" , at 0x75b 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 11 49 43 43 68 65 63 | 6b 62 6f 78 57 68 61 74 |..ICChec|kboxWhat|
|00000010| 73 2e 70 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |s.p.....|........|
|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 06 db 00 | 00 01 9a ae 16 de 1f ae |........|........|
|00000060| 16 de 1f 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 2f 53 00 00 |........|..../S..|
|00000080| 75 6e 69 74 20 49 43 43 | 68 65 63 6b 62 6f 78 57 |unit ICC|heckboxW|
|00000090| 68 61 74 73 3b 0d 0d 69 | 6e 74 65 72 66 61 63 65 |hats;..i|nterface|
|000000a0| 0d 0d 09 75 73 65 73 0d | 09 09 49 43 57 69 6e 64 |...uses.|..ICWind|
|000000b0| 6f 77 47 6c 6f 62 61 6c | 73 3b 0d 0d 09 66 75 6e |owGlobal|s;...fun|
|000000c0| 63 74 69 6f 6e 20 57 68 | 61 74 4f 70 65 6e 43 68 |ction Wh|atOpenCh|
|000000d0| 65 63 6b 62 6f 78 20 28 | 77 74 3a 20 57 69 6e 64 |eckbox (|wt: Wind|
|000000e0| 6f 77 54 79 70 65 3b 20 | 69 74 65 6d 3a 20 69 6e |owType; |item: in|
|000000f0| 74 65 67 65 72 29 3a 20 | 4f 53 45 72 72 3b 0d 09 |teger): |OSErr;..|
|00000100| 66 75 6e 63 74 69 6f 6e | 20 57 68 61 74 46 6c 75 |function| WhatFlu|
|00000110| 73 68 43 68 65 63 6b 62 | 6f 78 20 28 77 74 3a 20 |shCheckb|ox (wt: |
|00000120| 57 69 6e 64 6f 77 54 79 | 70 65 3b 20 69 74 65 6d |WindowTy|pe; item|
|00000130| 3a 20 69 6e 74 65 67 65 | 72 29 3a 20 4f 53 45 72 |: intege|r): OSEr|
|00000140| 72 3b 0d 09 66 75 6e 63 | 74 69 6f 6e 20 57 68 61 |r;..func|tion Wha|
|00000150| 74 43 6c 69 63 6b 43 68 | 65 63 6b 62 6f 78 20 28 |tClickCh|eckbox (|
|00000160| 77 74 3a 20 57 69 6e 64 | 6f 77 54 79 70 65 3b 20 |wt: Wind|owType; |
|00000170| 69 74 65 6d 3a 20 69 6e | 74 65 67 65 72 3b 20 65 |item: in|teger; e|
|00000180| 72 3a 20 65 76 65 6e 74 | 52 65 63 6f 72 64 29 3a |r: event|Record):|
|00000190| 20 4f 53 45 72 72 3b 0d | 0d 69 6d 70 6c 65 6d 65 | OSErr;.|.impleme|
|000001a0| 6e 74 61 74 69 6f 6e 0d | 0d 09 75 73 65 73 0d 09 |ntation.|..uses..|
|000001b0| 09 49 43 41 50 49 2c 0d | 09 09 49 43 53 75 62 73 |.ICAPI,.|..ICSubs|
|000001c0| 2c 0d 09 09 49 43 44 69 | 61 6c 6f 67 73 2c 0d 09 |,...ICDi|alogs,..|
|000001d0| 09 49 43 44 6f 63 75 6d | 65 6e 74 3b 0d 0d 09 66 |.ICDocum|ent;...f|
|000001e0| 75 6e 63 74 69 6f 6e 20 | 57 68 61 74 4f 70 65 6e |unction |WhatOpen|
|000001f0| 43 68 65 63 6b 62 6f 78 | 20 28 77 74 3a 20 57 69 |Checkbox| (wt: Wi|
|00000200| 6e 64 6f 77 54 79 70 65 | 3b 20 69 74 65 6d 3a 20 |ndowType|; item: |
|00000210| 69 6e 74 65 67 65 72 29 | 3a 20 4f 53 45 72 72 3b |integer)|: OSErr;|
|00000220| 0d 09 09 76 61 72 0d 09 | 09 09 74 6d 70 5f 64 61 |...var..|..tmp_da|
|00000230| 74 61 20 3a 20 53 49 6e | 74 38 3b 0d 09 09 09 61 |ta : SIn|t8;....a|
|00000240| 74 74 72 20 3a 20 49 43 | 41 74 74 72 3b 0d 09 09 |ttr : IC|Attr;...|
|00000250| 09 73 69 7a 65 20 3a 20 | 6c 6f 6e 67 69 6e 74 3b |.size : |longint;|
|00000260| 0d 09 62 65 67 69 6e 0d | 09 09 73 69 7a 65 20 3a |..begin.|..size :|
|00000270| 3d 20 73 69 7a 65 6f 66 | 28 74 6d 70 5f 64 61 74 |= sizeof|(tmp_dat|
|00000280| 61 29 3b 0d 09 09 69 66 | 20 49 43 47 65 74 50 72 |a);...if| ICGetPr|
|00000290| 65 66 28 47 65 74 49 6e | 73 74 61 6e 63 65 2c 20 |ef(GetIn|stance, |
|000002a0| 77 69 6e 64 6f 77 69 6e | 66 6f 5b 77 74 5d 2e 69 |windowin|fo[wt].i|
|000002b0| 74 65 6d 73 5b 69 74 65 | 6d 5d 5e 2e 6b 65 79 2c |tems[ite|m]^.key,|
|000002c0| 20 61 74 74 72 2c 20 40 | 74 6d 70 5f 64 61 74 61 | attr, @|tmp_data|
|000002d0| 2c 20 73 69 7a 65 29 20 | 3c 3e 20 6e 6f 45 72 72 |, size) |<> noErr|
|000002e0| 20 74 68 65 6e 20 62 65 | 67 69 6e 0d 09 09 09 74 | then be|gin....t|
|000002f0| 6d 70 5f 64 61 74 61 20 | 3a 3d 20 30 3b 0d 09 09 |mp_data |:= 0;...|
|00000300| 65 6e 64 3b 20 28 2a 20 | 69 66 20 2a 29 0d 09 09 |end; (* |if *)...|
|00000310| 74 6d 70 5f 64 61 74 61 | 20 3a 3d 20 62 61 6e 64 |tmp_data| := band|
|00000320| 28 74 6d 70 5f 64 61 74 | 61 2c 20 31 29 3b 0d 09 |(tmp_dat|a, 1);..|
|00000330| 09 50 72 6f 63 65 73 73 | 41 74 74 72 69 62 75 74 |.Process|Attribut|
|00000340| 65 73 28 77 74 2c 20 69 | 74 65 6d 2c 20 61 74 74 |es(wt, i|tem, att|
|00000350| 72 29 3b 0d 09 09 53 65 | 74 44 43 74 6c 56 61 6c |r);...Se|tDCtlVal|
|00000360| 75 65 28 77 69 6e 64 6f | 77 69 6e 66 6f 5b 77 74 |ue(windo|winfo[wt|
|00000370| 5d 2e 77 69 6e 64 6f 77 | 2c 20 69 74 65 6d 2c 20 |].window|, item, |
|00000380| 74 6d 70 5f 64 61 74 61 | 29 3b 0d 09 09 53 65 74 |tmp_data|);...Set|
|00000390| 44 43 74 6c 45 6e 61 62 | 6c 65 28 77 69 6e 64 6f |DCtlEnab|le(windo|
|000003a0| 77 69 6e 66 6f 5b 77 74 | 5d 2e 77 69 6e 64 6f 77 |winfo[wt|].window|
|000003b0| 2c 20 69 74 65 6d 2c 20 | 6e 6f 74 20 49 73 4c 6f |, item, |not IsLo|
|000003c0| 63 6b 65 64 28 77 74 2c | 20 69 74 65 6d 29 29 3b |cked(wt,| item));|
|000003d0| 0d 09 09 77 69 6e 64 6f | 77 69 6e 66 6f 5b 77 74 |...windo|winfo[wt|
|000003e0| 5d 2e 69 74 65 6d 73 5b | 69 74 65 6d 5d 5e 2e 6d |].items[|item]^.m|
|000003f0| 6f 64 69 66 69 65 64 20 | 3a 3d 20 66 61 6c 73 65 |odified |:= false|
|00000400| 3b 0d 09 09 57 68 61 74 | 4f 70 65 6e 43 68 65 63 |;...What|OpenChec|
|00000410| 6b 62 6f 78 20 3a 3d 20 | 6e 6f 45 72 72 3b 0d 09 |kbox := |noErr;..|
|00000420| 65 6e 64 3b 20 28 2a 20 | 57 68 61 74 4f 70 65 6e |end; (* |WhatOpen|
|00000430| 43 68 65 63 6b 62 6f 78 | 20 2a 29 0d 09 0d 09 66 |Checkbox| *)....f|
|00000440| 75 6e 63 74 69 6f 6e 20 | 57 68 61 74 46 6c 75 73 |unction |WhatFlus|
|00000450| 68 43 68 65 63 6b 62 6f | 78 20 28 77 74 3a 20 57 |hCheckbo|x (wt: W|
|00000460| 69 6e 64 6f 77 54 79 70 | 65 3b 20 69 74 65 6d 3a |indowTyp|e; item:|
|00000470| 20 69 6e 74 65 67 65 72 | 29 3a 20 4f 53 45 72 72 | integer|): OSErr|
|00000480| 3b 0d 09 09 76 61 72 0d | 09 09 09 65 72 72 20 3a |;...var.|...err :|
|00000490| 20 4f 53 45 72 72 3b 0d | 09 09 09 74 6d 70 5f 64 | OSErr;.|...tmp_d|
|000004a0| 61 74 61 20 3a 20 53 49 | 6e 74 38 3b 0d 09 62 65 |ata : SI|nt8;..be|
|000004b0| 67 69 6e 0d 09 09 65 72 | 72 20 3a 3d 20 6e 6f 45 |gin...er|r := noE|
|000004c0| 72 72 3b 0d 09 09 74 6d | 70 5f 64 61 74 61 20 3a |rr;...tm|p_data :|
|000004d0| 3d 20 62 61 6e 64 28 47 | 65 74 44 43 74 6c 56 61 |= band(G|etDCtlVa|
|000004e0| 6c 75 65 28 77 69 6e 64 | 6f 77 69 6e 66 6f 5b 77 |lue(wind|owinfo[w|
|000004f0| 74 5d 2e 77 69 6e 64 6f | 77 2c 20 69 74 65 6d 29 |t].windo|w, item)|
|00000500| 2c 20 31 29 3b 0d 09 09 | 69 66 20 77 69 6e 64 6f |, 1);...|if windo|
|00000510| 77 69 6e 66 6f 5b 77 74 | 5d 2e 69 74 65 6d 73 5b |winfo[wt|].items[|
|00000520| 69 74 65 6d 5d 5e 2e 6d | 6f 64 69 66 69 65 64 20 |item]^.m|odified |
|00000530| 74 68 65 6e 20 62 65 67 | 69 6e 0d 09 09 09 65 72 |then beg|in....er|
|00000540| 72 20 3a 3d 20 49 43 4d | 61 70 45 72 72 28 49 43 |r := ICM|apErr(IC|
|00000550| 53 65 74 50 72 65 66 28 | 47 65 74 49 6e 73 74 61 |SetPref(|GetInsta|
|00000560| 6e 63 65 2c 20 77 69 6e | 64 6f 77 69 6e 66 6f 5b |nce, win|dowinfo[|
|00000570| 77 74 5d 2e 69 74 65 6d | 73 5b 69 74 65 6d 5d 5e |wt].item|s[item]^|
|00000580| 2e 6b 65 79 2c 20 49 43 | 61 74 74 72 5f 6e 6f 5f |.key, IC|attr_no_|
|00000590| 63 68 61 6e 67 65 2c 20 | 40 74 6d 70 5f 64 61 74 |change, |@tmp_dat|
|000005a0| 61 2c 20 31 29 29 3b 0d | 09 09 09 77 69 6e 64 6f |a, 1));.|...windo|
|000005b0| 77 69 6e 66 6f 5b 77 74 | 5d 2e 69 74 65 6d 73 5b |winfo[wt|].items[|
|000005c0| 69 74 65 6d 5d 5e 2e 6d | 6f 64 69 66 69 65 64 20 |item]^.m|odified |
|000005d0| 3a 3d 20 66 61 6c 73 65 | 3b 0d 09 09 65 6e 64 3b |:= false|;...end;|
|000005e0| 20 28 2a 20 69 66 20 2a | 29 0d 09 09 57 68 61 74 | (* if *|)...What|
|000005f0| 46 6c 75 73 68 43 68 65 | 63 6b 62 6f 78 20 3a 3d |FlushChe|ckbox :=|
|00000600| 20 65 72 72 3b 0d 09 65 | 6e 64 3b 20 28 2a 20 57 | err;..e|nd; (* W|
|00000610| 68 61 74 46 6c 75 73 68 | 43 68 65 63 6b 62 6f 78 |hatFlush|Checkbox|
|00000620| 20 2a 29 0d 09 0d 09 66 | 75 6e 63 74 69 6f 6e 20 | *)....f|unction |
|00000630| 57 68 61 74 43 6c 69 63 | 6b 43 68 65 63 6b 62 6f |WhatClic|kCheckbo|
|00000640| 78 20 28 77 74 3a 20 57 | 69 6e 64 6f 77 54 79 70 |x (wt: W|indowTyp|
|00000650| 65 3b 20 69 74 65 6d 3a | 20 69 6e 74 65 67 65 72 |e; item:| integer|
|00000660| 3b 20 65 72 3a 20 65 76 | 65 6e 74 52 65 63 6f 72 |; er: ev|entRecor|
|00000670| 64 29 3a 20 4f 53 45 72 | 72 3b 0d 09 62 65 67 69 |d): OSEr|r;..begi|
|00000680| 6e 0d 09 09 7b 24 75 6e | 75 73 65 64 20 65 72 7d |n...{$un|used er}|
|00000690| 0d 09 09 77 69 6e 64 6f | 77 69 6e 66 6f 5b 77 74 |...windo|winfo[wt|
|000006a0| 5d 2e 69 74 65 6d 73 5b | 69 74 65 6d 5d 5e 2e 6d |].items[|item]^.m|
|000006b0| 6f 64 69 66 69 65 64 20 | 3a 3d 20 74 72 75 65 3b |odified |:= true;|
|000006c0| 0d 09 09 54 6f 67 67 6c | 65 44 43 74 6c 42 6f 6f |...Toggl|eDCtlBoo|
|000006d0| 6c 65 61 6e 28 77 69 6e | 64 6f 77 69 6e 66 6f 5b |lean(win|dowinfo[|
|000006e0| 77 74 5d 2e 77 69 6e 64 | 6f 77 2c 20 69 74 65 6d |wt].wind|ow, item|
|000006f0| 29 3b 0d 09 09 44 69 72 | 74 79 44 6f 63 75 6d 65 |);...Dir|tyDocume|
|00000700| 6e 74 3b 0d 09 09 57 68 | 61 74 43 6c 69 63 6b 43 |nt;...Wh|atClickC|
|00000710| 68 65 63 6b 62 6f 78 20 | 3a 3d 20 6e 6f 45 72 72 |heckbox |:= noErr|
|00000720| 3b 0d 09 65 6e 64 3b 20 | 28 2a 20 57 68 61 74 43 |;..end; |(* WhatC|
|00000730| 6c 69 63 6b 43 68 65 63 | 6b 62 6f 78 20 2a 29 0d |lickChec|kbox *).|
|00000740| 0d 65 6e 64 2e 20 28 2a | 20 49 43 43 68 65 63 6b |.end. (*| ICCheck|
|00000750| 62 6f 78 57 68 61 74 73 | 20 2a 29 00 00 00 00 00 |boxWhats| *).....|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00000790| 36 33 21 11 14 3b 01 32 | 35 11 34 26 23 21 22 06 |63!..;.2|5.4&#!".|
|000007a0| 15 11 14 16 33 21 04 00 | aa 46 65 64 47 46 64 01 |....3!..|.FedGFd.|
|000007b0| 11 49 43 43 68 65 63 6b | 62 6f 78 57 68 61 74 73 |.ICCheck|boxWhats|
|000007c0| 2e 70 02 00 00 00 54 45 | 58 54 43 57 49 45 00 00 |.p....TE|XTCWIE..|
|000007d0| 00 00 54 45 58 54 43 57 | 49 45 00 00 ff ff ff ff |..TEXTCW|IE......|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 ae 0e 99 ac 00 00 | 06 db 00 00 01 9a 55 55 |........|......UU|
|00000800| 01 56 ac fe f8 b2 fe aa | ac fe 00 02 00 ab 00 00 |.V......|........|
|00000810| 04 ab 06 00 00 0d 00 16 | 00 38 40 1e 07 04 01 0c |........|.8@.....|
|00000820| 33 0e 4a 0e 0d 04 13 2b | 04 02 0d 0a 08 0f 0a 26 |3.J....+|.......&|
|00000830| 09 22 18 16 0d 26 00 21 | 18 17 2f cc f6 fd 3c 10 |."...&.!|../...<.|
|00000840| f6 fd 3c 00 3f 3c 3f ed | 11 12 39 76 2f 18 fd 5d |..<.?<?.|..9v/..]|
|00000850| 31 30 33 11 34 36 33 21 | 32 16 15 11 21 11 21 19 |103.463!|2...!.!.|
|00000860| 01 21 11 34 26 23 22 06 | 15 ab c9 8c 01 56 8c c9 |.!.4&#".|.....V..|
|00000870| fe ab fe aa 01 56 65 46 | 46 65 04 ab 8c c9 ca 8b |.....VeF|Fe......|
|00000880| 00 00 00 48 00 09 47 65 | 6e 65 76 61 00 00 00 00 |...H..Ge|neva....|
|00000890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 00 00 03 | 00 02 00 4a 00 20 01 c8 |........|...J. ..|
|000008b0| 02 7f 00 4a 00 20 01 c8 | 02 7f ae 16 a9 6b 00 00 |...J. ..|.....k..|
|000008c0| 06 84 00 00 06 84 00 00 | 03 9f 01 00 00 00 00 04 |........|........|
|000008d0| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|000008e0| 00 00 00 46 00 5c be d4 | 13 1a 00 00 00 1c 00 46 |...F.\..|.......F|
|000008f0| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00000900| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00000910| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+