home *** CD-ROM | disk | FTP | other *** search
| MetaCard/Revolution Stack | 2004-04-01 | 276.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: MetaCard/Revolution Stack
(archive/metaCardStack).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| MetaCard/Revolution Stack (archive/metaCardStack)
| magic
| Unsupported |
| 100%
| file
| POSIX shell script executable (binary data)
| default
| |
| 99%
| file
| a /bin/sh script executable (binary data)
| default (weak)
| |
| 98%
| file
| data
| default
| |
| 75%
| TrID
| MetaCard/Revolution stack (old)
| default
| |
| 25%
| TrID
| Linux/UNIX shell script
| default
| |
| 100%
| siegfried
| fmt/1918 MetaCard Stack (2.x)
| default
| |
| 100%
| binwalkID
| Executable script, shebang: "/bin/sh"
| default (weak)
| |
| 100%
| xdgMime
| application/x-shellscript
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 23 21 2f 62 69 6e 2f 73 | 68 0a 23 20 4d 65 74 61 |#!/bin/s|h.# Meta|
|00000010| 43 61 72 64 20 32 2e 34 | 20 73 74 61 63 6b 0a 23 |Card 2.4| stack.#|
|00000020| 20 54 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 69 | The fol|lowing i|
|00000030| 73 20 6e 6f 74 20 41 53 | 43 49 49 20 74 65 78 74 |s not AS|CII text|
|00000040| 2c 0a 23 20 73 6f 20 6e | 6f 77 20 77 6f 75 6c 64 |,.# so n|ow would|
|00000050| 20 62 65 20 61 20 67 6f | 6f 64 20 74 69 6d 65 20 | be a go|od time |
|00000060| 74 6f 20 71 20 6f 75 74 | 20 6f 66 20 6d 6f 72 65 |to q out| of more|
|00000070| 0c 0a 65 78 65 63 20 6d | 63 20 24 30 20 22 24 40 |..exec m|c $0 "$@|
|00000080| 22 0a 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 02 00 00 03 00 00 14 56 | 00 17 72 65 76 41 70 70 |.......V|..revApp|
|00000110| 6c 69 63 61 74 69 6f 6e | 4f 76 65 72 76 69 65 77 |lication|Overview|
|00000120| 00 03 00 88 30 76 a1 63 | 6f 6e 73 74 61 6e 74 20 |....0v.c|onstant |
|00000130| 6b 43 6f 6d 6d 61 3d 22 | 23 23 23 23 23 23 52 45 |kComma="|######RE|
|00000140| 56 43 4f 4d 4d 41 23 23 | 23 23 23 22 2c 20 6b 54 |VCOMMA##|###", kT|
|00000150| 61 62 3d 22 26 23 39 3b | 22 2c 20 6b 54 61 67 3d |ab="	|", kTag=|
|00000160| 22 23 23 23 23 23 52 45 | 56 4c 45 53 53 54 48 41 |"#####RE|VLESSTHA|
|00000170| 4e 43 48 41 52 41 43 54 | 45 52 23 23 23 23 23 22 |NCHARACT|ER#####"|
|00000180| 0a 63 6f 6e 73 74 61 6e | 74 20 6b 54 61 62 73 3d |.constan|t kTabs=|
|00000190| 22 4e 61 6d 65 2c 4e 75 | 6d 2c 49 44 2c 53 63 72 |"Name,Nu|m,ID,Scr|
|000001a0| 69 70 74 20 4c 69 6e 65 | 73 2c 4d 61 72 6b 65 64 |ipt Line|s,Marked|
|000001b0| 22 2c 20 6b 4c 65 73 73 | 54 68 61 6e 3d 22 5b 27 |", kLess|Than="['|
|000001c0| 6c 65 73 73 20 74 68 61 | 6e 27 20 63 68 61 72 61 |less tha|n' chara|
|000001d0| 63 74 65 72 5d 22 0a 63 | 6f 6e 73 74 61 6e 74 20 |cter]".c|onstant |
|000001e0| 6b 43 6f 6e 74 72 6f 6c | 54 61 62 73 3d 22 54 79 |kControl|Tabs="Ty|
|000001f0| 70 65 2c 4c 61 79 65 72 | 2c 43 6f 6e 74 72 6f 6c |pe,Layer|,Control|
|00000200| 2c 49 44 2c 53 63 72 69 | 70 74 20 4c 69 6e 65 73 |,ID,Scri|pt Lines|
|00000210| 2c 56 69 73 69 62 6c 65 | 2c 53 65 6c 65 63 74 61 |,Visible|,Selecta|
|00000220| 62 6c 65 22 0a 6c 6f 63 | 61 6c 20 6c 4d 61 69 6e |ble".loc|al lMain|
|00000230| 53 74 61 63 6b 49 63 6f | 6e 2c 20 6c 53 75 62 53 |StackIco|n, lSubS|
|00000240| 74 61 63 6b 49 63 6f 6e | 2c 20 6c 56 69 64 65 6f |tackIcon|, lVideo|
|00000250| 43 6c 69 70 49 63 6f 6e | 2c 20 6c 41 75 64 69 6f |ClipIcon|, lAudio|
|00000260| 43 6c 69 70 49 63 6f 6e | 2c 20 6c 49 6e 49 63 6f |ClipIcon|, lInIco|
|00000270| 6e 2c 20 6c 4f 75 74 49 | 63 6f 6e 0a 6c 6f 63 61 |n, lOutI|con.loca|
|00000280| 6c 20 6c 43 75 72 72 65 | 6e 74 53 74 61 63 6b 73 |l lCurre|ntStacks|
|00000290| 2c 20 6c 49 6e 69 74 69 | 61 6c 69 73 65 64 0a 0a |, lIniti|alised..|
|000002a0| 6f 6e 20 70 72 65 4f 70 | 65 6e 53 74 61 63 6b 0a |on preOp|enStack.|
|000002b0| 20 20 67 6c 6f 62 61 6c | 20 67 52 45 56 53 74 61 | global| gREVSta|
|000002c0| 63 6b 4e 61 6d 65 0a 20 | 20 6c 6f 63 6b 20 73 63 |ckName. | lock sc|
|000002d0| 72 65 65 6e 0a 20 20 0a | 20 20 73 65 74 20 74 68 |reen. .| set th|
|000002e0| 65 20 74 69 74 6c 65 20 | 6f 66 20 74 68 69 73 20 |e title |of this |
|000002f0| 73 74 61 63 6b 20 74 6f | 20 22 41 70 70 6c 69 63 |stack to| "Applic|
|00000300| 61 74 69 6f 6e 20 42 72 | 6f 77 73 65 72 22 2d 2d |ation Br|owser"--|
|00000310| 72 65 6d 6f 76 65 0a 20 | 20 0a 20 20 69 66 20 6e |remove. | . if n|
|00000320| 6f 74 20 6c 49 6e 69 74 | 69 61 6c 69 73 65 64 20 |ot lInit|ialised |
|00000330| 74 68 65 6e 0a 20 20 20 | 20 73 65 74 20 74 68 65 |then. | set the|
|00000340| 20 74 65 78 74 46 6f 6e | 74 20 6f 66 20 66 6c 64 | textFon|t of fld|
|00000350| 20 22 43 61 72 64 73 22 | 20 6f 66 20 67 72 70 20 | "Cards"| of grp |
|00000360| 22 43 61 72 64 73 22 20 | 74 6f 20 65 6d 70 74 79 |"Cards" |to empty|
|00000370| 0a 20 20 20 20 73 65 74 | 20 74 68 65 20 74 65 78 |. set| the tex|
|00000380| 74 46 6f 6e 74 20 6f 66 | 20 66 6c 64 20 22 43 6f |tFont of| fld "Co|
|00000390| 6e 74 72 6f 6c 73 22 20 | 6f 66 20 63 64 20 22 43 |ntrols" |of cd "C|
|000003a0| 61 72 64 73 20 61 6e 64 | 20 43 6f 6e 74 72 6f 6c |ards and| Control|
|000003b0| 73 22 20 74 6f 20 65 6d | 70 74 79 0a 20 20 20 20 |s" to em|pty. |
|000003c0| 73 65 74 20 74 68 65 20 | 74 65 78 74 46 6f 6e 74 |set the |textFont|
|000003d0| 20 6f 66 20 66 6c 64 20 | 22 41 75 64 69 6f 43 6c | of fld |"AudioCl|
|000003e0| 69 70 73 22 20 6f 66 20 | 63 64 20 22 41 75 64 69 |ips" of |cd "Audi|
|000003f0| 6f 63 6c 69 70 73 22 20 | 74 6f 20 65 6d 70 74 79 |oclips" |to empty|
|00000400| 0a 20 20 20 20 73 65 74 | 20 74 68 65 20 74 65 78 |. set| the tex|
|00000410| 74 46 6f 6e 74 20 6f 66 | 20 66 6c 64 20 22 56 69 |tFont of| fld "Vi|
|00000420| 64 65 6f 63 6c 69 70 73 | 22 20 6f 66 20 63 64 20 |deoclips|" of cd |
|00000430| 22 56 69 64 65 6f 63 6c | 69 70 73 22 20 74 6f 20 |"Videocl|ips" to |
|00000440| 65 6d 70 74 79 0a 0a 20 | 20 20 20 73 65 74 20 74 |empty.. | set t|
|00000450| 68 65 20 74 65 78 74 48 | 65 69 67 68 74 20 6f 66 |he textH|eight of|
|00000460| 20 66 6c 64 20 22 43 61 | 72 64 73 22 20 6f 66 20 | fld "Ca|rds" of |
|00000470| 67 72 70 20 22 43 61 72 | 64 73 22 20 74 6f 20 31 |grp "Car|ds" to 1|
|00000480| 38 0a 20 20 20 20 73 65 | 74 20 74 68 65 20 74 65 |8. se|t the te|
|00000490| 78 74 48 65 69 67 68 74 | 20 6f 66 20 66 6c 64 20 |xtHeight| of fld |
|000004a0| 22 43 6f 6e 74 72 6f 6c | 73 22 20 6f 66 20 63 64 |"Control|s" of cd|
|000004b0| 20 22 43 61 72 64 73 20 | 61 6e 64 20 43 6f 6e 74 | "Cards |and Cont|
|000004c0| 72 6f 6c 73 22 20 74 6f | 20 31 38 0a 20 20 20 20 |rols" to| 18. |
|000004d0| 73 65 74 20 74 68 65 20 | 74 65 78 74 48 65 69 67 |set the |textHeig|
|000004e0| 68 74 20 6f 66 20 66 6c | 64 20 22 41 75 64 69 6f |ht of fl|d "Audio|
|000004f0| 43 6c 69 70 73 22 20 6f | 66 20 63 64 20 22 41 75 |Clips" o|f cd "Au|
|00000500| 64 69 6f 63 6c 69 70 73 | 22 20 74 6f 20 31 38 0a |dioclips|" to 18.|
|00000510| 20 20 20 20 73 65 74 20 | 74 68 65 20 74 65 78 74 | set |the text|
|00000520| 48 65 69 67 68 74 20 6f | 66 20 66 6c 64 20 22 56 |Height o|f fld "V|
|00000530| 69 64 65 6f 63 6c 69 70 | 73 22 20 6f 66 20 63 64 |ideoclip|s" of cd|
|00000540| 20 22 56 69 64 65 6f 63 | 6c 69 70 73 22 20 74 6f | "Videoc|lips" to|
|00000550| 20 31 38 0a 20 20 20 20 | 0a 20 20 20 20 70 75 74 | 18. |. put|
|00000560| 20 74 68 65 20 63 4d 61 | 69 6e 53 74 61 63 6b 49 | the cMa|inStackI|
|00000570| 63 6f 6e 20 6f 66 20 74 | 68 69 73 20 73 74 61 63 |con of t|his stac|
|00000580| 6b 20 69 6e 74 6f 20 6c | 4d 61 69 6e 53 74 61 63 |k into l|MainStac|
|00000590| 6b 49 63 6f 6e 0a 20 20 | 20 20 70 75 74 20 74 68 |kIcon. | put th|
|000005a0| 65 20 63 53 75 62 73 74 | 61 63 6b 49 63 6f 6e 20 |e cSubst|ackIcon |
|000005b0| 6f 66 20 74 68 69 73 20 | 73 74 61 63 6b 20 69 6e |of this |stack in|
|000005c0| 74 6f 20 6c 53 75 62 73 | 74 61 63 6b 49 63 6f 6e |to lSubs|tackIcon|
|000005d0| 0a 20 20 20 20 70 75 74 | 20 74 68 65 20 63 56 69 |. put| the cVi|
|000005e0| 64 65 6f 63 6c 69 70 49 | 63 6f 6e 20 6f 66 20 74 |deoclipI|con of t|
|000005f0| 68 69 73 20 73 74 61 63 | 6b 20 69 6e 74 6f 20 6c |his stac|k into l|
|00000600| 56 69 64 65 6f 43 6c 69 | 70 49 63 6f 6e 0a 20 20 |VideoCli|pIcon. |
|00000610| 20 20 70 75 74 20 74 68 | 65 20 63 41 75 64 69 6f | put th|e cAudio|
|00000620| 63 6c 69 70 49 63 6f 6e | 20 6f 66 20 74 68 69 73 |clipIcon| of this|
|00000630| 20 73 74 61 63 6b 20 69 | 6e 74 6f 20 6c 41 75 64 | stack i|nto lAud|
|00000640| 69 6f 43 6c 69 70 49 63 | 6f 6e 0a 20 20 20 20 69 |ioClipIc|on. i|
|00000650| 66 20 74 68 65 20 70 6c | 61 74 66 6f 72 6d 20 69 |f the pl|atform i|
|00000660| 73 20 22 4d 61 63 4f 53 | 22 20 74 68 65 6e 0a 20 |s "MacOS|" then. |
|00000670| 20 20 20 20 20 69 66 20 | 63 68 61 72 20 31 20 6f | if |char 1 o|
|00000680| 66 20 74 68 65 20 73 79 | 73 74 65 6d 56 65 72 73 |f the sy|stemVers|
|00000690| 69 6f 6e 20 69 73 20 31 | 20 74 68 65 6e 0a 20 20 |ion is 1| then. |
|000006a0| 20 20 20 20 20 20 70 75 | 74 20 74 68 65 20 63 4f | pu|t the cO|
|000006b0| 53 58 49 6e 49 63 6f 6e | 20 6f 66 20 74 68 69 73 |SXInIcon| of this|
|000006c0| 20 73 74 61 63 6b 20 69 | 6e 74 6f 20 6c 49 6e 49 | stack i|nto lInI|
|000006d0| 63 6f 6e 0a 20 20 20 20 | 20 20 20 20 70 75 74 20 |con. | put |
|000006e0| 74 68 65 20 63 4f 53 58 | 4f 75 74 49 63 6f 6e 20 |the cOSX|OutIcon |
|000006f0| 6f 66 20 74 68 69 73 20 | 73 74 61 63 6b 20 69 6e |of this |stack in|
|00000700| 74 6f 20 6c 4f 75 74 49 | 63 6f 6e 0a 20 20 20 20 |to lOutI|con. |
|00000710| 20 20 65 6c 73 65 0a 20 | 20 20 20 20 20 20 20 70 | else. | p|
|00000720| 75 74 20 74 68 65 20 63 | 43 6c 61 73 73 69 63 49 |ut the c|ClassicI|
|00000730| 6e 49 63 6f 6e 20 6f 66 | 20 74 68 69 73 20 73 74 |nIcon of| this st|
|00000740| 61 63 6b 20 69 6e 74 6f | 20 6c 49 6e 49 63 6f 6e |ack into| lInIcon|
|00000750| 0a 20 20 20 20 20 20 20 | 20 70 75 74 20 74 68 65 |. | put the|
|00000760| 20 63 43 6c 61 73 73 69 | 63 4f 75 74 49 63 6f 6e | cClassi|cOutIcon|
|00000770| 20 6f 66 20 74 68 69 73 | 20 73 74 61 63 6b 20 69 | of this| stack i|
|00000780| 6e 74 6f 20 6c 4f 75 74 | 49 63 6f 6e 0a 20 20 20 |nto lOut|Icon. |
|00000790| 20 20 20 65 6e 64 20 69 | 66 0a 20 20 20 20 65 6c | end i|f. el|
|000007a0| 73 65 0a 20 20 20 20 20 | 20 70 75 74 20 74 68 65 |se. | put the|
|000007b0| 20 63 57 69 6e 64 6f 77 | 73 49 6e 49 63 6f 6e 20 | cWindow|sInIcon |
|000007c0| 6f 66 20 74 68 69 73 20 | 73 74 61 63 6b 20 69 6e |of this |stack in|
|000007d0| 74 6f 20 6c 49 6e 49 63 | 6f 6e 0a 20 20 20 20 20 |to lInIc|on. |
|000007e0| 20 70 75 74 20 74 68 65 | 20 63 57 69 6e 64 6f 77 | put the| cWindow|
|000007f0| 73 4f 75 74 49 63 6f 6e | 20 6f 66 20 74 68 69 73 |sOutIcon| of this|
|00000800| 20 73 74 61 63 6b 20 69 | 6e 74 6f 20 6c 4f 75 74 | stack i|nto lOut|
|00000810| 49 63 6f 6e 0a 20 20 20 | 20 65 6e 64 20 69 66 0a |Icon. | end if.|
|00000820| 20 20 20 20 70 75 74 20 | 74 72 75 65 20 69 6e 74 | put |true int|
|00000830| 6f 20 6c 49 6e 69 74 69 | 61 6c 69 73 65 64 0a 20 |o lIniti|alised. |
|00000840| 20 65 6e 64 20 69 66 0a | 20 20 0a 20 20 73 65 74 | end if.| . set|
|00000850| 20 74 68 65 20 63 41 70 | 70 4f 76 65 72 76 69 65 | the cAp|pOvervie|
|00000860| 77 20 6f 66 20 73 74 61 | 63 6b 20 22 72 65 76 50 |w of sta|ck "revP|
|00000870| 72 65 66 65 72 65 6e 63 | 65 73 22 20 74 6f 20 74 |referenc|es" to t|
|00000880| 72 75 65 0a 20 20 72 65 | 76 49 6e 69 74 41 70 70 |rue. re|vInitApp|
|00000890| 42 72 6f 77 73 65 72 0a | 20 20 0a 20 20 23 6d 6f |Browser.| . #mo|
|000008a0| 64 69 66 79 0a 20 20 70 | 75 74 20 65 6d 70 74 79 |dify. p|ut empty|
|000008b0| 20 69 6e 74 6f 20 67 52 | 45 56 53 74 61 63 6b 4e | into gR|EVStackN|
|000008c0| 61 6d 65 0a 20 20 73 65 | 74 20 74 68 65 20 63 43 |ame. se|t the cC|
|000008d0| 61 72 64 49 44 20 6f 66 | 20 74 68 69 73 20 73 74 |ardID of| this st|
|000008e0| 61 63 6b 20 74 6f 20 65 | 6d 70 74 79 0a 20 20 2d |ack to e|mpty. -|
|000008f0| 2d 72 65 76 52 65 66 72 | 65 73 68 43 6f 6e 74 72 |-revRefr|eshContr|
|00000900| 6f 6c 73 0a 20 20 70 75 | 74 20 65 6d 70 74 79 20 |ols. pu|t empty |
|00000910| 69 6e 74 6f 20 66 6c 64 | 20 22 43 61 72 64 20 49 |into fld| "Card I|
|00000920| 6e 66 6f 22 0a 20 20 0a | 20 20 75 6e 6c 6f 63 6b |nfo". .| unlock|
|00000930| 20 73 63 72 65 65 6e 0a | 20 20 70 61 73 73 20 70 | screen.| pass p|
|00000940| 72 65 4f 70 65 6e 53 74 | 61 63 6b 0a 65 6e 64 20 |reOpenSt|ack.end |
|00000950| 70 72 65 4f 70 65 6e 53 | 74 61 63 6b 0a 0a 6f 6e |preOpenS|tack..on|
|00000960| 20 63 6c 6f 73 65 53 74 | 61 63 6b 0a 20 20 72 65 | closeSt|ack. re|
|00000970| 76 52 65 74 61 69 6e 53 | 74 61 63 6b 73 0a 20 20 |vRetainS|tacks. |
|00000980| 0a 20 20 73 65 74 20 74 | 68 65 20 63 41 70 70 4f |. set t|he cAppO|
|00000990| 76 65 72 76 69 65 77 20 | 6f 66 20 73 74 61 63 6b |verview |of stack|
|000009a0| 20 22 72 65 76 50 72 65 | 66 65 72 65 6e 63 65 73 | "revPre|ferences|
|000009b0| 22 20 74 6f 20 66 61 6c | 73 65 0a 65 6e 64 20 63 |" to fal|se.end c|
|000009c0| 6c 6f 73 65 53 74 61 63 | 6b 0a 0a 6f 6e 20 72 65 |loseStac|k..on re|
|000009d0| 76 49 6e 69 74 41 70 70 | 42 72 6f 77 73 65 72 0a |vInitApp|Browser.|
|000009e0| 20 20 67 6c 6f 62 61 6c | 20 67 52 45 56 4f 62 6a | global| gREVObj|
|000009f0| 65 63 74 54 72 65 65 2c | 20 67 52 45 56 53 68 6f |ectTree,| gREVSho|
|00000a00| 77 53 74 61 63 6b 73 0a | 20 20 20 0a 20 20 73 65 |wStacks.| . se|
|00000a10| 74 20 74 68 65 20 63 75 | 72 73 6f 72 20 74 6f 20 |t the cu|rsor to |
|00000a20| 77 61 74 63 68 0a 20 20 | 6c 6f 63 6b 20 6d 65 73 |watch. |lock mes|
|00000a30| 73 61 67 65 73 0a 20 20 | 73 65 74 20 74 68 65 20 |sages. |set the |
|00000a40| 72 65 63 74 20 6f 66 20 | 74 68 69 73 20 73 74 61 |rect of |this sta|
|00000a50| 63 6b 20 74 6f 20 74 68 | 65 20 63 41 70 70 42 72 |ck to th|e cAppBr|
|00000a60| 6f 77 73 65 72 52 65 63 | 74 20 6f 66 20 73 74 61 |owserRec|t of sta|
|00000a70| 63 6b 20 22 72 65 76 50 | 72 65 66 65 72 65 6e 63 |ck "revP|referenc|
|00000a80| 65 73 22 0a 20 20 75 6e | 6c 6f 63 6b 20 6d 65 73 |es". un|lock mes|
|00000a90| 73 61 67 65 73 0a 20 20 | 0a 20 20 73 65 74 20 74 |sages. |. set t|
|00000aa0| 68 65 20 63 43 61 72 64 | 54 61 62 73 20 6f 66 20 |he cCard|Tabs of |
|00000ab0| 67 72 70 20 22 43 61 72 | 64 20 54 61 62 73 22 20 |grp "Car|d Tabs" |
|00000ac0| 6f 66 20 63 64 20 22 43 | 61 72 64 73 20 61 6e 64 |of cd "C|ards and|
|00000ad0| 20 43 6f 6e 74 72 6f 6c | 73 22 20 74 6f 20 5c 0a | Control|s" to \.|
|00000ae0| 20 20 20 20 20 20 74 68 | 65 20 63 43 61 72 64 54 | th|e cCardT|
|00000af0| 61 62 73 20 6f 66 20 73 | 74 61 63 6b 20 22 72 65 |abs of s|tack "re|
|00000b00| 76 50 72 65 66 65 72 65 | 6e 63 65 73 22 0a 20 20 |vPrefere|nces". |
|00000b10| 73 65 74 20 74 68 65 20 | 63 43 6f 6e 74 72 6f 6c |set the |cControl|
|00000b20| 54 61 62 73 20 6f 66 20 | 67 72 70 20 22 43 6f 6e |Tabs of |grp "Con|
|00000b30| 74 72 6f 6c 20 54 61 62 | 73 22 20 6f 66 20 63 64 |trol Tab|s" of cd|
|00000b40| 20 22 43 61 72 64 73 20 | 61 6e 64 20 43 6f 6e 74 | "Cards |and Cont|
|00000b50| 72 6f 6c 73 22 20 74 6f | 20 5c 0a 20 20 20 20 20 |rols" to| \. |
|00000b60| 20 74 68 65 20 63 43 6f | 6e 74 72 6f 6c 54 61 62 | the cCo|ntrolTab|
|00000b70| 73 20 6f 66 20 73 74 61 | 63 6b 20 22 72 65 76 50 |s of sta|ck "revP|
|00000b80| 72 65 66 65 72 65 6e 63 | 65 73 22 0a 20 20 73 65 |referenc|es". se|
|00000b90| 74 20 74 68 65 20 63 41 | 75 64 69 6f 63 6c 69 70 |t the cA|udioclip|
|00000ba0| 54 61 62 73 20 6f 66 20 | 67 72 70 20 22 41 75 64 |Tabs of |grp "Aud|
|00000bb0| 69 6f 63 6c 69 70 20 54 | 61 62 73 22 20 6f 66 20 |ioclip T|abs" of |
|00000bc0| 63 64 20 22 41 75 64 69 | 6f 63 6c 69 70 73 22 20 |cd "Audi|oclips" |
|00000bd0| 74 6f 20 5c 0a 20 20 20 | 20 20 20 74 68 65 20 63 |to \. | the c|
|00000be0| 41 75 64 69 6f 63 6c 69 | 70 54 61 62 73 20 6f 66 |Audiocli|pTabs of|
|00000bf0| 20 73 74 61 63 6b 20 22 | 72 65 76 50 72 65 66 65 | stack "|revPrefe|
|00000c00| 72 65 6e 63 65 73 22 0a | 20 20 73 65 74 20 74 68 |rences".| set th|
|00000c10| 65 20 63 56 69 64 65 6f | 63 6c 69 70 54 61 62 73 |e cVideo|clipTabs|
|00000c20| 20 6f 66 20 67 72 70 20 | 22 56 69 64 65 6f 63 6c | of grp |"Videocl|
|00000c30| 69 70 20 54 61 62 73 22 | 20 6f 66 20 63 64 20 22 |ip Tabs"| of cd "|
|00000c40| 56 69 64 65 6f 63 6c 69 | 70 73 22 20 74 6f 20 5c |Videocli|ps" to \|
|00000c50| 0a 20 20 20 20 20 20 74 | 68 65 20 63 56 69 64 65 |. t|he cVide|
|00000c60| 6f 63 6c 69 70 54 61 62 | 73 20 6f 66 20 73 74 61 |oclipTab|s of sta|
|00000c70| 63 6b 20 22 72 65 76 50 | 72 65 66 65 72 65 6e 63 |ck "revP|referenc|
|00000c80| 65 73 22 0a 20 20 0a 20 | 20 67 6f 20 63 64 20 22 |es". . | go cd "|
|00000c90| 42 6c 61 6e 6b 22 0a 20 | 20 73 65 6e 64 20 22 72 |Blank". | send "r|
|00000ca0| 65 76 52 65 73 69 7a 65 | 57 69 64 67 65 74 22 20 |evResize|Widget" |
|00000cb0| 26 26 20 74 68 65 20 63 | 41 70 70 42 72 6f 77 73 |&& the c|AppBrows|
|00000cc0| 65 72 57 69 64 67 65 74 | 4c 65 66 74 20 6f 66 20 |erWidget|Left of |
|00000cd0| 73 74 61 63 6b 20 22 72 | 65 76 50 72 65 66 65 72 |stack "r|evPrefer|
|00000ce0| 65 6e 63 65 73 22 20 5c | 0a 20 20 20 20 20 20 74 |ences" \|. t|
|00000cf0| 6f 20 62 74 6e 20 22 52 | 65 73 69 7a 65 22 20 6f |o btn "R|esize" o|
|00000d00| 66 20 63 64 20 22 42 6c | 61 6e 6b 22 0a 20 20 20 |f cd "Bl|ank". |
|00000d10| 0a 20 20 70 75 74 20 74 | 68 65 20 6d 61 69 6e 53 |. put t|he mainS|
|00000d20| 74 61 63 6b 73 20 69 6e | 74 6f 20 74 4d 61 69 6e |tacks in|to tMain|
|00000d30| 53 74 61 63 6b 73 0a 20 | 20 69 66 20 6e 6f 74 20 |Stacks. | if not |
|00000d40| 67 52 45 56 53 68 6f 77 | 53 74 61 63 6b 73 20 74 |gREVShow|Stacks t|
|00000d50| 68 65 6e 20 70 75 74 20 | 72 65 76 46 69 6c 74 65 |hen put |revFilte|
|00000d60| 72 53 74 61 63 6b 73 4c | 69 73 74 28 74 4d 61 69 |rStacksL|ist(tMai|
|00000d70| 6e 53 74 61 63 6b 73 29 | 20 69 6e 74 6f 20 74 4d |nStacks)| into tM|
|00000d80| 61 69 6e 53 74 61 63 6b | 73 0a 20 20 73 6f 72 74 |ainStack|s. sort|
|00000d90| 20 74 4d 61 69 6e 53 74 | 61 63 6b 73 0a 20 20 70 | tMainSt|acks. p|
|00000da0| 75 74 20 65 6d 70 74 79 | 20 69 6e 74 6f 20 74 53 |ut empty| into tS|
|00000db0| 74 61 63 6b 73 0a 20 20 | 72 65 70 65 61 74 20 66 |tacks. |repeat f|
|00000dc0| 6f 72 20 65 61 63 68 20 | 6c 69 6e 65 20 6c 20 69 |or each |line l i|
|00000dd0| 6e 20 74 4d 61 69 6e 53 | 74 61 63 6b 73 0a 20 20 |n tMainS|tacks. |
|00000de0| 20 20 70 75 74 20 6c 20 | 26 20 63 72 20 61 66 74 | put l |& cr aft|
|00000df0| 65 72 20 74 53 74 61 63 | 6b 73 0a 20 20 20 20 70 |er tStac|ks. p|
|00000e00| 75 74 20 74 68 65 20 73 | 75 62 73 74 61 63 6b 73 |ut the s|ubstacks|
|00000e10| 20 6f 66 20 73 74 61 63 | 6b 20 6c 20 69 6e 74 6f | of stac|k l into|
|00000e20| 20 74 53 75 62 73 74 61 | 63 6b 73 0a 20 20 20 20 | tSubsta|cks. |
|00000e30| 69 66 20 74 53 75 62 73 | 74 61 63 6b 73 20 69 73 |if tSubs|tacks is|
|00000e40| 20 6e 6f 74 20 65 6d 70 | 74 79 20 74 68 65 6e 20 | not emp|ty then |
|00000e50| 70 75 74 20 74 53 75 62 | 73 74 61 63 6b 73 20 26 |put tSub|stacks &|
|00000e60| 20 63 72 20 61 66 74 65 | 72 20 74 53 74 61 63 6b | cr afte|r tStack|
|00000e70| 73 0a 20 20 65 6e 64 20 | 72 65 70 65 61 74 0a 20 |s. end |repeat. |
|00000e80| 20 0a 20 20 70 75 74 20 | 72 65 76 42 72 6f 77 73 | . put |revBrows|
|00000e90| 65 72 54 6f 70 53 74 61 | 63 6b 28 29 20 69 6e 74 |erTopSta|ck() int|
|00000ea0| 6f 20 74 54 6f 70 53 74 | 61 63 6b 0a 20 20 69 66 |o tTopSt|ack. if|
|00000eb0| 20 6c 43 75 72 72 65 6e | 74 53 74 61 63 6b 73 20 | lCurren|tStacks |
|00000ec0| 69 73 20 65 6d 70 74 79 | 20 74 68 65 6e 20 70 75 |is empty| then pu|
|00000ed0| 74 20 74 54 6f 70 53 74 | 61 63 6b 20 69 6e 74 6f |t tTopSt|ack into|
|00000ee0| 20 74 45 78 70 61 6e 64 | 65 64 53 74 61 63 6b 73 | tExpand|edStacks|
|00000ef0| 0a 20 20 65 6c 73 65 20 | 70 75 74 20 6c 43 75 72 |. else |put lCur|
|00000f00| 72 65 6e 74 53 74 61 63 | 6b 73 20 26 20 63 72 20 |rentStac|ks & cr |
|00000f10| 26 20 74 54 6f 70 53 74 | 61 63 6b 20 69 6e 74 6f |& tTopSt|ack into|
|00000f20| 20 74 45 78 70 61 6e 64 | 65 64 53 74 61 63 6b 73 | tExpand|edStacks|
|00000f30| 0a 20 20 0a 20 20 70 75 | 74 20 65 6d 70 74 79 20 |. . pu|t empty |
|00000f40| 69 6e 74 6f 20 67 52 45 | 56 4f 62 6a 65 63 74 54 |into gRE|VObjectT|
|00000f50| 72 65 65 0a 20 20 72 65 | 70 65 61 74 20 66 6f 72 |ree. re|peat for|
|00000f60| 20 65 61 63 68 20 6c 69 | 6e 65 20 6c 20 69 6e 20 | each li|ne l in |
|00000f70| 74 53 74 61 63 6b 73 0a | 20 20 20 20 70 75 74 20 |tStacks.| put |
|00000f80| 72 65 76 53 74 61 63 6b | 4c 69 6e 65 28 6c 29 20 |revStack|Line(l) |
|00000f90| 69 6e 74 6f 20 74 4c 69 | 6e 65 0a 20 20 20 20 69 |into tLi|ne. i|
|00000fa0| 66 20 6c 20 69 73 20 61 | 6d 6f 6e 67 20 74 68 65 |f l is a|mong the|
|00000fb0| 20 6c 69 6e 65 73 20 6f | 66 20 74 45 78 70 61 6e | lines o|f tExpan|
|00000fc0| 64 65 64 53 74 61 63 6b | 73 20 74 68 65 6e 0a 20 |dedStack|s then. |
|00000fd0| 20 20 20 20 20 70 75 74 | 20 22 65 78 70 61 6e 64 | put| "expand|
|00000fe0| 65 64 20 74 72 75 65 22 | 20 26 26 20 6c 4f 75 74 |ed true"| && lOut|
|00000ff0| 49 63 6f 6e 20 69 6e 74 | 6f 20 69 74 65 6d 20 33 |Icon int|o item 3|
|00001000| 20 6f 66 20 74 4c 69 6e | 65 0a 20 20 20 20 20 20 | of tLin|e. |
|00001010| 69 66 20 74 68 65 20 65 | 64 69 74 42 67 20 6f 66 |if the e|ditBg of|
|00001020| 20 73 74 61 63 6b 20 6c | 20 74 68 65 6e 20 73 65 | stack l| then se|
|00001030| 74 20 74 68 65 20 65 64 | 69 74 42 67 20 6f 66 20 |t the ed|itBg of |
|00001040| 73 74 61 63 6b 20 6c 20 | 74 6f 20 66 61 6c 73 65 |stack l |to false|
|00001050| 2d 2d 73 6f 20 61 6c 6c | 20 63 61 72 64 73 20 6c |--so all| cards l|
|00001060| 69 73 74 65 64 0a 20 20 | 20 20 20 20 70 75 74 20 |isted. | put |
|00001070| 63 72 20 26 20 72 65 76 | 43 61 72 64 4c 69 73 74 |cr & rev|CardList|
|00001080| 28 74 68 65 20 63 61 72 | 64 49 44 53 20 6f 66 20 |(the car|dIDS of |
|00001090| 73 74 61 63 6b 20 6c 2c | 6c 29 20 61 66 74 65 72 |stack l,|l) after|
|000010a0| 20 74 4c 69 6e 65 0a 20 | 20 20 20 20 20 69 66 20 | tLine. | if |
|000010b0| 74 68 65 20 63 53 68 6f | 77 41 75 64 69 6f 43 6c |the cSho|wAudioCl|
|000010c0| 69 70 73 20 6f 66 20 73 | 74 61 63 6b 20 22 72 65 |ips of s|tack "re|
|000010d0| 76 50 72 65 66 65 72 65 | 6e 63 65 73 22 0a 20 20 |vPrefere|nces". |
|000010e0| 20 20 20 20 74 68 65 6e | 20 70 75 74 20 63 72 20 | then| put cr |
|000010f0| 26 20 72 65 76 41 75 64 | 69 6f 43 6c 69 70 4c 69 |& revAud|ioClipLi|
|00001100| 6e 65 28 6c 29 20 61 66 | 74 65 72 20 74 4c 69 6e |ne(l) af|ter tLin|
|00001110| 65 0a 20 20 20 20 20 20 | 69 66 20 74 68 65 20 63 |e. |if the c|
|00001120| 53 68 6f 77 56 69 64 65 | 6f 43 6c 69 70 73 20 6f |ShowVide|oClips o|
|00001130| 66 20 73 74 61 63 6b 20 | 22 72 65 76 50 72 65 66 |f stack |"revPref|
|00001140| 65 72 65 6e 63 65 73 22 | 0a 20 20 20 20 20 20 74 |erences"|. t|
|00001150| 68 65 6e 20 70 75 74 20 | 63 72 20 26 20 72 65 76 |hen put |cr & rev|
|00001160| 56 69 64 65 6f 43 6c 69 | 70 4c 69 6e 65 28 6c 29 |VideoCli|pLine(l)|
|00001170| 20 61 66 74 65 72 20 74 | 4c 69 6e 65 0a 20 20 20 | after t|Line. |
|00001180| 20 65 6e 64 20 69 66 0a | 20 20 20 20 70 75 74 20 | end if.| put |
|00001190| 74 4c 69 6e 65 20 26 20 | 63 72 20 61 66 74 65 72 |tLine & |cr after|
|000011a0| 20 67 52 45 56 4f 62 6a | 65 63 74 54 72 65 65 0a | gREVObj|ectTree.|
|000011b0| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0a 20 20 0a | end re|peat. .|
|000011c0| 20 20 64 65 6c 65 74 65 | 20 6c 61 73 74 20 63 68 | delete| last ch|
|000011d0| 61 72 20 6f 66 20 67 52 | 45 56 4f 62 6a 65 63 74 |ar of gR|EVObject|
|000011e0| 54 72 65 65 0a 20 20 70 | 75 74 20 74 68 65 20 76 |Tree. p|ut the v|
|000011f0| 53 63 72 6f 6c 6c 20 6f | 66 20 66 6c 64 20 22 43 |Scroll o|f fld "C|
|00001200| 61 72 64 73 22 20 6f 66 | 20 67 72 70 20 22 43 61 |ards" of| grp "Ca|
|00001210| 72 64 73 22 20 69 6e 74 | 6f 20 74 56 53 63 72 6f |rds" int|o tVScro|
|00001220| 6c 6c 0a 20 20 70 75 74 | 20 74 68 65 20 68 53 63 |ll. put| the hSc|
|00001230| 72 6f 6c 6c 20 6f 66 20 | 66 6c 64 20 22 43 61 72 |roll of |fld "Car|
|00001240| 64 73 22 20 6f 66 20 67 | 72 70 20 22 43 61 72 64 |ds" of g|rp "Card|
|00001250| 73 22 20 69 6e 74 6f 20 | 74 48 53 63 72 6f 6c 6c |s" into |tHScroll|
|00001260| 0a 20 20 72 65 76 53 65 | 74 54 72 65 65 48 74 6d |. revSe|tTreeHtm|
|00001270| 6c 20 72 65 76 54 72 65 | 65 48 74 6d 6c 28 67 52 |l revTre|eHtml(gR|
|00001280| 45 56 4f 62 6a 65 63 74 | 54 72 65 65 29 0a 20 20 |EVObject|Tree). |
|00001290| 73 65 74 20 74 68 65 20 | 76 53 63 72 6f 6c 6c 20 |set the |vScroll |
|000012a0| 6f 66 20 66 6c 64 20 22 | 43 61 72 64 73 22 20 6f |of fld "|Cards" o|
|000012b0| 66 20 67 72 70 20 22 43 | 61 72 64 73 22 20 74 6f |f grp "C|ards" to|
|000012c0| 20 74 56 53 63 72 6f 6c | 6c 0a 20 20 73 65 74 20 | tVScrol|l. set |
|000012d0| 74 68 65 20 68 53 63 72 | 6f 6c 6c 20 6f 66 20 66 |the hScr|oll of f|
|000012e0| 6c 64 20 22 43 61 72 64 | 73 22 20 6f 66 20 67 72 |ld "Card|s" of gr|
|000012f0| 70 20 22 43 61 72 64 73 | 22 20 74 6f 20 74 48 53 |p "Cards|" to tHS|
|00001300| 63 72 6f 6c 6c 0a 20 20 | 73 65 74 20 74 68 65 20 |croll. |set the |
|00001310| 68 53 63 72 6f 6c 6c 20 | 6f 66 20 67 72 70 20 22 |hScroll |of grp "|
|00001320| 43 61 72 64 20 54 61 62 | 73 22 20 74 6f 20 74 48 |Card Tab|s" to tH|
|00001330| 53 63 72 6f 6c 6c 0a 65 | 6e 64 20 72 65 76 49 6e |Scroll.e|nd revIn|
|00001340| 69 74 41 70 70 42 72 6f | 77 73 65 72 0a 0a 66 75 |itAppBro|wser..fu|
|00001350| 6e 63 74 69 6f 6e 20 72 | 65 76 53 74 61 63 6b 4c |nction r|evStackL|
|00001360| 69 6e 65 20 70 53 74 61 | 63 6b 0a 20 20 69 66 20 |ine pSta|ck. if |
|00001370| 74 68 65 20 6d 61 69 6e | 53 74 61 63 6b 20 6f 66 |the main|Stack of|
|00001380| 20 73 74 61 63 6b 20 70 | 53 74 61 63 6b 20 69 73 | stack p|Stack is|
|00001390| 20 70 53 74 61 63 6b 20 | 74 68 65 6e 0a 20 20 20 | pStack |then. |
|000013a0| 20 70 75 74 20 6c 4d 61 | 69 6e 53 74 61 63 6b 49 | put lMa|inStackI|
|000013b0| 63 6f 6e 20 69 6e 74 6f | 20 74 49 63 6f 6e 0a 20 |con into| tIcon. |
|000013c0| 20 20 20 70 75 74 20 65 | 6d 70 74 79 20 69 6e 74 | put e|mpty int|
|000013d0| 6f 20 74 53 70 61 63 65 | 0a 20 20 65 6c 73 65 0a |o tSpace|. else.|
|000013e0| 20 20 20 20 70 75 74 20 | 6c 53 75 62 73 74 61 63 | put |lSubstac|
|000013f0| 6b 49 63 6f 6e 20 69 6e | 74 6f 20 74 49 63 6f 6e |kIcon in|to tIcon|
|00001400| 0a 20 20 20 20 70 75 74 | 20 73 70 61 63 65 20 26 |. put| space &|
|00001410| 20 73 70 61 63 65 20 69 | 6e 74 6f 20 74 53 70 61 | space i|nto tSpa|
|00001420| 63 65 0a 20 20 65 6e 64 | 20 69 66 0a 20 20 70 75 |ce. end| if. pu|
|00001430| 74 20 70 53 74 61 63 6b | 20 69 6e 74 6f 20 74 4e |t pStack| into tN|
|00001440| 61 6d 65 0a 20 20 72 65 | 70 6c 61 63 65 20 63 6f |ame. re|place co|
|00001450| 6d 6d 61 20 77 69 74 68 | 20 6b 43 6f 6d 6d 61 20 |mma with| kComma |
|00001460| 69 6e 20 74 4e 61 6d 65 | 0a 20 20 74 72 79 0a 20 |in tName|. try. |
|00001470| 20 20 20 70 75 74 20 74 | 68 65 20 6e 75 6d 20 6f | put t|he num o|
|00001480| 66 20 6c 69 6e 65 73 20 | 69 6e 20 74 68 65 20 73 |f lines |in the s|
|00001490| 63 72 69 70 74 20 6f 66 | 20 73 74 61 63 6b 20 70 |cript of| stack p|
|000014a0| 53 74 61 63 6b 20 69 6e | 74 6f 20 74 53 63 72 69 |Stack in|to tScri|
|000014b0| 70 74 4c 69 6e 65 73 0a | 20 20 63 61 74 63 68 20 |ptLines.| catch |
|000014c0| 74 45 72 72 6f 72 0a 20 | 20 20 20 70 75 74 20 22 |tError. | put "|
|000014d0| 75 6e 6b 6e 6f 77 6e 22 | 20 69 6e 74 6f 20 74 53 |unknown"| into tS|
|000014e0| 63 72 69 70 74 4c 69 6e | 65 73 0a 20 20 65 6e 64 |criptLin|es. end|
|000014f0| 20 74 72 79 0a 20 20 70 | 75 74 20 74 4e 61 6d 65 | try. p|ut tName|
|00001500| 2c 22 73 74 61 63 6b 22 | 2c 22 65 78 70 61 6e 64 |,"stack"|,"expand|
|00001510| 65 64 20 66 61 6c 73 65 | 22 20 26 26 20 6c 49 6e |ed false|" && lIn|
|00001520| 49 63 6f 6e 2c 74 53 70 | 61 63 65 2c 74 49 63 6f |Icon,tSp|ace,tIco|
|00001530| 6e 2c 74 4e 61 6d 65 20 | 5c 0a 20 20 20 20 20 20 |n,tName |\. |
|00001540| 26 20 63 6f 6d 6d 61 20 | 26 20 63 6f 6d 6d 61 20 |& comma |& comma |
|00001550| 26 20 63 6f 6d 6d 61 20 | 26 20 74 53 63 72 69 70 |& comma |& tScrip|
|00001560| 74 4c 69 6e 65 73 20 26 | 20 63 6f 6d 6d 61 20 26 |tLines &| comma &|
|00001570| 20 63 6f 6d 6d 61 20 26 | 20 63 6f 6d 6d 61 20 26 | comma &| comma &|
|00001580| 20 63 6f 6d 6d 61 20 26 | 20 63 6f 6d 6d 61 20 26 | comma &| comma &|
|00001590| 20 74 4e 61 6d 65 20 69 | 6e 74 6f 20 74 4c 69 6e | tName i|nto tLin|
|000015a0| 65 0a 20 20 72 65 74 75 | 72 6e 20 74 4c 69 6e 65 |e. retu|rn tLine|
|000015b0| 20 20 0a 65 6e 64 20 72 | 65 76 53 74 61 63 6b 4c | .end r|evStackL|
|000015c0| 69 6e 65 0a 0a 66 75 6e | 63 74 69 6f 6e 20 72 65 |ine..fun|ction re|
|000015d0| 76 41 75 64 69 6f 43 6c | 69 70 4c 69 6e 65 20 70 |vAudioCl|ipLine p|
|000015e0| 53 74 61 63 6b 0a 20 20 | 72 65 70 6c 61 63 65 20 |Stack. |replace |
|000015f0| 63 6f 6d 6d 61 20 77 69 | 74 68 20 6b 43 6f 6d 6d |comma wi|th kComm|
|00001600| 61 20 69 6e 20 70 53 74 | 61 63 6b 0a 20 20 72 65 |a in pSt|ack. re|
|00001610| 74 75 72 6e 20 70 53 74 | 61 63 6b 2c 22 61 75 64 |turn pSt|ack,"aud|
|00001620| 69 6f 63 6c 69 70 22 2c | 22 65 78 70 61 6e 64 65 |ioclip",|"expande|
|00001630| 64 20 66 61 6c 73 65 22 | 2c 73 70 61 63 65 26 73 |d false"|,space&s|
|00001640| 70 61 63 65 26 73 70 61 | 63 65 26 73 70 61 63 65 |pace&spa|ce&space|
|00001650| 26 73 70 61 63 65 26 73 | 70 61 63 65 26 73 70 61 |&space&s|pace&spa|
|00001660| 63 65 26 73 70 61 63 65 | 2c 5c 0a 20 20 20 20 20 |ce&space|,\. |
|00001670| 20 6c 41 75 64 69 6f 43 | 6c 69 70 49 63 6f 6e 2c | lAudioC|lipIcon,|
|00001680| 22 41 75 64 69 6f 43 6c | 69 70 73 22 20 26 63 6f |"AudioCl|ips" &co|
|00001690| 6d 6d 61 26 63 6f 6d 6d | 61 26 63 6f 6d 6d 61 26 |mma&comm|a&comma&|
|000016a0| 63 6f 6d 6d 61 26 63 6f | 6d 6d 61 26 63 6f 6d 6d |comma&co|mma&comm|
|000016b0| 61 26 63 6f 6d 6d 61 26 | 63 6f 6d 6d 61 26 70 53 |a&comma&|comma&pS|
|000016c0| 74 61 63 6b 0a 65 6e 64 | 20 72 65 76 41 75 64 69 |tack.end| revAudi|
|000016d0| 6f 43 6c 69 70 4c 69 6e | 65 0a 0a 66 75 6e 63 74 |oClipLin|e..funct|
|000016e0| 69 6f 6e 20 72 65 76 56 | 69 64 65 6f 43 6c 69 70 |ion revV|ideoClip|
|000016f0| 4c 69 6e 65 20 70 53 74 | 61 63 6b 0a 20 20 72 65 |Line pSt|ack. re|
|00001700| 70 6c 61 63 65 20 63 6f | 6d 6d 61 20 77 69 74 68 |place co|mma with|
|00001710| 20 6b 43 6f 6d 6d 61 20 | 69 6e 20 70 53 74 61 63 | kComma |in pStac|
|00001720| 6b 0a 20 20 72 65 74 75 | 72 6e 20 70 53 74 61 63 |k. retu|rn pStac|
|00001730| 6b 2c 22 76 69 64 65 6f | 63 6c 69 70 22 2c 22 65 |k,"video|clip","e|
|00001740| 78 70 61 6e 64 65 64 20 | 66 61 6c 73 65 22 2c 73 |xpanded |false",s|
|00001750| 70 61 63 65 26 73 70 61 | 63 65 26 73 70 61 63 65 |pace&spa|ce&space|
|00001760| 26 73 70 61 63 65 26 73 | 70 61 63 65 26 73 70 61 |&space&s|pace&spa|
|00001770| 63 65 26 73 70 61 63 65 | 26 73 70 61 63 65 2c 5c |ce&space|&space,\|
|00001780| 0a 20 20 20 20 20 20 6c | 56 69 64 65 6f 43 6c 69 |. l|VideoCli|
|00001790| 70 49 63 6f 6e 2c 22 56 | 69 64 65 6f 43 6c 69 70 |pIcon,"V|ideoClip|
|000017a0| 73 22 20 26 63 6f 6d 6d | 61 26 63 6f 6d 6d 61 26 |s" &comm|a&comma&|
|000017b0| 63 6f 6d 6d 61 26 63 6f | 6d 6d 61 26 63 6f 6d 6d |comma&co|mma&comm|
|000017c0| 61 26 63 6f 6d 6d 61 26 | 63 6f 6d 6d 61 26 63 6f |a&comma&|comma&co|
|000017d0| 6d 6d 61 26 70 53 74 61 | 63 6b 0a 65 6e 64 20 72 |mma&pSta|ck.end r|
|000017e0| 65 76 56 69 64 65 6f 43 | 6c 69 70 4c 69 6e 65 0a |evVideoC|lipLine.|
|000017f0| 0a 6f 6e 20 72 65 76 55 | 70 64 61 74 65 54 72 65 |.on revU|pdateTre|
|00001800| 65 20 70 48 74 6d 6c 2c | 20 70 53 65 6c 4c 69 6e |e pHtml,| pSelLin|
|00001810| 65 49 44 0a 20 20 70 75 | 74 20 74 68 65 20 76 53 |eID. pu|t the vS|
|00001820| 63 72 6f 6c 6c 20 6f 66 | 20 66 6c 64 20 22 43 61 |croll of| fld "Ca|
|00001830| 72 64 73 22 20 6f 66 20 | 67 72 70 20 22 43 61 72 |rds" of |grp "Car|
|00001840| 64 73 22 20 69 6e 74 6f | 20 74 56 53 63 72 6f 6c |ds" into| tVScrol|
|00001850| 6c 0a 20 20 70 75 74 20 | 74 68 65 20 68 53 63 72 |l. put |the hScr|
|00001860| 6f 6c 6c 20 6f 66 20 66 | 6c 64 20 22 43 61 72 64 |oll of f|ld "Card|
|00001870| 73 22 20 6f 66 20 67 72 | 70 20 22 43 61 72 64 73 |s" of gr|p "Cards|
|00001880| 22 20 69 6e 74 6f 20 74 | 48 53 63 72 6f 6c 6c 0a |" into t|HScroll.|
|00001890| 20 20 70 75 74 20 30 2c | 30 2c 30 2c 30 2c 30 2c | put 0,|0,0,0,0,|
|000018a0| 6b 54 61 62 73 20 69 6e | 74 6f 20 74 54 61 62 73 |kTabs in|to tTabs|
|000018b0| 0a 20 20 72 65 76 53 65 | 74 48 74 6d 6c 20 74 68 |. revSe|tHtml th|
|000018c0| 65 20 6c 6f 6e 67 20 69 | 64 20 6f 66 20 66 6c 64 |e long i|d of fld|
|000018d0| 20 22 43 61 72 64 73 22 | 20 6f 66 20 67 72 70 20 | "Cards"| of grp |
|000018e0| 22 43 61 72 64 73 22 2c | 20 70 48 74 6d 6c 2c 20 |"Cards",| pHtml, |
|000018f0| 74 54 61 62 73 2c 20 5c | 0a 20 20 20 20 20 20 74 |tTabs, \|. t|
|00001900| 68 65 20 6c 6f 6e 67 20 | 69 64 20 6f 66 20 67 72 |he long |id of gr|
|00001910| 70 20 22 43 61 72 64 20 | 54 61 62 73 22 2c 20 74 |p "Card |Tabs", t|
|00001920| 68 65 20 63 43 61 72 64 | 54 61 62 73 20 6f 66 20 |he cCard|Tabs of |
|00001930| 73 74 61 63 6b 20 22 72 | 65 76 50 72 65 66 65 72 |stack "r|evPrefer|
|00001940| 65 6e 63 65 73 22 2c 20 | 5c 0a 20 20 20 20 20 20 |ences", |\. |
|00001950| 74 68 65 20 6c 65 66 74 | 20 6f 66 20 62 74 6e 20 |the left| of btn |
|00001960| 22 4e 61 6d 65 22 20 6f | 66 20 67 72 70 20 22 43 |"Name" o|f grp "C|
|00001970| 61 72 64 20 54 61 62 73 | 22 0a 20 20 0a 20 20 72 |ard Tabs|". . r|
|00001980| 65 76 52 65 73 65 6c 65 | 63 74 4c 69 6e 65 20 70 |evResele|ctLine p|
|00001990| 53 65 6c 4c 69 6e 65 49 | 44 0a 20 20 73 65 74 20 |SelLineI|D. set |
|000019a0| 74 68 65 20 76 53 63 72 | 6f 6c 6c 20 6f 66 20 66 |the vScr|oll of f|
|000019b0| 6c 64 20 22 43 61 72 64 | 73 22 20 6f 66 20 67 72 |ld "Card|s" of gr|
|000019c0| 70 20 22 43 61 72 64 73 | 22 20 74 6f 20 74 56 53 |p "Cards|" to tVS|
|000019d0| 63 72 6f 6c 6c 0a 20 20 | 73 65 74 20 74 68 65 20 |croll. |set the |
|000019e0| 68 53 63 72 6f 6c 6c 20 | 6f 66 20 66 6c 64 20 22 |hScroll |of fld "|
|000019f0| 43 61 72 64 73 22 20 6f | 66 20 67 72 70 20 22 43 |Cards" o|f grp "C|
|00001a00| 61 72 64 73 22 20 74 6f | 20 74 48 53 63 72 6f 6c |ards" to| tHScrol|
|00001a10| 6c 0a 65 6e 64 20 72 65 | 76 55 70 64 61 74 65 54 |l.end re|vUpdateT|
|00001a20| 72 65 65 0a 0a 6f 6e 20 | 72 65 76 53 65 74 54 72 |ree..on |revSetTr|
|00001a30| 65 65 48 74 6d 6c 20 70 | 48 74 6d 6c 0a 20 20 70 |eeHtml p|Html. p|
|00001a40| 75 74 20 30 2c 30 2c 30 | 2c 30 2c 30 2c 6b 54 61 |ut 0,0,0|,0,0,kTa|
|00001a50| 62 73 20 69 6e 74 6f 20 | 74 54 61 62 73 0a 20 20 |bs into |tTabs. |
|00001a60| 72 65 76 53 65 74 48 74 | 6d 6c 20 74 68 65 20 6c |revSetHt|ml the l|
|00001a70| 6f 6e 67 20 69 64 20 6f | 66 20 66 6c 64 20 22 43 |ong id o|f fld "C|
|00001a80| 61 72 64 73 22 20 6f 66 | 20 67 72 70 20 22 43 61 |ards" of| grp "Ca|
|00001a90| 72 64 73 22 2c 20 70 48 | 74 6d 6c 2c 20 74 54 61 |rds", pH|tml, tTa|
|00001aa0| 62 73 2c 20 5c 0a 20 20 | 20 20 20 20 74 68 65 20 |bs, \. | the |
|00001ab0| 6c 6f 6e 67 20 69 64 20 | 6f 66 20 67 72 70 20 22 |long id |of grp "|
|00001ac0| 43 61 72 64 20 54 61 62 | 73 22 2c 20 74 68 65 20 |Card Tab|s", the |
|00001ad0| 63 43 61 72 64 54 61 62 | 73 20 6f 66 20 73 74 61 |cCardTab|s of sta|
|00001ae0| 63 6b 20 22 72 65 76 50 | 72 65 66 65 72 65 6e 63 |ck "revP|referenc|
|00001af0| 65 73 22 2c 20 5c 0a 20 | 20 20 20 20 20 74 68 65 |es", \. | the|
|00001b00| 20 6c 65 66 74 20 6f 66 | 20 62 74 6e 20 22 4e 61 | left of| btn "Na|
|00001b10| 6d 65 22 20 6f 66 20 67 | 72 70 20 22 43 61 72 64 |me" of g|rp "Card|
|00001b20| 20 54 61 62 73 22 0a 65 | 6e 64 20 72 65 76 53 65 | Tabs".e|nd revSe|
|00001b30| 74 54 72 65 65 48 74 6d | 6c 0a 0a 6f 6e 20 72 65 |tTreeHtm|l..on re|
|00001b40| 76 53 65 74 48 74 6d 6c | 20 70 46 69 65 6c 64 2c |vSetHtml| pField,|
|00001b50| 20 70 48 74 6d 6c 2c 20 | 70 54 61 62 73 2c 20 70 | pHtml, |pTabs, p|
|00001b60| 54 61 62 47 72 6f 75 70 | 2c 20 70 47 72 6f 75 70 |TabGroup|, pGroup|
|00001b70| 54 61 62 73 2c 20 70 53 | 74 61 72 74 4c 65 66 74 |Tabs, pS|tartLeft|
|00001b80| 0a 20 20 69 66 20 70 48 | 74 6d 6c 20 69 73 20 65 |. if pH|tml is e|
|00001b90| 6d 70 74 79 20 74 68 65 | 6e 0a 20 20 20 20 2d 2d |mpty the|n. --|
|00001ba0| 65 6e 74 65 72 20 61 70 | 70 72 6f 70 72 69 61 74 |enter ap|propriat|
|00001bb0| 65 20 6e 75 6d 20 6f 66 | 20 74 61 62 73 20 73 6f |e num of| tabs so|
|00001bc0| 20 74 68 61 74 20 66 6c | 64 20 73 63 72 6f 6c 6c | that fl|d scroll|
|00001bd0| 61 62 6c 65 0a 20 20 20 | 20 70 75 74 20 74 68 65 |able. | put the|
|00001be0| 20 6e 75 6d 20 6f 66 20 | 69 74 65 6d 73 20 69 6e | num of |items in|
|00001bf0| 20 74 68 65 20 74 61 62 | 53 74 6f 70 73 20 6f 66 | the tab|Stops of|
|00001c00| 20 70 46 69 65 6c 64 20 | 69 6e 74 6f 20 74 4e 75 | pField |into tNu|
|00001c10| 6d 54 61 62 73 0a 20 20 | 20 20 70 75 74 20 22 3c |mTabs. | put "<|
|00001c20| 70 3e 22 20 69 6e 74 6f | 20 70 48 74 6d 6c 0a 20 |p>" into| pHtml. |
|00001c30| 20 20 20 72 65 70 65 61 | 74 20 74 4e 75 6d 54 61 | repea|t tNumTa|
|00001c40| 62 73 0a 20 20 20 20 20 | 20 70 75 74 20 73 70 61 |bs. | put spa|
|00001c50| 63 65 20 26 20 6b 54 61 | 62 20 61 66 74 65 72 20 |ce & kTa|b after |
|00001c60| 70 48 74 6d 6c 0a 20 20 | 20 20 65 6e 64 20 72 65 |pHtml. | end re|
|00001c70| 70 65 61 74 0a 20 20 20 | 20 70 75 74 20 22 3c 2f |peat. | put "</|
|00001c80| 70 3e 22 20 61 66 74 65 | 72 20 70 48 74 6d 6c 0a |p>" afte|r pHtml.|
|00001c90| 20 20 65 6e 64 20 69 66 | 0a 20 20 20 0a 20 20 2d | end if|. . -|
|00001ca0| 2d 62 65 20 73 75 72 65 | 20 27 66 6f 72 6d 61 74 |-be sure| 'format|
|00001cb0| 74 65 64 57 69 64 74 68 | 27 20 6f 66 20 63 6f 6c |tedWidth|' of col|
|00001cc0| 75 6d 6e 20 62 69 67 20 | 65 6e 6f 75 67 68 0a 20 |umn big |enough. |
|00001cd0| 20 70 75 74 20 74 68 65 | 20 6c 61 73 74 20 69 74 | put the| last it|
|00001ce0| 65 6d 20 6f 66 20 70 47 | 72 6f 75 70 54 61 62 73 |em of pG|roupTabs|
|00001cf0| 20 69 6e 74 6f 20 74 4c | 61 73 74 49 74 65 6d 0a | into tL|astItem.|
|00001d00| 20 20 70 75 74 20 69 74 | 65 6d 20 74 4c 61 73 74 | put it|em tLast|
|00001d10| 49 74 65 6d 20 6f 66 20 | 70 54 61 62 73 20 69 6e |Item of |pTabs in|
|00001d20| 74 6f 20 74 4e 61 6d 65 | 0a 20 20 70 75 74 20 74 |to tName|. put t|
|00001d30| 68 65 20 63 4d 69 6e 57 | 69 64 74 68 20 6f 66 20 |he cMinW|idth of |
|00001d40| 62 74 6e 20 74 4e 61 6d | 65 20 6f 66 20 70 54 61 |btn tNam|e of pTa|
|00001d50| 62 47 72 6f 75 70 20 69 | 6e 74 6f 20 74 57 69 64 |bGroup i|nto tWid|
|00001d60| 74 68 0a 20 20 20 20 0a | 20 20 70 75 74 20 6d 61 |th. .| put ma|
|00001d70| 78 28 72 6f 75 6e 64 28 | 74 57 69 64 74 68 2f 32 |x(round(|tWidth/2|
|00001d80| 2e 36 29 2c 31 36 29 20 | 69 6e 74 6f 20 74 43 68 |.6),16) |into tCh|
|00001d90| 61 72 4d 69 6e 0a 20 20 | 70 75 74 20 74 68 65 20 |arMin. |put the |
|00001da0| 6c 61 73 74 20 6c 69 6e | 65 20 6f 66 20 70 48 74 |last lin|e of pHt|
|00001db0| 6d 6c 20 69 6e 74 6f 20 | 74 4c 61 73 74 4c 69 6e |ml into |tLastLin|
|00001dc0| 65 0a 20 20 70 75 74 20 | 30 20 69 6e 74 6f 20 74 |e. put |0 into t|
|00001dd0| 53 6b 69 70 0a 20 20 69 | 66 20 6b 54 61 62 20 69 |Skip. i|f kTab i|
|00001de0| 73 20 69 6e 20 70 48 74 | 6d 6c 20 74 68 65 6e 20 |s in pHt|ml then |
|00001df0| 70 75 74 20 6b 54 61 62 | 20 69 6e 74 6f 20 74 54 |put kTab| into tT|
|00001e00| 61 62 43 68 61 72 0a 20 | 20 65 6c 73 65 20 70 75 |abChar. | else pu|
|00001e10| 74 20 74 61 62 20 69 6e | 74 6f 20 74 54 61 62 43 |t tab in|to tTabC|
|00001e20| 68 61 72 0a 20 20 72 65 | 70 65 61 74 0a 20 20 20 |har. re|peat. |
|00001e30| 20 70 75 74 20 6f 66 66 | 73 65 74 28 74 54 61 62 | put off|set(tTab|
|00001e40| 43 68 61 72 2c 20 74 4c | 61 73 74 4c 69 6e 65 2c |Char, tL|astLine,|
|00001e50| 20 74 53 6b 69 70 29 20 | 69 6e 74 6f 20 74 4f 66 | tSkip) |into tOf|
|00001e60| 66 73 65 74 0a 20 20 20 | 20 69 66 20 74 4f 66 66 |fset. | if tOff|
|00001e70| 73 65 74 20 69 73 20 30 | 20 74 68 65 6e 20 65 78 |set is 0| then ex|
|00001e80| 69 74 20 72 65 70 65 61 | 74 0a 20 20 20 20 65 6c |it repea|t. el|
|00001e90| 73 65 20 61 64 64 20 74 | 4f 66 66 73 65 74 20 74 |se add t|Offset t|
|00001ea0| 6f 20 74 53 6b 69 70 0a | 20 20 65 6e 64 20 72 65 |o tSkip.| end re|
|00001eb0| 70 65 61 74 0a 20 20 20 | 0a 20 20 70 75 74 20 74 |peat. |. put t|
|00001ec0| 68 65 20 6e 75 6d 20 6f | 66 20 63 68 61 72 73 20 |he num o|f chars |
|00001ed0| 69 6e 20 63 68 61 72 20 | 74 53 6b 69 70 20 74 6f |in char |tSkip to|
|00001ee0| 20 2d 31 20 6f 66 20 74 | 4c 61 73 74 4c 69 6e 65 | -1 of t|LastLine|
|00001ef0| 20 69 6e 74 6f 20 74 4e | 75 6d 43 68 61 72 73 0a | into tN|umChars.|
|00001f00| 20 20 69 66 20 74 4e 75 | 6d 43 68 61 72 73 20 3c | if tNu|mChars <|
|00001f10| 3d 20 74 43 68 61 72 4d | 69 6e 20 74 68 65 6e 0a |= tCharM|in then.|
|00001f20| 20 20 20 20 70 75 74 20 | 74 43 68 61 72 4d 69 6e | put |tCharMin|
|00001f30| 20 2d 20 74 4e 75 6d 43 | 68 61 72 73 20 69 6e 74 | - tNumC|hars int|
|00001f40| 6f 20 74 52 65 70 65 61 | 74 0a 20 20 20 20 70 75 |o tRepea|t. pu|
|00001f50| 74 20 65 6d 70 74 79 20 | 69 6e 74 6f 20 74 53 70 |t empty |into tSp|
|00001f60| 61 63 65 73 0a 20 20 20 | 20 72 65 70 65 61 74 20 |aces. | repeat |
|00001f70| 74 52 65 70 65 61 74 0a | 20 20 20 20 20 20 70 75 |tRepeat.| pu|
|00001f80| 74 20 73 70 61 63 65 20 | 61 66 74 65 72 20 74 53 |t space |after tS|
|00001f90| 70 61 63 65 73 0a 20 20 | 20 20 65 6e 64 20 72 65 |paces. | end re|
|00001fa0| 70 65 61 74 0a 20 20 20 | 20 70 75 74 20 74 53 70 |peat. | put tSp|
|00001fb0| 61 63 65 73 20 62 65 66 | 6f 72 65 20 63 68 61 72 |aces bef|ore char|
|00001fc0| 20 2d 34 20 6f 66 20 70 | 48 74 6d 6c 0a 20 20 65 | -4 of p|Html. e|
|00001fd0| 6e 64 20 69 66 0a 20 20 | 73 65 74 20 74 68 65 20 |nd if. |set the |
|00001fe0| 68 74 6d 6c 54 65 78 74 | 20 6f 66 20 70 46 69 65 |htmlText| of pFie|
|00001ff0| 6c 64 20 74 6f 20 70 48 | 74 6d 6c 0a 20 20 72 65 |ld to pH|tml. re|
|00002000| 76 53 65 74 56 53 63 72 | 6f 6c 6c 62 61 72 20 70 |vSetVScr|ollbar p|
|00002010| 46 69 65 6c 64 2c 20 70 | 54 61 62 47 72 6f 75 70 |Field, p|TabGroup|
|00002020| 0a 20 20 20 0a 20 20 70 | 75 74 20 30 20 69 6e 74 |. . p|ut 0 int|
|00002030| 6f 20 74 43 6f 75 6e 74 | 0a 20 20 70 75 74 20 70 |o tCount|. put p|
|00002040| 53 74 61 72 74 4c 65 66 | 74 20 69 6e 74 6f 20 74 |StartLef|t into t|
|00002050| 4c 65 66 74 0a 20 20 70 | 75 74 20 65 6d 70 74 79 |Left. p|ut empty|
|00002060| 20 69 6e 74 6f 20 74 54 | 61 62 73 0a 20 20 72 65 | into tT|abs. re|
|00002070| 70 65 61 74 20 66 6f 72 | 20 65 61 63 68 20 69 74 |peat for| each it|
|00002080| 65 6d 20 69 20 69 6e 20 | 70 47 72 6f 75 70 54 61 |em i in |pGroupTa|
|00002090| 62 73 0a 20 20 20 20 61 | 64 64 20 31 20 74 6f 20 |bs. a|dd 1 to |
|000020a0| 74 43 6f 75 6e 74 0a 20 | 20 20 20 70 75 74 20 69 |tCount. | put i|
|000020b0| 74 65 6d 20 69 20 6f 66 | 20 70 54 61 62 73 20 69 |tem i of| pTabs i|
|000020c0| 6e 74 6f 20 74 54 61 62 | 0a 20 20 20 20 70 75 74 |nto tTab|. put|
|000020d0| 20 74 54 61 62 20 26 20 | 63 72 20 61 66 74 65 72 | tTab & |cr after|
|000020e0| 20 74 54 61 62 73 0a 20 | 20 20 20 70 75 74 20 6d | tTabs. | put m|
|000020f0| 61 78 28 74 68 65 20 77 | 69 64 74 68 20 6f 66 20 |ax(the w|idth of |
|00002100| 62 74 6e 20 74 54 61 62 | 20 6f 66 20 70 54 61 62 |btn tTab| of pTab|
|00002110| 47 72 6f 75 70 2c 20 72 | 65 76 43 6f 6c 57 69 64 |Group, r|evColWid|
|00002120| 74 68 28 74 43 6f 75 6e | 74 2c 70 46 69 65 6c 64 |th(tCoun|t,pField|
|00002130| 29 29 20 69 6e 74 6f 20 | 74 57 69 64 74 68 0a 20 |)) into |tWidth. |
|00002140| 20 20 20 70 75 74 20 74 | 4c 65 66 74 20 2b 20 74 | put t|Left + t|
|00002150| 57 69 64 74 68 20 69 6e | 74 6f 20 74 52 69 67 68 |Width in|to tRigh|
|00002160| 74 0a 20 20 20 20 73 65 | 74 20 74 68 65 20 72 65 |t. se|t the re|
|00002170| 63 74 20 6f 66 20 62 74 | 6e 20 74 54 61 62 20 6f |ct of bt|n tTab o|
|00002180| 66 20 70 54 61 62 47 72 | 6f 75 70 20 74 6f 20 74 |f pTabGr|oup to t|
|00002190| 4c 65 66 74 2c 20 74 68 | 65 20 74 6f 70 20 6f 66 |Left, th|e top of|
|000021a0| 20 62 74 6e 20 74 54 61 | 62 20 6f 66 20 70 54 61 | btn tTa|b of pTa|
|000021b0| 62 47 72 6f 75 70 2c 20 | 5c 0a 20 20 20 20 20 20 |bGroup, |\. |
|000021c0| 20 20 74 52 69 67 68 74 | 2c 20 74 68 65 20 62 6f | tRight|, the bo|
|000021d0| 74 74 6f 6d 20 6f 66 20 | 62 74 6e 20 74 54 61 62 |ttom of |btn tTab|
|000021e0| 20 6f 66 20 70 54 61 62 | 47 72 6f 75 70 0a 20 20 | of pTab|Group. |
|000021f0| 20 20 73 65 74 20 74 68 | 65 20 72 69 67 68 74 20 | set th|e right |
|00002200| 6f 66 20 62 74 6e 20 28 | 74 54 61 62 20 26 26 20 |of btn (|tTab && |
|00002210| 22 52 65 73 69 7a 65 22 | 29 20 6f 66 20 70 54 61 |"Resize"|) of pTa|
|00002220| 62 47 72 6f 75 70 20 74 | 6f 20 74 52 69 67 68 74 |bGroup t|o tRight|
|00002230| 0a 20 20 20 20 70 75 74 | 20 74 52 69 67 68 74 20 |. put| tRight |
|00002240| 69 6e 74 6f 20 74 4c 65 | 66 74 0a 20 20 65 6e 64 |into tLe|ft. end|
|00002250| 20 72 65 70 65 61 74 0a | 20 20 0a 20 20 73 65 74 | repeat.| . set|
|00002260| 20 74 68 65 20 72 65 63 | 74 20 6f 66 20 62 74 6e | the rec|t of btn|
|00002270| 20 74 54 61 62 20 6f 66 | 20 70 54 61 62 47 72 6f | tTab of| pTabGro|
|00002280| 75 70 20 74 6f 20 74 68 | 65 20 74 6f 70 4c 65 66 |up to th|e topLef|
|00002290| 74 20 6f 66 20 62 74 6e | 20 74 54 61 62 20 6f 66 |t of btn| tTab of|
|000022a0| 20 70 54 61 62 47 72 6f | 75 70 2c 20 5c 0a 20 20 | pTabGro|up, \. |
|000022b0| 20 20 20 20 72 65 76 4c | 61 73 74 54 61 62 52 69 | revL|astTabRi|
|000022c0| 67 68 74 28 70 46 69 65 | 6c 64 29 2c 20 74 68 65 |ght(pFie|ld), the|
|000022d0| 20 62 6f 74 74 6f 6d 20 | 6f 66 20 62 74 6e 20 74 | bottom |of btn t|
|000022e0| 54 61 62 20 6f 66 20 70 | 54 61 62 47 72 6f 75 70 |Tab of p|TabGroup|
|000022f0| 0a 20 20 64 65 6c 65 74 | 65 20 6c 61 73 74 20 6c |. delet|e last l|
|00002300| 69 6e 65 20 6f 66 20 74 | 54 61 62 73 0a 20 20 73 |ine of t|Tabs. s|
|00002310| 65 74 20 74 68 65 20 74 | 61 62 53 74 6f 70 73 20 |et the t|abStops |
|00002320| 6f 66 20 70 46 69 65 6c | 64 20 74 6f 20 72 65 76 |of pFiel|d to rev|
|00002330| 54 61 62 53 74 6f 70 73 | 28 74 54 61 62 73 2c 20 |TabStops|(tTabs, |
|00002340| 70 54 61 62 47 72 6f 75 | 70 29 0a 20 20 0a 20 20 |pTabGrou|p). . |
|00002350| 73 65 74 20 74 68 65 20 | 68 53 63 72 6f 6c 6c 42 |set the |hScrollB|
|00002360| 61 72 20 6f 66 20 70 46 | 69 65 6c 64 20 74 6f 20 |ar of pF|ield to |
|00002370| 5c 0a 20 20 20 20 20 20 | 28 74 68 65 20 66 6f 72 |\. |(the for|
|00002380| 6d 61 74 74 65 64 57 69 | 64 74 68 20 6f 66 20 70 |mattedWi|dth of p|
|00002390| 46 69 65 6c 64 20 3e 20 | 74 68 65 20 77 69 64 74 |Field > |the widt|
|000023a0| 68 20 6f 66 20 70 46 69 | 65 6c 64 29 0a 20 20 69 |h of pFi|eld). i|
|000023b0| 66 20 6e 6f 74 20 74 68 | 65 20 68 53 63 72 6f 6c |f not th|e hScrol|
|000023c0| 6c 42 61 72 20 6f 66 20 | 70 46 69 65 6c 64 20 74 |lBar of |pField t|
|000023d0| 68 65 6e 20 73 65 74 20 | 74 68 65 20 68 53 63 72 |hen set |the hScr|
|000023e0| 6f 6c 6c 20 6f 66 20 70 | 54 61 62 47 72 6f 75 70 |oll of p|TabGroup|
|000023f0| 20 74 6f 20 30 0a 65 6e | 64 20 72 65 76 53 65 74 | to 0.en|d revSet|
|00002400| 48 74 6d 6c 0a 0a 6f 6e | 20 72 65 76 53 65 74 56 |Html..on| revSetV|
|00002410| 53 63 72 6f 6c 6c 62 61 | 72 20 70 46 69 65 6c 64 |Scrollba|r pField|
|00002420| 2c 20 70 54 61 62 47 72 | 6f 75 70 0a 20 20 69 66 |, pTabGr|oup. if|
|00002430| 20 74 68 65 20 66 6f 72 | 6d 61 74 74 65 64 48 65 | the for|mattedHe|
|00002440| 69 67 68 74 20 6f 66 20 | 70 46 69 65 6c 64 20 3e |ight of |pField >|
|00002450| 20 74 68 65 20 68 65 69 | 67 68 74 20 6f 66 20 70 | the hei|ght of p|
|00002460| 46 69 65 6c 64 20 74 68 | 65 6e 0a 20 20 20 20 73 |Field th|en. s|
|00002470| 65 74 20 74 68 65 20 76 | 53 63 72 6f 6c 6c 42 61 |et the v|ScrollBa|
|00002480| 72 20 6f 66 20 70 46 69 | 65 6c 64 20 74 6f 20 74 |r of pFi|eld to t|
|00002490| 72 75 65 0a 20 20 20 20 | 73 65 74 20 74 68 65 20 |rue. |set the |
|000024a0| 72 65 63 74 20 6f 66 20 | 70 54 61 62 47 72 6f 75 |rect of |pTabGrou|
|000024b0| 70 20 74 6f 20 74 68 65 | 20 74 6f 70 4c 65 66 74 |p to the| topLeft|
|000024c0| 20 6f 66 20 70 54 61 62 | 47 72 6f 75 70 2c 20 5c | of pTab|Group, \|
|000024d0| 0a 20 20 20 20 20 20 20 | 20 74 68 65 20 72 69 67 |. | the rig|
|000024e0| 68 74 20 6f 66 20 70 46 | 69 65 6c 64 20 2d 20 74 |ht of pF|ield - t|
|000024f0| 68 65 20 73 63 72 6f 6c | 6c 62 61 72 57 69 64 74 |he scrol|lbarWidt|
|00002500| 68 20 6f 66 20 70 46 69 | 65 6c 64 2c 20 5c 0a 20 |h of pFi|eld, \. |
|00002510| 20 20 20 20 20 20 20 74 | 68 65 20 62 6f 74 74 6f | t|he botto|
|00002520| 6d 20 6f 66 20 70 54 61 | 62 47 72 6f 75 70 0a 20 |m of pTa|bGroup. |
|00002530| 20 65 6c 73 65 0a 20 20 | 20 20 73 65 74 20 74 68 | else. | set th|
|00002540| 65 20 76 53 63 72 6f 6c | 6c 42 61 72 20 6f 66 20 |e vScrol|lBar of |
|00002550| 70 46 69 65 6c 64 20 74 | 6f 20 66 61 6c 73 65 0a |pField t|o false.|
|00002560| 20 20 20 20 73 65 74 20 | 74 68 65 20 72 65 63 74 | set |the rect|
|00002570| 20 6f 66 20 70 54 61 62 | 47 72 6f 75 70 20 74 6f | of pTab|Group to|
|00002580| 20 74 68 65 20 74 6f 70 | 4c 65 66 74 20 6f 66 20 | the top|Left of |
|00002590| 70 54 61 62 47 72 6f 75 | 70 2c 20 5c 0a 20 20 20 |pTabGrou|p, \. |
|000025a0| 20 20 20 20 20 74 68 65 | 20 72 69 67 68 74 20 6f | the| right o|
|000025b0| 66 20 70 46 69 65 6c 64 | 2c 20 74 68 65 20 62 6f |f pField|, the bo|
|000025c0| 74 74 6f 6d 20 6f 66 20 | 70 54 61 62 47 72 6f 75 |ttom of |pTabGrou|
|000025d0| 70 0a 20 20 65 6e 64 20 | 69 66 0a 65 6e 64 20 72 |p. end |if.end r|
|000025e0| 65 76 53 65 74 56 53 63 | 72 6f 6c 6c 62 61 72 0a |evSetVSc|rollbar.|
|000025f0| 0a 6f 6e 20 72 65 76 52 | 65 73 69 7a 65 42 72 6f |.on revR|esizeBro|
|00002600| 77 73 65 72 0a 20 20 72 | 65 76 53 65 74 56 53 63 |wser. r|evSetVSc|
|00002610| 72 6f 6c 6c 62 61 72 20 | 74 68 65 20 6c 6f 6e 67 |rollbar |the long|
|00002620| 20 69 64 20 6f 66 20 66 | 6c 64 20 22 43 61 72 64 | id of f|ld "Card|
|00002630| 73 22 20 6f 66 20 67 72 | 70 20 22 43 61 72 64 73 |s" of gr|p "Cards|
|00002640| 22 2c 20 5c 0a 20 20 20 | 20 20 20 74 68 65 20 6c |", \. | the l|
|00002650| 6f 6e 67 20 69 64 20 6f | 66 20 67 72 70 20 22 43 |ong id o|f grp "C|
|00002660| 61 72 64 20 54 61 62 73 | 22 0a 20 20 73 65 74 20 |ard Tabs|". set |
|00002670| 74 68 65 20 63 41 70 70 | 42 72 6f 77 73 65 72 52 |the cApp|BrowserR|
|00002680| 65 63 74 20 6f 66 20 73 | 74 61 63 6b 20 22 72 65 |ect of s|tack "re|
|00002690| 76 50 72 65 66 65 72 65 | 6e 63 65 73 22 20 74 6f |vPrefere|nces" to|
|000026a0| 20 74 68 65 20 72 65 63 | 74 20 6f 66 20 74 68 69 | the rec|t of thi|
|000026b0| 73 20 73 74 61 63 6b 0a | 65 6e 64 20 72 65 76 52 |s stack.|end revR|
|000026c0| 65 73 69 7a 65 42 72 6f | 77 73 65 72 0a 0a 6f 6e |esizeBro|wser..on|
|000026d0| 20 72 65 73 69 7a 65 53 | 74 61 63 6b 0a 20 20 72 | resizeS|tack. r|
|000026e0| 65 76 55 70 64 61 74 65 | 47 65 6f 6d 65 74 72 79 |evUpdate|Geometry|
|000026f0| 0a 20 20 72 65 76 52 65 | 73 69 7a 65 42 72 6f 77 |. revRe|sizeBrow|
|00002700| 73 65 72 0a 65 6e 64 20 | 72 65 73 69 7a 65 53 74 |ser.end |resizeSt|
|00002710| 61 63 6b 0a 0a 6f 6e 20 | 6d 6f 76 65 53 74 61 63 |ack..on |moveStac|
|00002720| 6b 0a 20 20 73 65 74 20 | 74 68 65 20 63 41 70 70 |k. set |the cApp|
|00002730| 42 72 6f 77 73 65 72 52 | 65 63 74 20 6f 66 20 73 |BrowserR|ect of s|
|00002740| 74 61 63 6b 20 22 72 65 | 76 50 72 65 66 65 72 65 |tack "re|vPrefere|
|00002750| 6e 63 65 73 22 20 74 6f | 20 74 68 65 20 72 65 63 |nces" to| the rec|
|00002760| 74 20 6f 66 20 74 68 69 | 73 20 73 74 61 63 6b 0a |t of thi|s stack.|
|00002770| 65 6e 64 20 6d 6f 76 65 | 53 74 61 63 6b 0a 0a 66 |end move|Stack..f|
|00002780| 75 6e 63 74 69 6f 6e 20 | 72 65 76 54 72 65 65 48 |unction |revTreeH|
|00002790| 74 6d 6c 20 70 53 6f 75 | 72 63 65 0a 20 20 70 75 |tml pSou|rce. pu|
|000027a0| 74 20 74 68 65 20 63 43 | 61 72 64 54 61 62 73 20 |t the cC|ardTabs |
|000027b0| 6f 66 20 73 74 61 63 6b | 20 22 72 65 76 50 72 65 |of stack| "revPre|
|000027c0| 66 65 72 65 6e 63 65 73 | 22 20 69 6e 74 6f 20 74 |ferences|" into t|
|000027d0| 43 61 72 64 54 61 62 73 | 0a 20 20 70 75 74 20 74 |CardTabs|. put t|
|000027e0| 68 65 20 63 54 69 63 6b | 49 63 6f 6e 20 6f 66 20 |he cTick|Icon of |
|000027f0| 74 68 69 73 20 73 74 61 | 63 6b 20 69 6e 74 6f 20 |this sta|ck into |
|00002800| 74 54 69 63 6b 49 63 6f | 6e 0a 20 20 70 75 74 20 |tTickIco|n. put |
|00002810| 74 68 65 20 63 55 6e 54 | 69 63 6b 49 63 6f 6e 20 |the cUnT|ickIcon |
|00002820| 6f 66 20 74 68 69 73 20 | 73 74 61 63 6b 20 69 6e |of this |stack in|
|00002830| 74 6f 20 74 55 6e 54 69 | 63 6b 49 63 6f 6e 0a 20 |to tUnTi|ckIcon. |
|00002840| 20 70 75 74 20 65 6d 70 | 74 79 20 69 6e 74 6f 20 | put emp|ty into |
|00002850| 74 48 74 6d 6c 0a 20 20 | 72 65 70 65 61 74 20 66 |tHtml. |repeat f|
|00002860| 6f 72 20 65 61 63 68 20 | 6c 69 6e 65 20 6c 20 69 |or each |line l i|
|00002870| 6e 20 70 53 6f 75 72 63 | 65 0a 20 20 20 20 70 75 |n pSourc|e. pu|
|00002880| 74 20 6b 54 61 67 20 26 | 20 22 70 3e 22 20 61 66 |t kTag &| "p>" af|
|00002890| 74 65 72 20 74 48 74 6d | 6c 0a 20 20 20 20 70 75 |ter tHtm|l. pu|
|000028a0| 74 20 69 74 65 6d 20 34 | 20 6f 66 20 6c 20 61 66 |t item 4| of l af|
|000028b0| 74 65 72 20 74 48 74 6d | 6c 23 73 70 61 63 69 6e |ter tHtm|l#spacin|
|000028c0| 67 0a 20 20 20 20 69 66 | 20 77 6f 72 64 20 33 20 |g. if| word 3 |
|000028d0| 6f 66 20 69 74 65 6d 20 | 33 20 6f 66 20 6c 20 69 |of item |3 of l i|
|000028e0| 73 20 6e 6f 74 20 65 6d | 70 74 79 0a 20 20 20 20 |s not em|pty. |
|000028f0| 74 68 65 6e 20 70 75 74 | 20 6b 54 61 67 20 26 20 |then put| kTag & |
|00002900| 22 69 6d 67 20 73 72 63 | 3d 22 26 71 75 6f 74 65 |"img src|=""e|
|00002910| 26 77 6f 72 64 20 33 20 | 6f 66 20 69 74 65 6d 20 |&word 3 |of item |
|00002920| 33 20 6f 66 20 6c 26 71 | 75 6f 74 65 26 22 3e 22 |3 of l&q|uote&">"|
|00002930| 20 61 66 74 65 72 20 74 | 48 74 6d 6c 23 74 72 69 | after t|Html#tri|
|00002940| 61 6e 67 6c 65 20 69 63 | 6f 6e 0a 20 20 20 20 70 |angle ic|on. p|
|00002950| 75 74 20 73 70 61 63 65 | 20 26 20 73 70 61 63 65 |ut space| & space|
|00002960| 20 26 20 6b 54 61 67 20 | 26 20 22 69 6d 67 20 73 | & kTag |& "img s|
|00002970| 72 63 3d 22 26 71 75 6f | 74 65 26 69 74 65 6d 20 |rc="&quo|te&item |
|00002980| 35 20 6f 66 20 6c 26 71 | 75 6f 74 65 26 22 3e 22 |5 of l&q|uote&">"|
|00002990| 20 61 66 74 65 72 20 74 | 48 74 6d 6c 23 6f 62 6a | after t|Html#obj|
|000029a0| 65 63 74 20 74 79 70 65 | 20 69 63 6f 6e 0a 20 20 |ect type| icon. |
|000029b0| 20 20 72 65 70 65 61 74 | 20 66 6f 72 20 65 61 63 | repeat| for eac|
|000029c0| 68 20 69 74 65 6d 20 69 | 20 69 6e 20 74 43 61 72 |h item i| in tCar|
|000029d0| 64 54 61 62 73 0a 20 20 | 20 20 20 20 70 75 74 20 |dTabs. | put |
|000029e0| 69 74 65 6d 20 69 20 6f | 66 20 6c 20 69 6e 74 6f |item i o|f l into|
|000029f0| 20 74 49 74 65 6d 0a 20 | 20 20 20 20 20 73 77 69 | tItem. | swi|
|00002a00| 74 63 68 20 69 0a 20 20 | 20 20 20 20 63 61 73 65 |tch i. | case|
|00002a10| 20 36 0a 20 20 20 20 20 | 20 20 20 70 75 74 20 6b | 6. | put k|
|00002a20| 54 61 67 20 26 20 22 61 | 3e 22 26 74 49 74 65 6d |Tag & "a|>"&tItem|
|00002a30| 26 6b 54 61 67 26 22 2f | 61 3e 22 20 26 20 6b 54 |&kTag&"/|a>" & kT|
|00002a40| 61 62 20 61 66 74 65 72 | 20 74 48 74 6d 6c 23 67 |ab after| tHtml#g|
|00002a50| 72 6f 75 70 20 6e 61 6d | 65 0a 20 20 20 20 20 20 |roup nam|e. |
|00002a60| 20 20 62 72 65 61 6b 0a | 20 20 20 20 20 20 63 61 | break.| ca|
|00002a70| 73 65 20 31 30 0a 20 20 | 20 20 20 20 20 20 73 77 |se 10. | sw|
|00002a80| 69 74 63 68 20 74 49 74 | 65 6d 0a 20 20 20 20 20 |itch tIt|em. |
|00002a90| 20 20 20 63 61 73 65 20 | 74 72 75 65 0a 20 20 20 | case |true. |
|00002aa0| 20 20 20 20 20 20 20 70 | 75 74 20 6b 54 61 67 20 | p|ut kTag |
|00002ab0| 26 20 22 69 6d 67 20 73 | 72 63 3d 22 26 71 75 6f |& "img s|rc="&quo|
|00002ac0| 74 65 26 74 54 69 63 6b | 49 63 6f 6e 26 71 75 6f |te&tTick|Icon&quo|
|00002ad0| 74 65 26 22 3e 22 20 26 | 20 6b 54 61 62 20 61 66 |te&">" &| kTab af|
|00002ae0| 74 65 72 20 74 48 74 6d | 6c 0a 20 20 20 20 20 20 |ter tHtm|l. |
|00002af0| 20 20 20 20 62 72 65 61 | 6b 0a 20 20 20 20 20 20 | brea|k. |
|00002b00| 20 20 63 61 73 65 20 66 | 61 6c 73 65 0a 20 20 20 | case f|alse. |
|00002b10| 20 20 20 20 20 20 20 70 | 75 74 20 6b 54 61 67 20 | p|ut kTag |
|00002b20| 26 20 22 69 6d 67 20 73 | 72 63 3d 22 26 71 75 6f |& "img s|rc="&quo|
|00002b30| 74 65 26 74 55 6e 54 69 | 63 6b 49 63 6f 6e 26 71 |te&tUnTi|ckIcon&q|
|00002b40| 75 6f 74 65 26 22 3e 22 | 20 26 20 6b 54 61 62 20 |uote&">"| & kTab |
|00002b50| 61 66 74 65 72 20 74 48 | 74 6d 6c 0a 20 20 20 20 |after tH|tml. |
|00002b60| 20 20 20 20 20 20 62 72 | 65 61 6b 0a 20 20 20 20 | br|eak. |
|00002b70| 20 20 20 20 64 65 66 61 | 75 6c 74 0a 20 20 20 20 | defa|ult. |
|00002b80| 20 20 20 20 20 20 70 75 | 74 20 6b 54 61 62 20 61 | pu|t kTab a|
|00002b90| 66 74 65 72 20 74 48 74 | 6d 6c 0a 20 20 20 20 20 |fter tHt|ml. |
|00002ba0| 20 20 20 65 6e 64 20 73 | 77 69 74 63 68 0a 20 20 | end s|witch. |
|00002bb0| 20 20 20 20 20 20 62 72 | 65 61 6b 0a 20 20 20 20 | br|eak. |
|00002bc0| 20 20 64 65 66 61 75 6c | 74 0a 20 20 20 20 20 20 | defaul|t. |
|00002bd0| 20 20 70 75 74 20 74 49 | 74 65 6d 20 26 20 6b 54 | put tI|tem & kT|
|00002be0| 61 62 20 61 66 74 65 72 | 20 74 48 74 6d 6c 0a 20 |ab after| tHtml. |
|00002bf0| 20 20 20 20 20 20 20 62 | 72 65 61 6b 0a 20 20 20 | b|reak. |
|00002c00| 20 20 20 65 6e 64 20 73 | 77 69 74 63 68 0a 20 20 | end s|witch. |
|00002c10| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0a 20 20 20 | end re|peat. |
|00002c20| 20 64 65 6c 65 74 65 20 | 63 68 61 72 20 2d 34 20 | delete |char -4 |
|00002c30| 74 6f 20 2d 31 20 6f 66 | 20 74 48 74 6d 6c 0a 20 |to -1 of| tHtml. |
|00002c40| 20 20 20 70 75 74 20 6b | 54 61 67 20 26 20 22 2f | put k|Tag & "/|
|00002c50| 70 3e 22 20 26 20 63 72 | 20 61 66 74 65 72 20 74 |p>" & cr| after t|
|00002c60| 48 74 6d 6c 0a 20 20 65 | 6e 64 20 72 65 70 65 61 |Html. e|nd repea|
|00002c70| 74 0a 20 20 64 65 6c 65 | 74 65 20 6c 61 73 74 20 |t. dele|te last |
|00002c80| 63 68 61 72 20 6f 66 20 | 74 48 74 6d 6c 0a 20 20 |char of |tHtml. |
|00002c90| 72 65 70 6c 61 63 65 20 | 22 3c 22 20 77 69 74 68 |replace |"<" with|
|00002ca0| 20 6b 4c 65 73 73 54 68 | 61 6e 20 69 6e 20 74 48 | kLessTh|an in tH|
|00002cb0| 74 6d 6c 2d 2d 75 73 65 | 72 20 66 72 69 65 6e 64 |tml--use|r friend|
|00002cc0| 6c 79 20 6d 65 73 73 61 | 67 65 2c 20 22 3c 22 20 |ly messa|ge, "<" |
|00002cd0| 62 72 65 61 6b 73 20 68 | 74 6d 6c 0a 20 20 72 65 |breaks h|tml. re|
|00002ce0| 70 6c 61 63 65 20 6b 54 | 61 67 20 77 69 74 68 20 |place kT|ag with |
|00002cf0| 22 3c 22 20 69 6e 20 74 | 48 74 6d 6c 0a 20 20 72 |"<" in t|Html. r|
|00002d00| 65 70 6c 61 63 65 20 74 | 61 62 20 77 69 74 68 20 |eplace t|ab with |
|00002d10| 73 70 61 63 65 26 73 70 | 61 63 65 20 69 6e 20 74 |space&sp|ace in t|
|00002d20| 48 74 6d 6c 0a 20 20 72 | 65 70 6c 61 63 65 20 6b |Html. r|eplace k|
|00002d30| 43 6f 6d 6d 61 20 77 69 | 74 68 20 63 6f 6d 6d 61 |Comma wi|th comma|
|00002d40| 20 69 6e 20 74 48 74 6d | 6c 0a 20 20 72 65 74 75 | in tHtm|l. retu|
|00002d50| 72 6e 20 74 48 74 6d 6c | 0a 65 6e 64 20 72 65 76 |rn tHtml|.end rev|
|00002d60| 54 72 65 65 48 74 6d 6c | 0a 0a 66 75 6e 63 74 69 |TreeHtml|..functi|
|00002d70| 6f 6e 20 72 65 76 43 61 | 72 64 4c 69 73 74 20 70 |on revCa|rdList p|
|00002d80| 43 61 72 64 49 44 73 2c | 20 70 53 74 61 63 6b 0a |CardIDs,| pStack.|
|00002d90| 20 20 70 75 74 20 74 68 | 65 20 63 43 61 72 64 49 | put th|e cCardI|
|00002da0| 63 6f 6e 20 6f 66 20 74 | 68 69 73 20 73 74 61 63 |con of t|his stac|
|00002db0| 6b 20 69 6e 74 6f 20 74 | 43 61 72 64 49 63 6f 6e |k into t|CardIcon|
|00002dc0| 0a 20 20 73 65 74 20 74 | 68 65 20 64 65 66 61 75 |. set t|he defau|
|00002dd0| 6c 74 53 74 61 63 6b 20 | 74 6f 20 70 53 74 61 63 |ltStack |to pStac|
|00002de0| 6b 0a 20 20 72 65 70 6c | 61 63 65 20 63 6f 6d 6d |k. repl|ace comm|
|00002df0| 61 20 77 69 74 68 20 6b | 43 6f 6d 6d 61 20 69 6e |a with k|Comma in|
|00002e00| 20 70 53 74 61 63 6b 0a | 20 20 70 75 74 20 65 6d | pStack.| put em|
|00002e10| 70 74 79 20 69 6e 74 6f | 20 74 43 61 72 64 73 0a |pty into| tCards.|
|00002e20| 20 20 72 65 70 65 61 74 | 20 66 6f 72 20 65 61 63 | repeat| for eac|
|00002e30| 68 20 6c 69 6e 65 20 6c | 20 69 6e 20 70 43 61 72 |h line l| in pCar|
|00002e40| 64 49 44 73 0a 20 20 20 | 20 70 75 74 20 74 68 65 |dIDs. | put the|
|00002e50| 20 73 68 6f 72 74 20 6e | 61 6d 65 20 6f 66 20 63 | short n|ame of c|
|00002e60| 64 20 69 64 20 6c 20 69 | 6e 74 6f 20 74 4e 61 6d |d id l i|nto tNam|
|00002e70| 65 0a 20 20 20 20 72 65 | 70 6c 61 63 65 20 63 6f |e. re|place co|
|00002e80| 6d 6d 61 20 77 69 74 68 | 20 6b 43 6f 6d 6d 61 20 |mma with| kComma |
|00002e90| 69 6e 20 74 4e 61 6d 65 | 0a 20 20 20 20 74 72 79 |in tName|. try|
|00002ea0| 0a 20 20 20 20 20 20 70 | 75 74 20 74 68 65 20 6e |. p|ut the n|
|00002eb0| 75 6d 20 6f 66 20 6c 69 | 6e 65 73 20 69 6e 20 74 |um of li|nes in t|
|00002ec0| 68 65 20 73 63 72 69 70 | 74 20 6f 66 20 63 64 20 |he scrip|t of cd |
|00002ed0| 69 64 20 6c 20 69 6e 74 | 6f 20 74 53 63 72 69 70 |id l int|o tScrip|
|00002ee0| 74 4c 69 6e 65 73 0a 20 | 20 20 20 63 61 74 63 68 |tLines. | catch|
|00002ef0| 20 74 45 72 72 6f 72 0a | 20 20 20 20 20 20 70 75 | tError.| pu|
|00002f00| 74 20 22 75 6e 6b 6e 6f | 77 6e 22 20 69 6e 74 6f |t "unkno|wn" into|
|00002f10| 20 74 53 63 72 69 70 74 | 4c 69 6e 65 73 0a 20 20 | tScript|Lines. |
|00002f20| 20 20 65 6e 64 20 74 72 | 79 0a 20 20 20 20 0a 20 | end tr|y. . |
|00002f30| 20 20 20 70 75 74 20 70 | 53 74 61 63 6b 2c 22 63 | put p|Stack,"c|
|00002f40| 61 72 64 22 2c 22 65 78 | 70 61 6e 64 65 64 20 66 |ard","ex|panded f|
|00002f50| 61 6c 73 65 22 20 26 20 | 63 6f 6d 6d 61 20 5c 0a |alse" & |comma \.|
|00002f60| 20 20 20 20 20 20 20 20 | 26 20 73 70 61 63 65 20 | |& space |
|00002f70| 26 20 73 70 61 63 65 20 | 26 20 73 70 61 63 65 20 |& space |& space |
|00002f80| 26 20 73 70 61 63 65 20 | 26 20 73 70 61 63 65 20 |& space |& space |
|00002f90| 26 20 73 70 61 63 65 20 | 26 20 73 70 61 63 65 20 |& space |& space |
|00002fa0| 26 20 73 70 61 63 65 20 | 26 20 73 70 61 63 65 20 |& space |& space |
|00002fb0| 26 20 73 70 61 63 65 20 | 26 20 63 6f 6d 6d 61 20 |& space |& comma |
|00002fc0| 5c 0a 20 20 20 20 20 20 | 20 20 26 20 74 43 61 72 |\. | & tCar|
|00002fd0| 64 49 63 6f 6e 2c 74 4e | 61 6d 65 2c 74 68 65 20 |dIcon,tN|ame,the |
|00002fe0| 6e 75 6d 20 6f 66 20 63 | 64 20 69 64 20 6c 2c 5c |num of c|d id l,\|
|00002ff0| 0a 20 20 20 20 20 20 20 | 20 6c 2c 74 53 63 72 69 |. | l,tScri|
|00003000| 70 74 4c 69 6e 65 73 2c | 74 68 65 20 6d 61 72 6b |ptLines,|the mark|
|00003010| 20 6f 66 20 63 64 20 69 | 64 20 6c 2c 5c 0a 20 20 | of cd i|d l,\. |
|00003020| 20 20 20 20 20 20 22 23 | 23 23 23 23 52 45 56 49 | "#|####REVI|
|00003030| 44 3d 22 2c 20 6c 2c 20 | 22 3d 23 23 23 23 23 52 |D=", l, |"=#####R|
|00003040| 45 56 49 44 22 2c 70 53 | 74 61 63 6b 20 26 20 63 |EVID",pS|tack & c|
|00003050| 72 20 61 66 74 65 72 20 | 74 43 61 72 64 73 0a 20 |r after |tCards. |
|00003060| 20 65 6e 64 20 72 65 70 | 65 61 74 0a 20 20 64 65 | end rep|eat. de|
|00003070| 6c 65 74 65 20 6c 61 73 | 74 20 63 68 61 72 20 6f |lete las|t char o|
|00003080| 66 20 74 43 61 72 64 73 | 0a 20 20 73 65 74 20 74 |f tCards|. set t|
|00003090| 68 65 20 64 65 66 61 75 | 6c 74 53 74 61 63 6b 20 |he defau|ltStack |
|000030a0| 74 6f 20 22 72 65 76 41 | 70 70 6c 69 63 61 74 69 |to "revA|pplicati|
|000030b0| 6f 6e 4f 76 65 72 76 69 | 65 77 22 0a 20 20 70 75 |onOvervi|ew". pu|
|000030c0| 74 20 74 68 65 20 63 48 | 69 6c 69 74 65 64 42 75 |t the cH|ilitedBu|
|000030d0| 74 74 6f 6e 5b 22 63 61 | 72 64 73 22 5d 20 6f 66 |tton["ca|rds"] of|
|000030e0| 20 73 74 61 63 6b 20 22 | 72 65 76 50 72 65 66 65 | stack "|revPrefe|
|000030f0| 72 65 6e 63 65 73 22 20 | 69 6e 74 6f 20 74 54 61 |rences" |into tTa|
|00003100| 62 4e 75 6d 0a 20 20 69 | 66 20 74 54 61 62 4e 75 |bNum. i|f tTabNu|
|00003110| 6d 20 69 73 20 61 6d 6f | 6e 67 20 74 68 65 20 69 |m is amo|ng the i|
|00003120| 74 65 6d 73 20 6f 66 20 | 22 37 2c 38 2c 39 22 0a |tems of |"7,8,9".|
|00003130| 20 20 74 68 65 6e 20 73 | 6f 72 74 20 6c 69 6e 65 | then s|ort line|
|00003140| 73 20 6f 66 20 74 43 61 | 72 64 73 20 6e 75 6d 65 |s of tCa|rds nume|
|00003150| 72 69 63 20 62 79 20 69 | 74 65 6d 20 74 54 61 62 |ric by i|tem tTab|
|00003160| 4e 75 6d 20 6f 66 20 65 | 61 63 68 0a 20 20 65 6c |Num of e|ach. el|
|00003170| 73 65 20 73 6f 72 74 20 | 6c 69 6e 65 73 20 6f 66 |se sort |lines of|
|00003180| 20 74 43 61 72 64 73 20 | 74 65 78 74 20 62 79 20 | tCards |text by |
|00003190| 69 74 65 6d 20 74 54 61 | 62 4e 75 6d 20 6f 66 20 |item tTa|bNum of |
|000031a0| 65 61 63 68 0a 20 20 72 | 65 74 75 72 6e 20 74 43 |each. r|eturn tC|
|000031b0| 61 72 64 73 0a 65 6e 64 | 20 72 65 76 43 61 72 64 |ards.end| revCard|
|000031c0| 4c 69 73 74 0a 0a 6f 6e | 20 72 65 76 52 65 66 72 |List..on| revRefr|
|000031d0| 65 73 68 43 6f 6e 74 72 | 6f 6c 73 20 70 53 61 76 |eshContr|ols pSav|
|000031e0| 65 53 63 72 6f 6c 6c 0a | 20 20 67 6c 6f 62 61 6c |eScroll.| global|
|000031f0| 20 67 52 45 56 53 74 61 | 63 6b 4e 61 6d 65 2c 20 | gREVSta|ckName, |
|00003200| 67 52 45 56 43 6f 6e 74 | 72 6f 6c 73 0a 20 20 6c |gREVCont|rols. l|
|00003210| 6f 63 6b 20 73 63 72 65 | 65 6e 0a 20 20 69 66 20 |ock scre|en. if |
|00003220| 74 68 65 20 73 68 6f 72 | 74 20 6e 61 6d 65 20 6f |the shor|t name o|
|00003230| 66 20 74 68 69 73 20 63 | 64 20 69 73 20 6e 6f 74 |f this c|d is not|
|00003240| 20 22 43 61 72 64 73 20 | 61 6e 64 20 43 6f 6e 74 | "Cards |and Cont|
|00003250| 72 6f 6c 73 22 20 74 68 | 65 6e 20 65 78 69 74 20 |rols" th|en exit |
|00003260| 72 65 76 52 65 66 72 65 | 73 68 43 6f 6e 74 72 6f |revRefre|shContro|
|00003270| 6c 73 0a 20 20 69 66 20 | 67 52 45 56 53 74 61 63 |ls. if |gREVStac|
|00003280| 6b 4e 61 6d 65 20 69 73 | 20 65 6d 70 74 79 20 74 |kName is| empty t|
|00003290| 68 65 6e 0a 20 20 20 20 | 70 75 74 20 65 6d 70 74 |hen. |put empt|
|000032a0| 79 20 69 6e 74 6f 20 67 | 52 45 56 43 6f 6e 74 72 |y into g|REVContr|
|000032b0| 6f 6c 73 0a 20 20 20 20 | 70 75 74 20 65 6d 70 74 |ols. |put empt|
|000032c0| 79 20 69 6e 74 6f 20 66 | 6c 64 20 22 43 6f 6e 74 |y into f|ld "Cont|
|000032d0| 72 6f 6c 73 22 0a 20 20 | 20 20 70 75 74 20 65 6d |rols". | put em|
|000032e0| 70 74 79 20 69 6e 74 6f | 20 66 6c 64 20 22 43 6f |pty into| fld "Co|
|000032f0| 6e 74 72 6f 6c 20 49 6e | 66 6f 22 20 20 20 20 0a |ntrol In|fo" .|
|00003300| 20 20 65 6c 73 65 0a 20 | 20 20 20 69 66 20 74 68 | else. | if th|
|00003310| 65 20 6e 75 6d 20 6f 66 | 20 63 6f 6e 74 72 6f 6c |e num of| control|
|00003320| 73 20 69 6e 20 63 64 20 | 69 64 20 28 74 68 65 20 |s in cd |id (the |
|00003330| 63 43 61 72 64 49 44 20 | 6f 66 20 74 68 69 73 20 |cCardID |of this |
|00003340| 73 74 61 63 6b 29 20 6f | 66 20 73 74 61 63 6b 20 |stack) o|f stack |
|00003350| 67 52 45 56 53 74 61 63 | 6b 4e 61 6d 65 20 3e 20 |gREVStac|kName > |
|00003360| 34 39 0a 20 20 20 20 74 | 68 65 6e 20 73 65 74 20 |49. t|hen set |
|00003370| 74 68 65 20 63 75 72 73 | 6f 72 20 74 6f 20 77 61 |the curs|or to wa|
|00003380| 74 63 68 0a 20 20 20 20 | 70 75 74 20 72 65 76 43 |tch. |put revC|
|00003390| 6f 6e 74 72 6f 6c 4c 69 | 73 74 28 74 68 65 20 6c |ontrolLi|st(the l|
|000033a0| 6f 6e 67 20 69 64 20 6f | 66 20 63 64 20 69 64 20 |ong id o|f cd id |
|000033b0| 28 74 68 65 20 63 43 61 | 72 64 49 44 20 6f 66 20 |(the cCa|rdID of |
|000033c0| 74 68 69 73 20 73 74 61 | 63 6b 29 5c 0a 20 20 20 |this sta|ck)\. |
|000033d0| 20 20 20 20 20 6f 66 20 | 73 74 61 63 6b 20 67 52 | of |stack gR|
|000033e0| 45 56 53 74 61 63 6b 4e | 61 6d 65 29 20 69 6e 74 |EVStackN|ame) int|
|000033f0| 6f 20 67 52 45 56 43 6f | 6e 74 72 6f 6c 73 0a 20 |o gREVCo|ntrols. |
|00003400| 20 20 20 72 65 76 55 70 | 64 61 74 65 43 6f 6e 74 | revUp|dateCont|
|00003410| 72 6f 6c 73 46 69 65 6c | 64 20 70 53 61 76 65 53 |rolsFiel|d pSaveS|
|00003420| 63 72 6f 6c 6c 0a 20 20 | 65 6e 64 20 69 66 0a 20 |croll. |end if. |
|00003430| 20 75 6e 6c 6f 63 6b 20 | 73 63 72 65 65 6e 0a 65 | unlock |screen.e|
|00003440| 6e 64 20 72 65 76 52 65 | 66 72 65 73 68 43 6f 6e |nd revRe|freshCon|
|00003450| 74 72 6f 6c 73 0a 0a 6f | 6e 20 72 65 76 55 70 64 |trols..o|n revUpd|
|00003460| 61 74 65 43 6f 6e 74 72 | 6f 6c 73 46 69 65 6c 64 |ateContr|olsField|
|00003470| 20 70 53 61 76 65 53 63 | 72 6f 6c 6c 0a 20 20 67 | pSaveSc|roll. g|
|00003480| 6c 6f 62 61 6c 20 67 52 | 45 56 43 6f 6e 74 72 6f |lobal gR|EVContro|
|00003490| 6c 73 0a 20 20 70 75 74 | 20 74 68 65 20 68 53 63 |ls. put| the hSc|
|000034a0| 72 6f 6c 6c 20 6f 66 20 | 66 6c 64 20 22 43 6f 6e |roll of |fld "Con|
|000034b0| 74 72 6f 6c 73 22 20 69 | 6e 74 6f 20 74 48 53 63 |trols" i|nto tHSc|
|000034c0| 72 6f 6c 6c 0a 20 20 70 | 75 74 20 74 68 65 20 76 |roll. p|ut the v|
|000034d0| 53 63 72 6f 6c 6c 20 6f | 66 20 66 6c 64 20 22 43 |Scroll o|f fld "C|
|000034e0| 6f 6e 74 72 6f 6c 73 22 | 20 69 6e 74 6f 20 74 56 |ontrols"| into tV|
|000034f0| 53 63 72 6f 6c 6c 0a 20 | 20 70 75 74 20 72 65 76 |Scroll. | put rev|
|00003500| 43 6f 6e 74 72 6f 6c 73 | 48 74 6d 6c 28 67 52 45 |Controls|Html(gRE|
|00003510| 56 43 6f 6e 74 72 6f 6c | 73 29 20 69 6e 74 6f 20 |VControl|s) into |
|00003520| 74 48 74 6d 6c 0a 20 20 | 72 65 76 53 65 74 48 74 |tHtml. |revSetHt|
|00003530| 6d 6c 20 74 68 65 20 6c | 6f 6e 67 20 69 64 20 6f |ml the l|ong id o|
|00003540| 66 20 66 6c 64 20 22 43 | 6f 6e 74 72 6f 6c 73 22 |f fld "C|ontrols"|
|00003550| 20 6f 66 20 63 64 20 22 | 43 61 72 64 73 20 61 6e | of cd "|Cards an|
|00003560| 64 20 43 6f 6e 74 72 6f | 6c 73 22 2c 20 74 48 74 |d Contro|ls", tHt|
|00003570| 6d 6c 2c 20 5c 0a 20 20 | 20 20 20 20 6b 43 6f 6e |ml, \. | kCon|
|00003580| 74 72 6f 6c 54 61 62 73 | 2c 20 74 68 65 20 6c 6f |trolTabs|, the lo|
|00003590| 6e 67 20 69 64 20 6f 66 | 20 67 72 70 20 22 43 6f |ng id of| grp "Co|
|000035a0| 6e 74 72 6f 6c 20 54 61 | 62 73 22 2c 20 74 68 65 |ntrol Ta|bs", the|
|000035b0| 20 63 43 6f 6e 74 72 6f | 6c 54 61 62 73 20 6f 66 | cContro|lTabs of|
|000035c0| 20 73 74 61 63 6b 20 22 | 72 65 76 50 72 65 66 65 | stack "|revPrefe|
|000035d0| 72 65 6e 63 65 73 22 2c | 20 5c 0a 20 20 20 20 20 |rences",| \. |
|000035e0| 20 74 68 65 20 6c 65 66 | 74 20 6f 66 20 62 74 6e | the lef|t of btn|
|000035f0| 20 22 54 79 70 65 22 20 | 6f 66 20 67 72 70 20 22 | "Type" |of grp "|
|00003600| 43 6f 6e 74 72 6f 6c 20 | 54 61 62 73 22 0a 20 20 |Control |Tabs". |
|00003610| 72 65 76 55 70 64 61 74 | 65 50 61 6c 65 74 74 65 |revUpdat|ePalette|
|00003620| 0a 20 20 73 65 74 20 74 | 68 65 20 68 53 63 72 6f |. set t|he hScro|
|00003630| 6c 6c 20 6f 66 20 66 6c | 64 20 22 43 6f 6e 74 72 |ll of fl|d "Contr|
|00003640| 6f 6c 73 22 20 74 6f 20 | 74 48 53 63 72 6f 6c 6c |ols" to |tHScroll|
|00003650| 0a 20 20 69 66 20 70 53 | 61 76 65 53 63 72 6f 6c |. if pS|aveScrol|
|00003660| 6c 20 74 68 65 6e 20 73 | 65 74 20 74 68 65 20 76 |l then s|et the v|
|00003670| 53 63 72 6f 6c 6c 20 6f | 66 20 66 6c 64 20 22 43 |Scroll o|f fld "C|
|00003680| 6f 6e 74 72 6f 6c 73 22 | 20 74 6f 20 74 56 53 63 |ontrols"| to tVSc|
|00003690| 72 6f 6c 6c 0a 65 6e 64 | 20 72 65 76 55 70 64 61 |roll.end| revUpda|
|000036a0| 74 65 43 6f 6e 74 72 6f | 6c 73 46 69 65 6c 64 0a |teContro|lsField.|
|000036b0| 20 20 0a 66 75 6e 63 74 | 69 6f 6e 20 72 65 76 43 | .funct|ion revC|
|000036c0| 61 72 64 4f 66 66 73 65 | 74 20 70 4c 6f 6e 67 49 |ardOffse|t pLongI|
|000036d0| 44 0a 20 20 67 6c 6f 62 | 61 6c 20 67 52 45 56 4f |D. glob|al gREVO|
|000036e0| 62 6a 65 63 74 54 72 65 | 65 0a 20 20 69 66 20 77 |bjectTre|e. if w|
|000036f0| 6f 72 64 20 31 20 6f 66 | 20 70 4c 6f 6e 67 49 44 |ord 1 of| pLongID|
|00003700| 20 69 73 20 6e 6f 74 20 | 22 63 61 72 64 22 20 74 | is not |"card" t|
|00003710| 68 65 6e 20 72 65 74 75 | 72 6e 20 30 0a 20 20 70 |hen retu|rn 0. p|
|00003720| 75 74 20 74 68 65 20 73 | 68 6f 72 74 20 6e 61 6d |ut the s|hort nam|
|00003730| 65 20 6f 66 20 74 68 65 | 20 6f 77 6e 65 72 20 6f |e of the| owner o|
|00003740| 66 20 70 4c 6f 6e 67 49 | 44 20 69 6e 74 6f 20 74 |f pLongI|D into t|
|00003750| 53 74 61 63 6b 0a 20 20 | 72 65 70 6c 61 63 65 20 |Stack. |replace |
|00003760| 63 6f 6d 6d 61 20 77 69 | 74 68 20 6b 43 6f 6d 6d |comma wi|th kComm|
|00003770| 61 20 69 6e 20 74 53 74 | 61 63 6b 0a 20 20 70 75 |a in tSt|ack. pu|
|00003780| 74 20 22 23 23 23 23 23 | 52 45 56 49 44 3d 22 2c |t "#####|REVID=",|
|00003790| 77 6f 72 64 20 33 20 6f | 66 20 70 4c 6f 6e 67 49 |word 3 o|f pLongI|
|000037a0| 44 2c 22 3d 23 23 23 23 | 23 52 45 56 49 44 22 2c |D,"=####|#REVID",|
|000037b0| 74 53 74 61 63 6b 20 69 | 6e 74 6f 20 74 43 61 72 |tStack i|nto tCar|
|000037c0| 64 4c 69 6e 65 0a 20 20 | 72 65 74 75 72 6e 20 6c |dLine. |return l|
|000037d0| 69 6e 65 4f 66 66 73 65 | 74 28 74 43 61 72 64 4c |ineOffse|t(tCardL|
|000037e0| 69 6e 65 2c 67 52 45 56 | 4f 62 6a 65 63 74 54 72 |ine,gREV|ObjectTr|
|000037f0| 65 65 29 0a 65 6e 64 20 | 72 65 76 43 61 72 64 4f |ee).end |revCardO|
|00003800| 66 66 73 65 74 0a 0a 66 | 75 6e 63 74 69 6f 6e 20 |ffset..f|unction |
|00003810| 72 65 76 53 74 61 63 6b | 4f 66 66 73 65 74 20 70 |revStack|Offset p|
|00003820| 53 74 61 63 6b 0a 20 20 | 67 6c 6f 62 61 6c 20 67 |Stack. |global g|
|00003830| 52 45 56 4f 62 6a 65 63 | 74 54 72 65 65 0a 20 20 |REVObjec|tTree. |
|00003840| 72 65 70 6c 61 63 65 20 | 63 6f 6d 6d 61 20 77 69 |replace |comma wi|
|00003850| 74 68 20 6b 43 6f 6d 6d | 61 20 69 6e 20 70 53 74 |th kComm|a in pSt|
|00003860| 61 63 6b 0a 20 20 70 75 | 74 20 70 53 74 61 63 6b |ack. pu|t pStack|
|00003870| 2c 22 73 74 61 63 6b 2c | 65 78 70 61 6e 64 65 64 |,"stack,|expanded|
|00003880| 22 20 69 6e 74 6f 20 74 | 53 74 61 63 6b 4c 69 6e |" into t|StackLin|
|00003890| 65 0a 20 20 72 65 74 75 | 72 6e 20 6c 69 6e 65 4f |e. retu|rn lineO|
|000038a0| 66 66 73 65 74 28 74 53 | 74 61 63 6b 4c 69 6e 65 |ffset(tS|tackLine|
|000038b0| 2c 67 52 45 56 4f 62 6a | 65 63 74 54 72 65 65 29 |,gREVObj|ectTree)|
|000038c0| 0a 65 6e 64 20 72 65 76 | 53 74 61 63 6b 4f 66 66 |.end rev|StackOff|
|000038d0| 73 65 74 0a 0a 66 75 6e | 63 74 69 6f 6e 20 72 65 |set..fun|ction re|
|000038e0| 76 43 6f 6e 74 72 6f 6c | 4c 69 73 74 20 70 43 61 |vControl|List pCa|
|000038f0| 72 64 0a 20 20 70 75 74 | 20 74 68 65 20 6e 75 6d |rd. put| the num|
|00003900| 20 6f 66 20 63 6f 6e 74 | 72 6f 6c 73 20 69 6e 20 | of cont|rols in |
|00003910| 70 43 61 72 64 20 69 6e | 74 6f 20 74 4e 75 6d 43 |pCard in|to tNumC|
|00003920| 6f 6e 74 72 6f 6c 73 0a | 20 20 70 75 74 20 65 6d |ontrols.| put em|
|00003930| 70 74 79 20 69 6e 74 6f | 20 74 43 6f 6e 74 72 6f |pty into| tContro|
|00003940| 6c 73 0a 20 20 72 65 70 | 65 61 74 20 77 69 74 68 |ls. rep|eat with|
|00003950| 20 69 20 3d 20 31 20 74 | 6f 20 74 4e 75 6d 43 6f | i = 1 t|o tNumCo|
|00003960| 6e 74 72 6f 6c 73 0a 20 | 20 20 20 70 75 74 20 74 |ntrols. | put t|
|00003970| 68 65 20 73 68 6f 72 74 | 20 6e 61 6d 65 20 6f 66 |he short| name of|
|00003980| 20 63 6f 6e 74 72 6f 6c | 20 69 20 6f 66 20 70 43 | control| i of pC|
|00003990| 61 72 64 20 69 6e 74 6f | 20 74 4e 61 6d 65 0a 20 |ard into| tName. |
|000039a0| 20 20 20 72 65 70 6c 61 | 63 65 20 63 6f 6d 6d 61 | repla|ce comma|
|000039b0| 20 77 69 74 68 20 6b 43 | 6f 6d 6d 61 20 69 6e 20 | with kC|omma in |
|000039c0| 74 4e 61 6d 65 0a 20 20 | 20 20 74 72 79 0a 20 20 |tName. | try. |
|000039d0| 20 20 20 20 70 75 74 20 | 74 68 65 20 6e 75 6d 20 | put |the num |
|000039e0| 6f 66 20 6c 69 6e 65 73 | 20 69 6e 20 74 68 65 20 |of lines| in the |
|000039f0| 73 63 72 69 70 74 20 6f | 66 20 63 6f 6e 74 72 6f |script o|f contro|
|00003a00| 6c 20 69 20 6f 66 20 70 | 43 61 72 64 20 69 6e 74 |l i of p|Card int|
|00003a10| 6f 20 74 53 63 72 69 70 | 74 4c 69 6e 65 73 0a 20 |o tScrip|tLines. |
|00003a20| 20 20 20 63 61 74 63 68 | 20 74 45 72 72 6f 72 0a | catch| tError.|
|00003a30| 20 20 20 20 20 20 70 75 | 74 20 22 75 6e 6b 6e 6f | pu|t "unkno|
|00003a40| 77 6e 22 20 69 6e 74 6f | 20 74 53 63 72 69 70 74 |wn" into| tScript|
|00003a50| 4c 69 6e 65 73 0a 20 20 | 20 20 65 6e 64 20 74 72 |Lines. | end tr|
|00003a60| 79 0a 20 20 20 20 70 75 | 74 20 77 6f 72 64 20 32 |y. pu|t word 2|
|00003a70| 20 74 6f 20 2d 31 20 6f | 66 20 74 68 65 20 6c 6f | to -1 o|f the lo|
|00003a80| 6e 67 20 69 64 20 6f 66 | 20 63 6f 6e 74 72 6f 6c |ng id of| control|
|00003a90| 20 69 20 6f 66 20 70 43 | 61 72 64 20 69 6e 74 6f | i of pC|ard into|
|00003aa0| 20 74 47 72 6f 75 70 45 | 78 70 0a 20 20 20 20 70 | tGroupE|xp. p|
|00003ab0| 75 74 20 74 4e 61 6d 65 | 20 69 6e 74 6f 20 74 49 |ut tName| into tI|
|00003ac0| 6e 64 65 6e 74 65 64 4e | 61 6d 65 0a 20 20 20 20 |ndentedN|ame. |
|00003ad0| 70 75 74 20 30 20 69 6e | 74 6f 20 74 47 72 6f 75 |put 0 in|to tGrou|
|00003ae0| 70 4e 65 73 74 43 6f 75 | 6e 74 0a 20 20 20 20 72 |pNestCou|nt. r|
|00003af0| 65 70 65 61 74 20 66 6f | 72 20 65 61 63 68 20 77 |epeat fo|r each w|
|00003b00| 6f 72 64 20 77 20 69 6e | 20 74 47 72 6f 75 70 45 |ord w in| tGroupE|
|00003b10| 78 70 0a 20 20 20 20 20 | 20 69 66 20 77 20 69 73 |xp. | if w is|
|00003b20| 20 22 67 72 6f 75 70 22 | 20 74 68 65 6e 20 70 75 | "group"| then pu|
|00003b30| 74 20 73 70 61 63 65 26 | 26 73 70 61 63 65 20 62 |t space&|&space b|
|00003b40| 65 66 6f 72 65 20 74 49 | 6e 64 65 6e 74 65 64 4e |efore tI|ndentedN|
|00003b50| 61 6d 65 0a 20 20 20 20 | 65 6e 64 20 72 65 70 65 |ame. |end repe|
|00003b60| 61 74 0a 20 20 20 20 70 | 75 74 20 77 6f 72 64 20 |at. p|ut word |
|00003b70| 31 20 6f 66 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 |1 of the| name of|
|00003b80| 20 63 6f 6e 74 72 6f 6c | 20 69 20 6f 66 20 70 43 | control| i of pC|
|00003b90| 61 72 64 2c 20 74 68 65 | 20 6c 61 79 65 72 20 6f |ard, the| layer o|
|00003ba0| 66 20 63 6f 6e 74 72 6f | 6c 20 69 20 6f 66 20 70 |f contro|l i of p|
|00003bb0| 43 61 72 64 2c 20 74 4e | 61 6d 65 2c 20 5c 0a 20 |Card, tN|ame, \. |
|00003bc0| 20 20 20 20 20 20 20 74 | 68 65 20 69 64 20 6f 66 | t|he id of|
|00003bd0| 20 63 6f 6e 74 72 6f 6c | 20 69 20 6f 66 20 70 43 | control| i of pC|
|00003be0| 61 72 64 2c 20 74 53 63 | 72 69 70 74 4c 69 6e 65 |ard, tSc|riptLine|
|00003bf0| 73 2c 20 5c 0a 20 20 20 | 20 20 20 20 20 74 68 65 |s, \. | the|
|00003c00| 20 76 69 73 69 62 6c 65 | 20 6f 66 20 63 6f 6e 74 | visible| of cont|
|00003c10| 72 6f 6c 20 69 20 6f 66 | 20 70 43 61 72 64 2c 20 |rol i of| pCard, |
|00003c20| 5c 0a 20 20 20 20 20 20 | 20 20 6e 6f 74 20 74 68 |\. | not th|
|00003c30| 65 20 63 61 6e 74 53 65 | 6c 65 63 74 20 6f 66 20 |e cantSe|lect of |
|00003c40| 63 6f 6e 74 72 6f 6c 20 | 69 20 6f 66 20 70 43 61 |control |i of pCa|
|00003c50| 72 64 2c 20 22 23 23 23 | 23 23 52 45 56 49 44 3d |rd, "###|##REVID=|
|00003c60| 22 2c 20 74 68 65 20 69 | 64 20 6f 66 20 63 6f 6e |", the i|d of con|
|00003c70| 74 72 6f 6c 20 69 20 6f | 66 20 70 43 61 72 64 2c |trol i o|f pCard,|
|00003c80| 20 5c 0a 20 20 20 20 20 | 20 20 20 22 3d 23 23 23 | \. | "=###|
|00003c90| 23 23 52 45 56 49 44 22 | 2c 20 74 49 6e 64 65 6e |##REVID"|, tInden|
|00003ca0| 74 65 64 4e 61 6d 65 20 | 26 20 63 72 20 61 66 74 |tedName |& cr aft|
|00003cb0| 65 72 20 74 43 6f 6e 74 | 72 6f 6c 73 0a 20 20 65 |er tCont|rols. e|
|00003cc0| 6e 64 20 72 65 70 65 61 | 74 0a 20 20 64 65 6c 65 |nd repea|t. dele|
|00003cd0| 74 65 20 6c 61 73 74 20 | 63 68 61 72 20 6f 66 20 |te last |char of |
|00003ce0| 74 43 6f 6e 74 72 6f 6c | 73 0a 20 20 0a 20 20 70 |tControl|s. . p|
|00003cf0| 75 74 20 74 68 65 20 63 | 48 69 6c 69 74 65 64 42 |ut the c|HilitedB|
|00003d00| 75 74 74 6f 6e 5b 22 63 | 6f 6e 74 72 6f 6c 73 22 |utton["c|ontrols"|
|00003d10| 5d 20 6f 66 20 73 74 61 | 63 6b 20 22 72 65 76 50 |] of sta|ck "revP|
|00003d20| 72 65 66 65 72 65 6e 63 | 65 73 22 20 69 6e 74 6f |referenc|es" into|
|00003d30| 20 74 54 61 62 4e 75 6d | 0a 20 20 69 66 20 74 54 | tTabNum|. if tT|
|00003d40| 61 62 4e 75 6d 20 69 73 | 20 35 20 6f 72 20 28 69 |abNum is| 5 or (i|
|00003d50| 74 65 6d 20 74 54 61 62 | 4e 75 6d 20 6f 66 20 74 |tem tTab|Num of t|
|00003d60| 43 6f 6e 74 72 6f 6c 73 | 20 69 73 20 61 20 6e 75 |Controls| is a nu|
|00003d70| 6d 62 65 72 20 61 6e 64 | 20 74 54 61 62 4e 75 6d |mber and| tTabNum|
|00003d80| 20 69 73 20 6e 6f 74 20 | 33 29 0a 20 20 74 68 65 | is not |3). the|
|00003d90| 6e 20 73 6f 72 74 20 6c | 69 6e 65 73 20 6f 66 20 |n sort l|ines of |
|00003da0| 74 43 6f 6e 74 72 6f 6c | 73 20 6e 75 6d 65 72 69 |tControl|s numeri|
|00003db0| 63 20 62 79 20 69 74 65 | 6d 20 74 54 61 62 4e 75 |c by ite|m tTabNu|
|00003dc0| 6d 20 6f 66 20 65 61 63 | 68 0a 20 20 65 6c 73 65 |m of eac|h. else|
|00003dd0| 20 73 6f 72 74 20 6c 69 | 6e 65 73 20 6f 66 20 74 | sort li|nes of t|
|00003de0| 43 6f 6e 74 72 6f 6c 73 | 20 74 65 78 74 20 62 79 |Controls| text by|
|00003df0| 20 69 74 65 6d 20 74 54 | 61 62 4e 75 6d 20 6f 66 | item tT|abNum of|
|00003e00| 20 65 61 63 68 0a 20 20 | 0a 20 20 72 65 74 75 72 | each. |. retur|
|00003e10| 6e 20 74 43 6f 6e 74 72 | 6f 6c 73 0a 65 6e 64 20 |n tContr|ols.end |
|00003e20| 72 65 76 43 6f 6e 74 72 | 6f 6c 4c 69 73 74 0a 0a |revContr|olList..|
|00003e30| 66 75 6e 63 74 69 6f 6e | 20 72 65 76 43 6f 6e 74 |function| revCont|
|00003e40| 72 6f 6c 73 48 74 6d 6c | 20 70 43 6f 6e 74 72 6f |rolsHtml| pContro|
|00003e50| 6c 73 0a 20 20 2d 2d 67 | 65 6e 65 72 61 74 65 20 |ls. --g|enerate |
|00003e60| 68 74 6d 6c 20 77 69 74 | 68 20 65 6d 62 65 64 64 |html wit|h embedd|
|00003e70| 65 64 20 69 63 6f 6e 73 | 20 66 6f 72 20 73 70 65 |ed icons| for spe|
|00003e80| 65 64 0a 20 20 70 75 74 | 20 65 6d 70 74 79 20 69 |ed. put| empty i|
|00003e90| 6e 74 6f 20 74 43 6f 6e | 74 72 6f 6c 73 48 74 6d |nto tCon|trolsHtm|
|00003ea0| 6c 0a 20 20 70 75 74 20 | 74 68 65 20 63 43 6f 6e |l. put |the cCon|
|00003eb0| 74 72 6f 6c 54 61 62 73 | 20 6f 66 20 73 74 61 63 |trolTabs| of stac|
|00003ec0| 6b 20 22 72 65 76 50 72 | 65 66 65 72 65 6e 63 65 |k "revPr|eference|
|00003ed0| 73 22 20 69 6e 74 6f 20 | 74 43 6f 6e 74 72 6f 6c |s" into |tControl|
|00003ee0| 54 61 62 73 0a 20 20 69 | 66 20 69 74 65 6d 20 31 |Tabs. i|f item 1|
|00003ef0| 20 6f 66 20 74 43 6f 6e | 74 72 6f 6c 54 61 62 73 | of tCon|trolTabs|
|00003f00| 20 69 73 20 31 20 74 68 | 65 6e 20 64 65 6c 65 74 | is 1 th|en delet|
|00003f10| 65 20 69 74 65 6d 20 31 | 20 6f 66 20 74 43 6f 6e |e item 1| of tCon|
|00003f20| 74 72 6f 6c 54 61 62 73 | 0a 20 20 70 75 74 20 74 |trolTabs|. put t|
|00003f30| 68 65 20 63 54 69 63 6b | 49 63 6f 6e 20 6f 66 20 |he cTick|Icon of |
|00003f40| 74 68 69 73 20 73 74 61 | 63 6b 20 69 6e 74 6f 20 |this sta|ck into |
|00003f50| 74 54 69 63 6b 49 63 6f | 6e 0a 20 20 70 75 74 20 |tTickIco|n. put |
|00003f60| 74 68 65 20 63 55 6e 54 | 69 63 6b 49 63 6f 6e 20 |the cUnT|ickIcon |
|00003f70| 6f 66 20 74 68 69 73 20 | 73 74 61 63 6b 20 69 6e |of this |stack in|
|00003f80| 74 6f 20 74 55 6e 54 69 | 63 6b 49 63 6f 6e 0a 20 |to tUnTi|ckIcon. |
|00003f90| 20 72 65 70 65 61 74 20 | 66 6f 72 20 65 61 63 68 | repeat |for each|
|00003fa0| 20 6c 69 6e 65 20 6c 20 | 69 6e 20 70 43 6f 6e 74 | line l |in pCont|
|00003fb0| 72 6f 6c 73 0a 20 20 20 | 20 70 75 74 20 22 63 22 |rols. | put "c"|
|00003fc0| 26 69 74 65 6d 20 31 20 | 6f 66 20 6c 26 22 49 63 |&item 1 |of l&"Ic|
|00003fd0| 6f 6e 22 20 69 6e 74 6f | 20 74 49 63 6f 6e 50 72 |on" into| tIconPr|
|00003fe0| 6f 70 0a 20 20 20 20 70 | 75 74 20 74 68 65 20 74 |op. p|ut the t|
|00003ff0| 49 63 6f 6e 50 72 6f 70 | 20 6f 66 20 74 68 69 73 |IconProp| of this|
|00004000| 20 73 74 61 63 6b 20 69 | 6e 74 6f 20 74 49 63 6f | stack i|nto tIco|
|00004010| 6e 0a 20 20 20 20 70 75 | 74 20 6b 54 61 67 20 26 |n. pu|t kTag &|
|00004020| 20 22 70 3e 22 20 26 20 | 6b 54 61 67 20 26 20 22 | "p>" & |kTag & "|
|00004030| 69 6d 67 20 73 72 63 3d | 22 26 71 75 6f 74 65 26 |img src=|""e&|
|00004040| 74 49 63 6f 6e 26 71 75 | 6f 74 65 26 22 3e 22 20 |tIcon&qu|ote&">" |
|00004050| 61 66 74 65 72 20 74 43 | 6f 6e 74 72 6f 6c 73 48 |after tC|ontrolsH|
|00004060| 74 6d 6c 0a 20 20 20 20 | 72 65 70 65 61 74 20 66 |tml. |repeat f|
|00004070| 6f 72 20 65 61 63 68 20 | 69 74 65 6d 20 69 20 69 |or each |item i i|
|00004080| 6e 20 74 43 6f 6e 74 72 | 6f 6c 54 61 62 73 0a 20 |n tContr|olTabs. |
|00004090| 20 20 20 20 20 70 75 74 | 20 69 74 65 6d 20 69 20 | put| item i |
|000040a0| 6f 66 20 6c 20 69 6e 74 | 6f 20 74 49 74 65 6d 0a |of l int|o tItem.|
|000040b0| 20 20 20 20 20 20 73 77 | 69 74 63 68 20 69 0a 20 | sw|itch i. |
|000040c0| 20 20 20 20 20 63 61 73 | 65 20 33 0a 20 20 20 20 | cas|e 3. |
|000040d0| 20 20 20 20 2d 2d 69 6e | 64 65 6e 74 20 67 72 6f | --in|dent gro|
|000040e0| 75 70 65 64 20 63 6f 6e | 74 72 6f 6c 73 20 69 66 |uped con|trols if|
|000040f0| 20 73 6f 72 74 65 64 20 | 62 79 20 6c 61 79 65 72 | sorted |by layer|
|00004100| 0a 20 20 20 20 20 20 20 | 20 69 66 20 74 68 65 20 |. | if the |
|00004110| 63 48 69 6c 69 74 65 64 | 42 75 74 74 6f 6e 5b 22 |cHilited|Button["|
|00004120| 63 6f 6e 74 72 6f 6c 73 | 22 5d 20 6f 66 20 73 74 |controls|"] of st|
|00004130| 61 63 6b 20 22 72 65 76 | 50 72 65 66 65 72 65 6e |ack "rev|Preferen|
|00004140| 63 65 73 22 20 69 73 20 | 32 0a 20 20 20 20 20 20 |ces" is |2. |
|00004150| 20 20 74 68 65 6e 20 70 | 75 74 20 6b 54 61 62 20 | then p|ut kTab |
|00004160| 26 20 69 74 65 6d 20 31 | 31 20 6f 66 20 6c 20 61 |& item 1|1 of l a|
|00004170| 66 74 65 72 20 74 43 6f | 6e 74 72 6f 6c 73 48 74 |fter tCo|ntrolsHt|
|00004180| 6d 6c 0a 20 20 20 20 20 | 20 20 20 65 6c 73 65 20 |ml. | else |
|00004190| 70 75 74 20 6b 54 61 62 | 20 26 20 74 49 74 65 6d |put kTab| & tItem|
|000041a0| 20 61 66 74 65 72 20 74 | 43 6f 6e 74 72 6f 6c 73 | after t|Controls|
|000041b0| 48 74 6d 6c 0a 20 20 20 | 20 20 20 20 20 62 72 65 |Html. | bre|
|000041c0| 61 6b 0a 20 20 20 20 20 | 20 63 61 73 65 20 36 0a |ak. | case 6.|
|000041d0| 20 20 20 20 20 20 63 61 | 73 65 20 37 0a 20 20 20 | ca|se 7. |
|000041e0| 20 20 20 20 20 69 66 20 | 74 49 74 65 6d 20 74 68 | if |tItem th|
|000041f0| 65 6e 20 70 75 74 20 6b | 54 61 62 20 26 20 6b 54 |en put k|Tab & kT|
|00004200| 61 67 20 26 20 22 69 6d | 67 20 73 72 63 3d 22 26 |ag & "im|g src="&|
|00004210| 71 75 6f 74 65 26 74 54 | 69 63 6b 49 63 6f 6e 26 |quote&tT|ickIcon&|
|00004220| 71 75 6f 74 65 26 22 3e | 22 20 61 66 74 65 72 20 |quote&">|" after |
|00004230| 74 43 6f 6e 74 72 6f 6c | 73 48 74 6d 6c 0a 20 20 |tControl|sHtml. |
|00004240| 20 20 20 20 20 20 65 6c | 73 65 20 70 75 74 20 6b | el|se put k|
|00004250| 54 61 62 20 26 20 6b 54 | 61 67 20 26 20 22 69 6d |Tab & kT|ag & "im|
|00004260| 67 20 73 72 63 3d 22 26 | 71 75 6f 74 65 26 74 55 |g src="&|quote&tU|
|00004270| 6e 54 69 63 6b 49 63 6f | 6e 26 71 75 6f 74 65 26 |nTickIco|n"e&|
|00004280| 22 3e 22 20 61 66 74 65 | 72 20 74 43 6f 6e 74 72 |">" afte|r tContr|
|00004290| 6f 6c 73 48 74 6d 6c 0a | 20 20 20 20 20 20 20 20 |olsHtml.| |
|000042a0| 62 72 65 61 6b 0a 20 20 | 20 20 20 20 64 65 66 61 |break. | defa|
|000042b0| 75 6c 74 0a 20 20 20 20 | 20 20 20 20 70 75 74 20 |ult. | put |
|000042c0| 6b 54 61 62 20 26 20 74 | 49 74 65 6d 20 61 66 74 |kTab & t|Item aft|
|000042d0| 65 72 20 74 43 6f 6e 74 | 72 6f 6c 73 48 74 6d 6c |er tCont|rolsHtml|
|000042e0| 0a 20 20 20 20 20 20 20 | 20 62 72 65 61 6b 0a 20 |. | break. |
|000042f0| 20 20 20 20 20 65 6e 64 | 20 73 77 69 74 63 68 0a | end| switch.|
|00004300| 20 20 20 20 65 6e 64 20 | 72 65 70 65 61 74 0a 20 | end |repeat. |
|00004310| 20 20 20 70 75 74 20 6b | 54 61 67 20 26 20 22 2f | put k|Tag & "/|
|00004320| 70 3e 22 20 26 20 63 72 | 20 61 66 74 65 72 20 74 |p>" & cr| after t|
|00004330| 43 6f 6e 74 72 6f 6c 73 | 48 74 6d 6c 0a 20 20 65 |Controls|Html. e|
|00004340| 6e 64 20 72 65 70 65 61 | 74 0a 20 20 64 65 6c 65 |nd repea|t. dele|
|00004350| 74 65 20 6c 61 73 74 20 | 63 68 61 72 20 6f 66 20 |te last |char of |
|00004360| 74 43 6f 6e 74 72 6f 6c | 73 48 74 6d 6c 0a 20 20 |tControl|sHtml. |
|00004370| 72 65 70 6c 61 63 65 20 | 74 61 62 20 77 69 74 68 |replace |tab with|
|00004380| 20 73 70 61 63 65 26 73 | 70 61 63 65 20 69 6e 20 | space&s|pace in |
|00004390| 74 43 6f 6e 74 72 6f 6c | 73 48 74 6d 6c 0a 20 20 |tControl|sHtml. |
|000043a0| 72 65 70 6c 61 63 65 20 | 6b 43 6f 6d 6d 61 20 77 |replace |kComma w|
|000043b0| 69 74 68 20 63 6f 6d 6d | 61 20 69 6e 20 74 43 6f |ith comm|a in tCo|
|000043c0| 6e 74 72 6f 6c 73 48 74 | 6d 6c 0a 20 20 72 65 70 |ntrolsHt|ml. rep|
|000043d0| 6c 61 63 65 20 22 3c 22 | 20 77 69 74 68 20 6b 4c |lace "<"| with kL|
|000043e0| 65 73 73 54 68 61 6e 20 | 69 6e 20 74 43 6f 6e 74 |essThan |in tCont|
|000043f0| 72 6f 6c 73 48 74 6d 6c | 2d 2d 75 73 65 72 20 66 |rolsHtml|--user f|
|00004400| 72 69 65 6e 64 6c 79 20 | 6d 65 73 73 61 67 65 2c |riendly |message,|
|00004410| 20 22 3c 22 20 62 72 65 | 61 6b 73 20 68 74 6d 6c | "<" bre|aks html|
|00004420| 0a 20 20 72 65 70 6c 61 | 63 65 20 6b 54 61 67 20 |. repla|ce kTag |
|00004430| 77 69 74 68 20 22 3c 22 | 20 69 6e 20 74 43 6f 6e |with "<"| in tCon|
|00004440| 74 72 6f 6c 73 48 74 6d | 6c 0a 20 20 72 65 74 75 |trolsHtm|l. retu|
|00004450| 72 6e 20 74 43 6f 6e 74 | 72 6f 6c 73 48 74 6d 6c |rn tCont|rolsHtml|
|00004460| 0a 65 6e 64 20 72 65 76 | 43 6f 6e 74 72 6f 6c 73 |.end rev|Controls|
|00004470| 48 74 6d 6c 0a 0a 66 75 | 6e 63 74 69 6f 6e 20 72 |Html..fu|nction r|
|00004480| 65 76 43 6f 6e 74 72 6f | 6c 4c 69 6e 65 20 70 49 |evContro|lLine pI|
|00004490| 44 0a 20 20 67 6c 6f 62 | 61 6c 20 67 52 45 56 43 |D. glob|al gREVC|
|000044a0| 6f 6e 74 72 6f 6c 73 0a | 20 20 70 75 74 20 22 23 |ontrols.| put "#|
|000044b0| 23 23 23 23 52 45 56 49 | 44 3d 22 2c 20 70 49 44 |####REVI|D=", pID|
|000044c0| 2c 20 22 3d 23 23 23 23 | 23 52 45 56 49 44 22 20 |, "=####|#REVID" |
|000044d0| 69 6e 74 6f 20 74 4c 69 | 6e 65 0a 20 20 72 65 74 |into tLi|ne. ret|
|000044e0| 75 72 6e 20 6c 69 6e 65 | 4f 66 66 73 65 74 28 74 |urn line|Offset(t|
|000044f0| 4c 69 6e 65 2c 67 52 45 | 56 43 6f 6e 74 72 6f 6c |Line,gRE|VControl|
|00004500| 73 29 0a 65 6e 64 20 72 | 65 76 43 6f 6e 74 72 6f |s).end r|evContro|
|00004510| 6c 4c 69 6e 65 0a 0a 66 | 75 6e 63 74 69 6f 6e 20 |lLine..f|unction |
|00004520| 72 65 76 49 6e 49 63 6f | 6e 0a 20 20 72 65 74 75 |revInIco|n. retu|
|00004530| 72 6e 20 6c 49 6e 49 63 | 6f 6e 0a 65 6e 64 20 72 |rn lInIc|on.end r|
|00004540| 65 76 49 6e 49 63 6f 6e | 0a 0a 66 75 6e 63 74 69 |evInIcon|..functi|
|00004550| 6f 6e 20 72 65 76 4f 75 | 74 49 63 6f 6e 0a 20 20 |on revOu|tIcon. |
|00004560| 72 65 74 75 72 6e 20 6c | 4f 75 74 49 63 6f 6e 0a |return l|OutIcon.|
|00004570| 65 6e 64 20 72 65 76 4f | 75 74 49 63 6f 6e 0a 0a |end revO|utIcon..|
|00004580| 66 75 6e 63 74 69 6f 6e | 20 72 65 76 54 61 62 53 |function| revTabS|
|00004590| 74 6f 70 73 20 70 54 61 | 62 73 2c 20 70 47 72 6f |tops pTa|bs, pGro|
|000045a0| 75 70 0a 20 20 70 75 74 | 20 74 68 65 20 6c 65 66 |up. put| the lef|
|000045b0| 74 20 6f 66 20 70 47 72 | 6f 75 70 20 69 6e 74 6f |t of pGr|oup into|
|000045c0| 20 74 4c 65 66 74 0a 20 | 20 70 75 74 20 65 6d 70 | tLeft. | put emp|
|000045d0| 74 79 20 69 6e 74 6f 20 | 74 54 61 62 53 74 6f 70 |ty into |tTabStop|
|000045e0| 73 0a 20 20 72 65 70 65 | 61 74 20 66 6f 72 20 65 |s. repe|at for e|
|000045f0| 61 63 68 20 6c 69 6e 65 | 20 6c 20 69 6e 20 70 54 |ach line| l in pT|
|00004600| 61 62 73 0a 20 20 20 20 | 70 75 74 20 74 68 65 20 |abs. |put the |
|00004610| 72 69 67 68 74 20 6f 66 | 20 62 74 6e 20 6c 20 6f |right of| btn l o|
|00004620| 66 20 70 47 72 6f 75 70 | 20 2d 20 74 4c 65 66 74 |f pGroup| - tLeft|
|00004630| 20 2d 20 32 20 2b 20 5c | 0a 20 20 20 20 20 20 20 | - 2 + \|. |
|00004640| 20 74 68 65 20 68 53 63 | 72 6f 6c 6c 20 6f 66 20 | the hSc|roll of |
|00004650| 70 47 72 6f 75 70 20 26 | 20 63 6f 6d 6d 61 20 61 |pGroup &| comma a|
|00004660| 66 74 65 72 20 74 54 61 | 62 53 74 6f 70 73 0a 20 |fter tTa|bStops. |
|00004670| 20 65 6e 64 20 72 65 70 | 65 61 74 0a 20 20 64 65 | end rep|eat. de|
|00004680| 6c 65 74 65 20 6c 61 73 | 74 20 63 68 61 72 20 6f |lete las|t char o|
|00004690| 66 20 74 54 61 62 53 74 | 6f 70 73 0a 20 20 72 65 |f tTabSt|ops. re|
|000046a0| 74 75 72 6e 20 74 54 61 | 62 53 74 6f 70 73 0a 65 |turn tTa|bStops.e|
|000046b0| 6e 64 20 72 65 76 54 61 | 62 53 74 6f 70 73 0a 0a |nd revTa|bStops..|
|000046c0| 66 75 6e 63 74 69 6f 6e | 20 72 65 76 43 6f 6c 57 |function| revColW|
|000046d0| 69 64 74 68 20 70 46 69 | 65 6c 64 49 74 65 6d 2c |idth pFi|eldItem,|
|000046e0| 20 70 46 69 65 6c 64 0a | 20 20 73 65 74 20 74 68 | pField.| set th|
|000046f0| 65 20 69 74 65 6d 44 65 | 6c 20 74 6f 20 74 61 62 |e itemDe|l to tab|
|00004700| 0a 20 20 70 75 74 20 65 | 6d 70 74 79 20 69 6e 74 |. put e|mpty int|
|00004710| 6f 20 74 57 69 64 74 68 | 73 0a 20 20 70 75 74 20 |o tWidth|s. put |
|00004720| 74 68 65 20 6e 75 6d 20 | 6f 66 20 6c 69 6e 65 73 |the num |of lines|
|00004730| 20 69 6e 20 74 68 65 20 | 74 65 78 74 20 6f 66 20 | in the |text of |
|00004740| 70 46 69 65 6c 64 20 69 | 6e 74 6f 20 74 4e 75 6d |pField i|nto tNum|
|00004750| 4c 69 6e 65 73 0a 20 20 | 72 65 70 65 61 74 20 77 |Lines. |repeat w|
|00004760| 69 74 68 20 69 20 3d 20 | 31 20 74 6f 20 74 4e 75 |ith i = |1 to tNu|
|00004770| 6d 4c 69 6e 65 73 0a 20 | 20 20 20 70 75 74 20 74 |mLines. | put t|
|00004780| 68 65 20 66 6f 72 6d 61 | 74 74 65 64 57 69 64 74 |he forma|ttedWidt|
|00004790| 68 20 6f 66 20 69 74 65 | 6d 20 70 46 69 65 6c 64 |h of ite|m pField|
|000047a0| 49 74 65 6d 20 6f 66 20 | 6c 69 6e 65 20 69 20 6f |Item of |line i o|
|000047b0| 66 20 70 46 69 65 6c 64 | 20 26 20 63 72 20 61 66 |f pField| & cr af|
|000047c0| 74 65 72 20 74 57 69 64 | 74 68 73 0a 20 20 65 6e |ter tWid|ths. en|
|000047d0| 64 20 72 65 70 65 61 74 | 0a 20 20 73 6f 72 74 20 |d repeat|. sort |
|000047e0| 6c 69 6e 65 73 20 6f 66 | 20 74 57 69 64 74 68 73 |lines of| tWidths|
|000047f0| 20 64 65 73 63 65 6e 64 | 69 6e 67 20 6e 75 6d 65 | descend|ing nume|
|00004800| 72 69 63 0a 20 20 72 65 | 74 75 72 6e 20 6c 69 6e |ric. re|turn lin|
|00004810| 65 20 31 20 6f 66 20 74 | 57 69 64 74 68 73 20 2b |e 1 of t|Widths +|
|00004820| 20 32 0a 65 6e 64 20 72 | 65 76 43 6f 6c 57 69 64 | 2.end r|evColWid|
|00004830| 74 68 0a 0a 6f 6e 20 72 | 65 76 4d 61 69 6e 53 74 |th..on r|evMainSt|
|00004840| 61 63 6b 43 68 61 6e 67 | 65 64 20 70 53 74 61 63 |ackChang|ed pStac|
|00004850| 6b 0a 20 20 67 6c 6f 62 | 61 6c 20 67 52 45 56 4f |k. glob|al gREVO|
|00004860| 62 6a 65 63 74 54 72 65 | 65 0a 20 20 70 75 74 20 |bjectTre|e. put |
|00004870| 74 68 65 20 73 68 6f 72 | 74 20 6e 61 6d 65 20 6f |the shor|t name o|
|00004880| 66 20 70 53 74 61 63 6b | 20 69 6e 74 6f 20 74 4e |f pStack| into tN|
|00004890| 61 6d 65 0a 20 20 70 75 | 74 20 74 4e 61 6d 65 2c |ame. pu|t tName,|
|000048a0| 22 73 74 61 63 6b 2c 65 | 78 70 61 6e 64 65 64 22 |"stack,e|xpanded"|
|000048b0| 20 69 6e 74 6f 20 74 53 | 74 61 63 6b 4d 61 74 63 | into tS|tackMatc|
|000048c0| 68 0a 20 20 70 75 74 20 | 6c 69 6e 65 4f 66 66 73 |h. put |lineOffs|
|000048d0| 65 74 28 74 53 74 61 63 | 6b 4d 61 74 63 68 2c 67 |et(tStac|kMatch,g|
|000048e0| 52 45 56 4f 62 6a 65 63 | 74 54 72 65 65 29 20 69 |REVObjec|tTree) i|
|000048f0| 6e 74 6f 20 74 53 74 61 | 72 74 4c 69 6e 65 0a 20 |nto tSta|rtLine. |
|00004900| 20 69 66 20 74 53 74 61 | 72 74 4c 69 6e 65 20 69 | if tSta|rtLine i|
|00004910| 73 20 30 20 74 68 65 6e | 20 65 78 69 74 20 72 65 |s 0 then| exit re|
|00004920| 76 4d 61 69 6e 53 74 61 | 63 6b 43 68 61 6e 67 65 |vMainSta|ckChange|
|00004930| 64 0a 20 20 70 75 74 20 | 6c 69 6e 65 4f 66 66 73 |d. put |lineOffs|
|00004940| 65 74 28 28 63 6f 6d 6d | 61 26 22 73 74 61 63 6b |et((comm|a&"stack|
|00004950| 2c 65 78 70 61 6e 64 65 | 64 22 29 2c 67 52 45 56 |,expande|d"),gREV|
|00004960| 4f 62 6a 65 63 74 54 72 | 65 65 2c 74 53 74 61 72 |ObjectTr|ee,tStar|
|00004970| 74 4c 69 6e 65 29 20 2b | 20 74 53 74 61 72 74 4c |tLine) +| tStartL|
|00004980| 69 6e 65 20 2d 20 31 20 | 69 6e 74 6f 20 74 45 6e |ine - 1 |into tEn|
|00004990| 64 4c 69 6e 65 0a 20 20 | 69 66 20 74 45 6e 64 4c |dLine. |if tEndL|
|000049a0| 69 6e 65 20 3c 20 74 53 | 74 61 72 74 4c 69 6e 65 |ine < tS|tartLine|
|000049b0| 20 74 68 65 6e 20 70 75 | 74 20 74 68 65 20 6e 75 | then pu|t the nu|
|000049c0| 6d 20 6f 66 20 6c 69 6e | 65 73 20 69 6e 20 67 52 |m of lin|es in gR|
|000049d0| 45 56 4f 62 6a 65 63 74 | 54 72 65 65 20 69 6e 74 |EVObject|Tree int|
|000049e0| 6f 20 74 45 6e 64 4c 69 | 6e 65 0a 20 20 70 75 74 |o tEndLi|ne. put|
|000049f0| 20 74 68 65 20 6d 61 69 | 6e 53 74 61 63 6b 20 6f | the mai|nStack o|
|00004a00| 66 20 73 74 61 63 6b 20 | 74 4e 61 6d 65 20 69 6e |f stack |tName in|
|00004a10| 74 6f 20 74 4d 61 69 6e | 0a 20 20 0a 20 20 70 75 |to tMain|. . pu|
|00004a20| 74 20 6c 69 6e 65 20 74 | 53 74 61 72 74 4c 69 6e |t line t|StartLin|
|00004a30| 65 20 74 6f 20 74 45 6e | 64 4c 69 6e 65 20 6f 66 |e to tEn|dLine of|
|00004a40| 20 67 52 45 56 4f 62 6a | 65 63 74 54 72 65 65 20 | gREVObj|ectTree |
|00004a50| 69 6e 74 6f 20 74 53 74 | 61 63 6b 4c 69 6e 65 73 |into tSt|ackLines|
|00004a60| 0a 20 20 64 65 6c 65 74 | 65 20 6c 69 6e 65 20 74 |. delet|e line t|
|00004a70| 53 74 61 72 74 4c 69 6e | 65 20 74 6f 20 74 45 6e |StartLin|e to tEn|
|00004a80| 64 4c 69 6e 65 20 6f 66 | 20 67 52 45 56 4f 62 6a |dLine of| gREVObj|
|00004a90| 65 63 74 54 72 65 65 20 | 20 20 20 20 20 0a 20 20 |ectTree | . |
|00004aa0| 69 66 20 74 4d 61 69 6e | 20 69 73 20 74 4e 61 6d |if tMain| is tNam|
|00004ab0| 65 20 74 68 65 6e 0a 20 | 20 20 20 70 75 74 20 6c |e then. | put l|
|00004ac0| 4d 61 69 6e 53 74 61 63 | 6b 49 63 6f 6e 20 69 6e |MainStac|kIcon in|
|00004ad0| 74 6f 20 69 74 65 6d 20 | 35 20 6f 66 20 6c 69 6e |to item |5 of lin|
|00004ae0| 65 20 31 20 6f 66 20 74 | 53 74 61 63 6b 4c 69 6e |e 1 of t|StackLin|
|00004af0| 65 73 0a 20 20 20 20 70 | 75 74 20 65 6d 70 74 79 |es. p|ut empty|
|00004b00| 20 69 6e 74 6f 20 69 74 | 65 6d 20 34 20 6f 66 20 | into it|em 4 of |
|00004b10| 6c 69 6e 65 20 31 20 6f | 66 20 74 53 74 61 63 6b |line 1 o|f tStack|
|00004b20| 4c 69 6e 65 73 0a 20 20 | 20 20 70 75 74 20 63 72 |Lines. | put cr|
|00004b30| 20 26 20 74 53 74 61 63 | 6b 4c 69 6e 65 73 20 61 | & tStac|kLines a|
|00004b40| 66 74 65 72 20 67 52 45 | 56 4f 62 6a 65 63 74 54 |fter gRE|VObjectT|
|00004b50| 72 65 65 0a 20 20 65 6c | 73 65 0a 20 20 20 20 70 |ree. el|se. p|
|00004b60| 75 74 20 6c 53 75 62 73 | 74 61 63 6b 49 63 6f 6e |ut lSubs|tackIcon|
|00004b70| 20 69 6e 74 6f 20 69 74 | 65 6d 20 35 20 6f 66 20 | into it|em 5 of |
|00004b80| 6c 69 6e 65 20 31 20 6f | 66 20 74 53 74 61 63 6b |line 1 o|f tStack|
|00004b90| 4c 69 6e 65 73 0a 20 20 | 20 20 70 75 74 20 73 70 |Lines. | put sp|
|00004ba0| 61 63 65 20 26 20 73 70 | 61 63 65 20 69 6e 74 6f |ace & sp|ace into|
|00004bb0| 20 69 74 65 6d 20 34 20 | 6f 66 20 6c 69 6e 65 20 | item 4 |of line |
|00004bc0| 31 20 6f 66 20 74 53 74 | 61 63 6b 4c 69 6e 65 73 |1 of tSt|ackLines|
|00004bd0| 0a 20 20 20 20 70 75 74 | 20 74 4d 61 69 6e 2c 22 |. put| tMain,"|
|00004be0| 73 74 61 63 6b 2c 65 78 | 70 61 6e 64 65 64 22 20 |stack,ex|panded" |
|00004bf0| 69 6e 74 6f 20 74 53 74 | 61 63 6b 4d 61 74 63 68 |into tSt|ackMatch|
|00004c00| 0a 20 20 20 20 70 75 74 | 20 6c 69 6e 65 4f 66 66 |. put| lineOff|
|00004c10| 73 65 74 28 74 53 74 61 | 63 6b 4d 61 74 63 68 2c |set(tSta|ckMatch,|
|00004c20| 67 52 45 56 4f 62 6a 65 | 63 74 54 72 65 65 29 20 |gREVObje|ctTree) |
|00004c30| 69 6e 74 6f 20 74 4d 61 | 69 6e 4c 69 6e 65 0a 20 |into tMa|inLine. |
|00004c40| 20 20 20 69 66 20 74 4d | 61 69 6e 4c 69 6e 65 20 | if tM|ainLine |
|00004c50| 69 73 20 30 20 74 68 65 | 6e 20 65 78 69 74 20 72 |is 0 the|n exit r|
|00004c60| 65 76 4d 61 69 6e 53 74 | 61 63 6b 43 68 61 6e 67 |evMainSt|ackChang|
|00004c70| 65 64 0a 20 20 20 20 0a | 20 20 20 20 70 75 74 20 |ed. .| put |
|00004c80| 6c 69 6e 65 20 28 74 4d | 61 69 6e 4c 69 6e 65 20 |line (tM|ainLine |
|00004c90| 2b 20 31 29 20 74 6f 20 | 2d 31 20 6f 66 20 67 52 |+ 1) to |-1 of gR|
|00004ca0| 45 56 4f 62 6a 65 63 74 | 54 72 65 65 20 69 6e 74 |EVObject|Tree int|
|00004cb0| 6f 20 74 4c 69 73 74 42 | 65 6c 6f 77 0a 20 20 20 |o tListB|elow. |
|00004cc0| 20 70 75 74 20 28 74 4d | 61 69 6e 4c 69 6e 65 20 | put (tM|ainLine |
|00004cd0| 2b 20 31 29 20 69 6e 74 | 6f 20 74 43 6f 75 6e 74 |+ 1) int|o tCount|
|00004ce0| 0a 20 20 20 20 70 75 74 | 20 66 61 6c 73 65 20 69 |. put| false i|
|00004cf0| 6e 74 6f 20 74 46 6f 75 | 6e 64 45 6e 64 0a 20 20 |nto tFou|ndEnd. |
|00004d00| 20 20 72 65 70 65 61 74 | 20 66 6f 72 20 65 61 63 | repeat| for eac|
|00004d10| 68 20 6c 69 6e 65 20 6c | 20 69 6e 20 74 4c 69 73 |h line l| in tLis|
|00004d20| 74 42 65 6c 6f 77 0a 20 | 20 20 20 20 20 61 64 64 |tBelow. | add|
|00004d30| 20 31 20 74 6f 20 74 43 | 6f 75 6e 74 0a 20 20 20 | 1 to tC|ount. |
|00004d40| 20 20 20 69 66 20 69 74 | 65 6d 20 35 20 6f 66 20 | if it|em 5 of |
|00004d50| 6c 20 69 73 20 6c 4d 61 | 69 6e 53 74 61 63 6b 49 |l is lMa|inStackI|
|00004d60| 63 6f 6e 20 74 68 65 6e | 20 0a 20 20 20 20 20 20 |con then| . |
|00004d70| 20 20 70 75 74 20 74 72 | 75 65 20 69 6e 74 6f 20 | put tr|ue into |
|00004d80| 74 46 6f 75 6e 64 45 6e | 64 0a 20 20 20 20 20 20 |tFoundEn|d. |
|00004d90| 20 20 65 78 69 74 20 72 | 65 70 65 61 74 0a 20 20 | exit r|epeat. |
|00004da0| 20 20 20 20 65 6e 64 20 | 69 66 0a 20 20 20 20 65 | end |if. e|
|00004db0| 6e 64 20 72 65 70 65 61 | 74 0a 20 20 20 20 69 66 |nd repea|t. if|
|00004dc0| 20 74 46 6f 75 6e 64 45 | 6e 64 20 74 68 65 6e 0a | tFoundE|nd then.|
|00004dd0| 20 20 20 20 20 20 73 75 | 62 74 72 61 63 74 20 31 | su|btract 1|
|00004de0| 20 66 72 6f 6d 20 74 43 | 6f 75 6e 74 0a 20 20 20 | from tC|ount. |
|00004df0| 20 20 20 70 75 74 20 74 | 53 74 61 63 6b 4c 69 6e | put t|StackLin|
|00004e00| 65 73 20 26 20 63 72 20 | 62 65 66 6f 72 65 20 6c |es & cr |before l|
|00004e10| 69 6e 65 20 74 43 6f 75 | 6e 74 20 6f 66 20 67 52 |ine tCou|nt of gR|
|00004e20| 45 56 4f 62 6a 65 63 74 | 54 72 65 65 0a 20 20 20 |EVObject|Tree. |
|00004e30| 20 65 6c 73 65 0a 20 20 | 20 20 20 20 70 75 74 20 | else. | put |
|00004e40| 63 72 20 26 20 74 53 74 | 61 63 6b 4c 69 6e 65 73 |cr & tSt|ackLines|
|00004e50| 20 61 66 74 65 72 20 67 | 52 45 56 4f 62 6a 65 63 | after g|REVObjec|
|00004e60| 74 54 72 65 65 0a 20 20 | 20 20 65 6e 64 20 69 66 |tTree. | end if|
|00004e70| 0a 20 20 65 6e 64 20 69 | 66 0a 20 20 6c 6f 63 6b |. end i|f. lock|
|00004e80| 20 73 63 72 65 65 6e 0a | 20 20 70 75 74 20 72 65 | screen.| put re|
|00004e90| 76 53 65 6c 4c 69 6e 65 | 49 44 28 29 20 69 6e 74 |vSelLine|ID() int|
|00004ea0| 6f 20 74 4c 69 6e 65 49 | 44 0a 20 20 72 65 76 55 |o tLineI|D. revU|
|00004eb0| 70 64 61 74 65 54 72 65 | 65 20 72 65 76 54 72 65 |pdateTre|e revTre|
|00004ec0| 65 48 74 6d 6c 28 67 52 | 45 56 4f 62 6a 65 63 74 |eHtml(gR|EVObject|
|00004ed0| 54 72 65 65 29 2c 20 74 | 4c 69 6e 65 49 44 0a 20 |Tree), t|LineID. |
|00004ee0| 20 75 6e 6c 6f 63 6b 20 | 73 63 72 65 65 6e 0a 65 | unlock |screen.e|
|00004ef0| 6e 64 20 72 65 76 4d 61 | 69 6e 53 74 61 63 6b 43 |nd revMa|inStackC|
|00004f00| 68 61 6e 67 65 64 0a 0a | 6f 6e 20 72 65 76 4e 61 |hanged..|on revNa|
|00004f10| 6d 65 43 68 61 6e 67 65 | 64 20 70 4f 62 6a 65 63 |meChange|d pObjec|
|00004f20| 74 2c 20 70 4f 6c 64 4e | 61 6d 65 2c 20 70 4e 65 |t, pOldN|ame, pNe|
|00004f30| 77 4e 61 6d 65 0a 20 20 | 67 6c 6f 62 61 6c 20 67 |wName. |global g|
|00004f40| 52 45 56 53 74 61 63 6b | 4e 61 6d 65 2c 20 67 52 |REVStack|Name, gR|
|00004f50| 45 56 4f 62 6a 65 63 74 | 54 72 65 65 2c 20 67 52 |EVObject|Tree, gR|
|00004f60| 45 56 43 6f 6e 74 72 6f | 6c 73 0a 20 20 70 75 74 |EVContro|ls. put|
|00004f70| 20 74 68 65 20 69 64 20 | 6f 66 20 70 4f 62 6a 65 | the id |of pObje|
|00004f80| 63 74 20 69 6e 74 6f 20 | 74 49 44 0a 20 20 70 75 |ct into |tID. pu|
|00004f90| 74 20 77 6f 72 64 20 31 | 20 6f 66 20 70 4f 62 6a |t word 1| of pObj|
|00004fa0| 65 63 74 20 69 6e 74 6f | 20 74 54 79 70 65 0a 20 |ect into| tType. |
|00004fb0| 20 72 65 70 6c 61 63 65 | 20 63 6f 6d 6d 61 20 77 | replace| comma w|
|00004fc0| 69 74 68 20 6b 43 6f 6d | 6d 61 20 69 6e 20 70 4e |ith kCom|ma in pN|
|00004fd0| 65 77 4e 61 6d 65 0a 20 | 20 70 75 74 20 72 65 76 |ewName. | put rev|
|00004fe0| 53 65 6c 4c 69 6e 65 49 | 44 28 29 20 69 6e 74 6f |SelLineI|D() into|
|00004ff0| 20 74 4c 69 6e 65 49 44 | 0a 20 20 0a 20 20 73 77 | tLineID|. . sw|
|00005000| 69 74 63 68 20 74 54 79 | 70 65 0a 20 20 63 61 73 |itch tTy|pe. cas|
|00005010| 65 20 22 73 74 61 63 6b | 22 0a 20 20 20 20 72 65 |e "stack|". re|
|00005020| 70 6c 61 63 65 20 63 6f | 6d 6d 61 20 77 69 74 68 |place co|mma with|
|00005030| 20 6b 43 6f 6d 6d 61 20 | 69 6e 20 70 4f 6c 64 4e | kComma |in pOldN|
|00005040| 61 6d 65 0a 20 20 20 20 | 70 75 74 20 70 4f 6c 64 |ame. |put pOld|
|00005050| 4e 61 6d 65 2c 22 73 74 | 61 63 6b 2c 65 78 70 61 |Name,"st|ack,expa|
|00005060| 6e 64 65 64 22 20 69 6e | 74 6f 20 74 53 74 61 63 |nded" in|to tStac|
|00005070| 6b 4d 61 74 63 68 0a 20 | 20 20 20 70 75 74 20 6c |kMatch. | put l|
|00005080| 69 6e 65 4f 66 66 73 65 | 74 28 74 53 74 61 63 6b |ineOffse|t(tStack|
|00005090| 4d 61 74 63 68 2c 67 52 | 45 56 4f 62 6a 65 63 74 |Match,gR|EVObject|
|000050a0| 54 72 65 65 29 20 69 6e | 74 6f 20 74 53 74 61 72 |Tree) in|to tStar|
|000050b0| 74 4c 69 6e 65 0a 20 20 | 20 20 69 66 20 74 53 74 |tLine. | if tSt|
|000050c0| 61 72 74 4c 69 6e 65 20 | 69 73 20 30 20 74 68 65 |artLine |is 0 the|
|000050d0| 6e 20 65 78 69 74 20 72 | 65 76 4e 61 6d 65 43 68 |n exit r|evNameCh|
|000050e0| 61 6e 67 65 64 0a 20 20 | 20 20 70 75 74 20 70 4e |anged. | put pN|
|000050f0| 65 77 4e 61 6d 65 20 69 | 6e 74 6f 20 69 74 65 6d |ewName i|nto item|
|00005100| 20 36 20 6f 66 20 6c 69 | 6e 65 20 74 53 74 61 72 | 6 of li|ne tStar|
|00005110| 74 4c 69 6e 65 20 6f 66 | 20 67 52 45 56 4f 62 6a |tLine of| gREVObj|
|00005120| 65 63 74 54 72 65 65 0a | 20 20 20 20 70 75 74 20 |ectTree.| put |
|00005130| 74 68 65 20 6e 75 6d 20 | 6f 66 20 6c 69 6e 65 73 |the num |of lines|
|00005140| 20 69 6e 20 67 52 45 56 | 4f 62 6a 65 63 74 54 72 | in gREV|ObjectTr|
|00005150| 65 65 20 69 6e 74 6f 20 | 74 4e 75 6d 4c 69 6e 65 |ee into |tNumLine|
|00005160| 73 0a 20 20 20 20 72 65 | 70 65 61 74 20 77 69 74 |s. re|peat wit|
|00005170| 68 20 69 20 3d 20 74 53 | 74 61 72 74 4c 69 6e 65 |h i = tS|tartLine|
|00005180| 20 74 6f 20 74 4e 75 6d | 4c 69 6e 65 73 0a 20 20 | to tNum|Lines. |
|00005190| 20 20 20 20 69 66 20 69 | 74 65 6d 20 31 20 6f 66 | if i|tem 1 of|
|000051a0| 20 6c 69 6e 65 20 69 20 | 6f 66 20 67 52 45 56 4f | line i |of gREVO|
|000051b0| 62 6a 65 63 74 54 72 65 | 65 20 69 73 20 6e 6f 74 |bjectTre|e is not|
|000051c0| 20 70 4f 6c 64 4e 61 6d | 65 20 74 68 65 6e 20 65 | pOldNam|e then e|
|000051d0| 78 69 74 20 72 65 70 65 | 61 74 0a 20 20 20 20 20 |xit repe|at. |
|000051e0| 20 70 75 74 20 70 4e 65 | 77 4e 61 6d 65 20 69 6e | put pNe|wName in|
|000051f0| 74 6f 20 69 74 65 6d 20 | 31 20 6f 66 20 6c 69 6e |to item |1 of lin|
|00005200| 65 20 69 20 6f 66 20 67 | 52 45 56 4f 62 6a 65 63 |e i of g|REVObjec|
|00005210| 74 54 72 65 65 0a 20 20 | 20 20 20 20 70 75 74 20 |tTree. | put |
|00005220| 70 4e 65 77 4e 61 6d 65 | 20 69 6e 74 6f 20 69 74 |pNewName| into it|
|00005230| 65 6d 20 31 34 20 6f 66 | 20 6c 69 6e 65 20 69 20 |em 14 of| line i |
|00005240| 6f 66 20 67 52 45 56 4f | 62 6a 65 63 74 54 72 65 |of gREVO|bjectTre|
|00005250| 65 0a 20 20 20 20 65 6e | 64 20 72 65 70 65 61 74 |e. en|d repeat|
|00005260| 0a 20 20 20 20 6c 6f 63 | 6b 20 73 63 72 65 65 6e |. loc|k screen|
|00005270| 0a 20 20 20 20 72 65 76 | 55 70 64 61 74 65 54 72 |. rev|UpdateTr|
|00005280| 65 65 20 72 65 76 54 72 | 65 65 48 74 6d 6c 28 67 |ee revTr|eeHtml(g|
|00005290| 52 45 56 4f 62 6a 65 63 | 74 54 72 65 65 29 2c 20 |REVObjec|tTree), |
|000052a0| 74 4c 69 6e 65 49 44 0a | 20 20 20 20 62 72 65 61 |tLineID.| brea|
|000052b0| 6b 0a 20 20 63 61 73 65 | 20 22 63 61 72 64 22 0a |k. case| "card".|
|000052c0| 20 20 20 20 70 75 74 20 | 74 68 65 20 73 68 6f 72 | put |the shor|
|000052d0| 74 20 6e 61 6d 65 20 6f | 66 20 74 68 65 20 6f 77 |t name o|f the ow|
|000052e0| 6e 65 72 20 6f 66 20 70 | 4f 62 6a 65 63 74 20 69 |ner of p|Object i|
|000052f0| 6e 74 6f 20 74 53 74 61 | 63 6b 0a 20 20 20 20 72 |nto tSta|ck. r|
|00005300| 65 70 6c 61 63 65 20 63 | 6f 6d 6d 61 20 77 69 74 |eplace c|omma wit|
|00005310| 68 20 6b 43 6f 6d 6d 61 | 20 69 6e 20 74 53 74 61 |h kComma| in tSta|
|00005320| 63 6b 0a 20 20 20 20 70 | 75 74 20 22 2c 23 23 23 |ck. p|ut ",###|
|00005330| 23 23 52 45 56 49 44 3d | 22 2c 74 49 44 2c 22 3d |##REVID=|",tID,"=|
|00005340| 23 23 23 23 23 52 45 56 | 49 44 22 2c 74 53 74 61 |#####REV|ID",tSta|
|00005350| 63 6b 20 69 6e 74 6f 20 | 74 4d 61 74 63 68 0a 20 |ck into |tMatch. |
|00005360| 20 20 20 70 75 74 20 6c | 69 6e 65 4f 66 66 73 65 | put l|ineOffse|
|00005370| 74 28 74 4d 61 74 63 68 | 2c 67 52 45 56 4f 62 6a |t(tMatch|,gREVObj|
|00005380| 65 63 74 54 72 65 65 29 | 20 69 6e 74 6f 20 74 4f |ectTree)| into tO|
|00005390| 66 66 73 65 74 0a 20 20 | 20 20 69 66 20 74 4f 66 |ffset. | if tOf|
|000053a0| 66 73 65 74 20 69 73 20 | 30 20 74 68 65 6e 20 65 |fset is |0 then e|
|000053b0| 78 69 74 20 72 65 76 4e | 61 6d 65 43 68 61 6e 67 |xit revN|ameChang|
|000053c0| 65 64 0a 20 20 20 20 70 | 75 74 20 70 4e 65 77 4e |ed. p|ut pNewN|
|000053d0| 61 6d 65 20 69 6e 74 6f | 20 69 74 65 6d 20 36 20 |ame into| item 6 |
|000053e0| 6f 66 20 6c 69 6e 65 20 | 74 4f 66 66 73 65 74 20 |of line |tOffset |
|000053f0| 6f 66 20 67 52 45 56 4f | 62 6a 65 63 74 54 72 65 |of gREVO|bjectTre|
|00005400| 65 0a 20 20 20 20 70 75 | 74 20 72 65 76 54 72 65 |e. pu|t revTre|
|00005410| 65 48 74 6d 6c 28 6c 69 | 6e 65 20 74 4f 66 66 73 |eHtml(li|ne tOffs|
|00005420| 65 74 20 6f 66 20 67 52 | 45 56 4f 62 6a 65 63 74 |et of gR|EVObject|
|00005430| 54 72 65 65 29 20 69 6e | 74 6f 20 74 4e 65 77 48 |Tree) in|to tNewH|
|00005440| 74 6d 6c 0a 20 20 20 20 | 70 75 74 20 74 68 65 20 |tml. |put the |
|00005450| 68 74 6d 6c 54 65 78 74 | 20 6f 66 20 66 6c 64 20 |htmlText| of fld |
|00005460| 22 43 61 72 64 73 22 20 | 69 6e 74 6f 20 74 48 74 |"Cards" |into tHt|
|00005470| 6d 6c 0a 20 20 20 20 70 | 75 74 20 74 4e 65 77 48 |ml. p|ut tNewH|
|00005480| 74 6d 6c 20 69 6e 74 6f | 20 6c 69 6e 65 20 74 4f |tml into| line tO|
|00005490| 66 66 73 65 74 20 6f 66 | 20 74 48 74 6d 6c 0a 20 |ffset of| tHtml. |
|000054a0| 20 20 20 6c 6f 63 6b 20 | 73 63 72 65 65 6e 0a 20 | lock |screen. |
|000054b0| 20 20 20 72 65 76 55 70 | 64 61 74 65 54 72 65 65 | revUp|dateTree|
|000054c0| 20 74 48 74 6d 6c 2c 20 | 74 4c 69 6e 65 49 44 0a | tHtml, |tLineID.|
|000054d0| 20 20 20 20 62 72 65 61 | 6b 0a 20 20 64 65 66 61 | brea|k. defa|
|000054e0| 75 6c 74 0a 20 20 20 20 | 69 66 20 72 65 76 54 61 |ult. |if revTa|
|000054f0| 72 67 65 74 53 74 61 63 | 6b 28 70 4f 62 6a 65 63 |rgetStac|k(pObjec|
|00005500| 74 29 20 69 73 20 67 52 | 45 56 53 74 61 63 6b 4e |t) is gR|EVStackN|
|00005510| 61 6d 65 20 5c 0a 20 20 | 20 20 20 20 20 20 61 6e |ame \. | an|
|00005520| 64 20 74 68 65 20 73 68 | 6f 72 74 20 6e 61 6d 65 |d the sh|ort name|
|00005530| 20 6f 66 20 74 68 69 73 | 20 63 64 20 69 73 20 22 | of this| cd is "|
|00005540| 43 61 72 64 73 20 61 6e | 64 20 43 6f 6e 74 72 6f |Cards an|d Contro|
|00005550| 6c 73 22 20 74 68 65 6e | 0a 20 20 20 20 20 20 70 |ls" then|. p|
|00005560| 75 74 20 72 65 76 43 6f | 6e 74 72 6f 6c 4c 69 6e |ut revCo|ntrolLin|
|00005570| 65 28 74 49 44 29 20 69 | 6e 74 6f 20 74 4c 69 6e |e(tID) i|nto tLin|
|00005580| 65 0a 20 20 20 20 20 20 | 6c 6f 63 6b 20 73 63 72 |e. |lock scr|
|00005590| 65 65 6e 0a 20 20 20 20 | 20 20 69 66 20 74 4c 69 |een. | if tLi|
|000055a0| 6e 65 20 69 73 20 6e 6f | 74 20 30 20 74 68 65 6e |ne is no|t 0 then|
|000055b0| 0a 20 20 20 20 20 20 20 | 20 70 75 74 20 70 4e 65 |. | put pNe|
|000055c0| 77 4e 61 6d 65 20 69 6e | 74 6f 20 69 74 65 6d 20 |wName in|to item |
|000055d0| 33 20 6f 66 20 6c 69 6e | 65 20 74 4c 69 6e 65 20 |3 of lin|e tLine |
|000055e0| 6f 66 20 67 52 45 56 43 | 6f 6e 74 72 6f 6c 73 0a |of gREVC|ontrols.|
|000055f0| 20 20 20 20 20 20 20 20 | 70 75 74 20 70 4e 65 77 | |put pNew|
|00005600| 4e 61 6d 65 20 69 6e 74 | 6f 20 77 6f 72 64 20 31 |Name int|o word 1|
|00005610| 20 74 6f 20 2d 31 20 6f | 66 20 69 74 65 6d 20 31 | to -1 o|f item 1|
|00005620| 31 20 6f 66 20 6c 69 6e | 65 20 74 4c 69 6e 65 20 |1 of lin|e tLine |
|00005630| 6f 66 20 67 52 45 56 43 | 6f 6e 74 72 6f 6c 73 0a |of gREVC|ontrols.|
|00005640| 20 20 20 20 20 20 20 20 | 72 65 76 55 70 64 61 74 | |revUpdat|
|00005650| 65 43 6f 6e 74 72 6f 6c | 73 46 69 65 6c 64 20 74 |eControl|sField t|
|00005660| 72 75 65 0a 20 20 20 20 | 20 20 65 6e 64 20 69 66 |rue. | end if|
|00005670| 0a 20 20 20 20 65 6e 64 | 20 69 66 0a 20 20 20 20 |. end| if. |
|00005680| 62 72 65 61 6b 0a 20 20 | 65 6e 64 20 73 77 69 74 |break. |end swit|
|00005690| 63 68 0a 20 20 75 6e 6c | 6f 63 6b 20 73 63 72 65 |ch. unl|ock scre|
|000056a0| 65 6e 0a 65 6e 64 20 72 | 65 76 4e 61 6d 65 43 68 |en.end r|evNameCh|
|000056b0| 61 6e 67 65 64 0a 0a 6f | 6e 20 72 65 76 4e 65 77 |anged..o|n revNew|
|000056c0| 53 74 61 63 6b 20 70 53 | 74 61 63 6b 0a 20 20 67 |Stack pS|tack. g|
|000056d0| 6c 6f 62 61 6c 20 67 52 | 45 56 4f 62 6a 65 63 74 |lobal gR|EVObject|
|000056e0| 54 72 65 65 2c 20 67 52 | 45 56 53 68 6f 77 53 74 |Tree, gR|EVShowSt|
|000056f0| 61 63 6b 73 0a 20 20 69 | 66 20 6e 6f 74 20 6c 49 |acks. i|f not lI|
|00005700| 6e 69 74 69 61 6c 69 73 | 65 64 20 74 68 65 6e 20 |nitialis|ed then |
|00005710| 65 78 69 74 20 72 65 76 | 4e 65 77 53 74 61 63 6b |exit rev|NewStack|
|00005720| 0a 20 20 69 66 20 6e 6f | 74 20 67 52 45 56 53 68 |. if no|t gREVSh|
|00005730| 6f 77 53 74 61 63 6b 73 | 20 74 68 65 6e 20 70 75 |owStacks| then pu|
|00005740| 74 20 72 65 76 46 69 6c | 74 65 72 53 74 61 63 6b |t revFil|terStack|
|00005750| 73 4c 69 73 74 28 70 53 | 74 61 63 6b 29 20 69 6e |sList(pS|tack) in|
|00005760| 74 6f 20 70 53 74 61 63 | 6b 0a 20 20 69 66 20 70 |to pStac|k. if p|
|00005770| 53 74 61 63 6b 20 69 73 | 20 65 6d 70 74 79 20 74 |Stack is| empty t|
|00005780| 68 65 6e 20 65 78 69 74 | 20 72 65 76 4e 65 77 53 |hen exit| revNewS|
|00005790| 74 61 63 6b 0a 20 20 70 | 75 74 20 70 53 74 61 63 |tack. p|ut pStac|
|000057a0| 6b 20 69 6e 74 6f 20 74 | 53 74 61 63 6b 32 0a 20 |k into t|Stack2. |
|000057b0| 20 72 65 70 6c 61 63 65 | 20 63 6f 6d 6d 61 20 77 | replace| comma w|
|000057c0| 69 74 68 20 6b 43 6f 6d | 6d 61 20 69 6e 20 74 53 |ith kCom|ma in tS|
|000057d0| 74 61 63 6b 32 0a 20 20 | 70 75 74 20 74 53 74 61 |tack2. |put tSta|
|000057e0| 63 6b 32 2c 22 73 74 61 | 63 6b 2c 65 78 70 61 6e |ck2,"sta|ck,expan|
|000057f0| 64 65 64 22 20 69 6e 74 | 6f 20 74 53 74 61 63 6b |ded" int|o tStack|
|00005800| 4d 61 74 63 68 0a 20 20 | 69 66 20 74 53 74 61 63 |Match. |if tStac|
|00005810| 6b 4d 61 74 63 68 20 69 | 73 20 69 6e 20 67 52 45 |kMatch i|s in gRE|
|00005820| 56 4f 62 6a 65 63 74 54 | 72 65 65 20 74 68 65 6e |VObjectT|ree then|
|00005830| 20 65 78 69 74 20 72 65 | 76 4e 65 77 53 74 61 63 | exit re|vNewStac|
|00005840| 6b 0a 20 20 0a 20 20 70 | 75 74 20 74 68 65 20 68 |k. . p|ut the h|
|00005850| 74 6d 6c 54 65 78 74 20 | 6f 66 20 66 6c 64 20 22 |tmlText |of fld "|
|00005860| 43 61 72 64 73 22 20 69 | 6e 74 6f 20 74 48 74 6d |Cards" i|nto tHtm|
|00005870| 6c 0a 20 20 70 75 74 20 | 72 65 76 53 74 61 63 6b |l. put |revStack|
|00005880| 4c 69 6e 65 28 70 53 74 | 61 63 6b 29 20 69 6e 74 |Line(pSt|ack) int|
|00005890| 6f 20 74 53 74 61 63 6b | 73 48 74 6d 6c 0a 20 20 |o tStack|sHtml. |
|000058a0| 72 65 70 65 61 74 20 66 | 6f 72 20 65 61 63 68 20 |repeat f|or each |
|000058b0| 6c 69 6e 65 20 6c 20 69 | 6e 20 74 68 65 20 73 75 |line l i|n the su|
|000058c0| 62 73 74 61 63 6b 73 20 | 6f 66 20 73 74 61 63 6b |bstacks |of stack|
|000058d0| 20 70 53 74 61 63 6b 0a | 20 20 20 20 70 75 74 20 | pStack.| put |
|000058e0| 63 72 20 26 20 72 65 76 | 53 74 61 63 6b 4c 69 6e |cr & rev|StackLin|
|000058f0| 65 28 6c 29 20 61 66 74 | 65 72 20 74 53 74 61 63 |e(l) aft|er tStac|
|00005900| 6b 73 48 74 6d 6c 0a 20 | 20 65 6e 64 20 72 65 70 |ksHtml. | end rep|
|00005910| 65 61 74 0a 20 20 69 66 | 20 67 52 45 56 4f 62 6a |eat. if| gREVObj|
|00005920| 65 63 74 54 72 65 65 20 | 69 73 20 65 6d 70 74 79 |ectTree |is empty|
|00005930| 20 74 68 65 6e 20 0a 20 | 20 20 20 70 75 74 20 74 | then . | put t|
|00005940| 53 74 61 63 6b 73 48 74 | 6d 6c 20 69 6e 74 6f 20 |StacksHt|ml into |
|00005950| 67 52 45 56 4f 62 6a 65 | 63 74 54 72 65 65 0a 20 |gREVObje|ctTree. |
|00005960| 20 20 20 70 75 74 20 72 | 65 76 54 72 65 65 48 74 | put r|evTreeHt|
|00005970| 6d 6c 28 67 52 45 56 4f | 62 6a 65 63 74 54 72 65 |ml(gREVO|bjectTre|
|00005980| 65 29 20 69 6e 74 6f 20 | 74 48 74 6d 6c 0a 20 20 |e) into |tHtml. |
|00005990| 65 6c 73 65 0a 20 20 20 | 20 70 75 74 20 63 72 20 |else. | put cr |
|000059a0| 26 20 74 53 74 61 63 6b | 73 48 74 6d 6c 20 61 66 |& tStack|sHtml af|
|000059b0| 74 65 72 20 67 52 45 56 | 4f 62 6a 65 63 74 54 72 |ter gREV|ObjectTr|
|000059c0| 65 65 0a 20 20 20 20 70 | 75 74 20 63 72 20 26 20 |ee. p|ut cr & |
|000059d0| 72 65 76 54 72 65 65 48 | 74 6d 6c 28 74 53 74 61 |revTreeH|tml(tSta|
|000059e0| 63 6b 73 48 74 6d 6c 29 | 20 61 66 74 65 72 20 74 |cksHtml)| after t|
|000059f0| 48 74 6d 6c 0a 20 20 65 | 6e 64 20 69 66 0a 20 20 |Html. e|nd if. |
|00005a00| 20 0a 20 20 6c 6f 63 6b | 20 73 63 72 65 65 6e 0a | . lock| screen.|
|00005a10| 20 20 70 75 74 20 72 65 | 76 53 65 6c 4c 69 6e 65 | put re|vSelLine|
|00005a20| 49 44 28 29 20 69 6e 74 | 6f 20 74 4c 69 6e 65 49 |ID() int|o tLineI|
|00005a30| 44 0a 20 20 72 65 76 55 | 70 64 61 74 65 54 72 65 |D. revU|pdateTre|
|00005a40| 65 20 74 48 74 6d 6c 2c | 20 74 4c 69 6e 65 49 44 |e tHtml,| tLineID|
|00005a50| 0a 20 20 75 6e 6c 6f 63 | 6b 20 73 63 72 65 65 6e |. unloc|k screen|
|00005a60| 0a 65 6e 64 20 72 65 76 | 4e 65 77 53 74 61 63 6b |.end rev|NewStack|
|00005a70| 0a 0a 6f 6e 20 72 65 76 | 41 4f 44 65 6c 65 74 65 |..on rev|AODelete|
|00005a80| 53 74 61 63 6b 20 70 53 | 74 61 63 6b 2c 20 70 53 |Stack pS|tack, pS|
|00005a90| 74 61 63 6b 73 0a 20 20 | 67 6c 6f 62 61 6c 20 67 |tacks. |global g|
|00005aa0| 52 45 56 4f 62 6a 65 63 | 74 54 72 65 65 2c 20 67 |REVObjec|tTree, g|
|00005ab0| 52 45 56 53 74 61 63 6b | 4e 61 6d 65 0a 20 20 70 |REVStack|Name. p|
|00005ac0| 75 74 20 70 53 74 61 63 | 6b 20 69 6e 74 6f 20 74 |ut pStac|k into t|
|00005ad0| 53 74 61 63 6b 0a 20 20 | 72 65 70 6c 61 63 65 20 |Stack. |replace |
|00005ae0| 63 6f 6d 6d 61 20 77 69 | 74 68 20 6b 43 6f 6d 6d |comma wi|th kComm|
|00005af0| 61 20 69 6e 20 74 53 74 | 61 63 6b 0a 20 20 70 75 |a in tSt|ack. pu|
|00005b00| 74 20 74 53 74 61 63 6b | 2c 22 73 74 61 63 6b 2c |t tStack|,"stack,|
|00005b10| 65 78 70 61 6e 64 65 64 | 22 20 69 6e 74 6f 20 74 |expanded|" into t|
|00005b20| 53 74 61 63 6b 4d 61 74 | 63 68 0a 20 20 70 75 74 |StackMat|ch. put|
|00005b30| 20 6c 69 6e 65 4f 66 66 | 73 65 74 28 74 53 74 61 | lineOff|set(tSta|
|00005b40| 63 6b 4d 61 74 63 68 2c | 67 52 45 56 4f 62 6a 65 |ckMatch,|gREVObje|
|00005b50| 63 74 54 72 65 65 29 20 | 69 6e 74 6f 20 74 53 74 |ctTree) |into tSt|
|00005b60| 61 72 74 4c 69 6e 65 0a | 20 20 69 66 20 74 53 74 |artLine.| if tSt|
|00005b70| 61 72 74 4c 69 6e 65 20 | 69 73 20 30 20 74 68 65 |artLine |is 0 the|
|00005b80| 6e 20 65 78 69 74 20 72 | 65 76 41 4f 44 65 6c 65 |n exit r|evAODele|
|00005b90| 74 65 53 74 61 63 6b 0a | 20 20 0a 20 20 70 75 74 |teStack.| . put|
|00005ba0| 20 66 61 6c 73 65 20 69 | 6e 74 6f 20 74 4e 6f 74 | false i|nto tNot|
|00005bb0| 45 6e 64 0a 20 20 70 75 | 74 20 74 68 65 20 6e 75 |End. pu|t the nu|
|00005bc0| 6d 20 6f 66 20 6c 69 6e | 65 73 20 69 6e 20 67 52 |m of lin|es in gR|
|00005bd0| 45 56 4f 62 6a 65 63 74 | 54 72 65 65 20 69 6e 74 |EVObject|Tree int|
|00005be0| 6f 20 74 4e 75 6d 4c 69 | 6e 65 73 0a 20 20 20 0a |o tNumLi|nes. .|
|00005bf0| 20 20 72 65 70 6c 61 63 | 65 20 63 6f 6d 6d 61 20 | replac|e comma |
|00005c00| 77 69 74 68 20 6b 43 6f | 6d 6d 61 20 69 6e 20 70 |with kCo|mma in p|
|00005c10| 53 74 61 63 6b 73 0a 20 | 20 72 65 70 65 61 74 20 |Stacks. | repeat |
|00005c20| 77 69 74 68 20 69 20 3d | 20 74 53 74 61 72 74 4c |with i =| tStartL|
|00005c30| 69 6e 65 20 74 6f 20 74 | 4e 75 6d 4c 69 6e 65 73 |ine to t|NumLines|
|00005c40| 0a 20 20 20 20 70 75 74 | 20 69 74 65 6d 20 31 20 |. put| item 1 |
|00005c50| 6f 66 20 6c 69 6e 65 20 | 69 20 6f 66 20 67 52 45 |of line |i of gRE|
|00005c60| 56 4f 62 6a 65 63 74 54 | 72 65 65 20 69 6e 74 6f |VObjectT|ree into|
|00005c70| 20 74 4c 69 6e 65 53 74 | 61 63 6b 0a 20 20 20 20 | tLineSt|ack. |
|00005c80| 69 66 20 74 4c 69 6e 65 | 53 74 61 63 6b 20 69 73 |if tLine|Stack is|
|00005c90| 20 6e 6f 74 20 61 6d 6f | 6e 67 20 74 68 65 20 6c | not amo|ng the l|
|00005ca0| 69 6e 65 73 20 6f 66 20 | 70 53 74 61 63 6b 73 20 |ines of |pStacks |
|00005cb0| 74 68 65 6e 0a 20 20 20 | 20 20 20 70 75 74 20 74 |then. | put t|
|00005cc0| 72 75 65 20 69 6e 74 6f | 20 74 4e 6f 74 45 6e 64 |rue into| tNotEnd|
|00005cd0| 0a 20 20 20 20 20 20 65 | 78 69 74 20 72 65 70 65 |. e|xit repe|
|00005ce0| 61 74 0a 20 20 20 20 65 | 6e 64 20 69 66 0a 20 20 |at. e|nd if. |
|00005cf0| 65 6e 64 20 72 65 70 65 | 61 74 0a 20 20 0a 20 20 |end repe|at. . |
|00005d00| 69 66 20 74 4e 6f 74 45 | 6e 64 20 74 68 65 6e 20 |if tNotE|nd then |
|00005d10| 64 65 6c 65 74 65 20 6c | 69 6e 65 20 74 53 74 61 |delete l|ine tSta|
|00005d20| 72 74 4c 69 6e 65 20 74 | 6f 20 28 69 2d 31 29 20 |rtLine t|o (i-1) |
|00005d30| 6f 66 20 67 52 45 56 4f | 62 6a 65 63 74 54 72 65 |of gREVO|bjectTre|
|00005d40| 65 0a 20 20 65 6c 73 65 | 20 64 65 6c 65 74 65 20 |e. else| delete |
|00005d50| 6c 69 6e 65 20 74 53 74 | 61 72 74 4c 69 6e 65 20 |line tSt|artLine |
|00005d60| 74 6f 20 74 4e 75 6d 4c | 69 6e 65 73 20 6f 66 20 |to tNumL|ines of |
|00005d70| 67 52 45 56 4f 62 6a 65 | 63 74 54 72 65 65 20 0a |gREVObje|ctTree .|
|00005d80| 20 20 0a 20 20 6c 6f 63 | 6b 20 73 63 72 65 65 6e | . loc|k screen|
|00005d90| 0a 20 20 70 75 74 20 72 | 65 76 53 65 6c 4c 69 6e |. put r|evSelLin|
|00005da0| 65 49 44 28 29 20 69 6e | 74 6f 20 74 4c 69 6e 65 |eID() in|to tLine|
|00005db0| 49 44 0a 20 20 72 65 76 | 55 70 64 61 74 65 54 72 |ID. rev|UpdateTr|
|00005dc0| 65 65 20 72 65 76 54 72 | 65 65 48 74 6d 6c 28 67 |ee revTr|eeHtml(g|
|00005dd0| 52 45 56 4f 62 6a 65 63 | 74 54 72 65 65 29 2c 20 |REVObjec|tTree), |
|00005de0| 74 4c 69 6e 65 49 44 0a | 20 20 69 66 20 70 53 74 |tLineID.| if pSt|
|00005df0| 61 63 6b 20 69 73 20 67 | 52 45 56 53 74 61 63 6b |ack is g|REVStack|
|00005e00| 4e 61 6d 65 20 74 68 65 | 6e 20 67 6f 20 63 64 20 |Name the|n go cd |
|00005e10| 22 62 6c 61 6e 6b 22 0a | 20 20 75 6e 6c 6f 63 6b |"blank".| unlock|
|00005e20| 20 73 63 72 65 65 6e 0a | 65 6e 64 20 72 65 76 41 | screen.|end revA|
|00005e30| 4f 44 65 6c 65 74 65 53 | 74 61 63 6b 0a 0a 6f 6e |ODeleteS|tack..on|
|00005e40| 20 72 65 76 4e 65 77 43 | 61 72 64 20 70 43 61 72 | revNewC|ard pCar|
|00005e50| 64 0a 20 20 67 6c 6f 62 | 61 6c 20 67 52 45 56 4f |d. glob|al gREVO|
|00005e60| 62 6a 65 63 74 54 72 65 | 65 2c 20 67 52 45 56 53 |bjectTre|e, gREVS|
|00005e70| 68 6f 77 53 74 61 63 6b | 73 0a 20 20 0a 20 20 70 |howStack|s. . p|
|00005e80| 75 74 20 72 65 76 54 61 | 72 67 65 74 53 74 61 63 |ut revTa|rgetStac|
|00005e90| 6b 28 70 43 61 72 64 29 | 20 69 6e 74 6f 20 74 53 |k(pCard)| into tS|
|00005ea0| 74 61 63 6b 0a 20 20 69 | 66 20 6e 6f 74 20 67 52 |tack. i|f not gR|
|00005eb0| 45 56 53 68 6f 77 53 74 | 61 63 6b 73 20 74 68 65 |EVShowSt|acks the|
|00005ec0| 6e 20 70 75 74 20 72 65 | 76 46 69 6c 74 65 72 53 |n put re|vFilterS|
|00005ed0| 74 61 63 6b 73 4c 69 73 | 74 28 74 53 74 61 63 6b |tacksLis|t(tStack|
|00005ee0| 29 20 69 6e 74 6f 20 74 | 53 74 61 63 6b 0a 20 20 |) into t|Stack. |
|00005ef0| 69 66 20 74 53 74 61 63 | 6b 20 69 73 20 65 6d 70 |if tStac|k is emp|
|00005f00| 74 79 20 74 68 65 6e 20 | 65 78 69 74 20 72 65 76 |ty then |exit rev|
|00005f10| 4e 65 77 43 61 72 64 0a | 20 20 0a 20 20 70 75 74 |NewCard.| . put|
|00005f20| 20 74 53 74 61 63 6b 2c | 22 73 74 61 63 6b 2c 65 | tStack,|"stack,e|
|00005f30| 78 70 61 6e 64 65 64 22 | 20 69 6e 74 6f 20 74 53 |xpanded"| into tS|
|00005f40| 74 61 63 6b 4d 61 74 63 | 68 0a 20 20 70 75 74 20 |tackMatc|h. put |
|00005f50| 6c 69 6e 65 4f 66 66 73 | 65 74 28 74 53 74 61 63 |lineOffs|et(tStac|
|00005f60| 6b 4d 61 74 63 68 2c 67 | 52 45 56 4f 62 6a 65 63 |kMatch,g|REVObjec|
|00005f70| 74 54 72 65 65 29 20 69 | 6e 74 6f 20 74 4c 69 6e |tTree) i|nto tLin|
|00005f80| 65 0a 20 20 69 66 20 74 | 4c 69 6e 65 20 69 73 20 |e. if t|Line is |
|00005f90| 30 20 74 68 65 6e 20 65 | 78 69 74 20 72 65 76 4e |0 then e|xit revN|
|00005fa0| 65 77 43 61 72 64 0a 20 | 20 0a 20 20 73 77 69 74 |ewCard. | . swit|
|00005fb0| 63 68 0a 20 20 63 61 73 | 65 20 74 68 65 20 63 53 |ch. cas|e the cS|
|00005fc0| 68 6f 77 41 75 64 69 6f | 43 6c 69 70 73 20 6f 66 |howAudio|Clips of|
|00005fd0| 20 73 74 61 63 6b 20 22 | 72 65 76 50 72 65 66 65 | stack "|revPrefe|
|00005fe0| 72 65 6e 63 65 73 22 0a | 20 20 20 20 70 75 74 20 |rences".| put |
|00005ff0| 22 2c 61 75 64 69 6f 63 | 6c 69 70 2c 65 78 70 61 |",audioc|lip,expa|
|00006000| 6e 64 65 64 20 66 61 6c | 73 65 2c 22 20 69 6e 74 |nded fal|se," int|
|00006010| 6f 20 74 4d 61 74 63 68 | 0a 20 20 20 20 62 72 65 |o tMatch|. bre|
|00006020| 61 6b 0a 20 20 63 61 73 | 65 20 74 68 65 20 63 53 |ak. cas|e the cS|
|00006030| 68 6f 77 56 69 64 65 6f | 43 6c 69 70 73 20 6f 66 |howVideo|Clips of|
|00006040| 20 73 74 61 63 6b 20 22 | 72 65 76 50 72 65 66 65 | stack "|revPrefe|
|00006050| 72 65 6e 63 65 73 22 0a | 20 20 20 20 70 75 74 20 |rences".| put |
|00006060| 22 2c 76 69 64 65 6f 63 | 6c 69 70 2c 65 78 70 61 |",videoc|lip,expa|
|00006070| 6e 64 65 64 20 66 61 6c | 73 65 2c 22 20 69 6e 74 |nded fal|se," int|
|00006080| 6f 20 74 4d 61 74 63 68 | 0a 20 20 20 20 62 72 65 |o tMatch|. bre|
|00006090| 61 6b 0a 20 20 64 65 66 | 61 75 6c 74 0a 20 20 20 |ak. def|ault. |
|000060a0| 20 70 75 74 20 22 2c 73 | 74 61 63 6b 2c 65 78 70 | put ",s|tack,exp|
|000060b0| 61 6e 64 65 64 22 20 69 | 6e 74 6f 20 74 4d 61 74 |anded" i|nto tMat|
|000060c0| 63 68 0a 20 20 20 20 62 | 72 65 61 6b 0a 20 20 65 |ch. b|reak. e|
|000060d0| 6e 64 20 73 77 69 74 63 | 68 0a 20 20 20 0a 20 20 |nd switc|h. . |
|000060e0| 70 75 74 20 6c 69 6e 65 | 4f 66 66 73 65 74 28 74 |put line|Offset(t|
|000060f0| 4d 61 74 63 68 2c 67 52 | 45 56 4f 62 6a 65 63 74 |Match,gR|EVObject|
|00006100| 54 72 65 65 2c 74 4c 69 | 6e 65 29 20 69 6e 74 6f |Tree,tLi|ne) into|
|00006110| 20 74 4d 61 74 63 68 4c | 69 6e 65 0a 20 20 70 75 | tMatchL|ine. pu|
|00006120| 74 20 72 65 76 43 61 72 | 64 4c 69 73 74 28 74 68 |t revCar|dList(th|
|00006130| 65 20 69 64 20 6f 66 20 | 70 43 61 72 64 2c 20 74 |e id of |pCard, t|
|00006140| 53 74 61 63 6b 29 20 69 | 6e 74 6f 20 74 43 61 72 |Stack) i|nto tCar|
|00006150| 64 4c 69 73 74 0a 20 20 | 70 75 74 20 74 68 65 20 |dList. |put the |
|00006160| 68 74 6d 6c 54 65 78 74 | 20 6f 66 20 66 6c 64 20 |htmlText| of fld |
|00006170| 22 43 61 72 64 73 22 20 | 69 6e 74 6f 20 74 48 74 |"Cards" |into tHt|
|00006180| 6d 6c 0a 20 20 69 66 20 | 74 4d 61 74 63 68 4c 69 |ml. if |tMatchLi|
|00006190| 6e 65 20 69 73 20 30 20 | 74 68 65 6e 20 0a 20 20 |ne is 0 |then . |
|000061a0| 20 20 70 75 74 20 63 72 | 20 26 20 74 43 61 72 64 | put cr| & tCard|
|000061b0| 4c 69 73 74 20 61 66 74 | 65 72 20 67 52 45 56 4f |List aft|er gREVO|
|000061c0| 62 6a 65 63 74 54 72 65 | 65 0a 20 20 20 20 70 75 |bjectTre|e. pu|
|000061d0| 74 20 63 72 20 26 20 72 | 65 76 54 72 65 65 48 74 |t cr & r|evTreeHt|
|000061e0| 6d 6c 28 74 43 61 72 64 | 4c 69 73 74 29 20 61 66 |ml(tCard|List) af|
|000061f0| 74 65 72 20 74 48 74 6d | 6c 0a 20 20 65 6c 73 65 |ter tHtm|l. else|
|00006200| 0a 20 20 20 20 61 64 64 | 20 74 4c 69 6e 65 20 74 |. add| tLine t|
|00006210| 6f 20 74 4d 61 74 63 68 | 4c 69 6e 65 0a 20 20 20 |o tMatch|Line. |
|00006220| 20 70 75 74 20 74 43 61 | 72 64 4c 69 73 74 20 26 | put tCa|rdList &|
|00006230| 20 63 72 20 62 65 66 6f | 72 65 20 6c 69 6e 65 20 | cr befo|re line |
|00006240| 74 4d 61 74 63 68 4c 69 | 6e 65 20 6f 66 20 67 52 |tMatchLi|ne of gR|
|00006250| 45 56 4f 62 6a 65 63 74 | 54 72 65 65 0a 20 20 20 |EVObject|Tree. |
|00006260| 20 70 75 74 20 72 65 76 | 54 72 65 65 48 74 6d 6c | put rev|TreeHtml|
|00006270| 28 74 43 61 72 64 4c 69 | 73 74 29 20 26 20 63 72 |(tCardLi|st) & cr|
|00006280| 20 62 65 66 6f 72 65 20 | 6c 69 6e 65 20 74 4d 61 | before |line tMa|
|00006290| 74 63 68 4c 69 6e 65 20 | 6f 66 20 74 48 74 6d 6c |tchLine |of tHtml|
|000062a0| 0a 20 20 65 6e 64 20 69 | 66 0a 20 20 0a 20 20 6c |. end i|f. . l|
|000062b0| 6f 63 6b 20 73 63 72 65 | 65 6e 0a 20 20 70 75 74 |ock scre|en. put|
|000062c0| 20 72 65 76 53 65 6c 4c | 69 6e 65 49 44 28 29 20 | revSelL|ineID() |
|000062d0| 69 6e 74 6f 20 74 4c 69 | 6e 65 49 44 0a 20 20 72 |into tLi|neID. r|
|000062e0| 65 76 55 70 64 61 74 65 | 54 72 65 65 20 74 48 74 |evUpdate|Tree tHt|
|000062f0| 6d 6c 2c 20 74 4c 69 6e | 65 49 44 0a 20 20 75 6e |ml, tLin|eID. un|
|00006300| 6c 6f 63 6b 20 73 63 72 | 65 65 6e 0a 65 6e 64 20 |lock scr|een.end |
|00006310| 72 65 76 4e 65 77 43 61 | 72 64 0a 0a 6f 6e 20 72 |revNewCa|rd..on r|
|00006320| 65 76 41 4f 44 65 6c 65 | 74 65 43 61 72 64 20 70 |evAODele|teCard p|
|00006330| 43 61 72 64 0a 20 20 67 | 6c 6f 62 61 6c 20 67 52 |Card. g|lobal gR|
|00006340| 45 56 4f 62 6a 65 63 74 | 54 72 65 65 2c 20 67 52 |EVObject|Tree, gR|
|00006350| 45 56 53 74 61 63 6b 4e | 61 6d 65 0a 20 20 0a 20 |EVStackN|ame. . |
|00006360| 20 70 75 74 20 74 68 65 | 20 73 68 6f 72 74 20 6e | put the| short n|
|00006370| 61 6d 65 20 6f 66 20 74 | 68 65 20 6f 77 6e 65 72 |ame of t|he owner|
|00006380| 20 6f 66 20 70 43 61 72 | 64 20 69 6e 74 6f 20 74 | of pCar|d into t|
|00006390| 53 74 61 63 6b 0a 20 20 | 70 75 74 20 74 53 74 61 |Stack. |put tSta|
|000063a0| 63 6b 20 69 6e 74 6f 20 | 74 53 74 61 63 6b 32 0a |ck into |tStack2.|
|000063b0| 20 20 72 65 70 6c 61 63 | 65 20 63 6f 6d 6d 61 20 | replac|e comma |
|000063c0| 77 69 74 68 20 6b 43 6f | 6d 6d 61 20 69 6e 20 74 |with kCo|mma in t|
|000063d0| 53 74 61 63 6b 32 0a 20 | 20 70 75 74 20 22 2c 23 |Stack2. | put ",#|
|000063e0| 23 23 23 23 52 45 56 49 | 44 3d 22 2c 74 68 65 20 |####REVI|D=",the |
|000063f0| 69 64 20 6f 66 20 70 43 | 61 72 64 2c 22 3d 23 23 |id of pC|ard,"=##|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
