/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume17 / tcl-editor / part16

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4e 65 77 73 67 72 6f 75 | 70 73 3a 20 63 6f 6d 70 |Newsgrou|ps: comp|
|00000010| 2e 73 6f 75 72 63 65 73 | 2e 78 0a 50 61 74 68 3a |.sources|.x.Path:|
|00000020| 20 75 75 6e 65 74 21 74 | 68 69 6e 6b 2e 63 6f 6d | uunet!t|hink.com|
|00000030| 21 6d 69 70 73 21 6d 73 | 69 21 64 63 6d 61 72 74 |!mips!ms|i!dcmart|
|00000040| 69 6e 0a 46 72 6f 6d 3a | 20 63 72 6f 77 6c 65 79 |in.From:| crowley|
|00000050| 40 63 68 61 63 6f 2e 63 | 73 2e 75 6e 6d 2e 65 64 |@chaco.c|s.unm.ed|
|00000060| 75 20 28 43 68 61 72 6c | 69 65 20 43 72 6f 77 6c |u (Charl|ie Crowl|
|00000070| 65 79 29 0a 53 75 62 6a | 65 63 74 3a 20 76 31 37 |ey).Subj|ect: v17|
|00000080| 69 30 31 37 3a 20 70 6f | 69 6e 74 20 74 65 78 74 |i017: po|int text|
|00000090| 20 65 64 69 74 6f 72 20 | 28 54 43 4c 20 61 6e 64 | editor |(TCL and|
|000000a0| 20 54 4b 29 2c 20 50 61 | 72 74 31 36 2f 31 36 0a | TK), Pa|rt16/16.|
|000000b0| 4d 65 73 73 61 67 65 2d | 49 44 3a 20 3c 31 39 39 |Message-|ID: <199|
|000000c0| 32 4d 61 72 31 38 2e 31 | 34 32 30 33 35 2e 32 38 |2Mar18.1|42035.28|
|000000d0| 30 34 33 40 6d 73 69 2e | 63 6f 6d 3e 0a 4f 72 69 |043@msi.|com>.Ori|
|000000e0| 67 69 6e 61 74 6f 72 3a | 20 64 63 6d 61 72 74 69 |ginator:| dcmarti|
|000000f0| 6e 40 66 61 73 63 65 74 | 0a 53 65 6e 64 65 72 3a |n@fascet|.Sender:|
|00000100| 20 64 63 6d 61 72 74 69 | 6e 40 6d 73 69 2e 63 6f | dcmarti|n@msi.co|
|00000110| 6d 20 28 44 61 76 69 64 | 20 43 2e 20 4d 61 72 74 |m (David| C. Mart|
|00000120| 69 6e 20 2d 20 4d 6f 64 | 65 72 61 74 6f 72 29 0a |in - Mod|erator).|
|00000130| 4f 72 67 61 6e 69 7a 61 | 74 69 6f 6e 3a 20 4d 6f |Organiza|tion: Mo|
|00000140| 6c 65 63 75 6c 61 72 20 | 53 69 6d 75 6c 61 74 69 |lecular |Simulati|
|00000150| 6f 6e 73 2c 20 49 6e 63 | 2e 0a 52 65 66 65 72 65 |ons, Inc|..Refere|
|00000160| 6e 63 65 73 3a 20 3c 63 | 73 78 2d 31 37 69 30 30 |nces: <c|sx-17i00|
|00000170| 32 2d 74 63 6c 2d 65 64 | 69 74 6f 72 40 75 75 6e |2-tcl-ed|itor@uun|
|00000180| 65 74 2e 55 55 2e 4e 45 | 54 3e 0a 44 61 74 65 3a |et.UU.NE|T>.Date:|
|00000190| 20 57 65 64 2c 20 31 38 | 20 4d 61 72 20 31 39 39 | Wed, 18| Mar 199|
|000001a0| 32 20 31 34 3a 32 30 3a | 33 35 20 47 4d 54 0a 41 |2 14:20:|35 GMT.A|
|000001b0| 70 70 72 6f 76 65 64 3a | 20 64 63 6d 61 72 74 69 |pproved:| dcmarti|
|000001c0| 6e 40 6d 73 69 2e 63 6f | 6d 0a 0a 53 75 62 6d 69 |n@msi.co|m..Submi|
|000001d0| 74 74 65 64 2d 62 79 3a | 20 63 72 6f 77 6c 65 79 |tted-by:| crowley|
|000001e0| 40 63 68 61 63 6f 2e 63 | 73 2e 75 6e 6d 2e 65 64 |@chaco.c|s.unm.ed|
|000001f0| 75 20 28 43 68 61 72 6c | 69 65 20 43 72 6f 77 6c |u (Charl|ie Crowl|
|00000200| 65 79 29 0a 50 6f 73 74 | 69 6e 67 2d 6e 75 6d 62 |ey).Post|ing-numb|
|00000210| 65 72 3a 20 56 6f 6c 75 | 6d 65 20 31 37 2c 20 49 |er: Volu|me 17, I|
|00000220| 73 73 75 65 20 31 37 0a | 41 72 63 68 69 76 65 2d |ssue 17.|Archive-|
|00000230| 6e 61 6d 65 3a 20 74 63 | 6c 2d 65 64 69 74 6f 72 |name: tc|l-editor|
|00000240| 2f 70 61 72 74 31 36 0a | 0a 23 21 20 2f 62 69 6e |/part16.|.#! /bin|
|00000250| 2f 73 68 0a 23 20 54 68 | 69 73 20 69 73 20 61 20 |/sh.# Th|is is a |
|00000260| 73 68 65 6c 6c 20 61 72 | 63 68 69 76 65 2e 20 20 |shell ar|chive.  |
|00000270| 52 65 6d 6f 76 65 20 61 | 6e 79 74 68 69 6e 67 20 |Remove a|nything |
|00000280| 62 65 66 6f 72 65 20 74 | 68 69 73 20 6c 69 6e 65 |before t|his line|
|00000290| 2c 20 74 68 65 6e 20 75 | 6e 70 61 63 6b 0a 23 20 |, then u|npack.# |
|000002a0| 69 74 20 62 79 20 73 61 | 76 69 6e 67 20 69 74 20 |it by sa|ving it |
|000002b0| 69 6e 74 6f 20 61 20 66 | 69 6c 65 20 61 6e 64 20 |into a f|ile and |
|000002c0| 74 79 70 69 6e 67 20 22 | 73 68 20 66 69 6c 65 22 |typing "|sh file"|
|000002d0| 2e 20 20 54 6f 20 6f 76 | 65 72 77 72 69 74 65 20 |.  To ov|erwrite |
|000002e0| 65 78 69 73 74 69 6e 67 | 0a 23 20 66 69 6c 65 73 |existing|.# files|
|000002f0| 2c 20 74 79 70 65 20 22 | 73 68 20 66 69 6c 65 20 |, type "|sh file |
|00000300| 2d 63 22 2e 20 20 59 6f | 75 20 63 61 6e 20 61 6c |-c".  Yo|u can al|
|00000310| 73 6f 20 66 65 65 64 20 | 74 68 69 73 20 61 73 20 |so feed |this as |
|00000320| 73 74 61 6e 64 61 72 64 | 20 69 6e 70 75 74 20 76 |standard| input v|
|00000330| 69 61 0a 23 20 75 6e 73 | 68 61 72 2c 20 6f 72 20 |ia.# uns|har, or |
|00000340| 62 79 20 74 79 70 69 6e | 67 20 22 73 68 20 3c 66 |by typin|g "sh <f|
|00000350| 69 6c 65 22 2c 20 65 2e | 67 2e 2e 20 20 49 66 20 |ile", e.|g..  If |
|00000360| 74 68 69 73 20 61 72 63 | 68 69 76 65 20 69 73 20 |this arc|hive is |
|00000370| 63 6f 6d 70 6c 65 74 65 | 2c 20 79 6f 75 0a 23 20 |complete|, you.# |
|00000380| 77 69 6c 6c 20 73 65 65 | 20 74 68 65 20 66 6f 6c |will see| the fol|
|00000390| 6c 6f 77 69 6e 67 20 6d | 65 73 73 61 67 65 20 61 |lowing m|essage a|
|000003a0| 74 20 74 68 65 20 65 6e | 64 3a 0a 23 09 09 22 45 |t the en|d:.#.."E|
|000003b0| 6e 64 20 6f 66 20 61 72 | 63 68 69 76 65 20 31 35 |nd of ar|chive 15|
|000003c0| 20 28 6f 66 20 31 35 29 | 2e 22 0a 23 20 43 6f 6e | (of 15)|.".# Con|
|000003d0| 74 65 6e 74 73 3a 20 20 | 74 6b 43 6f 6c 62 6f 78 |tents:  |tkColbox|
|000003e0| 2e 63 0a 23 20 57 72 61 | 70 70 65 64 20 62 79 20 |.c.# Wra|pped by |
|000003f0| 63 72 6f 77 6c 65 79 40 | 63 68 61 63 6f 2e 63 73 |crowley@|chaco.cs|
|00000400| 2e 75 6e 6d 2e 65 64 75 | 20 6f 6e 20 54 75 65 20 |.unm.edu| on Tue |
|00000410| 4d 61 72 20 31 30 20 31 | 35 3a 30 35 3a 35 32 20 |Mar 10 1|5:05:52 |
|00000420| 31 39 39 32 0a 50 41 54 | 48 3d 2f 62 69 6e 3a 2f |1992.PAT|H=/bin:/|
|00000430| 75 73 72 2f 62 69 6e 3a | 2f 75 73 72 2f 75 63 62 |usr/bin:|/usr/ucb|
|00000440| 20 3b 20 65 78 70 6f 72 | 74 20 50 41 54 48 0a 69 | ; expor|t PATH.i|
|00000450| 66 20 74 65 73 74 20 2d | 66 20 27 74 6b 43 6f 6c |f test -|f 'tkCol|
|00000460| 62 6f 78 2e 63 27 20 2d | 61 20 22 24 7b 31 7d 22 |box.c' -|a "${1}"|
|00000470| 20 21 3d 20 22 2d 63 22 | 20 3b 20 74 68 65 6e 20 | != "-c"| ; then |
|00000480| 0a 20 20 65 63 68 6f 20 | 73 68 61 72 3a 20 57 69 |.  echo |shar: Wi|
|00000490| 6c 6c 20 6e 6f 74 20 63 | 6c 6f 62 62 65 72 20 65 |ll not c|lobber e|
|000004a0| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 5c 22 27 |xisting |file \"'|
|000004b0| 74 6b 43 6f 6c 62 6f 78 | 2e 63 27 5c 22 0a 65 6c |tkColbox|.c'\".el|
|000004c0| 73 65 0a 65 63 68 6f 20 | 73 68 61 72 3a 20 45 78 |se.echo |shar: Ex|
|000004d0| 74 72 61 63 74 69 6e 67 | 20 5c 22 27 74 6b 43 6f |tracting| \"'tkCo|
|000004e0| 6c 62 6f 78 2e 63 27 5c | 22 20 5c 28 35 35 36 37 |lbox.c'\|" \(5567|
|000004f0| 32 20 63 68 61 72 61 63 | 74 65 72 73 5c 29 0a 73 |2 charac|ters\).s|
|00000500| 65 64 20 22 73 2f 5e 58 | 2f 2f 22 20 3e 27 74 6b |ed "s/^X|//" >'tk|
|00000510| 43 6f 6c 62 6f 78 2e 63 | 27 20 3c 3c 27 45 4e 44 |Colbox.c|' <<'END|
|00000520| 5f 4f 46 5f 46 49 4c 45 | 27 0a 58 2f 2a 20 0a 58 |_OF_FILE|'.X/* .X|
|00000530| 20 2a 20 74 6b 43 6f 6c | 62 6f 78 2e 63 20 2d 2d | * tkCol|box.c --|
|00000540| 0a 58 20 2a 0a 58 20 2a | 09 54 68 69 73 20 6d 6f |.X *.X *|.This mo|
|00000550| 64 75 6c 65 20 69 6d 70 | 6c 65 6d 65 6e 74 73 20 |dule imp|lements |
|00000560| 63 6f 6c 62 6f 78 20 77 | 69 64 67 65 74 73 20 66 |colbox w|idgets f|
|00000570| 6f 72 20 74 68 65 20 54 | 6b 0a 58 20 2a 09 74 6f |or the T|k.X *.to|
|00000580| 6f 6c 6b 69 74 2e 20 20 | 41 20 63 6f 6c 62 6f 78 |olkit.  |A colbox|
|00000590| 20 64 69 73 70 6c 61 79 | 73 20 61 20 63 6f 6c 6c | display|s a coll|
|000005a0| 65 63 74 69 6f 6e 20 6f | 66 20 73 74 72 69 6e 67 |ection o|f string|
|000005b0| 73 2c 0a 58 20 2a 09 4e | 20 70 65 72 20 6c 69 6e |s,.X *.N| per lin|
|000005c0| 65 20 28 77 68 65 72 65 | 20 4e 20 69 73 20 74 68 |e (where| N is th|
|000005d0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 6f 6c 75 |e number| of colu|
|000005e0| 6d 6e 73 20 63 68 6f 73 | 65 6e 20 62 79 0a 58 20 |mns chos|en by.X |
|000005f0| 2a 20 20 20 20 20 20 74 | 68 65 20 75 73 65 72 29 |*      t|he user)|
|00000600| 2c 20 61 6e 64 20 70 72 | 6f 76 69 64 65 73 20 73 |, and pr|ovides s|
|00000610| 63 72 6f 6c 6c 69 6e 67 | 20 61 6e 64 20 73 65 6c |crolling| and sel|
|00000620| 65 63 74 69 6f 6e 2e 0a | 58 20 2a 20 20 20 20 20 |ection..|X *     |
|00000630| 20 54 68 65 20 69 74 65 | 6d 73 20 69 6e 20 74 68 | The ite|ms in th|
|00000640| 65 20 6c 69 73 74 20 61 | 72 65 20 66 69 6c 6c 65 |e list a|re fille|
|00000650| 64 20 62 79 20 63 6f 6c | 75 6d 6e 73 2c 20 74 68 |d by col|umns, th|
|00000660| 61 74 20 69 73 2c 20 74 | 68 65 0a 58 20 2a 20 20 |at is, t|he.X *  |
|00000670| 20 20 20 20 66 69 72 73 | 74 20 63 6f 6c 75 6d 6e |    firs|t column|
|00000680| 20 69 73 20 66 69 6c 6c | 65 64 20 62 65 66 6f 72 | is fill|ed befor|
|00000690| 65 20 74 68 65 20 73 65 | 63 6f 6e 64 20 63 6f 6c |e the se|cond col|
|000006a0| 75 6d 6e 2c 20 61 6e 64 | 20 73 6f 20 6f 6e 2e 0a |umn, and| so on..|
|000006b0| 58 20 2a 20 20 20 20 20 | 20 54 68 75 73 20 61 6e |X *     | Thus an|
|000006c0| 20 61 6c 70 68 61 62 61 | 74 69 63 61 6c 20 6c 69 | alphaba|tical li|
|000006d0| 73 74 20 77 69 6c 6c 20 | 62 65 20 61 6c 70 68 61 |st will |be alpha|
|000006e0| 62 65 74 69 63 61 6c 20 | 62 79 20 63 6f 6c 75 6d |betical |by colum|
|000006f0| 6e 73 2e 0a 58 20 2a 20 | 20 20 20 20 20 49 74 20 |ns..X * |     It |
|00000700| 77 6f 75 6c 64 20 62 65 | 20 65 61 73 79 20 74 6f |would be| easy to|
|00000710| 20 61 64 64 20 6f 6e 20 | 6f 70 74 69 6f 6e 20 74 | add on |option t|
|00000720| 6f 20 66 69 6c 6c 20 62 | 79 20 72 6f 77 73 20 62 |o fill b|y rows b|
|00000730| 75 74 20 49 20 68 61 76 | 65 0a 58 20 2a 20 20 20 |ut I hav|e.X *   |
|00000740| 20 20 20 6e 6f 74 20 64 | 6f 6e 65 20 69 74 2e 0a |   not d|one it..|
|00000750| 58 20 2a 0a 58 20 2a 09 | 54 68 69 73 20 6d 6f 64 |X *.X *.|This mod|
|00000760| 75 6c 65 20 77 61 73 20 | 6d 6f 64 69 66 69 65 64 |ule was |modified|
|00000770| 20 74 6f 20 62 65 20 61 | 20 60 63 6f 6c 62 6f 78 | to be a| `colbox|
|00000780| 27 2c 20 74 68 61 74 20 | 69 73 2c 20 61 20 6c 69 |', that |is, a li|
|00000790| 73 74 62 6f 78 0a 58 20 | 2a 20 20 20 20 20 20 74 |stbox.X |*      t|
|000007a0| 68 61 74 20 77 69 6c 6c | 20 64 69 73 70 6c 61 79 |hat will| display|
|000007b0| 20 74 68 65 20 6c 69 73 | 74 20 69 6e 20 6f 6e 65 | the lis|t in one|
|000007c0| 20 6f 72 20 6d 6f 72 65 | 20 63 6f 6c 75 6d 6e 73 | or more| columns|
|000007d0| 2e 0a 58 20 2a 20 20 20 | 20 20 20 49 6e 20 61 64 |..X *   |   In ad|
|000007e0| 64 69 74 69 6f 6e 2c 20 | 61 20 63 6f 6d 6d 61 6e |dition, |a comman|
|000007f0| 64 20 74 6f 20 72 65 74 | 75 72 6e 20 74 68 65 20 |d to ret|urn the |
|00000800| 69 6e 64 65 78 65 73 20 | 6f 66 20 74 68 65 20 66 |indexes |of the f|
|00000810| 69 72 73 74 20 61 6e 64 | 0a 58 20 2a 20 20 20 20 |irst and|.X *    |
|00000820| 20 20 6c 61 73 74 20 73 | 65 6c 65 63 74 65 64 20 |  last s|elected |
|00000830| 65 6c 65 6d 65 6e 74 20 | 77 61 73 20 61 64 64 65 |element |was adde|
|00000840| 64 2e 20 20 74 68 69 73 | 20 63 6f 6d 6d 61 6e 64 |d.  this| command|
|00000850| 20 69 73 20 63 61 6c 6c | 65 64 0a 58 20 2a 20 20 | is call|ed.X *  |
|00000860| 20 20 20 20 27 73 65 6c | 6c 69 6d 69 74 73 27 20 |    'sel|limits' |
|00000870| 61 6e 64 20 63 61 75 73 | 65 73 20 74 68 65 20 61 |and caus|es the a|
|00000880| 62 62 72 65 76 69 61 74 | 69 6f 6e 20 27 73 65 27 |bbreviat|ion 'se'|
|00000890| 20 66 6f 72 20 27 73 65 | 6c 65 63 74 27 20 74 6f | for 'se|lect' to|
|000008a0| 0a 58 20 2a 20 20 20 20 | 20 20 6e 6f 20 6c 6f 6e |.X *    |  no lon|
|000008b0| 67 65 72 20 62 65 20 61 | 20 76 61 6c 69 64 20 61 |ger be a| valid a|
|000008c0| 62 62 72 65 76 69 61 74 | 69 6f 6e 2e 0a 58 20 2a |bbreviat|ion..X *|
|000008d0| 20 20 20 20 20 20 46 69 | 6e 61 6c 6c 79 20 49 20 |      Fi|nally I |
|000008e0| 61 64 64 65 64 20 61 20 | 72 65 73 6f 75 72 63 65 |added a |resource|
|000008f0| 20 74 6f 20 70 72 65 76 | 65 6e 74 20 6c 6f 73 69 | to prev|ent losi|
|00000900| 6e 67 20 74 68 65 20 58 | 20 73 65 6c 65 63 74 69 |ng the X| selecti|
|00000910| 6f 6e 0a 58 20 2a 20 20 | 20 20 20 20 66 72 6f 6d |on.X *  |    from|
|00000920| 20 64 65 73 65 6c 65 63 | 74 69 6e 67 20 74 68 65 | deselec|ting the|
|00000930| 20 73 65 6c 65 63 74 65 | 64 20 65 6c 65 6d 65 6e | selecte|d elemen|
|00000940| 74 73 2e 20 20 54 68 69 | 73 20 69 73 20 74 6f 20 |ts.  Thi|s is to |
|00000950| 61 6c 6c 6f 77 20 73 65 | 76 65 72 61 6c 0a 58 20 |allow se|veral.X |
|00000960| 2a 20 20 20 20 20 20 6c | 69 73 74 20 62 6f 78 65 |*      l|ist boxe|
|00000970| 73 20 74 6f 20 68 61 76 | 65 20 73 65 6c 65 63 74 |s to hav|e select|
|00000980| 69 6f 6e 73 20 73 69 6d | 75 6c 74 61 6e 65 6f 75 |ions sim|ultaneou|
|00000990| 73 6c 79 2e 0a 58 20 2a | 20 20 20 20 20 20 54 68 |sly..X *|      Th|
|000009a0| 65 20 6d 6f 64 69 66 69 | 63 61 74 69 6f 6e 73 20 |e modifi|cations |
|000009b0| 77 65 72 65 20 64 6f 6e | 65 20 69 6e 20 4a 75 6c |were don|e in Jul|
|000009c0| 79 20 31 39 39 31 20 62 | 79 0a 58 20 2a 20 20 20 |y 1991 b|y.X *   |
|000009d0| 20 20 20 20 20 20 20 20 | 43 68 61 72 6c 65 73 20 |        |Charles |
|000009e0| 43 72 6f 77 6c 65 79 0a | 58 20 2a 20 20 20 20 20 |Crowley.|X *     |
|000009f0| 20 20 20 20 20 20 43 6f | 6d 70 75 74 65 72 20 53 |      Co|mputer S|
|00000a00| 63 69 65 6e 63 65 20 44 | 65 70 61 72 74 6d 65 6e |cience D|epartmen|
|00000a10| 74 0a 58 20 2a 20 20 20 | 20 20 20 20 20 20 20 20 |t.X *   |        |
|00000a20| 55 6e 69 76 65 72 73 69 | 74 79 20 6f 66 20 4e 65 |Universi|ty of Ne|
|00000a30| 77 20 4d 65 78 69 63 6f | 0a 58 20 2a 20 20 20 20 |w Mexico|.X *    |
|00000a40| 20 20 20 20 20 20 20 41 | 6c 62 75 71 75 65 72 71 |       A|lbuquerq|
|00000a50| 75 65 2c 20 4e 4d 20 38 | 37 31 33 31 0a 58 20 2a |ue, NM 8|7131.X *|
|00000a60| 20 20 20 20 20 20 20 20 | 20 20 20 35 30 35 2d 32 |        |   505-2|
|00000a70| 37 37 2d 33 31 31 32 0a | 58 20 2a 20 20 20 20 20 |77-3112.|X *     |
|00000a80| 20 20 20 20 20 20 63 72 | 6f 77 6c 65 79 40 75 6e |      cr|owley@un|
|00000a90| 6d 76 61 78 2e 63 73 2e | 75 6e 6d 2e 65 64 75 0a |mvax.cs.|unm.edu.|
|00000aa0| 58 20 2a 0a 58 20 2a 20 | 43 6f 70 79 72 69 67 68 |X *.X * |Copyrigh|
|00000ab0| 74 20 31 39 39 30 20 52 | 65 67 65 6e 74 73 20 6f |t 1990 R|egents o|
|00000ac0| 66 20 74 68 65 20 55 6e | 69 76 65 72 73 69 74 79 |f the Un|iversity|
|00000ad0| 20 6f 66 20 43 61 6c 69 | 66 6f 72 6e 69 61 2e 0a | of Cali|fornia..|
|00000ae0| 58 20 2a 20 50 65 72 6d | 69 73 73 69 6f 6e 20 74 |X * Perm|ission t|
|00000af0| 6f 20 75 73 65 2c 20 63 | 6f 70 79 2c 20 6d 6f 64 |o use, c|opy, mod|
|00000b00| 69 66 79 2c 20 61 6e 64 | 20 64 69 73 74 72 69 62 |ify, and| distrib|
|00000b10| 75 74 65 20 74 68 69 73 | 0a 58 20 2a 20 73 6f 66 |ute this|.X * sof|
|00000b20| 74 77 61 72 65 20 61 6e | 64 20 69 74 73 20 64 6f |tware an|d its do|
|00000b30| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 20 66 6f 72 20 |cumentat|ion for |
|00000b40| 61 6e 79 20 70 75 72 70 | 6f 73 65 20 61 6e 64 20 |any purp|ose and |
|00000b50| 77 69 74 68 6f 75 74 0a | 58 20 2a 20 66 65 65 20 |without.|X * fee |
|00000b60| 69 73 20 68 65 72 65 62 | 79 20 67 72 61 6e 74 65 |is hereb|y grante|
|00000b70| 64 2c 20 70 72 6f 76 69 | 64 65 64 20 74 68 61 74 |d, provi|ded that|
|00000b80| 20 74 68 65 20 61 62 6f | 76 65 20 63 6f 70 79 72 | the abo|ve copyr|
|00000b90| 69 67 68 74 0a 58 20 2a | 20 6e 6f 74 69 63 65 20 |ight.X *| notice |
|00000ba0| 61 70 70 65 61 72 20 69 | 6e 20 61 6c 6c 20 63 6f |appear i|n all co|
|00000bb0| 70 69 65 73 2e 20 20 54 | 68 65 20 55 6e 69 76 65 |pies.  T|he Unive|
|00000bc0| 72 73 69 74 79 20 6f 66 | 20 43 61 6c 69 66 6f 72 |rsity of| Califor|
|00000bd0| 6e 69 61 0a 58 20 2a 20 | 6d 61 6b 65 73 20 6e 6f |nia.X * |makes no|
|00000be0| 20 72 65 70 72 65 73 65 | 6e 74 61 74 69 6f 6e 73 | represe|ntations|
|00000bf0| 20 61 62 6f 75 74 20 74 | 68 65 20 73 75 69 74 61 | about t|he suita|
|00000c00| 62 69 6c 69 74 79 20 6f | 66 20 74 68 69 73 0a 58 |bility o|f this.X|
|00000c10| 20 2a 20 73 6f 66 74 77 | 61 72 65 20 66 6f 72 20 | * softw|are for |
|00000c20| 61 6e 79 20 70 75 72 70 | 6f 73 65 2e 20 20 49 74 |any purp|ose.  It|
|00000c30| 20 69 73 20 70 72 6f 76 | 69 64 65 64 20 22 61 73 | is prov|ided "as|
|00000c40| 20 69 73 22 20 77 69 74 | 68 6f 75 74 0a 58 20 2a | is" wit|hout.X *|
|00000c50| 20 65 78 70 72 65 73 73 | 20 6f 72 20 69 6d 70 6c | express| or impl|
|00000c60| 69 65 64 20 77 61 72 72 | 61 6e 74 79 2e 0a 58 20 |ied warr|anty..X |
|00000c70| 2a 2f 0a 58 0a 58 23 69 | 6e 63 6c 75 64 65 20 3c |*/.X.X#i|nclude <|
|00000c80| 73 74 64 69 6f 2e 68 3e | 0a 58 23 69 6e 63 6c 75 |stdio.h>|.X#inclu|
|00000c90| 64 65 20 3c 73 74 64 6c | 69 62 2e 68 3e 0a 58 23 |de <stdl|ib.h>.X#|
|00000ca0| 69 6e 63 6c 75 64 65 20 | 3c 73 74 72 69 6e 67 2e |include |<string.|
|00000cb0| 68 3e 0a 58 23 69 6e 63 | 6c 75 64 65 20 3c 58 31 |h>.X#inc|lude <X1|
|00000cc0| 31 2f 58 61 74 6f 6d 2e | 68 3e 0a 58 23 69 6e 63 |1/Xatom.|h>.X#inc|
|00000cd0| 6c 75 64 65 20 22 74 6b | 43 6f 6e 66 69 67 2e 68 |lude "tk|Config.h|
|00000ce0| 22 0a 58 23 69 6e 63 6c | 75 64 65 20 22 64 65 66 |".X#incl|ude "def|
|00000cf0| 61 75 6c 74 2e 68 22 0a | 58 23 69 6e 63 6c 75 64 |ault.h".|X#includ|
|00000d00| 65 20 22 74 6b 49 6e 74 | 2e 68 22 0a 58 0a 58 2f |e "tkInt|.h".X.X/|
|00000d10| 2a 0a 58 20 2a 20 4f 6e | 65 20 72 65 63 6f 72 64 |*.X * On|e record|
|00000d20| 20 6f 66 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e | of the |followin|
|00000d30| 67 20 74 79 70 65 20 69 | 73 20 6b 65 70 74 20 66 |g type i|s kept f|
|00000d40| 6f 72 20 65 61 63 68 20 | 65 6c 65 6d 65 6e 74 0a |or each |element.|
|00000d50| 58 20 2a 20 61 73 73 6f | 63 69 61 74 65 64 20 77 |X * asso|ciated w|
|00000d60| 69 74 68 20 61 20 6c 69 | 73 74 62 6f 78 20 77 69 |ith a li|stbox wi|
|00000d70| 64 67 65 74 3a 0a 58 20 | 2a 2f 0a 58 0a 74 79 70 |dget:.X |*/.X.typ|
|00000d80| 65 64 65 66 20 73 74 72 | 75 63 74 20 45 6c 65 6d |edef str|uct Elem|
|00000d90| 65 6e 74 20 7b 0a 58 20 | 20 20 20 69 6e 74 20 74 |ent {.X |   int t|
|00000da0| 65 78 74 4c 65 6e 67 74 | 68 3b 09 09 2f 2a 20 23 |extLengt|h;../* #|
|00000db0| 20 6e 6f 6e 2d 4e 55 4c | 4c 20 63 68 61 72 61 63 | non-NUL|L charac|
|00000dc0| 74 65 72 73 20 69 6e 20 | 74 65 78 74 2e 20 2a 2f |ters in |text. */|
|00000dd0| 0a 58 20 20 20 20 69 6e | 74 20 6c 42 65 61 72 69 |.X    in|t lBeari|
|00000de0| 6e 67 3b 09 09 2f 2a 20 | 44 69 73 74 61 6e 63 65 |ng;../* |Distance|
|00000df0| 20 66 72 6f 6d 20 66 69 | 72 73 74 20 63 68 61 72 | from fi|rst char|
|00000e00| 61 63 74 65 72 27 73 0a | 58 09 09 09 09 20 2a 20 |acter's.|X.... * |
|00000e10| 6f 72 69 67 69 6e 20 74 | 6f 20 6c 65 66 74 20 65 |origin t|o left e|
|00000e20| 64 67 65 20 6f 66 20 63 | 68 61 72 61 63 74 65 72 |dge of c|haracter|
|00000e30| 2e 20 2a 2f 0a 58 20 20 | 20 20 73 74 72 75 63 74 |. */.X  |  struct|
|00000e40| 20 45 6c 65 6d 65 6e 74 | 20 2a 6e 65 78 74 50 74 | Element| *nextPt|
|00000e50| 72 3b 09 2f 2a 20 4e 65 | 78 74 20 69 6e 20 6c 69 |r;./* Ne|xt in li|
|00000e60| 73 74 20 6f 66 20 61 6c | 6c 20 65 6c 65 6d 65 6e |st of al|l elemen|
|00000e70| 74 73 20 6f 66 20 74 68 | 69 73 0a 58 09 09 09 09 |ts of th|is.X....|
|00000e80| 20 2a 20 6c 69 73 74 62 | 6f 78 2c 20 6f 72 20 4e | * listb|ox, or N|
|00000e90| 55 4c 4c 20 66 6f 72 20 | 6c 61 73 74 20 65 6c 65 |ULL for |last ele|
|00000ea0| 6d 65 6e 74 2e 20 2a 2f | 0a 58 20 20 20 20 63 68 |ment. */|.X    ch|
|00000eb0| 61 72 20 74 65 78 74 5b | 34 5d 3b 09 09 2f 2a 20 |ar text[|4];../* |
|00000ec0| 43 68 61 72 61 63 74 65 | 72 73 20 6f 66 20 74 68 |Characte|rs of th|
|00000ed0| 69 73 20 65 6c 65 6d 65 | 6e 74 2c 20 4e 55 4c 4c |is eleme|nt, NULL|
|00000ee0| 2d 0a 58 09 09 09 09 20 | 2a 20 74 65 72 6d 69 6e |-.X.... |* termin|
|00000ef0| 61 74 65 64 2e 20 20 54 | 68 65 20 61 63 74 75 61 |ated.  T|he actua|
|00000f00| 6c 20 73 70 61 63 65 20 | 61 6c 6c 6f 63 61 74 65 |l space |allocate|
|00000f10| 64 0a 58 09 09 09 09 20 | 2a 20 68 65 72 65 20 77 |d.X.... |* here w|
|00000f20| 69 6c 6c 20 62 65 20 61 | 73 20 6c 61 72 67 65 20 |ill be a|s large |
|00000f30| 61 73 20 6e 65 65 64 65 | 64 20 28 3e 20 34 2c 0a |as neede|d (> 4,.|
|00000f40| 58 09 09 09 09 20 2a 20 | 6d 6f 73 74 20 6c 69 6b |X.... * |most lik|
|00000f50| 65 6c 79 29 2e 20 20 4d | 75 73 74 20 62 65 20 74 |ely).  M|ust be t|
|00000f60| 68 65 20 6c 61 73 74 20 | 66 69 65 6c 64 0a 58 09 |he last |field.X.|
|00000f70| 09 09 09 20 2a 20 6f 66 | 20 74 68 65 20 72 65 63 |... * of| the rec|
|00000f80| 6f 72 64 2e 20 2a 2f 0a | 58 7d 20 45 6c 65 6d 65 |ord. */.|X} Eleme|
|00000f90| 6e 74 3b 0a 58 0a 58 23 | 64 65 66 69 6e 65 20 45 |nt;.X.X#|define E|
|00000fa0| 6c 65 6d 65 6e 74 53 69 | 7a 65 28 73 74 72 69 6e |lementSi|ze(strin|
|00000fb0| 67 4c 65 6e 67 74 68 29 | 20 5c 0a 58 09 28 28 75 |gLength)| \.X.((u|
|00000fc0| 6e 73 69 67 6e 65 64 29 | 20 28 73 69 7a 65 6f 66 |nsigned)| (sizeof|
|00000fd0| 28 45 6c 65 6d 65 6e 74 | 29 20 2d 20 33 20 2b 20 |(Element|) - 3 + |
|00000fe0| 73 74 72 69 6e 67 4c 65 | 6e 67 74 68 29 29 0a 58 |stringLe|ngth)).X|
|00000ff0| 0a 58 23 64 65 66 69 6e | 65 20 4d 41 58 5f 43 4f |.X#defin|e MAX_CO|
|00001000| 4c 53 09 35 30 09 2f 2a | 20 73 65 65 6d 73 20 62 |LS.50./*| seems b|
|00001010| 69 67 20 65 6e 6f 75 67 | 68 20 2a 2f 0a 58 0a 58 |ig enoug|h */.X.X|
|00001020| 2f 2a 0a 58 20 2a 20 41 | 20 64 61 74 61 20 73 74 |/*.X * A| data st|
|00001030| 72 75 63 74 75 72 65 20 | 6f 66 20 74 68 65 20 66 |ructure |of the f|
|00001040| 6f 6c 6c 6f 77 69 6e 67 | 20 74 79 70 65 20 69 73 |ollowing| type is|
|00001050| 20 6b 65 70 74 20 66 6f | 72 20 65 61 63 68 20 6c | kept fo|r each l|
|00001060| 69 73 74 62 6f 78 0a 58 | 20 2a 20 77 69 64 67 65 |istbox.X| * widge|
|00001070| 74 20 6d 61 6e 61 67 65 | 64 20 62 79 20 74 68 69 |t manage|d by thi|
|00001080| 73 20 66 69 6c 65 3a 0a | 58 20 2a 2f 0a 58 0a 74 |s file:.|X */.X.t|
|00001090| 79 70 65 64 65 66 20 73 | 74 72 75 63 74 20 7b 0a |ypedef s|truct {.|
|000010a0| 58 20 20 20 20 54 6b 5f | 57 69 6e 64 6f 77 20 74 |X    Tk_|Window t|
|000010b0| 6b 77 69 6e 3b 09 09 2f | 2a 20 57 69 6e 64 6f 77 |kwin;../|* Window|
|000010c0| 20 74 68 61 74 20 65 6d | 62 6f 64 69 65 73 20 74 | that em|bodies t|
|000010d0| 68 65 20 6c 69 73 74 62 | 6f 78 2e 20 20 4e 55 4c |he listb|ox.  NUL|
|000010e0| 4c 0a 58 09 09 09 09 20 | 2a 20 6d 65 61 6e 73 20 |L.X.... |* means |
|000010f0| 74 68 61 74 20 74 68 65 | 20 77 69 6e 64 6f 77 20 |that the| window |
|00001100| 68 61 73 20 62 65 65 6e | 20 64 65 73 74 72 6f 79 |has been| destroy|
|00001110| 65 64 0a 58 09 09 09 09 | 20 2a 20 62 75 74 20 74 |ed.X....| * but t|
|00001120| 68 65 20 64 61 74 61 20 | 73 74 72 75 63 74 75 72 |he data |structur|
|00001130| 65 73 20 68 61 76 65 6e | 27 74 20 79 65 74 20 62 |es haven|'t yet b|
|00001140| 65 65 6e 0a 58 09 09 09 | 09 20 2a 20 63 6c 65 61 |een.X...|. * clea|
|00001150| 6e 65 64 20 75 70 2e 2a | 2f 0a 58 20 20 20 20 54 |ned up.*|/.X    T|
|00001160| 63 6c 5f 49 6e 74 65 72 | 70 20 2a 69 6e 74 65 72 |cl_Inter|p *inter|
|00001170| 70 3b 09 09 2f 2a 20 49 | 6e 74 65 72 70 72 65 74 |p;../* I|nterpret|
|00001180| 65 72 20 61 73 73 6f 63 | 69 61 74 65 64 20 77 69 |er assoc|iated wi|
|00001190| 74 68 20 6c 69 73 74 62 | 6f 78 2e 20 2a 2f 0a 58 |th listb|ox. */.X|
|000011a0| 20 20 20 20 69 6e 74 20 | 6e 75 6d 45 6c 65 6d 65 |    int |numEleme|
|000011b0| 6e 74 73 3b 09 09 2f 2a | 20 54 6f 74 61 6c 20 6e |nts;../*| Total n|
|000011c0| 75 6d 62 65 72 20 6f 66 | 20 65 6c 65 6d 65 6e 74 |umber of| element|
|000011d0| 73 20 69 6e 20 74 68 69 | 73 20 6c 69 73 74 62 6f |s in thi|s listbo|
|000011e0| 78 2e 20 2a 2f 0a 58 20 | 20 20 20 45 6c 65 6d 65 |x. */.X |   Eleme|
|000011f0| 6e 74 20 2a 65 6c 65 6d | 65 6e 74 50 74 72 3b 09 |nt *elem|entPtr;.|
|00001200| 2f 2a 20 46 69 72 73 74 | 20 69 6e 20 6c 69 73 74 |/* First| in list|
|00001210| 20 6f 66 20 65 6c 65 6d | 65 6e 74 73 20 28 4e 55 | of elem|ents (NU|
|00001220| 4c 4c 20 69 66 20 6e 6f | 0a 58 09 09 09 09 20 2a |LL if no|.X.... *|
|00001230| 20 65 6c 65 6d 65 6e 74 | 73 2e 20 2a 2f 0a 58 0a | element|s. */.X.|
|00001240| 58 20 20 20 20 2f 2a 0a | 58 20 20 20 20 20 2a 20 |X    /*.|X     * |
|00001250| 49 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 75 73 65 64 |Informat|ion used|
|00001260| 20 77 68 65 6e 20 64 69 | 73 70 6c 61 79 69 6e 67 | when di|splaying|
|00001270| 20 77 69 64 67 65 74 3a | 0a 58 20 20 20 20 20 2a | widget:|.X     *|
|00001280| 2f 0a 58 0a 58 20 20 20 | 20 54 6b 5f 33 44 42 6f |/.X.X   | Tk_3DBo|
|00001290| 72 64 65 72 20 6e 6f 72 | 6d 61 6c 42 6f 72 64 65 |rder nor|malBorde|
|000012a0| 72 3b 09 2f 2a 20 55 73 | 65 64 20 66 6f 72 20 64 |r;./* Us|ed for d|
|000012b0| 72 61 77 69 6e 67 20 62 | 6f 72 64 65 72 20 61 72 |rawing b|order ar|
|000012c0| 6f 75 6e 64 20 77 68 6f | 6c 65 0a 58 09 09 09 09 |ound who|le.X....|
|000012d0| 20 2a 20 77 69 6e 64 6f | 77 2c 20 70 6c 75 73 20 | * windo|w, plus |
|000012e0| 75 73 65 64 20 66 6f 72 | 20 62 61 63 6b 67 72 6f |used for| backgro|
|000012f0| 75 6e 64 2e 20 2a 2f 0a | 58 20 20 20 20 69 6e 74 |und. */.|X    int|
|00001300| 20 62 6f 72 64 65 72 57 | 69 64 74 68 3b 09 09 2f | borderW|idth;../|
|00001310| 2a 20 57 69 64 74 68 20 | 6f 66 20 33 2d 44 20 62 |* Width |of 3-D b|
|00001320| 6f 72 64 65 72 20 61 72 | 6f 75 6e 64 20 77 69 6e |order ar|ound win|
|00001330| 64 6f 77 2e 20 2a 2f 0a | 58 20 20 20 20 69 6e 74 |dow. */.|X    int|
|00001340| 20 72 65 6c 69 65 66 3b | 09 09 09 2f 2a 20 33 2d | relief;|.../* 3-|
|00001350| 44 20 65 66 66 65 63 74 | 3a 20 54 4b 5f 52 45 4c |D effect|: TK_REL|
|00001360| 49 45 46 5f 52 41 49 53 | 45 44 2c 20 65 74 63 2e |IEF_RAIS|ED, etc.|
|00001370| 20 2a 2f 0a 58 20 20 20 | 20 58 46 6f 6e 74 53 74 | */.X   | XFontSt|
|00001380| 72 75 63 74 20 2a 66 6f | 6e 74 50 74 72 3b 09 2f |ruct *fo|ntPtr;./|
|00001390| 2a 20 49 6e 66 6f 72 6d | 61 74 69 6f 6e 20 61 62 |* Inform|ation ab|
|000013a0| 6f 75 74 20 74 65 78 74 | 20 66 6f 6e 74 2c 20 6f |out text| font, o|
|000013b0| 72 20 4e 55 4c 4c 2e 20 | 2a 2f 0a 58 20 20 20 20 |r NULL. |*/.X    |
|000013c0| 58 43 6f 6c 6f 72 20 2a | 66 67 43 6f 6c 6f 72 50 |XColor *|fgColorP|
|000013d0| 74 72 3b 09 09 2f 2a 20 | 54 65 78 74 20 63 6f 6c |tr;../* |Text col|
|000013e0| 6f 72 20 69 6e 20 6e 6f | 72 6d 61 6c 20 6d 6f 64 |or in no|rmal mod|
|000013f0| 65 2e 20 2a 2f 0a 58 20 | 20 20 20 47 43 20 74 65 |e. */.X |   GC te|
|00001400| 78 74 47 43 3b 09 09 09 | 2f 2a 20 46 6f 72 20 64 |xtGC;...|/* For d|
|00001410| 72 61 77 69 6e 67 20 6e | 6f 72 6d 61 6c 20 74 65 |rawing n|ormal te|
|00001420| 78 74 2e 20 2a 2f 0a 58 | 20 20 20 20 54 6b 5f 33 |xt. */.X|    Tk_3|
|00001430| 44 42 6f 72 64 65 72 20 | 73 65 6c 42 6f 72 64 65 |DBorder |selBorde|
|00001440| 72 3b 09 2f 2a 20 42 6f | 72 64 65 72 73 20 61 6e |r;./* Bo|rders an|
|00001450| 64 20 62 61 63 6b 67 72 | 6f 75 6e 64 73 20 66 6f |d backgr|ounds fo|
|00001460| 72 20 73 65 6c 65 63 74 | 65 64 0a 58 09 09 09 09 |r select|ed.X....|
|00001470| 20 2a 20 65 6c 65 6d 65 | 6e 74 73 2e 20 2a 2f 0a | * eleme|nts. */.|
|00001480| 58 20 20 20 20 69 6e 74 | 20 73 65 6c 42 6f 72 64 |X    int| selBord|
|00001490| 65 72 57 69 64 74 68 3b | 09 09 2f 2a 20 57 69 64 |erWidth;|../* Wid|
|000014a0| 74 68 20 6f 66 20 62 6f | 72 64 65 72 20 61 72 6f |th of bo|rder aro|
|000014b0| 75 6e 64 20 73 65 6c 65 | 63 74 69 6f 6e 2e 20 2a |und sele|ction. *|
|000014c0| 2f 0a 58 20 20 20 20 58 | 43 6f 6c 6f 72 20 2a 73 |/.X    X|Color *s|
|000014d0| 65 6c 46 67 43 6f 6c 6f | 72 50 74 72 3b 09 2f 2a |elFgColo|rPtr;./*|
|000014e0| 20 46 6f 72 65 67 72 6f | 75 6e 64 20 63 6f 6c 6f | Foregro|und colo|
|000014f0| 72 20 66 6f 72 20 73 65 | 6c 65 63 74 65 64 20 65 |r for se|lected e|
|00001500| 6c 65 6d 65 6e 74 73 2e | 20 2a 2f 0a 58 20 20 20 |lements.| */.X   |
|00001510| 20 47 43 20 73 65 6c 54 | 65 78 74 47 43 3b 09 09 | GC selT|extGC;..|
|00001520| 2f 2a 20 46 6f 72 20 64 | 72 61 77 69 6e 67 20 73 |/* For d|rawing s|
|00001530| 65 6c 65 63 74 65 64 20 | 74 65 78 74 2e 20 2a 2f |elected |text. */|
|00001540| 0a 58 20 20 20 20 63 68 | 61 72 20 2a 67 65 6f 6d |.X    ch|ar *geom|
|00001550| 65 74 72 79 3b 09 09 2f | 2a 20 44 65 73 69 72 65 |etry;../|* Desire|
|00001560| 64 20 67 65 6f 6d 65 74 | 72 79 20 66 6f 72 20 77 |d geomet|ry for w|
|00001570| 69 6e 64 6f 77 2e 20 20 | 4d 61 6c 6c 6f 63 27 65 |indow.  |Malloc'e|
|00001580| 64 2e 20 2a 2f 0a 58 20 | 20 20 20 69 6e 74 20 6c |d. */.X |   int l|
|00001590| 69 6e 65 48 65 69 67 68 | 74 3b 09 09 2f 2a 20 4e |ineHeigh|t;../* N|
|000015a0| 75 6d 62 65 72 20 6f 66 | 20 70 69 78 65 6c 73 20 |umber of| pixels |
|000015b0| 61 6c 6c 6f 63 61 74 65 | 64 20 66 6f 72 20 65 61 |allocate|d for ea|
|000015c0| 63 68 20 6c 69 6e 65 0a | 58 09 09 09 09 20 2a 20 |ch line.|X.... * |
|000015d0| 69 6e 20 64 69 73 70 6c | 61 79 2e 20 2a 2f 0a 58 |in displ|ay. */.X|
|000015e0| 20 20 20 20 69 6e 74 20 | 74 6f 70 49 6e 64 65 78 |    int |topIndex|
|000015f0| 3b 09 09 2f 2a 20 49 6e | 64 65 78 20 6f 66 20 74 |;../* In|dex of t|
|00001600| 6f 70 2d 6d 6f 73 74 20 | 65 6c 65 6d 65 6e 74 20 |op-most |element |
|00001610| 76 69 73 69 62 6c 65 20 | 69 6e 0a 58 09 09 09 09 |visible |in.X....|
|00001620| 20 2a 20 77 69 6e 64 6f | 77 20 28 6f 6e 20 74 68 | * windo|w (on th|
|00001630| 65 20 6c 65 66 74 20 6d | 6f 73 74 20 63 6f 6c 75 |e left m|ost colu|
|00001640| 6d 6e 29 2e 20 2a 2f 0a | 58 20 20 20 20 69 6e 74 |mn). */.|X    int|
|00001650| 20 6e 75 6d 4c 69 6e 65 | 73 3b 09 09 2f 2a 20 4e | numLine|s;../* N|
|00001660| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 74 |umber of| lines t|
|00001670| 68 61 74 20 66 69 74 0a | 58 09 09 09 09 20 2a 20 |hat fit.|X.... * |
|00001680| 69 6e 20 77 69 6e 64 6f | 77 20 61 74 20 6f 6e 65 |in windo|w at one|
|00001690| 20 74 69 6d 65 2e 20 2a | 2f 0a 58 20 20 20 20 69 | time. *|/.X    i|
|000016a0| 6e 74 20 63 6f 6c 75 6d | 6e 73 3b 09 09 2f 2a 20 |nt colum|ns;../* |
|000016b0| 4e 75 6d 62 65 72 20 6f | 66 20 63 6f 6c 75 6d 6e |Number o|f column|
|000016c0| 73 20 74 6f 20 64 69 73 | 70 6c 61 79 2e 20 43 61 |s to dis|play. Ca|
|000016d0| 6e 20 62 65 20 61 74 0a | 58 20 20 20 20 20 20 20 |n be at.|X       |
|000016e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000016f0| 20 20 20 20 20 20 20 20 | 20 20 2a 20 6d 6f 73 74 |        |  * most|
|00001700| 20 4d 41 58 5f 43 4f 4c | 53 2e 20 2a 2f 0a 58 20 | MAX_COL|S. */.X |
|00001710| 20 20 20 69 6e 74 20 6e | 6f 78 73 65 6c 3b 09 09 |   int n|oxsel;..|
|00001720| 09 2f 2a 20 49 66 20 74 | 72 75 65 2c 20 74 68 65 |./* If t|rue, the|
|00001730| 6e 20 64 6f 20 6e 6f 74 | 20 64 65 73 65 6c 65 63 |n do not| deselec|
|00001740| 74 20 65 6c 65 6d 65 6e | 74 73 0a 58 20 20 20 20 |t elemen|ts.X    |
|00001750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 20 77 |        |     * w|
|00001770| 68 65 6e 20 77 65 20 6c | 6f 73 65 20 74 68 65 20 |hen we l|ose the |
|00001780| 58 20 73 65 6c 65 63 74 | 69 6f 6e 2e 20 2a 2f 0a |X select|ion. */.|
|00001790| 58 20 20 20 20 69 6e 74 | 20 6e 75 6d 49 6e 43 6f |X    int| numInCo|
|000017a0| 6c 75 6d 6e 3b 09 09 2f | 2a 20 4e 75 6d 62 65 72 |lumn;../|* Number|
|000017b0| 20 6f 66 20 65 6c 65 6d | 65 6e 74 73 20 69 6e 20 | of elem|ents in |
|000017c0| 6f 6e 65 20 63 6f 6c 75 | 6d 6e 2e 20 2a 2f 0a 58 |one colu|mn. */.X|
|000017d0| 20 20 20 20 69 6e 74 20 | 72 65 64 72 61 77 46 69 |    int |redrawFi|
|000017e0| 72 73 74 3b 09 09 2f 2a | 20 49 6e 64 65 78 20 28 |rst;../*| Index (|
|000017f0| 69 6e 20 65 6c 65 6d 65 | 6e 74 20 6c 69 73 74 2c |in eleme|nt list,|
|00001800| 20 6e 6f 74 20 6f 6e 20 | 64 69 73 70 6c 61 79 29 | not on |display)|
|00001810| 0a 58 09 09 09 09 20 2a | 20 6f 66 20 66 69 72 73 |.X.... *| of firs|
|00001820| 74 20 65 6c 65 6d 65 6e | 74 20 28 69 6e 20 74 68 |t elemen|t (in th|
|00001830| 65 20 6c 65 66 74 20 6d | 6f 73 74 20 63 6f 6c 75 |e left m|ost colu|
|00001840| 6d 6e 29 0a 58 09 09 09 | 09 20 2a 20 74 6f 20 72 |mn).X...|. * to r|
|00001850| 65 64 69 73 70 6c 61 79 | 2e 20 20 2d 31 20 6d 65 |edisplay|.  -1 me|
|00001860| 61 6e 73 0a 58 09 09 09 | 09 20 2a 20 6e 6f 20 72 |ans.X...|. * no r|
|00001870| 65 64 69 73 70 6c 61 79 | 20 70 65 6e 64 69 6e 67 |edisplay| pending|
|00001880| 2e 20 2a 2f 0a 58 20 20 | 20 20 69 6e 74 20 72 65 |. */.X  |  int re|
|00001890| 64 72 61 77 4c 61 73 74 | 3b 09 09 2f 2a 20 49 6e |drawLast|;../* In|
|000018a0| 64 65 78 20 6f 66 20 6c | 61 73 74 20 65 6c 65 6d |dex of l|ast elem|
|000018b0| 65 6e 74 20 74 6f 20 72 | 65 64 69 73 70 6c 61 79 |ent to r|edisplay|
|000018c0| 2e 20 2a 2f 0a 58 20 20 | 20 20 69 6e 74 20 73 63 |. */.X  |  int sc|
|000018d0| 72 6f 6c 6c 4c 69 6e 65 | 73 3b 09 09 2f 2a 20 49 |rollLine|s;../* I|
|000018e0| 66 20 6e 6f 6e 2d 7a 65 | 72 6f 2c 20 74 68 65 6e |f non-ze|ro, then|
|000018f0| 20 44 69 73 70 6c 61 79 | 4c 69 73 74 62 6f 78 20 | Display|Listbox |
|00001900| 69 73 0a 58 09 09 09 09 | 20 2a 20 65 78 70 65 63 |is.X....| * expec|
|00001910| 74 65 64 20 74 6f 20 73 | 68 69 66 74 20 74 68 65 |ted to s|hift the|
|00001920| 20 77 68 6f 6c 65 20 70 | 69 63 74 75 72 65 0a 58 | whole p|icture.X|
|00001930| 09 09 09 09 20 2a 20 64 | 6f 77 6e 20 28 69 66 20 |.... * d|own (if |
|00001940| 3e 20 30 29 20 6f 72 20 | 75 70 20 28 69 66 20 3c |> 0) or |up (if <|
|00001950| 20 30 29 20 74 68 69 73 | 20 6d 61 6e 79 0a 58 09 | 0) this| many.X.|
|00001960| 09 09 09 20 2a 20 6c 69 | 6e 65 73 2c 20 70 72 69 |... * li|nes, pri|
|00001970| 6f 72 20 74 6f 20 72 65 | 64 69 73 70 6c 61 79 69 |or to re|displayi|
|00001980| 6e 67 20 74 68 65 20 73 | 74 75 66 66 0a 58 09 09 |ng the s|tuff.X..|
|00001990| 09 09 20 2a 20 67 69 76 | 65 6e 20 62 79 20 72 65 |.. * giv|en by re|
|000019a0| 64 72 61 77 46 69 72 73 | 74 20 61 6e 64 20 72 65 |drawFirs|t and re|
|000019b0| 64 72 61 77 4c 61 73 74 | 2e 20 2a 2f 0a 58 0a 58 |drawLast|. */.X.X|
|000019c0| 20 20 20 20 2f 2a 0a 58 | 20 20 20 20 20 2a 20 49 |    /*.X|     * I|
|000019d0| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 61 62 6f 75 74 |nformati|on about|
|000019e0| 20 77 68 61 74 27 73 20 | 73 65 6c 65 63 74 65 64 | what's |selected|
|000019f0| 2c 20 69 66 20 61 6e 79 | 2e 0a 58 20 20 20 20 20 |, if any|..X     |
|00001a00| 2a 2f 0a 58 0a 58 20 20 | 20 20 69 6e 74 20 73 65 |*/.X.X  |  int se|
|00001a10| 6c 65 63 74 46 69 72 73 | 74 3b 09 09 2f 2a 20 49 |lectFirs|t;../* I|
|00001a20| 6e 64 65 78 20 6f 66 20 | 66 69 72 73 74 20 73 65 |ndex of |first se|
|00001a30| 6c 65 63 74 65 64 20 65 | 6c 65 6d 65 6e 74 20 28 |lected e|lement (|
|00001a40| 2d 31 20 6d 65 61 6e 73 | 0a 58 09 09 09 09 20 2a |-1 means|.X.... *|
|00001a50| 20 6e 6f 74 68 69 6e 67 | 20 73 65 6c 65 63 74 65 | nothing| selecte|
|00001a60| 64 2e 20 2a 2f 0a 58 20 | 20 20 20 69 6e 74 20 73 |d. */.X |   int s|
|00001a70| 65 6c 65 63 74 4c 61 73 | 74 3b 09 09 2f 2a 20 49 |electLas|t;../* I|
|00001a80| 6e 64 65 78 20 6f 66 20 | 6c 61 73 74 20 73 65 6c |ndex of |last sel|
|00001a90| 65 63 74 65 64 20 65 6c | 65 6d 65 6e 74 2e 20 2a |ected el|ement. *|
|00001aa0| 2f 0a 58 20 20 20 20 69 | 6e 74 20 73 65 6c 65 63 |/.X    i|nt selec|
|00001ab0| 74 41 6e 63 68 6f 72 3b | 09 09 2f 2a 20 46 69 78 |tAnchor;|../* Fix|
|00001ac0| 65 64 20 65 6e 64 20 6f | 66 20 73 65 6c 65 63 74 |ed end o|f select|
|00001ad0| 69 6f 6e 20 28 69 2e 65 | 2e 20 65 6c 65 6d 65 6e |ion (i.e|. elemen|
|00001ae0| 74 0a 58 09 09 09 09 20 | 2a 20 61 74 20 77 68 69 |t.X.... |* at whi|
|00001af0| 63 68 20 73 65 6c 65 63 | 74 69 6f 6e 20 77 61 73 |ch selec|tion was|
|00001b00| 20 73 74 61 72 74 65 64 | 2e 29 20 2a 2f 0a 58 0a | started|.) */.X.|
|00001b10| 58 20 20 20 20 2f 2a 0a | 58 20 20 20 20 20 2a 20 |X    /*.|X     * |
|00001b20| 49 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 66 6f 72 20 |Informat|ion for |
|00001b30| 73 63 61 6e 6e 69 6e 67 | 3a 0a 58 20 20 20 20 20 |scanning|:.X     |
|00001b40| 2a 2f 0a 58 0a 58 20 20 | 20 20 69 6e 74 20 73 63 |*/.X.X  |  int sc|
|00001b50| 61 6e 4d 61 72 6b 59 3b | 09 09 2f 2a 20 59 2d 70 |anMarkY;|../* Y-p|
|00001b60| 6f 73 69 74 69 6f 6e 20 | 61 74 20 77 68 69 63 68 |osition |at which|
|00001b70| 20 73 63 61 6e 20 73 74 | 61 72 74 65 64 20 28 65 | scan st|arted (e|
|00001b80| 2e 67 2e 0a 58 09 09 09 | 09 20 2a 20 62 75 74 74 |.g..X...|. * butt|
|00001b90| 6f 6e 20 77 61 73 20 70 | 72 65 73 73 65 64 20 68 |on was p|ressed h|
|00001ba0| 65 72 65 29 2e 20 2a 2f | 0a 58 20 20 20 20 69 6e |ere). */|.X    in|
|00001bb0| 74 20 73 63 61 6e 4d 61 | 72 6b 49 6e 64 65 78 3b |t scanMa|rkIndex;|
|00001bc0| 09 09 2f 2a 20 49 6e 64 | 65 78 20 6f 66 20 6c 69 |../* Ind|ex of li|
|00001bd0| 6e 65 20 74 68 61 74 20 | 77 61 73 20 61 74 20 74 |ne that |was at t|
|00001be0| 6f 70 20 6f 66 20 77 69 | 6e 64 6f 77 0a 58 09 09 |op of wi|ndow.X..|
|00001bf0| 09 09 20 2a 20 77 68 65 | 6e 20 73 63 61 6e 20 73 |.. * whe|n scan s|
|00001c00| 74 61 72 74 65 64 2e 20 | 2a 2f 0a 58 0a 58 20 20 |tarted. |*/.X.X  |
|00001c10| 20 20 2f 2a 0a 58 20 20 | 20 20 20 2a 20 4d 69 73 |  /*.X  |   * Mis|
|00001c20| 63 65 6c 6c 61 6e 65 6f | 75 73 20 69 6e 66 6f 72 |cellaneo|us infor|
|00001c30| 6d 61 74 69 6f 6e 3a 0a | 58 20 20 20 20 20 2a 2f |mation:.|X     */|
|00001c40| 0a 58 0a 58 20 20 20 20 | 63 68 61 72 20 2a 73 63 |.X.X    |char *sc|
|00001c50| 72 6f 6c 6c 43 6d 64 3b | 09 09 2f 2a 20 43 6f 6d |rollCmd;|../* Com|
|00001c60| 6d 61 6e 64 20 70 72 65 | 66 69 78 20 66 6f 72 20 |mand pre|fix for |
|00001c70| 63 6f 6d 6d 75 6e 69 63 | 61 74 69 6e 67 20 77 69 |communic|ating wi|
|00001c80| 74 68 0a 58 09 09 09 09 | 20 2a 20 73 63 72 6f 6c |th.X....| * scrol|
|00001c90| 6c 62 61 72 28 73 29 2e | 20 20 4e 55 4c 4c 20 6d |lbar(s).|  NULL m|
|00001ca0| 65 61 6e 73 20 6e 6f 20 | 63 6f 6d 6d 61 6e 64 0a |eans no |command.|
|00001cb0| 58 09 09 09 09 20 2a 20 | 74 6f 20 69 73 73 75 65 |X.... * |to issue|
|00001cc0| 2e 20 20 4d 61 6c 6c 6f | 63 27 65 64 2e 20 2a 2f |.  Mallo|c'ed. */|
|00001cd0| 0a 58 20 20 20 20 69 6e | 74 20 66 6c 61 67 73 3b |.X    in|t flags;|
|00001ce0| 09 09 09 2f 2a 20 56 61 | 72 69 6f 75 73 20 66 6c |.../* Va|rious fl|
|00001cf0| 61 67 20 62 69 74 73 3a | 20 20 73 65 65 20 62 65 |ag bits:|  see be|
|00001d00| 6c 6f 77 20 66 6f 72 0a | 58 09 09 09 09 20 2a 20 |low for.|X.... * |
|00001d10| 64 65 66 69 6e 69 74 69 | 6f 6e 73 2e 20 2a 2f 0a |definiti|ons. */.|
|00001d20| 58 7d 20 4c 69 73 74 62 | 6f 78 3b 0a 58 0a 58 2f |X} Listb|ox;.X.X/|
|00001d30| 2a 0a 58 20 2a 20 46 6c | 61 67 20 62 69 74 73 20 |*.X * Fl|ag bits |
|00001d40| 66 6f 72 20 62 75 74 74 | 6f 6e 73 3a 0a 58 20 2a |for butt|ons:.X *|
|00001d50| 0a 58 20 2a 20 4e 6f 6e | 65 20 63 75 72 72 65 6e |.X * Non|e curren|
|00001d60| 74 6c 79 20 64 65 66 69 | 6e 65 64 2e 0a 58 20 2a |tly defi|ned..X *|
|00001d70| 2f 0a 58 0a 58 2f 2a 0a | 58 20 2a 20 49 6e 66 6f |/.X.X/*.|X * Info|
|00001d80| 72 6d 61 74 69 6f 6e 20 | 75 73 65 64 20 66 6f 72 |rmation |used for|
|00001d90| 20 61 72 67 76 20 70 61 | 72 73 69 6e 67 3a 0a 58 | argv pa|rsing:.X|
|00001da0| 20 2a 2f 0a 58 0a 73 74 | 61 74 69 63 20 54 6b 5f | */.X.st|atic Tk_|
|00001db0| 43 6f 6e 66 69 67 53 70 | 65 63 20 63 6f 6e 66 69 |ConfigSp|ec confi|
|00001dc0| 67 53 70 65 63 73 5b 5d | 20 3d 20 7b 0a 58 20 20 |gSpecs[]| = {.X  |
|00001dd0| 20 20 7b 54 4b 5f 43 4f | 4e 46 49 47 5f 42 4f 52 |  {TK_CO|NFIG_BOR|
|00001de0| 44 45 52 2c 20 22 2d 62 | 61 63 6b 67 72 6f 75 6e |DER, "-b|ackgroun|
|00001df0| 64 22 2c 20 22 62 61 63 | 6b 67 72 6f 75 6e 64 22 |d", "bac|kground"|
|00001e00| 2c 20 22 42 61 63 6b 67 | 72 6f 75 6e 64 22 2c 0a |, "Backg|round",.|
|00001e10| 58 09 44 45 46 5f 4c 49 | 53 54 42 4f 58 5f 42 47 |X.DEF_LI|STBOX_BG|
|00001e20| 5f 43 4f 4c 4f 52 2c 20 | 54 6b 5f 4f 66 66 73 65 |_COLOR, |Tk_Offse|
|00001e30| 74 28 4c 69 73 74 62 6f | 78 2c 20 6e 6f 72 6d 61 |t(Listbo|x, norma|
|00001e40| 6c 42 6f 72 64 65 72 29 | 2c 0a 58 09 54 4b 5f 43 |lBorder)|,.X.TK_C|
|00001e50| 4f 4e 46 49 47 5f 43 4f | 4c 4f 52 5f 4f 4e 4c 59 |ONFIG_CO|LOR_ONLY|
|00001e60| 7d 2c 0a 58 20 20 20 20 | 7b 54 4b 5f 43 4f 4e 46 |},.X    |{TK_CONF|
|00001e70| 49 47 5f 42 4f 52 44 45 | 52 2c 20 22 2d 62 61 63 |IG_BORDE|R, "-bac|
|00001e80| 6b 67 72 6f 75 6e 64 22 | 2c 20 22 62 61 63 6b 67 |kground"|, "backg|
|00001e90| 72 6f 75 6e 64 22 2c 20 | 22 42 61 63 6b 67 72 6f |round", |"Backgro|
|00001ea0| 75 6e 64 22 2c 0a 58 09 | 44 45 46 5f 4c 49 53 54 |und",.X.|DEF_LIST|
|00001eb0| 42 4f 58 5f 42 47 5f 4d | 4f 4e 4f 2c 20 54 6b 5f |BOX_BG_M|ONO, Tk_|
|00001ec0| 4f 66 66 73 65 74 28 4c | 69 73 74 62 6f 78 2c 20 |Offset(L|istbox, |
|00001ed0| 6e 6f 72 6d 61 6c 42 6f | 72 64 65 72 29 2c 0a 58 |normalBo|rder),.X|
|00001ee0| 09 54 4b 5f 43 4f 4e 46 | 49 47 5f 4d 4f 4e 4f 5f |.TK_CONF|IG_MONO_|
|00001ef0| 4f 4e 4c 59 7d 2c 0a 58 | 20 20 20 20 7b 54 4b 5f |ONLY},.X|    {TK_|
|00001f00| 43 4f 4e 46 49 47 5f 53 | 59 4e 4f 4e 59 4d 2c 20 |CONFIG_S|YNONYM, |
|00001f10| 22 2d 62 64 22 2c 20 22 | 62 6f 72 64 65 72 57 69 |"-bd", "|borderWi|
|00001f20| 64 74 68 22 2c 20 28 63 | 68 61 72 20 2a 29 20 4e |dth", (c|har *) N|
|00001f30| 55 4c 4c 2c 0a 58 09 28 | 63 68 61 72 20 2a 29 20 |ULL,.X.(|char *) |
|00001f40| 4e 55 4c 4c 2c 20 30 2c | 20 30 7d 2c 0a 58 20 20 |NULL, 0,| 0},.X  |
|00001f50| 20 20 7b 54 4b 5f 43 4f | 4e 46 49 47 5f 53 59 4e |  {TK_CO|NFIG_SYN|
|00001f60| 4f 4e 59 4d 2c 20 22 2d | 62 67 22 2c 20 22 62 61 |ONYM, "-|bg", "ba|
|00001f70| 63 6b 67 72 6f 75 6e 64 | 22 2c 20 28 63 68 61 72 |ckground|", (char|
|00001f80| 20 2a 29 20 4e 55 4c 4c | 2c 0a 58 09 28 63 68 61 | *) NULL|,.X.(cha|
|00001f90| 72 20 2a 29 20 4e 55 4c | 4c 2c 20 30 2c 20 30 7d |r *) NUL|L, 0, 0}|
|00001fa0| 2c 0a 58 20 20 20 20 7b | 54 4b 5f 43 4f 4e 46 49 |,.X    {|TK_CONFI|
|00001fb0| 47 5f 49 4e 54 2c 20 22 | 2d 62 6f 72 64 65 72 77 |G_INT, "|-borderw|
|00001fc0| 69 64 74 68 22 2c 20 22 | 62 6f 72 64 65 72 57 69 |idth", "|borderWi|
|00001fd0| 64 74 68 22 2c 20 22 42 | 6f 72 64 65 72 57 69 64 |dth", "B|orderWid|
|00001fe0| 74 68 22 2c 0a 58 09 44 | 45 46 5f 4c 49 53 54 42 |th",.X.D|EF_LISTB|
|00001ff0| 4f 58 5f 42 4f 52 44 45 | 52 5f 57 49 44 54 48 2c |OX_BORDE|R_WIDTH,|
|00002000| 20 54 6b 5f 4f 66 66 73 | 65 74 28 4c 69 73 74 62 | Tk_Offs|et(Listb|
|00002010| 6f 78 2c 20 62 6f 72 64 | 65 72 57 69 64 74 68 29 |ox, bord|erWidth)|
|00002020| 2c 20 30 7d 2c 0a 58 20 | 20 20 20 7b 54 4b 5f 43 |, 0},.X |   {TK_C|
|00002030| 4f 4e 46 49 47 5f 49 4e | 54 2c 20 22 2d 63 6f 6c |ONFIG_IN|T, "-col|
|00002040| 75 6d 6e 73 22 2c 20 22 | 63 6f 6c 75 6d 6e 73 22 |umns", "|columns"|
|00002050| 2c 20 22 43 6f 6c 75 6d | 6e 73 22 2c 0a 58 09 22 |, "Colum|ns",.X."|
|00002060| 31 22 2c 20 54 6b 5f 4f | 66 66 73 65 74 28 4c 69 |1", Tk_O|ffset(Li|
|00002070| 73 74 62 6f 78 2c 20 63 | 6f 6c 75 6d 6e 73 29 2c |stbox, c|olumns),|
|00002080| 20 30 7d 2c 0a 58 20 20 | 20 20 7b 54 4b 5f 43 4f | 0},.X  |  {TK_CO|
|00002090| 4e 46 49 47 5f 49 4e 54 | 2c 20 22 2d 6e 6f 78 73 |NFIG_INT|, "-noxs|
|000020a0| 65 6c 22 2c 20 22 6e 6f | 78 73 65 6c 22 2c 20 22 |el", "no|xsel", "|
|000020b0| 6e 6f 78 73 65 6c 22 2c | 0a 58 09 22 30 22 2c 20 |noxsel",|.X."0", |
|000020c0| 54 6b 5f 4f 66 66 73 65 | 74 28 4c 69 73 74 62 6f |Tk_Offse|t(Listbo|
|000020d0| 78 2c 20 6e 6f 78 73 65 | 6c 29 2c 20 30 7d 2c 0a |x, noxse|l), 0},.|
|000020e0| 58 20 20 20 20 7b 54 4b | 5f 43 4f 4e 46 49 47 5f |X    {TK|_CONFIG_|
|000020f0| 53 59 4e 4f 4e 59 4d 2c | 20 22 2d 66 67 22 2c 20 |SYNONYM,| "-fg", |
|00002100| 22 66 6f 72 65 67 72 6f | 75 6e 64 22 2c 20 28 63 |"foregro|und", (c|
|00002110| 68 61 72 20 2a 29 20 4e | 55 4c 4c 2c 0a 58 09 28 |har *) N|ULL,.X.(|
|00002120| 63 68 61 72 20 2a 29 20 | 4e 55 4c 4c 2c 20 30 2c |char *) |NULL, 0,|
|00002130| 20 30 7d 2c 0a 58 20 20 | 20 20 7b 54 4b 5f 43 4f | 0},.X  |  {TK_CO|
|00002140| 4e 46 49 47 5f 46 4f 4e | 54 2c 20 22 2d 66 6f 6e |NFIG_FON|T, "-fon|
|00002150| 74 22 2c 20 22 66 6f 6e | 74 22 2c 20 22 46 6f 6e |t", "fon|t", "Fon|
|00002160| 74 22 2c 0a 58 09 44 45 | 46 5f 4c 49 53 54 42 4f |t",.X.DE|F_LISTBO|
|00002170| 58 5f 46 4f 4e 54 2c 20 | 54 6b 5f 4f 66 66 73 65 |X_FONT, |Tk_Offse|
|00002180| 74 28 4c 69 73 74 62 6f | 78 2c 20 66 6f 6e 74 50 |t(Listbo|x, fontP|
|00002190| 74 72 29 2c 20 30 7d 2c | 0a 58 20 20 20 20 7b 54 |tr), 0},|.X    {T|
|000021a0| 4b 5f 43 4f 4e 46 49 47 | 5f 43 4f 4c 4f 52 2c 20 |K_CONFIG|_COLOR, |
|000021b0| 22 2d 66 6f 72 65 67 72 | 6f 75 6e 64 22 2c 20 22 |"-foregr|ound", "|
|000021c0| 66 6f 72 65 67 72 6f 75 | 6e 64 22 2c 20 22 46 6f |foregrou|nd", "Fo|
|000021d0| 72 65 67 72 6f 75 6e 64 | 22 2c 0a 58 09 44 45 46 |reground|",.X.DEF|
|000021e0| 5f 4c 49 53 54 42 4f 58 | 5f 46 47 2c 20 54 6b 5f |_LISTBOX|_FG, Tk_|
|000021f0| 4f 66 66 73 65 74 28 4c | 69 73 74 62 6f 78 2c 20 |Offset(L|istbox, |
|00002200| 66 67 43 6f 6c 6f 72 50 | 74 72 29 2c 20 30 7d 2c |fgColorP|tr), 0},|
|00002210| 0a 58 20 20 20 20 7b 54 | 4b 5f 43 4f 4e 46 49 47 |.X    {T|K_CONFIG|
|00002220| 5f 53 54 52 49 4e 47 2c | 20 22 2d 67 65 6f 6d 65 |_STRING,| "-geome|
|00002230| 74 72 79 22 2c 20 22 67 | 65 6f 6d 65 74 72 79 22 |try", "g|eometry"|
|00002240| 2c 20 22 47 65 6f 6d 65 | 74 72 79 22 2c 0a 58 09 |, "Geome|try",.X.|
|00002250| 44 45 46 5f 4c 49 53 54 | 42 4f 58 5f 47 45 4f 4d |DEF_LIST|BOX_GEOM|
|00002260| 45 54 52 59 2c 20 54 6b | 5f 4f 66 66 73 65 74 28 |ETRY, Tk|_Offset(|
|00002270| 4c 69 73 74 62 6f 78 2c | 20 67 65 6f 6d 65 74 72 |Listbox,| geometr|
|00002280| 79 29 2c 20 30 7d 2c 0a | 58 20 20 20 20 7b 54 4b |y), 0},.|X    {TK|
|00002290| 5f 43 4f 4e 46 49 47 5f | 52 45 4c 49 45 46 2c 20 |_CONFIG_|RELIEF, |
|000022a0| 22 2d 72 65 6c 69 65 66 | 22 2c 20 22 72 65 6c 69 |"-relief|", "reli|
|000022b0| 65 66 22 2c 20 22 52 65 | 6c 69 65 66 22 2c 0a 58 |ef", "Re|lief",.X|
|000022c0| 09 44 45 46 5f 4c 49 53 | 54 42 4f 58 5f 52 45 4c |.DEF_LIS|TBOX_REL|
|000022d0| 49 45 46 2c 20 54 6b 5f | 4f 66 66 73 65 74 28 4c |IEF, Tk_|Offset(L|
|000022e0| 69 73 74 62 6f 78 2c 20 | 72 65 6c 69 65 66 29 2c |istbox, |relief),|
|000022f0| 20 30 7d 2c 0a 58 20 20 | 20 20 7b 54 4b 5f 43 4f | 0},.X  |  {TK_CO|
|00002300| 4e 46 49 47 5f 53 54 52 | 49 4e 47 2c 20 22 2d 73 |NFIG_STR|ING, "-s|
|00002310| 63 72 6f 6c 6c 63 6f 6d | 6d 61 6e 64 22 2c 20 22 |crollcom|mand", "|
|00002320| 73 63 72 6f 6c 6c 43 6f | 6d 6d 61 6e 64 22 2c 20 |scrollCo|mmand", |
|00002330| 22 53 63 72 6f 6c 6c 43 | 6f 6d 6d 61 6e 64 22 2c |"ScrollC|ommand",|
|00002340| 0a 58 09 44 45 46 5f 4c | 49 53 54 42 4f 58 5f 53 |.X.DEF_L|ISTBOX_S|
|00002350| 43 52 4f 4c 4c 5f 43 4f | 4d 4d 41 4e 44 2c 20 54 |CROLL_CO|MMAND, T|
|00002360| 6b 5f 4f 66 66 73 65 74 | 28 4c 69 73 74 62 6f 78 |k_Offset|(Listbox|
|00002370| 2c 20 73 63 72 6f 6c 6c | 43 6d 64 29 2c 20 30 7d |, scroll|Cmd), 0}|
|00002380| 2c 0a 58 20 20 20 20 7b | 54 4b 5f 43 4f 4e 46 49 |,.X    {|TK_CONFI|
|00002390| 47 5f 42 4f 52 44 45 52 | 2c 20 22 2d 73 65 6c 65 |G_BORDER|, "-sele|
|000023a0| 63 74 62 61 63 6b 67 72 | 6f 75 6e 64 22 2c 20 22 |ctbackgr|ound", "|
|000023b0| 73 65 6c 65 63 74 42 61 | 63 6b 67 72 6f 75 6e 64 |selectBa|ckground|
|000023c0| 22 2c 20 22 46 6f 72 65 | 67 72 6f 75 6e 64 22 2c |", "Fore|ground",|
|000023d0| 0a 58 09 44 45 46 5f 4c | 49 53 54 42 4f 58 5f 53 |.X.DEF_L|ISTBOX_S|
|000023e0| 45 4c 45 43 54 5f 43 4f | 4c 4f 52 2c 20 54 6b 5f |ELECT_CO|LOR, Tk_|
|000023f0| 4f 66 66 73 65 74 28 4c | 69 73 74 62 6f 78 2c 20 |Offset(L|istbox, |
|00002400| 73 65 6c 42 6f 72 64 65 | 72 29 2c 0a 58 09 54 4b |selBorde|r),.X.TK|
|00002410| 5f 43 4f 4e 46 49 47 5f | 43 4f 4c 4f 52 5f 4f 4e |_CONFIG_|COLOR_ON|
|00002420| 4c 59 7d 2c 0a 58 20 20 | 20 20 7b 54 4b 5f 43 4f |LY},.X  |  {TK_CO|
|00002430| 4e 46 49 47 5f 42 4f 52 | 44 45 52 2c 20 22 2d 73 |NFIG_BOR|DER, "-s|
|00002440| 65 6c 65 63 74 62 61 63 | 6b 67 72 6f 75 6e 64 22 |electbac|kground"|
|00002450| 2c 20 22 73 65 6c 65 63 | 74 42 61 63 6b 67 72 6f |, "selec|tBackgro|
|00002460| 75 6e 64 22 2c 20 22 46 | 6f 72 65 67 72 6f 75 6e |und", "F|oregroun|
|00002470| 64 22 2c 0a 58 09 44 45 | 46 5f 4c 49 53 54 42 4f |d",.X.DE|F_LISTBO|
|00002480| 58 5f 53 45 4c 45 43 54 | 5f 4d 4f 4e 4f 2c 20 54 |X_SELECT|_MONO, T|
|00002490| 6b 5f 4f 66 66 73 65 74 | 28 4c 69 73 74 62 6f 78 |k_Offset|(Listbox|
|000024a0| 2c 20 73 65 6c 42 6f 72 | 64 65 72 29 2c 0a 58 09 |, selBor|der),.X.|
|000024b0| 54 4b 5f 43 4f 4e 46 49 | 47 5f 4d 4f 4e 4f 5f 4f |TK_CONFI|G_MONO_O|
|000024c0| 4e 4c 59 7d 2c 0a 58 20 | 20 20 20 7b 54 4b 5f 43 |NLY},.X |   {TK_C|
|000024d0| 4f 4e 46 49 47 5f 49 4e | 54 2c 20 22 2d 73 65 6c |ONFIG_IN|T, "-sel|
|000024e0| 65 63 74 62 6f 72 64 65 | 72 77 69 64 74 68 22 2c |ectborde|rwidth",|
|000024f0| 20 22 73 65 6c 65 63 74 | 42 6f 72 64 65 72 57 69 | "select|BorderWi|
|00002500| 64 74 68 22 2c 20 22 42 | 6f 72 64 65 72 57 69 64 |dth", "B|orderWid|
|00002510| 74 68 22 2c 0a 58 09 44 | 45 46 5f 4c 49 53 54 42 |th",.X.D|EF_LISTB|
|00002520| 4f 58 5f 53 45 4c 45 43 | 54 5f 42 44 2c 20 54 6b |OX_SELEC|T_BD, Tk|
|00002530| 5f 4f 66 66 73 65 74 28 | 4c 69 73 74 62 6f 78 2c |_Offset(|Listbox,|
|00002540| 20 73 65 6c 42 6f 72 64 | 65 72 57 69 64 74 68 29 | selBord|erWidth)|
|00002550| 2c 20 30 7d 2c 0a 58 20 | 20 20 20 7b 54 4b 5f 43 |, 0},.X |   {TK_C|
|00002560| 4f 4e 46 49 47 5f 43 4f | 4c 4f 52 2c 20 22 2d 73 |ONFIG_CO|LOR, "-s|
|00002570| 65 6c 65 63 74 66 6f 72 | 65 67 72 6f 75 6e 64 22 |electfor|eground"|
|00002580| 2c 20 22 73 65 6c 65 63 | 74 46 6f 72 65 67 72 6f |, "selec|tForegro|
|00002590| 75 6e 64 22 2c 20 22 42 | 61 63 6b 67 72 6f 75 6e |und", "B|ackgroun|
|000025a0| 64 22 2c 0a 58 09 44 45 | 46 5f 4c 49 53 54 42 4f |d",.X.DE|F_LISTBO|
|000025b0| 58 5f 53 45 4c 45 43 54 | 5f 46 47 5f 43 4f 4c 4f |X_SELECT|_FG_COLO|
|000025c0| 52 2c 20 54 6b 5f 4f 66 | 66 73 65 74 28 4c 69 73 |R, Tk_Of|fset(Lis|
|000025d0| 74 62 6f 78 2c 20 73 65 | 6c 46 67 43 6f 6c 6f 72 |tbox, se|lFgColor|
|000025e0| 50 74 72 29 2c 0a 58 09 | 54 4b 5f 43 4f 4e 46 49 |Ptr),.X.|TK_CONFI|
|000025f0| 47 5f 43 4f 4c 4f 52 5f | 4f 4e 4c 59 7d 2c 0a 58 |G_COLOR_|ONLY},.X|
|00002600| 20 20 20 20 7b 54 4b 5f | 43 4f 4e 46 49 47 5f 43 |    {TK_|CONFIG_C|
|00002610| 4f 4c 4f 52 2c 20 22 2d | 73 65 6c 65 63 74 66 6f |OLOR, "-|selectfo|
|00002620| 72 65 67 72 6f 75 6e 64 | 22 2c 20 22 73 65 6c 65 |reground|", "sele|
|00002630| 63 74 46 6f 72 65 67 72 | 6f 75 6e 64 22 2c 20 22 |ctForegr|ound", "|
|00002640| 42 61 63 6b 67 72 6f 75 | 6e 64 22 2c 0a 58 09 44 |Backgrou|nd",.X.D|
|00002650| 45 46 5f 4c 49 53 54 42 | 4f 58 5f 53 45 4c 45 43 |EF_LISTB|OX_SELEC|
|00002660| 54 5f 46 47 5f 4d 4f 4e | 4f 2c 20 54 6b 5f 4f 66 |T_FG_MON|O, Tk_Of|
|00002670| 66 73 65 74 28 4c 69 73 | 74 62 6f 78 2c 20 73 65 |fset(Lis|tbox, se|
|00002680| 6c 46 67 43 6f 6c 6f 72 | 50 74 72 29 2c 0a 58 09 |lFgColor|Ptr),.X.|
|00002690| 54 4b 5f 43 4f 4e 46 49 | 47 5f 4d 4f 4e 4f 5f 4f |TK_CONFI|G_MONO_O|
|000026a0| 4e 4c 59 7d 2c 0a 58 20 | 20 20 20 7b 54 4b 5f 43 |NLY},.X |   {TK_C|
|000026b0| 4f 4e 46 49 47 5f 45 4e | 44 2c 20 28 63 68 61 72 |ONFIG_EN|D, (char|
|000026c0| 20 2a 29 20 4e 55 4c 4c | 2c 20 28 63 68 61 72 20 | *) NULL|, (char |
|000026d0| 2a 29 20 4e 55 4c 4c 2c | 20 28 63 68 61 72 20 2a |*) NULL,| (char *|
|000026e0| 29 20 4e 55 4c 4c 2c 0a | 58 09 28 63 68 61 72 20 |) NULL,.|X.(char |
|000026f0| 2a 29 20 4e 55 4c 4c 2c | 20 30 2c 20 30 7d 0a 58 |*) NULL,| 0, 0}.X|
|00002700| 7d 3b 0a 58 0a 58 2f 2a | 0a 58 20 2a 20 46 6c 61 |};.X.X/*|.X * Fla|
|00002710| 67 73 20 66 6f 72 20 47 | 65 74 4c 69 73 74 62 6f |gs for G|etListbo|
|00002720| 78 49 6e 64 65 78 20 70 | 72 6f 63 65 64 75 72 65 |xIndex p|rocedure|
|00002730| 3a 0a 58 20 2a 2f 0a 58 | 0a 58 23 64 65 66 69 6e |:.X */.X|.X#defin|
|00002740| 65 20 5a 45 52 4f 5f 4f | 4b 09 09 09 31 0a 58 23 |e ZERO_O|K...1.X#|
|00002750| 64 65 66 69 6e 65 20 4c | 41 53 54 5f 50 4c 55 53 |define L|AST_PLUS|
|00002760| 5f 4f 4e 45 5f 4f 4b 09 | 32 0a 58 0a 58 2f 2a 0a |_ONE_OK.|2.X.X/*.|
|00002770| 58 20 2a 20 46 6f 72 77 | 61 72 64 20 64 65 63 6c |X * Forw|ard decl|
|00002780| 61 72 61 74 69 6f 6e 73 | 20 66 6f 72 20 70 72 6f |arations| for pro|
|00002790| 63 65 64 75 72 65 73 20 | 64 65 66 69 6e 65 64 20 |cedures |defined |
|000027a0| 6c 61 74 65 72 20 69 6e | 20 74 68 69 73 20 66 69 |later in| this fi|
|000027b0| 6c 65 3a 0a 58 20 2a 2f | 0a 58 0a 73 74 61 74 69 |le:.X */|.X.stati|
|000027c0| 63 20 76 6f 69 64 09 09 | 43 68 61 6e 67 65 4c 69 |c void..|ChangeLi|
|000027d0| 73 74 62 6f 78 56 69 65 | 77 20 5f 41 4e 53 49 5f |stboxVie|w _ANSI_|
|000027e0| 41 52 47 53 5f 28 28 4c | 69 73 74 62 6f 78 20 2a |ARGS_((L|istbox *|
|000027f0| 6c 69 73 74 50 74 72 2c | 0a 58 20 20 20 20 20 20 |listPtr,|.X      |
|00002800| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002810| 20 20 20 20 20 20 69 6e | 74 20 69 6e 64 65 78 2c |      in|t index,|
|00002820| 20 69 6e 74 20 6c 69 6e | 65 4e 75 6d 29 29 3b 0a | int lin|eNum));.|
|00002830| 73 74 61 74 69 63 20 69 | 6e 74 09 09 43 6f 6e 66 |static i|nt..Conf|
|00002840| 69 67 75 72 65 4c 69 73 | 74 62 6f 78 20 5f 41 4e |igureLis|tbox _AN|
|00002850| 53 49 5f 41 52 47 53 5f | 28 28 54 63 6c 5f 49 6e |SI_ARGS_|((Tcl_In|
|00002860| 74 65 72 70 20 2a 69 6e | 74 65 72 70 2c 0a 58 09 |terp *in|terp,.X.|
|00002870| 09 09 20 20 20 20 4c 69 | 73 74 62 6f 78 20 2a 6c |..    Li|stbox *l|
|00002880| 69 73 74 50 74 72 2c 20 | 69 6e 74 20 61 72 67 63 |istPtr, |int argc|
|00002890| 2c 20 63 68 61 72 20 2a | 2a 61 72 67 76 2c 0a 58 |, char *|*argv,.X|
|000028a0| 09 09 09 20 20 20 20 69 | 6e 74 20 66 6c 61 67 73 |...    i|nt flags|
|000028b0| 29 29 3b 0a 73 74 61 74 | 69 63 20 76 6f 69 64 09 |));.stat|ic void.|
|000028c0| 09 44 65 6c 65 74 65 45 | 6c 73 20 5f 41 4e 53 49 |.DeleteE|ls _ANSI|
|000028d0| 5f 41 52 47 53 5f 28 28 | 4c 69 73 74 62 6f 78 20 |_ARGS_((|Listbox |
|000028e0| 2a 6c 69 73 74 50 74 72 | 2c 20 69 6e 74 20 69 6e |*listPtr|, int in|
|000028f0| 64 65 78 2c 0a 58 09 09 | 09 20 20 20 20 69 6e 74 |dex,.X..|.    int|
|00002900| 20 63 6f 75 6e 74 29 29 | 3b 0a 73 74 61 74 69 63 | count))|;.static|
|00002910| 20 76 6f 69 64 09 09 44 | 65 73 74 72 6f 79 4c 69 | void..D|estroyLi|
|00002920| 73 74 62 6f 78 20 5f 41 | 4e 53 49 5f 41 52 47 53 |stbox _A|NSI_ARGS|
|00002930| 5f 28 28 43 6c 69 65 6e | 74 44 61 74 61 20 63 6c |_((Clien|tData cl|
|00002940| 69 65 6e 74 44 61 74 61 | 29 29 3b 0a 73 74 61 74 |ientData|));.stat|
|00002950| 69 63 20 76 6f 69 64 09 | 09 44 69 73 70 6c 61 79 |ic void.|.Display|
|00002960| 4c 69 73 74 62 6f 78 20 | 5f 41 4e 53 49 5f 41 52 |Listbox |_ANSI_AR|
|00002970| 47 53 5f 28 28 43 6c 69 | 65 6e 74 44 61 74 61 20 |GS_((Cli|entData |
|00002980| 63 6c 69 65 6e 74 44 61 | 74 61 29 29 3b 0a 73 74 |clientDa|ta));.st|
|00002990| 61 74 69 63 20 69 6e 74 | 09 09 47 65 74 4c 69 73 |atic int|..GetLis|
|000029a0| 74 62 6f 78 49 6e 64 65 | 78 20 5f 41 4e 53 49 5f |tboxInde|x _ANSI_|
|000029b0| 41 52 47 53 5f 28 28 54 | 63 6c 5f 49 6e 74 65 72 |ARGS_((T|cl_Inter|
|000029c0| 70 20 2a 69 6e 74 65 72 | 70 2c 0a 58 09 09 09 20 |p *inter|p,.X... |
|000029d0| 20 20 20 4c 69 73 74 62 | 6f 78 20 2a 6c 69 73 74 |   Listb|ox *list|
|000029e0| 50 74 72 2c 20 63 68 61 | 72 20 2a 73 74 72 69 6e |Ptr, cha|r *strin|
|000029f0| 67 2c 20 69 6e 74 20 66 | 6c 61 67 73 2c 0a 58 09 |g, int f|lags,.X.|
|00002a00| 09 09 20 20 20 20 69 6e | 74 20 2a 69 6e 64 65 78 |..    in|t *index|
|00002a10| 50 74 72 29 29 3b 0a 73 | 74 61 74 69 63 20 76 6f |Ptr));.s|tatic vo|
|00002a20| 69 64 09 09 49 6e 73 65 | 72 74 45 6c 73 20 5f 41 |id..Inse|rtEls _A|
|00002a30| 4e 53 49 5f 41 52 47 53 | 5f 28 28 4c 69 73 74 62 |NSI_ARGS|_((Listb|
|00002a40| 6f 78 20 2a 6c 69 73 74 | 50 74 72 2c 20 69 6e 74 |ox *list|Ptr, int|
|00002a50| 20 69 6e 64 65 78 2c 0a | 58 09 09 09 20 20 20 20 | index,.|X...    |
|00002a60| 69 6e 74 20 61 72 67 63 | 2c 20 63 68 61 72 20 2a |int argc|, char *|
|00002a70| 2a 61 72 67 76 29 29 3b | 0a 73 74 61 74 69 63 20 |*argv));|.static |
|00002a80| 76 6f 69 64 09 09 4c 69 | 73 74 62 6f 78 45 76 65 |void..Li|stboxEve|
|00002a90| 6e 74 50 72 6f 63 20 5f | 41 4e 53 49 5f 41 52 47 |ntProc _|ANSI_ARG|
|00002aa0| 53 5f 28 28 43 6c 69 65 | 6e 74 44 61 74 61 20 63 |S_((Clie|ntData c|
|00002ab0| 6c 69 65 6e 74 44 61 74 | 61 2c 0a 58 09 09 09 20 |lientDat|a,.X... |
|00002ac0| 20 20 20 58 45 76 65 6e | 74 20 2a 65 76 65 6e 74 |   XEven|t *event|
|00002ad0| 50 74 72 29 29 3b 0a 73 | 74 61 74 69 63 20 69 6e |Ptr));.s|tatic in|
|00002ae0| 74 09 09 4c 69 73 74 62 | 6f 78 46 65 74 63 68 53 |t..Listb|oxFetchS|
|00002af0| 65 6c 65 63 74 69 6f 6e | 20 5f 41 4e 53 49 5f 41 |election| _ANSI_A|
|00002b00| 52 47 53 5f 28 28 0a 58 | 20 20 20 20 20 20 20 20 |RGS_((.X|        |
|00002b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002b20| 20 20 20 20 43 6c 69 65 | 6e 74 44 61 74 61 20 63 |    Clie|ntData c|
|00002b30| 6c 69 65 6e 74 44 61 74 | 61 2c 20 69 6e 74 20 6f |lientDat|a, int o|
|00002b40| 66 66 73 65 74 2c 20 63 | 68 61 72 20 2a 62 75 66 |ffset, c|har *buf|
|00002b50| 66 65 72 2c 0a 58 20 20 | 20 20 20 20 20 20 20 20 |fer,.X  |        |
|00002b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002b70| 20 20 69 6e 74 20 6d 61 | 78 42 79 74 65 73 29 29 |  int ma|xBytes))|
|00002b80| 3b 0a 73 74 61 74 69 63 | 20 76 6f 69 64 09 09 4c |;.static| void..L|
|00002b90| 69 73 74 62 6f 78 4c 6f | 73 74 53 65 6c 65 63 74 |istboxLo|stSelect|
|00002ba0| 69 6f 6e 20 5f 41 4e 53 | 49 5f 41 52 47 53 5f 28 |ion _ANS|I_ARGS_(|
|00002bb0| 28 43 6c 69 65 6e 74 44 | 61 74 61 20 63 6c 69 65 |(ClientD|ata clie|
|00002bc0| 6e 74 44 61 74 61 29 29 | 3b 0a 73 74 61 74 69 63 |ntData))|;.static|
|00002bd0| 20 76 6f 69 64 09 09 4c | 69 73 74 62 6f 78 4d 6f | void..L|istboxMo|
|00002be0| 75 73 65 50 72 6f 63 20 | 5f 41 4e 53 49 5f 41 52 |useProc |_ANSI_AR|
|00002bf0| 47 53 5f 28 28 43 6c 69 | 65 6e 74 44 61 74 61 20 |GS_((Cli|entData |
|00002c00| 63 6c 69 65 6e 74 44 61 | 74 61 2c 0a 58 09 09 09 |clientDa|ta,.X...|
|00002c10| 20 20 20 20 58 45 76 65 | 6e 74 20 2a 65 76 65 6e |    XEve|nt *even|
|00002c20| 74 50 74 72 29 29 3b 0a | 73 74 61 74 69 63 20 76 |tPtr));.|static v|
|00002c30| 6f 69 64 09 09 4c 69 73 | 74 62 6f 78 52 65 64 72 |oid..Lis|tboxRedr|
|00002c40| 61 77 52 61 6e 67 65 20 | 5f 41 4e 53 49 5f 41 52 |awRange |_ANSI_AR|
|00002c50| 47 53 5f 28 28 4c 69 73 | 74 62 6f 78 20 2a 6c 69 |GS_((Lis|tbox *li|
|00002c60| 73 74 50 74 72 2c 0a 58 | 09 09 09 20 20 20 20 69 |stPtr,.X|...    i|
|00002c70| 6e 74 20 66 69 72 73 74 | 2c 20 69 6e 74 20 6c 61 |nt first|, int la|
|00002c80| 73 74 29 29 3b 0a 73 74 | 61 74 69 63 20 76 6f 69 |st));.st|atic voi|
|00002c90| 64 09 09 4c 69 73 74 62 | 6f 78 53 63 61 6e 54 6f |d..Listb|oxScanTo|
|00002ca0| 20 5f 41 4e 53 49 5f 41 | 52 47 53 5f 28 28 4c 69 | _ANSI_A|RGS_((Li|
|00002cb0| 73 74 62 6f 78 20 2a 6c | 69 73 74 50 74 72 2c 20 |stbox *l|istPtr, |
|00002cc0| 69 6e 74 20 79 29 29 3b | 0a 73 74 61 74 69 63 20 |int y));|.static |
|00002cd0| 76 6f 69 64 09 09 4c 69 | 73 74 62 6f 78 53 65 6c |void..Li|stboxSel|
|00002ce0| 65 63 74 46 72 6f 6d 20 | 5f 41 4e 53 49 5f 41 52 |ectFrom |_ANSI_AR|
|00002cf0| 47 53 5f 28 28 4c 69 73 | 74 62 6f 78 20 2a 6c 69 |GS_((Lis|tbox *li|
|00002d00| 73 74 50 74 72 2c 0a 58 | 09 09 09 20 20 20 20 69 |stPtr,.X|...    i|
|00002d10| 6e 74 20 69 6e 64 65 78 | 29 29 3b 0a 73 74 61 74 |nt index|));.stat|
|00002d20| 69 63 20 76 6f 69 64 09 | 09 4c 69 73 74 62 6f 78 |ic void.|.Listbox|
|00002d30| 53 65 6c 65 63 74 54 6f | 20 5f 41 4e 53 49 5f 41 |SelectTo| _ANSI_A|
|00002d40| 52 47 53 5f 28 28 4c 69 | 73 74 62 6f 78 20 2a 6c |RGS_((Li|stbox *l|
|00002d50| 69 73 74 50 74 72 2c 0a | 58 20 20 20 20 20 20 20 |istPtr,.|X       |
|00002d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002d70| 20 20 20 20 20 69 6e 74 | 20 69 6e 64 65 78 29 29 |     int| index))|
|00002d80| 3b 0a 73 74 61 74 69 63 | 20 76 6f 69 64 09 09 4c |;.static| void..L|
|00002d90| 69 73 74 62 6f 78 55 70 | 64 61 74 65 53 63 72 6f |istboxUp|dateScro|
|00002da0| 6c 6c 62 61 72 20 5f 41 | 4e 53 49 5f 41 52 47 53 |llbar _A|NSI_ARGS|
|00002db0| 5f 28 28 4c 69 73 74 62 | 6f 78 20 2a 6c 69 73 74 |_((Listb|ox *list|
|00002dc0| 50 74 72 29 29 3b 0a 73 | 74 61 74 69 63 20 69 6e |Ptr));.s|tatic in|
|00002dd0| 74 09 09 4c 69 73 74 62 | 6f 78 57 69 64 67 65 74 |t..Listb|oxWidget|
|00002de0| 43 6d 64 20 5f 41 4e 53 | 49 5f 41 52 47 53 5f 28 |Cmd _ANS|I_ARGS_(|
|00002df0| 28 43 6c 69 65 6e 74 44 | 61 74 61 20 63 6c 69 65 |(ClientD|ata clie|
|00002e00| 6e 74 44 61 74 61 2c 0a | 58 09 09 09 20 20 20 20 |ntData,.|X...    |
|00002e10| 54 63 6c 5f 49 6e 74 65 | 72 70 20 2a 69 6e 74 65 |Tcl_Inte|rp *inte|
|00002e20| 72 70 2c 20 69 6e 74 20 | 61 72 67 63 2c 20 63 68 |rp, int |argc, ch|
|00002e30| 61 72 20 2a 2a 61 72 67 | 76 29 29 3b 0a 73 74 61 |ar **arg|v));.sta|
|00002e40| 74 69 63 20 69 6e 74 09 | 09 4e 65 61 72 65 73 74 |tic int.|.Nearest|
|00002e50| 4c 69 73 74 62 6f 78 45 | 6c 65 6d 65 6e 74 20 5f |ListboxE|lement _|
|00002e60| 41 4e 53 49 5f 41 52 47 | 53 5f 28 28 4c 69 73 74 |ANSI_ARG|S_((List|
|00002e70| 62 6f 78 20 2a 6c 69 73 | 74 50 74 72 2c 0a 58 09 |box *lis|tPtr,.X.|
|00002e80| 09 09 20 20 20 20 69 6e | 74 20 78 2c 20 69 6e 74 |..    in|t x, int|
|00002e90| 20 79 29 29 3b 0a 58 0c | 0a 58 2f 2a 0a 58 20 2a | y));.X.|.X/*.X *|
|00002ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0a 58 |--------|------.X|
|00002ee0| 20 2a 0a 58 20 2a 20 54 | 6b 5f 4c 69 73 74 62 6f | *.X * T|k_Listbo|
|00002ef0| 78 43 6d 64 20 2d 2d 0a | 58 20 2a 0a 58 20 2a 09 |xCmd --.|X *.X *.|
|00002f00| 54 68 69 73 20 70 72 6f | 63 65 64 75 72 65 20 69 |This pro|cedure i|
|00002f10| 73 20 69 6e 76 6f 6b 65 | 64 20 74 6f 20 70 72 6f |s invoke|d to pro|
|00002f20| 63 65 73 73 20 74 68 65 | 20 22 6c 69 73 74 62 6f |cess the| "listbo|
|00002f30| 78 22 20 54 63 6c 0a 58 | 20 2a 09 63 6f 6d 6d 61 |x" Tcl.X| *.comma|
|00002f40| 6e 64 2e 20 20 53 65 65 | 20 74 68 65 20 75 73 65 |nd.  See| the use|
|00002f50| 72 20 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |r docume|ntation |
|00002f60| 66 6f 72 20 64 65 74 61 | 69 6c 73 20 6f 6e 20 77 |for deta|ils on w|
|00002f70| 68 61 74 0a 58 20 2a 09 | 69 74 20 64 6f 65 73 2e |hat.X *.|it does.|
|00002f80| 0a 58 20 2a 0a 58 20 2a | 20 52 65 73 75 6c 74 73 |.X *.X *| Results|
|00002f90| 3a 0a 58 20 2a 09 41 20 | 73 74 61 6e 64 61 72 64 |:.X *.A |standard|
|00002fa0| 20 54 63 6c 20 72 65 73 | 75 6c 74 2e 0a 58 20 2a | Tcl res|ult..X *|
|00002fb0| 0a 58 20 2a 20 53 69 64 | 65 20 65 66 66 65 63 74 |.X * Sid|e effect|
|00002fc0| 73 3a 0a 58 20 2a 09 53 | 65 65 20 74 68 65 20 75 |s:.X *.S|ee the u|
|00002fd0| 73 65 72 20 64 6f 63 75 | 6d 65 6e 74 61 74 69 6f |ser docu|mentatio|
|00002fe0| 6e 2e 0a 58 20 2a 0a 58 | 20 2a 2d 2d 2d 2d 2d 2d |n..X *.X| *------|
|00002ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003020| 2d 2d 2d 2d 2d 2d 2d 2d | 0a 58 20 2a 2f 0a 58 0a |--------|.X */.X.|
|00003030| 69 6e 74 0a 50 74 5f 43 | 6f 6c 62 6f 78 43 6d 64 |int.Pt_C|olboxCmd|
|00003040| 28 63 6c 69 65 6e 74 44 | 61 74 61 2c 20 69 6e 74 |(clientD|ata, int|
|00003050| 65 72 70 2c 20 61 72 67 | 63 2c 20 61 72 67 76 29 |erp, arg|c, argv)|
|00003060| 0a 58 20 20 20 20 43 6c | 69 65 6e 74 44 61 74 61 |.X    Cl|ientData|
|00003070| 20 63 6c 69 65 6e 74 44 | 61 74 61 3b 09 2f 2a 20 | clientD|ata;./* |
|00003080| 4d 61 69 6e 20 77 69 6e | 64 6f 77 20 61 73 73 6f |Main win|dow asso|
|00003090| 63 69 61 74 65 64 20 77 | 69 74 68 0a 58 09 09 09 |ciated w|ith.X...|
|000030a0| 09 20 2a 20 69 6e 74 65 | 72 70 72 65 74 65 72 2e |. * inte|rpreter.|
|000030b0| 20 2a 2f 0a 58 20 20 20 | 20 54 63 6c 5f 49 6e 74 | */.X   | Tcl_Int|
|000030c0| 65 72 70 20 2a 69 6e 74 | 65 72 70 3b 09 09 2f 2a |erp *int|erp;../*|
|000030d0| 20 43 75 72 72 65 6e 74 | 20 69 6e 74 65 72 70 72 | Current| interpr|
|000030e0| 65 74 65 72 2e 20 2a 2f | 0a 58 20 20 20 20 69 6e |eter. */|.X    in|
|000030f0| 74 20 61 72 67 63 3b 09 | 09 09 2f 2a 20 4e 75 6d |t argc;.|../* Num|
|00003100| 62 65 72 20 6f 66 20 61 | 72 67 75 6d 65 6e 74 73 |ber of a|rguments|
|00003110| 2e 20 2a 2f 0a 58 20 20 | 20 20 63 68 61 72 20 2a |. */.X  |  char *|
|00003120| 2a 61 72 67 76 3b 09 09 | 2f 2a 20 41 72 67 75 6d |*argv;..|/* Argum|
|00003130| 65 6e 74 20 73 74 72 69 | 6e 67 73 2e 20 2a 2f 0a |ent stri|ngs. */.|
|00003140| 58 7b 0a 58 20 20 20 20 | 72 65 67 69 73 74 65 72 |X{.X    |register|
|00003150| 20 4c 69 73 74 62 6f 78 | 20 2a 6c 69 73 74 50 74 | Listbox| *listPt|
|00003160| 72 3b 0a 58 20 20 20 20 | 54 6b 5f 57 69 6e 64 6f |r;.X    |Tk_Windo|
|00003170| 77 20 6e 65 77 3b 0a 58 | 20 20 20 20 54 6b 5f 57 |w new;.X|    Tk_W|
|00003180| 69 6e 64 6f 77 20 74 6b | 77 69 6e 20 3d 20 28 54 |indow tk|win = (T|
|00003190| 6b 5f 57 69 6e 64 6f 77 | 29 20 63 6c 69 65 6e 74 |k_Window|) client|
|000031a0| 44 61 74 61 3b 0a 58 0a | 58 20 20 20 20 69 66 20 |Data;.X.|X    if |
|000031b0| 28 61 72 67 63 20 3c 20 | 32 29 20 7b 0a 58 09 54 |(argc < |2) {.X.T|
|000031c0| 63 6c 5f 41 70 70 65 6e | 64 52 65 73 75 6c 74 28 |cl_Appen|dResult(|
|000031d0| 69 6e 74 65 72 70 2c 20 | 22 77 72 6f 6e 67 20 23 |interp, |"wrong #|
|000031e0| 20 61 72 67 73 3a 20 73 | 68 6f 75 6c 64 20 62 65 | args: s|hould be|
|000031f0| 20 5c 22 22 2c 0a 58 09 | 09 61 72 67 76 5b 30 5d | \"",.X.|.argv[0]|
|00003200| 2c 20 22 20 70 61 74 68 | 4e 61 6d 65 20 3f 6f 70 |, " path|Name ?op|
|00003210| 74 69 6f 6e 73 3f 5c 22 | 22 2c 20 28 63 68 61 72 |tions?\"|", (char|
|00003220| 20 2a 29 20 4e 55 4c 4c | 29 3b 0a 58 09 72 65 74 | *) NULL|);.X.ret|
|00003230| 75 72 6e 20 54 43 4c 5f | 45 52 52 4f 52 3b 0a 58 |urn TCL_|ERROR;.X|
|00003240| 20 20 20 20 7d 0a 58 0a | 58 20 20 20 20 6e 65 77 |    }.X.|X    new|
|00003250| 20 3d 20 54 6b 5f 43 72 | 65 61 74 65 57 69 6e 64 | = Tk_Cr|eateWind|
|00003260| 6f 77 46 72 6f 6d 50 61 | 74 68 28 69 6e 74 65 72 |owFromPa|th(inter|
|00003270| 70 2c 20 74 6b 77 69 6e | 2c 20 61 72 67 76 5b 31 |p, tkwin|, argv[1|
|00003280| 5d 2c 20 28 63 68 61 72 | 20 2a 29 20 4e 55 4c 4c |], (char| *) NULL|
|00003290| 29 3b 0a 58 20 20 20 20 | 69 66 20 28 6e 65 77 20 |);.X    |if (new |
|000032a0| 3d 3d 20 4e 55 4c 4c 29 | 20 7b 0a 58 09 72 65 74 |== NULL)| {.X.ret|
|000032b0| 75 72 6e 20 54 43 4c 5f | 45 52 52 4f 52 3b 0a 58 |urn TCL_|ERROR;.X|
|000032c0| 20 20 20 20 7d 0a 58 0a | 58 20 20 20 20 2f 2a 0a |    }.X.|X    /*.|
|000032d0| 58 20 20 20 20 20 2a 20 | 49 6e 69 74 69 61 6c 69 |X     * |Initiali|
|000032e0| 7a 65 20 74 68 65 20 66 | 69 65 6c 64 73 20 6f 66 |ze the f|ields of|
|000032f0| 20 74 68 65 20 73 74 72 | 75 63 74 75 72 65 20 74 | the str|ucture t|
|00003300| 68 61 74 20 77 6f 6e 27 | 74 20 62 65 20 69 6e 69 |hat won'|t be ini|
|00003310| 74 69 61 6c 69 7a 65 64 | 0a 58 20 20 20 20 20 2a |tialized|.X     *|
|00003320| 20 62 79 20 43 6f 6e 66 | 69 67 75 72 65 4c 69 73 | by Conf|igureLis|
|00003330| 74 62 6f 78 2c 20 6f 72 | 20 74 68 61 74 20 43 6f |tbox, or| that Co|
|00003340| 6e 66 69 67 75 72 65 4c | 69 73 74 62 6f 78 20 72 |nfigureL|istbox r|
|00003350| 65 71 75 69 72 65 73 20 | 74 6f 20 62 65 0a 58 20 |equires |to be.X |
|00003360| 20 20 20 20 2a 20 69 6e | 69 74 69 61 6c 69 7a 65 |    * in|itialize|
|00003370| 64 20 61 6c 72 65 61 64 | 79 20 28 65 2e 67 2e 20 |d alread|y (e.g. |
|00003380| 72 65 73 6f 75 72 63 65 | 20 70 6f 69 6e 74 65 72 |resource| pointer|
|00003390| 73 29 2e 0a 58 20 20 20 | 20 20 2a 2f 0a 58 0a 58 |s)..X   |  */.X.X|
|000033a0| 20 20 20 20 6c 69 73 74 | 50 74 72 20 3d 20 28 4c |    list|Ptr = (L|
|000033b0| 69 73 74 62 6f 78 20 2a | 29 20 63 6b 61 6c 6c 6f |istbox *|) ckallo|
|000033c0| 63 28 73 69 7a 65 6f 66 | 28 4c 69 73 74 62 6f 78 |c(sizeof|(Listbox|
|000033d0| 29 29 3b 0a 58 20 20 20 | 20 6c 69 73 74 50 74 72 |));.X   | listPtr|
|000033e0| 2d 3e 74 6b 77 69 6e 20 | 3d 20 6e 65 77 3b 0a 58 |->tkwin |= new;.X|
|000033f0| 20 20 20 20 6c 69 73 74 | 50 74 72 2d 3e 69 6e 74 |    list|Ptr->int|
|00003400| 65 72 70 20 3d 20 69 6e | 74 65 72 70 3b 0a 58 20 |erp = in|terp;.X |
|00003410| 20 20 20 6c 69 73 74 50 | 74 72 2d 3e 6e 75 6d 45 |   listP|tr->numE|
|00003420| 6c 65 6d 65 6e 74 73 20 | 3d 20 30 3b 0a 58 20 20 |lements |= 0;.X  |
|00003430| 20 20 6c 69 73 74 50 74 | 72 2d 3e 6e 75 6d 49 6e |  listPt|r->numIn|
|00003440| 43 6f 6c 75 6d 6e 20 3d | 20 30 3b 0a 58 20 20 20 |Column =| 0;.X   |
|00003450| 20 6c 69 73 74 50 74 72 | 2d 3e 65 6c 65 6d 65 6e | listPtr|->elemen|
|00003460| 74 50 74 72 20 3d 20 4e | 55 4c 4c 3b 0a 58 20 20 |tPtr = N|ULL;.X  |
|00003470| 20 20 6c 69 73 74 50 74 | 72 2d 3e 6e 6f 72 6d 61 |  listPt|r->norma|
|00003480| 6c 42 6f 72 64 65 72 20 | 3d 20 4e 55 4c 4c 3b 0a |lBorder |= NULL;.|
|00003490| 58 20 20 20 20 6c 69 73 | 74 50 74 72 2d 3e 66 6f |X    lis|tPtr->fo|
|000034a0| 6e 74 50 74 72 20 3d 20 | 4e 55 4c 4c 3b 0a 58 20 |ntPtr = |NULL;.X |
|000034b0| 20 20 20 6c 69 73 74 50 | 74 72 2d 3e 66 67 43 6f |   listP|tr->fgCo|
|000034c0| 6c 6f 72 50 74 72 20 3d | 20 4e 55 4c 4c 3b 0a 58 |lorPtr =| NULL;.X|
|000034d0| 20 20 20 20 6c 69 73 74 | 50 74 72 2d 3e 74 65 78 |    list|Ptr->tex|
|000034e0| 74 47 43 20 3d 20 4e 6f | 6e 65 3b 0a 58 20 20 20 |tGC = No|ne;.X   |
|000034f0| 20 6c 69 73 74 50 74 72 | 2d 3e 73 65 6c 42 6f 72 | listPtr|->selBor|
|00003500| 64 65 72 20 3d 20 4e 55 | 4c 4c 3b 0a 58 20 20 20 |der = NU|LL;.X   |
|00003510| 20 6c 69 73 74 50 74 72 | 2d 3e 73 65 6c 46 67 43 | listPtr|->selFgC|
|00003520| 6f 6c 6f 72 50 74 72 20 | 3d 20 4e 55 4c 4c 3b 0a |olorPtr |= NULL;.|
|00003530| 58 20 20 20 20 6c 69 73 | 74 50 74 72 2d 3e 73 65 |X    lis|tPtr->se|
|00003540| 6c 54 65 78 74 47 43 20 | 3d 20 4e 55 4c 4c 3b 0a |lTextGC |= NULL;.|
|00003550| 58 20 20 20 20 6c 69 73 | 74 50 74 72 2d 3e 67 65 |X    lis|tPtr->ge|
|00003560| 6f 6d 65 74 72 79 20 3d | 20 4e 55 4c 4c 3b 0a 58 |ometry =| NULL;.X|
|00003570| 20 20 20 20 6c 69 73 74 | 50 74 72 2d 3e 74 6f 70 |    list|Ptr->top|
|00003580| 49 6e 64 65 78 20 3d 20 | 30 3b 0a 58 20 20 20 20 |Index = |0;.X    |
|00003590| 6c 69 73 74 50 74 72 2d | 3e 72 65 64 72 61 77 46 |listPtr-|>redrawF|
|000035a0| 69 72 73 74 20 3d 20 2d | 31 3b 0a 58 20 20 20 20 |irst = -|1;.X    |
|000035b0| 6c 69 73 74 50 74 72 2d | 3e 73 63 72 6f 6c 6c 4c |listPtr-|>scrollL|
|000035c0| 69 6e 65 73 20 3d 20 30 | 3b 0a 58 20 20 20 20 6c |ines = 0|;.X    l|
|000035d0| 69 73 74 50 74 72 2d 3e | 73 65 6c 65 63 74 46 69 |istPtr->|selectFi|
|000035e0| 72 73 74 20 3d 20 2d 31 | 3b 0a 58 20 20 20 20 6c |rst = -1|;.X    l|
|000035f0| 69 73 74 50 74 72 2d 3e | 73 65 6c 65 63 74 4c 61 |istPtr->|selectLa|
|00003600| 73 74 20 3d 20 2d 32 3b | 0a 58 20 20 20 20 6c 69 |st = -2;|.X    li|
|00003610| 73 74 50 74 72 2d 3e 73 | 63 72 6f 6c 6c 43 6d 64 |stPtr->s|crollCmd|
|00003620| 20 3d 20 4e 55 4c 4c 3b | 0a 58 20 20 20 20 6c 69 | = NULL;|.X    li|
|00003630| 73 74 50 74 72 2d 3e 66 | 6c 61 67 73 20 3d 20 30 |stPtr->f|lags = 0|
|00003640| 3b 0a 58 0a 58 20 20 20 | 20 54 6b 5f 53 65 74 43 |;.X.X   | Tk_SetC|
|00003650| 6c 61 73 73 28 6c 69 73 | 74 50 74 72 2d 3e 74 6b |lass(lis|tPtr->tk|
|00003660| 77 69 6e 2c 20 22 43 6f | 6c 62 6f 78 22 29 3b 0a |win, "Co|lbox");.|
|00003670| 58 20 20 20 20 54 6b 5f | 43 72 65 61 74 65 45 76 |X    Tk_|CreateEv|
|00003680| 65 6e 74 48 61 6e 64 6c | 65 72 28 6c 69 73 74 50 |entHandl|er(listP|
|00003690| 74 72 2d 3e 74 6b 77 69 | 6e 2c 20 45 78 70 6f 73 |tr->tkwi|n, Expos|
|000036a0| 75 72 65 4d 61 73 6b 7c | 53 74 72 75 63 74 75 72 |ureMask||Structur|
|000036b0| 65 4e 6f 74 69 66 79 4d | 61 73 6b 2c 0a 58 09 20 |eNotifyM|ask,.X. |
|000036c0| 20 20 20 4c 69 73 74 62 | 6f 78 45 76 65 6e 74 50 |   Listb|oxEventP|
|000036d0| 72 6f 63 2c 20 28 43 6c | 69 65 6e 74 44 61 74 61 |roc, (Cl|ientData|
|000036e0| 29 20 6c 69 73 74 50 74 | 72 29 3b 0a 58 20 20 20 |) listPt|r);.X   |
|000036f0| 20 54 6b 5f 43 72 65 61 | 74 65 45 76 65 6e 74 48 | Tk_Crea|teEventH|
|00003700| 61 6e 64 6c 65 72 28 6c | 69 73 74 50 74 72 2d 3e |andler(l|istPtr->|
|00003710| 74 6b 77 69 6e 2c 20 42 | 75 74 74 6f 6e 50 72 65 |tkwin, B|uttonPre|
|00003720| 73 73 4d 61 73 6b 7c 42 | 75 74 74 6f 6e 4d 6f 74 |ssMask|B|uttonMot|
|00003730| 69 6f 6e 4d 61 73 6b 2c | 0a 58 09 20 20 20 20 4c |ionMask,|.X.    L|
|00003740| 69 73 74 62 6f 78 4d 6f | 75 73 65 50 72 6f 63 2c |istboxMo|useProc,|
|00003750| 20 28 43 6c 69 65 6e 74 | 44 61 74 61 29 20 6c 69 | (Client|Data) li|
|00003760| 73 74 50 74 72 29 3b 0a | 58 20 20 20 20 54 6b 5f |stPtr);.|X    Tk_|
|00003770| 43 72 65 61 74 65 53 65 | 6c 48 61 6e 64 6c 65 72 |CreateSe|lHandler|
|00003780| 28 6c 69 73 74 50 74 72 | 2d 3e 74 6b 77 69 6e 2c |(listPtr|->tkwin,|
|00003790| 20 58 41 5f 53 54 52 49 | 4e 47 2c 20 4c 69 73 74 | XA_STRI|NG, List|
|000037a0| 62 6f 78 46 65 74 63 68 | 53 65 6c 65 63 74 69 6f |boxFetch|Selectio|
|000037b0| 6e 2c 0a 58 09 20 20 20 | 20 28 43 6c 69 65 6e 74 |n,.X.   | (Client|
|000037c0| 44 61 74 61 29 20 6c 69 | 73 74 50 74 72 2c 20 58 |Data) li|stPtr, X|
|000037d0| 41 5f 53 54 52 49 4e 47 | 29 3b 0a 58 20 20 20 20 |A_STRING|);.X    |
|000037e0| 54 63 6c 5f 43 72 65 61 | 74 65 43 6f 6d 6d 61 6e |Tcl_Crea|teComman|
|000037f0| 64 28 69 6e 74 65 72 70 | 2c 20 54 6b 5f 50 61 74 |d(interp|, Tk_Pat|
|00003800| 68 4e 61 6d 65 28 6c 69 | 73 74 50 74 72 2d 3e 74 |hName(li|stPtr->t|
|00003810| 6b 77 69 6e 29 2c 20 4c | 69 73 74 62 6f 78 57 69 |kwin), L|istboxWi|
|00003820| 64 67 65 74 43 6d 64 2c | 0a 58 09 20 20 20 20 28 |dgetCmd,|.X.    (|
|00003830| 43 6c 69 65 6e 74 44 61 | 74 61 29 20 6c 69 73 74 |ClientDa|ta) list|
|00003840| 50 74 72 2c 20 28 76 6f | 69 64 20 28 2a 29 28 29 |Ptr, (vo|id (*)()|
|00003850| 29 20 4e 55 4c 4c 29 3b | 0a 58 20 20 20 20 69 66 |) NULL);|.X    if|
|00003860| 20 28 43 6f 6e 66 69 67 | 75 72 65 4c 69 73 74 62 | (Config|ureListb|
|00003870| 6f 78 28 69 6e 74 65 72 | 70 2c 20 6c 69 73 74 50 |ox(inter|p, listP|
|00003880| 74 72 2c 20 61 72 67 63 | 2d 32 2c 20 61 72 67 76 |tr, argc|-2, argv|
|00003890| 2b 32 2c 20 30 29 20 21 | 3d 20 54 43 4c 5f 4f 4b |+2, 0) !|= TCL_OK|
|000038a0| 29 20 7b 0a 58 09 67 6f | 74 6f 20 65 72 72 6f 72 |) {.X.go|to error|
|000038b0| 3b 0a 58 20 20 20 20 7d | 0a 58 0a 58 20 20 20 20 |;.X    }|.X.X    |
|000038c0| 69 6e 74 65 72 70 2d 3e | 72 65 73 75 6c 74 20 3d |interp->|result =|
|000038d0| 20 54 6b 5f 50 61 74 68 | 4e 61 6d 65 28 6c 69 73 | Tk_Path|Name(lis|
|000038e0| 74 50 74 72 2d 3e 74 6b | 77 69 6e 29 3b 0a 58 20 |tPtr->tk|win);.X |
|000038f0| 20 20 20 72 65 74 75 72 | 6e 20 54 43 4c 5f 4f 4b |   retur|n TCL_OK|
|00003900| 3b 0a 58 0a 58 20 20 20 | 20 65 72 72 6f 72 3a 0a |;.X.X   | error:.|
|00003910| 58 20 20 20 20 54 6b 5f | 44 65 73 74 72 6f 79 57 |X    Tk_|DestroyW|
|00003920| 69 6e 64 6f 77 28 6c 69 | 73 74 50 74 72 2d 3e 74 |indow(li|stPtr->t|
|00003930| 6b 77 69 6e 29 3b 0a 58 | 20 20 20 20 72 65 74 75 |kwin);.X|    retu|
|00003940| 72 6e 20 54 43 4c 5f 45 | 52 52 4f 52 3b 0a 58 7d |rn TCL_E|RROR;.X}|
|00003950| 0a 58 0c 0a 58 2f 2a 0a | 58 20 2a 2d 2d 2d 2d 2d |.X..X/*.|X *-----|
|00003960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0a 58 20 2a 0a 58 20 |--------|-.X *.X |
|000039a0| 2a 20 4c 69 73 74 62 6f | 78 57 69 64 67 65 74 43 |* Listbo|xWidgetC|
|000039b0| 6d 64 20 2d 2d 0a 58 20 | 2a 0a 58 20 2a 09 54 68 |md --.X |*.X *.Th|
|000039c0| 69 73 20 70 72 6f 63 65 | 64 75 72 65 20 69 73 20 |is proce|dure is |
|000039d0| 69 6e 76 6f 6b 65 64 20 | 74 6f 20 70 72 6f 63 65 |invoked |to proce|
|000039e0| 73 73 20 74 68 65 20 54 | 63 6c 20 63 6f 6d 6d 61 |ss the T|cl comma|
|000039f0| 6e 64 0a 58 20 2a 09 74 | 68 61 74 20 63 6f 72 72 |nd.X *.t|hat corr|
|00003a00| 65 73 70 6f 6e 64 73 20 | 74 6f 20 61 20 77 69 64 |esponds |to a wid|
|00003a10| 67 65 74 20 6d 61 6e 61 | 67 65 64 20 62 79 20 74 |get mana|ged by t|
|00003a20| 68 69 73 20 6d 6f 64 75 | 6c 65 2e 0a 58 20 2a 09 |his modu|le..X *.|
|00003a30| 53 65 65 20 74 68 65 20 | 75 73 65 72 20 64 6f 63 |See the |user doc|
|00003a40| 75 6d 65 6e 74 61 74 69 | 6f 6e 20 66 6f 72 20 64 |umentati|on for d|
|00003a50| 65 74 61 69 6c 73 20 6f | 6e 20 77 68 61 74 20 69 |etails o|n what i|
|00003a60| 74 20 64 6f 65 73 2e 0a | 58 20 2a 0a 58 20 2a 20 |t does..|X *.X * |
|00003a70| 52 65 73 75 6c 74 73 3a | 0a 58 20 2a 09 41 20 73 |Results:|.X *.A s|
|00003a80| 74 61 6e 64 61 72 64 20 | 54 63 6c 20 72 65 73 75 |tandard |Tcl resu|
|00003a90| 6c 74 2e 0a 58 20 2a 0a | 58 20 2a 20 53 69 64 65 |lt..X *.|X * Side|
|00003aa0| 20 65 66 66 65 63 74 73 | 3a 0a 58 20 2a 09 53 65 | effects|:.X *.Se|
|00003ab0| 65 20 74 68 65 20 75 73 | 65 72 20 64 6f 63 75 6d |e the us|er docum|
|00003ac0| 65 6e 74 61 74 69 6f 6e | 2e 0a 58 20 2a 0a 58 20 |entation|..X *.X |
|00003ad0| 2a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |*-------|--------|
|00003ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0a |--------|-------.|
|00003b10| 58 20 2a 2f 0a 58 0a 73 | 74 61 74 69 63 20 69 6e |X */.X.s|tatic in|
|00003b20| 74 0a 4c 69 73 74 62 6f | 78 57 69 64 67 65 74 43 |t.Listbo|xWidgetC|
|00003b30| 6d 64 28 63 6c 69 65 6e | 74 44 61 74 61 2c 20 69 |md(clien|tData, i|
|00003b40| 6e 74 65 72 70 2c 20 61 | 72 67 63 2c 20 61 72 67 |nterp, a|rgc, arg|
|00003b50| 76 29 0a 58 20 20 20 20 | 43 6c 69 65 6e 74 44 61 |v).X    |ClientDa|
|00003b60| 74 61 20 63 6c 69 65 6e | 74 44 61 74 61 3b 09 09 |ta clien|tData;..|
|00003b70| 2f 2a 20 49 6e 66 6f 72 | 6d 61 74 69 6f 6e 20 61 |/* Infor|mation a|
|00003b80| 62 6f 75 74 20 6c 69 73 | 74 62 6f 78 20 77 69 64 |bout lis|tbox wid|
|00003b90| 67 65 74 2e 20 2a 2f 0a | 58 20 20 20 20 54 63 6c |get. */.|X    Tcl|
|00003ba0| 5f 49 6e 74 65 72 70 20 | 2a 69 6e 74 65 72 70 3b |_Interp |*interp;|
|00003bb0| 09 09 09 2f 2a 20 43 75 | 72 72 65 6e 74 20 69 6e |.../* Cu|rrent in|
|00003bc0| 74 65 72 70 72 65 74 65 | 72 2e 20 2a 2f 0a 58 20 |terprete|r. */.X |
|00003bd0| 20 20 20 69 6e 74 20 61 | 72 67 63 3b 09 09 09 09 |   int a|rgc;....|
|00003be0| 2f 2a 20 4e 75 6d 62 65 | 72 20 6f 66 20 61 72 67 |/* Numbe|r of arg|
|00003bf0| 75 6d 65 6e 74 73 2e 20 | 2a 2f 0a 58 20 20 20 20 |uments. |*/.X    |
|00003c00| 63 68 61 72 20 2a 2a 61 | 72 67 76 3b 09 09 09 2f |char **a|rgv;.../|
|00003c10| 2a 20 41 72 67 75 6d 65 | 6e 74 20 73 74 72 69 6e |* Argume|nt strin|
|00003c20| 67 73 2e 20 2a 2f 0a 58 | 7b 0a 58 20 20 20 20 72 |gs. */.X|{.X    r|
|00003c30| 65 67 69 73 74 65 72 20 | 4c 69 73 74 62 6f 78 20 |egister |Listbox |
|00003c40| 2a 6c 69 73 74 50 74 72 | 20 3d 20 28 4c 69 73 74 |*listPtr| = (List|
|00003c50| 62 6f 78 20 2a 29 20 63 | 6c 69 65 6e 74 44 61 74 |box *) c|lientDat|
|00003c60| 61 3b 0a 58 20 20 20 20 | 69 6e 74 20 72 65 73 75 |a;.X    |int resu|
|00003c70| 6c 74 20 3d 20 54 43 4c | 5f 4f 4b 3b 0a 58 20 20 |lt = TCL|_OK;.X  |
|00003c80| 20 20 69 6e 74 20 6c 65 | 6e 67 74 68 3b 0a 58 20 |  int le|ngth;.X |
|00003c90| 20 20 20 63 68 61 72 20 | 63 3b 0a 58 0a 58 20 20 |   char |c;.X.X  |
|00003ca0| 20 20 69 66 20 28 61 72 | 67 63 20 3c 20 32 29 20 |  if (ar|gc < 2) |
|00003cb0| 7b 0a 58 09 54 63 6c 5f | 41 70 70 65 6e 64 52 65 |{.X.Tcl_|AppendRe|
|00003cc0| 73 75 6c 74 28 69 6e 74 | 65 72 70 2c 20 22 77 72 |sult(int|erp, "wr|
|00003cd0| 6f 6e 67 20 23 20 61 72 | 67 73 3a 20 73 68 6f 75 |ong # ar|gs: shou|
|00003ce0| 6c 64 20 62 65 20 5c 22 | 22 2c 0a 58 09 09 61 72 |ld be \"|",.X..ar|
|00003cf0| 67 76 5b 30 5d 2c 20 22 | 20 6f 70 74 69 6f 6e 20 |gv[0], "| option |
|00003d00| 3f 61 72 67 20 61 72 67 | 20 2e 2e 2e 3f 5c 22 22 |?arg arg| ...?\""|
|00003d10| 2c 20 28 63 68 61 72 20 | 2a 29 20 4e 55 4c 4c 29 |, (char |*) NULL)|
|00003d20| 3b 0a 58 09 72 65 74 75 | 72 6e 20 54 43 4c 5f 45 |;.X.retu|rn TCL_E|
|00003d30| 52 52 4f 52 3b 0a 58 20 | 20 20 20 7d 0a 58 20 20 |RROR;.X |   }.X  |
|00003d40| 20 20 54 6b 5f 50 72 65 | 73 65 72 76 65 28 28 43 |  Tk_Pre|serve((C|
|00003d50| 6c 69 65 6e 74 44 61 74 | 61 29 20 6c 69 73 74 50 |lientDat|a) listP|
|00003d60| 74 72 29 3b 0a 58 20 20 | 20 20 63 20 3d 20 61 72 |tr);.X  |  c = ar|
|00003d70| 67 76 5b 31 5d 5b 30 5d | 3b 0a 58 20 20 20 20 6c |gv[1][0]|;.X    l|
|00003d80| 65 6e 67 74 68 20 3d 20 | 73 74 72 6c 65 6e 28 61 |ength = |strlen(a|
|00003d90| 72 67 76 5b 31 5d 29 3b | 0a 58 20 20 20 20 69 66 |rgv[1]);|.X    if|
|00003da0| 20 28 28 63 20 3d 3d 20 | 27 63 27 29 20 26 26 20 | ((c == |'c') && |
|00003db0| 28 73 74 72 6e 63 6d 70 | 28 61 72 67 76 5b 31 5d |(strncmp|(argv[1]|
|00003dc0| 2c 20 22 63 6f 6e 66 69 | 67 75 72 65 22 2c 20 6c |, "confi|gure", l|
|00003dd0| 65 6e 67 74 68 29 20 3d | 3d 20 30 29 29 20 7b 0a |ength) =|= 0)) {.|
|00003de0| 58 09 69 66 20 28 61 72 | 67 63 20 3d 3d 20 32 29 |X.if (ar|gc == 2)|
|00003df0| 20 7b 0a 58 09 20 20 20 | 20 72 65 73 75 6c 74 20 | {.X.   | result |
|00003e00| 3d 20 54 6b 5f 43 6f 6e | 66 69 67 75 72 65 49 6e |= Tk_Con|figureIn|
|00003e10| 66 6f 28 69 6e 74 65 72 | 70 2c 20 6c 69 73 74 50 |fo(inter|p, listP|
|00003e20| 74 72 2d 3e 74 6b 77 69 | 6e 2c 20 63 6f 6e 66 69 |tr->tkwi|n, confi|
|00003e30| 67 53 70 65 63 73 2c 0a | 58 09 09 20 20 20 20 28 |gSpecs,.|X..    (|
|00003e40| 63 68 61 72 20 2a 29 20 | 6c 69 73 74 50 74 72 2c |char *) |listPtr,|
|00003e50| 20 28 63 68 61 72 20 2a | 29 20 4e 55 4c 4c 2c 20 | (char *|) NULL, |
|00003e60| 30 29 3b 0a 58 09 7d 20 | 65 6c 73 65 20 69 66 20 |0);.X.} |else if |
|00003e70| 28 61 72 67 63 20 3d 3d | 20 33 29 20 7b 0a 58 09 |(argc ==| 3) {.X.|
|00003e80| 20 20 20 20 72 65 73 75 | 6c 74 20 3d 20 54 6b 5f |    resu|lt = Tk_|
|00003e90| 43 6f 6e 66 69 67 75 72 | 65 49 6e 66 6f 28 69 6e |Configur|eInfo(in|
|00003ea0| 74 65 72 70 2c 20 6c 69 | 73 74 50 74 72 2d 3e 74 |terp, li|stPtr->t|
|00003eb0| 6b 77 69 6e 2c 20 63 6f | 6e 66 69 67 53 70 65 63 |kwin, co|nfigSpec|
|00003ec0| 73 2c 0a 58 09 09 20 20 | 20 20 28 63 68 61 72 20 |s,.X..  |  (char |
|00003ed0| 2a 29 20 6c 69 73 74 50 | 74 72 2c 20 61 72 67 76 |*) listP|tr, argv|
|00003ee0| 5b 32 5d 2c 20 30 29 3b | 0a 58 09 7d 20 65 6c 73 |[2], 0);|.X.} els|
|00003ef0| 65 20 7b 0a 58 09 20 20 | 20 20 72 65 73 75 6c 74 |e {.X.  |  result|
|00003f00| 20 3d 20 43 6f 6e 66 69 | 67 75 72 65 4c 69 73 74 | = Confi|gureList|
|00003f10| 62 6f 78 28 69 6e 74 65 | 72 70 2c 20 6c 69 73 74 |box(inte|rp, list|
|00003f20| 50 74 72 2c 20 61 72 67 | 63 2d 32 2c 20 61 72 67 |Ptr, arg|c-2, arg|
|00003f30| 76 2b 32 2c 0a 58 09 09 | 20 20 20 20 54 4b 5f 43 |v+2,.X..|    TK_C|
|00003f40| 4f 4e 46 49 47 5f 41 52 | 47 56 5f 4f 4e 4c 59 29 |ONFIG_AR|GV_ONLY)|
|00003f50| 3b 0a 58 09 7d 0a 58 20 | 20 20 20 7d 20 65 6c 73 |;.X.}.X |   } els|
|00003f60| 65 20 69 66 20 28 28 63 | 20 3d 3d 20 27 64 27 29 |e if ((c| == 'd')|
|00003f70| 20 26 26 20 28 73 74 72 | 6e 63 6d 70 28 61 72 67 | && (str|ncmp(arg|
|00003f80| 76 5b 31 5d 2c 20 22 64 | 65 6c 65 74 65 22 2c 20 |v[1], "d|elete", |
|00003f90| 6c 65 6e 67 74 68 29 20 | 3d 3d 20 30 29 29 20 7b |length) |== 0)) {|
|00003fa0| 0a 58 09 69 6e 74 20 66 | 69 72 73 74 2c 20 6c 61 |.X.int f|irst, la|
|00003fb0| 73 74 3b 0a 58 0a 58 09 | 69 66 20 28 28 61 72 67 |st;.X.X.|if ((arg|
|00003fc0| 63 20 3c 20 33 29 20 7c | 7c 20 28 61 72 67 63 20 |c < 3) ||| (argc |
|00003fd0| 3e 20 34 29 29 20 7b 0a | 58 09 20 20 20 20 54 63 |> 4)) {.|X.    Tc|
|00003fe0| 6c 5f 41 70 70 65 6e 64 | 52 65 73 75 6c 74 28 69 |l_Append|Result(i|
|00003ff0| 6e 74 65 72 70 2c 20 22 | 77 72 6f 6e 67 20 23 20 |nterp, "|wrong # |
|00004000| 61 72 67 73 3a 20 73 68 | 6f 75 6c 64 20 62 65 20 |args: sh|ould be |
|00004010| 5c 22 22 2c 0a 58 09 09 | 20 20 20 20 61 72 67 76 |\"",.X..|    argv|
|00004020| 5b 30 5d 2c 20 22 20 64 | 65 6c 65 74 65 20 66 69 |[0], " d|elete fi|
|00004030| 72 73 74 49 6e 64 65 78 | 20 3f 6c 61 73 74 49 6e |rstIndex| ?lastIn|
|00004040| 64 65 78 3f 5c 22 22 2c | 0a 58 09 09 20 20 20 20 |dex?\"",|.X..    |
|00004050| 28 63 68 61 72 20 2a 29 | 20 4e 55 4c 4c 29 3b 0a |(char *)| NULL);.|
|00004060| 58 09 20 20 20 20 67 6f | 74 6f 20 65 72 72 6f 72 |X.    go|to error|
|00004070| 3b 0a 58 09 7d 0a 58 09 | 69 66 20 28 47 65 74 4c |;.X.}.X.|if (GetL|
|00004080| 69 73 74 62 6f 78 49 6e | 64 65 78 28 69 6e 74 65 |istboxIn|dex(inte|
|00004090| 72 70 2c 20 6c 69 73 74 | 50 74 72 2c 20 61 72 67 |rp, list|Ptr, arg|
|000040a0| 76 5b 32 5d 2c 20 30 2c | 20 26 66 69 72 73 74 29 |v[2], 0,| &first)|
|000040b0| 20 21 3d 20 54 43 4c 5f | 4f 4b 29 20 7b 0a 58 09 | != TCL_|OK) {.X.|
|000040c0| 20 20 20 20 72 65 74 75 | 72 6e 20 54 43 4c 5f 45 |    retu|rn TCL_E|
|000040d0| 52 52 4f 52 3b 0a 58 09 | 7d 0a 58 09 69 66 20 28 |RROR;.X.|}.X.if (|
|000040e0| 61 72 67 63 20 3d 3d 20 | 33 29 20 7b 0a 58 09 20 |argc == |3) {.X. |
|000040f0| 20 20 20 6c 61 73 74 20 | 3d 20 66 69 72 73 74 3b |   last |= first;|
|00004100| 0a 58 09 7d 20 65 6c 73 | 65 20 7b 0a 58 09 20 20 |.X.} els|e {.X.  |
|00004110| 20 20 69 66 20 28 47 65 | 74 4c 69 73 74 62 6f 78 |  if (Ge|tListbox|
|00004120| 49 6e 64 65 78 28 69 6e | 74 65 72 70 2c 20 6c 69 |Index(in|terp, li|
|00004130| 73 74 50 74 72 2c 20 61 | 72 67 76 5b 33 5d 2c 20 |stPtr, a|rgv[3], |
|00004140| 30 2c 0a 58 09 09 20 20 | 20 20 26 6c 61 73 74 29 |0,.X..  |  &last)|
|00004150| 20 21 3d 20 54 43 4c 5f | 4f 4b 29 20 7b 0a 58 09 | != TCL_|OK) {.X.|
|00004160| 09 67 6f 74 6f 20 65 72 | 72 6f 72 3b 0a 58 09 20 |.goto er|ror;.X. |
|00004170| 20 20 20 7d 0a 58 09 20 | 20 20 20 69 66 20 28 6c |   }.X. |   if (l|
|00004180| 61 73 74 20 3c 20 66 69 | 72 73 74 29 20 7b 0a 58 |ast < fi|rst) {.X|
|00004190| 09 09 54 63 6c 5f 41 70 | 70 65 6e 64 52 65 73 75 |..Tcl_Ap|pendResu|
|000041a0| 6c 74 28 69 6e 74 65 72 | 70 2c 20 22 62 61 64 20 |lt(inter|p, "bad |
|000041b0| 6c 69 73 74 62 6f 78 20 | 69 6e 64 65 78 20 5c 22 |listbox |index \"|
|000041c0| 22 2c 20 61 72 67 76 5b | 33 5d 2c 0a 58 09 09 09 |", argv[|3],.X...|
|000041d0| 22 5c 22 22 2c 20 28 63 | 68 61 72 20 2a 29 20 4e |"\"", (c|har *) N|
|000041e0| 55 4c 4c 29 3b 0a 58 09 | 09 67 6f 74 6f 20 65 72 |ULL);.X.|.goto er|
|000041f0| 72 6f 72 3b 0a 58 09 20 | 20 20 20 7d 0a 58 09 7d |ror;.X. |   }.X.}|
|00004200| 0a 58 09 44 65 6c 65 74 | 65 45 6c 73 28 6c 69 73 |.X.Delet|eEls(lis|
|00004210| 74 50 74 72 2c 20 66 69 | 72 73 74 2c 20 6c 61 73 |tPtr, fi|rst, las|
|00004220| 74 2b 31 2d 66 69 72 73 | 74 29 3b 0a 58 20 20 20 |t+1-firs|t);.X   |
|00004230| 20 7d 20 65 6c 73 65 20 | 69 66 20 28 28 63 20 3d | } else |if ((c =|
|00004240| 3d 20 27 67 27 29 20 26 | 26 20 28 73 74 72 6e 63 |= 'g') &|& (strnc|
|00004250| 6d 70 28 61 72 67 76 5b | 31 5d 2c 20 22 67 65 74 |mp(argv[|1], "get|
|00004260| 22 2c 20 6c 65 6e 67 74 | 68 29 20 3d 3d 20 30 29 |", lengt|h) == 0)|
|00004270| 29 20 7b 0a 58 09 69 6e | 74 20 69 6e 64 65 78 3b |) {.X.in|t index;|
|00004280| 0a 58 09 72 65 67 69 73 | 74 65 72 20 45 6c 65 6d |.X.regis|ter Elem|
|00004290| 65 6e 74 20 2a 65 6c 50 | 74 72 3b 0a 58 0a 58 09 |ent *elP|tr;.X.X.|
|000042a0| 69 66 20 28 61 72 67 63 | 20 21 3d 20 33 29 20 7b |if (argc| != 3) {|
|000042b0| 0a 58 09 20 20 20 20 54 | 63 6c 5f 41 70 70 65 6e |.X.    T|cl_Appen|
|000042c0| 64 52 65 73 75 6c 74 28 | 69 6e 74 65 72 70 2c 20 |dResult(|interp, |
|000042d0| 22 77 72 6f 6e 67 20 23 | 20 61 72 67 73 3a 20 73 |"wrong #| args: s|
|000042e0| 68 6f 75 6c 64 20 62 65 | 20 5c 22 22 2c 0a 58 09 |hould be| \"",.X.|
|000042f0| 09 20 20 20 20 61 72 67 | 76 5b 30 5d 2c 20 22 20 |.    arg|v[0], " |
|00004300| 67 65 74 20 69 6e 64 65 | 78 5c 22 22 2c 20 28 63 |get inde|x\"", (c|
|00004310| 68 61 72 20 2a 29 20 4e | 55 4c 4c 29 3b 0a 58 09 |har *) N|ULL);.X.|
|00004320| 20 20 20 20 67 6f 74 6f | 20 65 72 72 6f 72 3b 0a |    goto| error;.|
|00004330| 58 09 7d 0a 58 09 69 66 | 20 28 47 65 74 4c 69 73 |X.}.X.if| (GetLis|
|00004340| 74 62 6f 78 49 6e 64 65 | 78 28 69 6e 74 65 72 70 |tboxInde|x(interp|
|00004350| 2c 20 6c 69 73 74 50 74 | 72 2c 20 61 72 67 76 5b |, listPt|r, argv[|
|00004360| 32 5d 2c 20 30 2c 20 26 | 69 6e 64 65 78 29 20 21 |2], 0, &|index) !|
|00004370| 3d 20 54 43 4c 5f 4f 4b | 29 20 7b 0a 58 09 20 20 |= TCL_OK|) {.X.  |
|00004380| 20 20 67 6f 74 6f 20 65 | 72 72 6f 72 3b 0a 58 09 |  goto e|rror;.X.|
|00004390| 7d 0a 58 09 66 6f 72 20 | 28 65 6c 50 74 72 20 3d |}.X.for |(elPtr =|
|000043a0| 20 6c 69 73 74 50 74 72 | 2d 3e 65 6c 65 6d 65 6e | listPtr|->elemen|
|000043b0| 74 50 74 72 3b 20 69 6e | 64 65 78 20 3e 20 30 3b |tPtr; in|dex > 0;|
|000043c0| 0a 58 09 09 69 6e 64 65 | 78 2d 2d 2c 20 65 6c 50 |.X..inde|x--, elP|
|000043d0| 74 72 20 3d 20 65 6c 50 | 74 72 2d 3e 6e 65 78 74 |tr = elP|tr->next|
|000043e0| 50 74 72 29 0a 58 09 20 | 20 20 20 2f 2a 45 4d 50 |Ptr).X. |   /*EMP|
|000043f0| 54 59 2a 2f 0a 58 09 20 | 20 20 20 3b 0a 58 09 69 |TY*/.X. |   ;.X.i|
|00004400| 6e 74 65 72 70 2d 3e 72 | 65 73 75 6c 74 20 3d 20 |nterp->r|esult = |
|00004410| 65 6c 50 74 72 2d 3e 74 | 65 78 74 3b 0a 58 20 20 |elPtr->t|ext;.X  |
|00004420| 20 20 7d 20 65 6c 73 65 | 20 69 66 20 28 28 63 20 |  } else| if ((c |
|00004430| 3d 3d 20 27 69 27 29 20 | 26 26 20 28 73 74 72 6e |== 'i') |&& (strn|
|00004440| 63 6d 70 28 61 72 67 76 | 5b 31 5d 2c 20 22 69 6e |cmp(argv|[1], "in|
|00004450| 73 65 72 74 22 2c 20 6c | 65 6e 67 74 68 29 20 3d |sert", l|ength) =|
|00004460| 3d 20 30 29 29 20 7b 0a | 58 09 69 6e 74 20 69 6e |= 0)) {.|X.int in|
|00004470| 64 65 78 3b 0a 58 0a 58 | 09 69 66 20 28 61 72 67 |dex;.X.X|.if (arg|
|00004480| 63 20 3c 20 33 29 20 7b | 0a 58 09 20 20 20 20 54 |c < 3) {|.X.    T|
|00004490| 63 6c 5f 41 70 70 65 6e | 64 52 65 73 75 6c 74 28 |cl_Appen|dResult(|
|000044a0| 69 6e 74 65 72 70 2c 20 | 22 77 72 6f 6e 67 20 23 |interp, |"wrong #|
|000044b0| 20 61 72 67 73 3a 20 73 | 68 6f 75 6c 64 20 62 65 | args: s|hould be|
|000044c0| 20 5c 22 22 2c 0a 58 09 | 09 20 20 20 20 61 72 67 | \"",.X.|.    arg|
|000044d0| 76 5b 30 5d 2c 20 22 20 | 69 6e 73 65 72 74 20 69 |v[0], " |insert i|
|000044e0| 6e 64 65 78 20 3f 65 6c | 65 6d 65 6e 74 20 3f 65 |ndex ?el|ement ?e|
|000044f0| 6c 65 6d 65 6e 74 20 2e | 2e 2e 3f 5c 22 22 2c 0a |lement .|..?\"",.|
|00004500| 58 09 09 20 20 20 20 28 | 63 68 61 72 20 2a 29 20 |X..    (|char *) |
|00004510| 4e 55 4c 4c 29 3b 0a 58 | 09 20 20 20 20 67 6f 74 |NULL);.X|.    got|
|00004520| 6f 20 65 72 72 6f 72 3b | 0a 58 09 7d 0a 58 09 69 |o error;|.X.}.X.i|
|00004530| 66 20 28 61 72 67 63 20 | 3e 20 33 29 20 7b 0a 58 |f (argc |> 3) {.X|
|00004540| 09 20 20 20 20 69 66 20 | 28 47 65 74 4c 69 73 74 |.    if |(GetList|
|00004550| 62 6f 78 49 6e 64 65 78 | 28 69 6e 74 65 72 70 2c |boxIndex|(interp,|
|00004560| 20 6c 69 73 74 50 74 72 | 2c 20 61 72 67 76 5b 32 | listPtr|, argv[2|
|00004570| 5d 2c 0a 58 09 20 20 20 | 20 20 20 20 20 5a 45 52 |],.X.   |     ZER|
|00004580| 4f 5f 4f 4b 7c 4c 41 53 | 54 5f 50 4c 55 53 5f 4f |O_OK|LAS|T_PLUS_O|
|00004590| 4e 45 5f 4f 4b 2c 20 26 | 69 6e 64 65 78 29 20 21 |NE_OK, &|index) !|
|000045a0| 3d 20 54 43 4c 5f 4f 4b | 29 20 7b 0a 58 09 20 20 |= TCL_OK|) {.X.  |
|000045b0| 20 20 20 20 20 20 67 6f | 74 6f 20 65 72 72 6f 72 |      go|to error|
|000045c0| 3b 0a 58 09 20 20 20 20 | 7d 0a 58 09 20 20 20 20 |;.X.    |}.X.    |
|000045d0| 49 6e 73 65 72 74 45 6c | 73 28 6c 69 73 74 50 74 |InsertEl|s(listPt|
|000045e0| 72 2c 20 69 6e 64 65 78 | 2c 20 61 72 67 63 2d 33 |r, index|, argc-3|
|000045f0| 2c 20 61 72 67 76 2b 33 | 29 3b 0a 58 09 7d 0a 58 |, argv+3|);.X.}.X|
|00004600| 20 20 20 20 7d 20 65 6c | 73 65 20 69 66 20 28 28 |    } el|se if ((|
|00004610| 63 20 3d 3d 20 27 6e 27 | 29 20 26 26 20 28 73 74 |c == 'n'|) && (st|
|00004620| 72 6e 63 6d 70 28 61 72 | 67 76 5b 31 5d 2c 20 22 |rncmp(ar|gv[1], "|
|00004630| 6e 65 61 72 65 73 74 22 | 2c 20 6c 65 6e 67 74 68 |nearest"|, length|
|00004640| 29 20 3d 3d 20 30 29 29 | 20 7b 0a 58 09 69 6e 74 |) == 0))| {.X.int|
|00004650| 20 69 6e 64 65 78 2c 20 | 78 2c 20 79 3b 0a 58 0a | index, |x, y;.X.|
|00004660| 58 09 69 66 20 28 61 72 | 67 63 20 21 3d 20 34 29 |X.if (ar|gc != 4)|
|00004670| 20 7b 0a 58 09 20 20 20 | 20 54 63 6c 5f 41 70 70 | {.X.   | Tcl_App|
|00004680| 65 6e 64 52 65 73 75 6c | 74 28 69 6e 74 65 72 70 |endResul|t(interp|
|00004690| 2c 20 22 77 72 6f 6e 67 | 20 23 20 61 72 67 73 3a |, "wrong| # args:|
|000046a0| 20 73 68 6f 75 6c 64 20 | 62 65 20 5c 22 22 2c 0a | should |be \"",.|
|000046b0| 58 09 09 20 20 20 20 61 | 72 67 76 5b 30 5d 2c 20 |X..    a|rgv[0], |
|000046c0| 22 20 6e 65 61 72 65 73 | 74 20 78 20 79 5c 22 22 |" neares|t x y\""|
|000046d0| 2c 20 28 63 68 61 72 20 | 2a 29 20 4e 55 4c 4c 29 |, (char |*) NULL)|
|000046e0| 3b 0a 58 09 20 20 20 20 | 67 6f 74 6f 20 65 72 72 |;.X.    |goto err|
|000046f0| 6f 72 3b 0a 58 09 7d 0a | 58 09 69 66 20 28 54 63 |or;.X.}.|X.if (Tc|
|00004700| 6c 5f 47 65 74 49 6e 74 | 28 69 6e 74 65 72 70 2c |l_GetInt|(interp,|
|00004710| 20 61 72 67 76 5b 32 5d | 2c 20 26 78 29 20 21 3d | argv[2]|, &x) !=|
|00004720| 20 54 43 4c 5f 4f 4b 29 | 20 7b 0a 58 09 20 20 20 | TCL_OK)| {.X.   |
|00004730| 20 67 6f 74 6f 20 65 72 | 72 6f 72 3b 0a 58 09 7d | goto er|ror;.X.}|
|00004740| 0a 58 09 69 66 20 28 54 | 63 6c 5f 47 65 74 49 6e |.X.if (T|cl_GetIn|
|00004750| 74 28 69 6e 74 65 72 70 | 2c 20 61 72 67 76 5b 33 |t(interp|, argv[3|
|00004760| 5d 2c 20 26 79 29 20 21 | 3d 20 54 43 4c 5f 4f 4b |], &y) !|= TCL_OK|
|00004770| 29 20 7b 0a 58 09 20 20 | 20 20 67 6f 74 6f 20 65 |) {.X.  |  goto e|
|00004780| 72 72 6f 72 3b 0a 58 09 | 7d 0a 58 09 69 6e 64 65 |rror;.X.|}.X.inde|
|00004790| 78 20 3d 20 4e 65 61 72 | 65 73 74 4c 69 73 74 62 |x = Near|estListb|
|000047a0| 6f 78 45 6c 65 6d 65 6e | 74 28 6c 69 73 74 50 74 |oxElemen|t(listPt|
|000047b0| 72 2c 20 78 2c 20 79 29 | 3b 0a 58 09 73 70 72 69 |r, x, y)|;.X.spri|
|000047c0| 6e 74 66 28 69 6e 74 65 | 72 70 2d 3e 72 65 73 75 |ntf(inte|rp->resu|
|000047d0| 6c 74 2c 20 22 25 64 22 | 2c 20 69 6e 64 65 78 29 |lt, "%d"|, index)|
|000047e0| 3b 0a 58 20 20 20 20 7d | 20 65 6c 73 65 20 69 66 |;.X    }| else if|
|000047f0| 20 28 28 63 20 3d 3d 20 | 27 73 27 29 20 26 26 20 | ((c == |'s') && |
|00004800| 28 6c 65 6e 67 74 68 20 | 3e 3d 20 32 29 0a 58 09 |(length |>= 2).X.|
|00004810| 20 20 20 20 26 26 20 28 | 73 74 72 6e 63 6d 70 28 |    && (|strncmp(|
|00004820| 61 72 67 76 5b 31 5d 2c | 20 22 73 63 61 6e 22 2c |argv[1],| "scan",|
|00004830| 20 6c 65 6e 67 74 68 29 | 20 3d 3d 20 30 29 29 20 | length)| == 0)) |
|00004840| 7b 0a 58 09 69 6e 74 20 | 79 3b 0a 58 0a 58 09 69 |{.X.int |y;.X.X.i|
|00004850| 66 20 28 61 72 67 63 20 | 21 3d 20 34 29 20 7b 0a |f (argc |!= 4) {.|
|00004860| 58 09 20 20 20 20 54 63 | 6c 5f 41 70 70 65 6e 64 |X.    Tc|l_Append|
|00004870| 52 65 73 75 6c 74 28 69 | 6e 74 65 72 70 2c 20 22 |Result(i|nterp, "|
|00004880| 77 72 6f 6e 67 20 23 20 | 61 72 67 73 3a 20 73 68 |wrong # |args: sh|
|00004890| 6f 75 6c 64 20 62 65 20 | 5c 22 22 2c 0a 58 09 09 |ould be |\"",.X..|
|000048a0| 20 20 20 20 61 72 67 76 | 5b 30 5d 2c 20 22 20 73 |    argv|[0], " s|
|000048b0| 63 61 6e 20 6d 61 72 6b | 7c 64 72 61 67 74 6f 20 |can mark||dragto |
|000048c0| 79 5c 22 22 2c 20 28 63 | 68 61 72 20 2a 29 20 4e |y\"", (c|har *) N|
|000048d0| 55 4c 4c 29 3b 0a 58 09 | 20 20 20 20 67 6f 74 6f |ULL);.X.|    goto|
|000048e0| 20 65 72 72 6f 72 3b 0a | 58 09 7d 0a 58 09 69 66 | error;.|X.}.X.if|
|000048f0| 20 28 54 63 6c 5f 47 65 | 74 49 6e 74 28 69 6e 74 | (Tcl_Ge|tInt(int|
|00004900| 65 72 70 2c 20 61 72 67 | 76 5b 33 5d 2c 20 26 79 |erp, arg|v[3], &y|
|00004910| 29 20 21 3d 20 54 43 4c | 5f 4f 4b 29 20 7b 0a 58 |) != TCL|_OK) {.X|
|00004920| 09 20 20 20 20 67 6f 74 | 6f 20 65 72 72 6f 72 3b |.    got|o error;|
|00004930| 0a 58 09 7d 0a 58 09 69 | 66 20 28 28 61 72 67 76 |.X.}.X.i|f ((argv|
|00004940| 5b 32 5d 5b 30 5d 20 3d | 3d 20 27 6d 27 29 0a 58 |[2][0] =|= 'm').X|
|00004950| 09 09 26 26 20 28 73 74 | 72 6e 63 6d 70 28 61 72 |..&& (st|rncmp(ar|
|00004960| 67 76 5b 32 5d 2c 20 22 | 6d 61 72 6b 22 2c 20 73 |gv[2], "|mark", s|
|00004970| 74 72 6c 65 6e 28 61 72 | 67 76 5b 32 5d 29 29 20 |trlen(ar|gv[2])) |
|00004980| 3d 3d 20 30 29 29 20 7b | 0a 58 09 20 20 20 20 6c |== 0)) {|.X.    l|
|00004990| 69 73 74 50 74 72 2d 3e | 73 63 61 6e 4d 61 72 6b |istPtr->|scanMark|
|000049a0| 59 20 3d 20 79 3b 0a 58 | 09 20 20 20 20 6c 69 73 |Y = y;.X|.    lis|
|000049b0| 74 50 74 72 2d 3e 73 63 | 61 6e 4d 61 72 6b 49 6e |tPtr->sc|anMarkIn|
|000049c0| 64 65 78 20 3d 20 6c 69 | 73 74 50 74 72 2d 3e 74 |dex = li|stPtr->t|
|000049d0| 6f 70 49 6e 64 65 78 3b | 0a 58 09 7d 20 65 6c 73 |opIndex;|.X.} els|
|000049e0| 65 20 69 66 20 28 28 61 | 72 67 76 5b 32 5d 5b 30 |e if ((a|rgv[2][0|
|000049f0| 5d 20 3d 3d 20 27 64 27 | 29 0a 58 09 09 26 26 20 |] == 'd'|).X..&& |
|00004a00| 28 73 74 72 6e 63 6d 70 | 28 61 72 67 76 5b 32 5d |(strncmp|(argv[2]|
|00004a10| 2c 20 22 64 72 61 67 74 | 6f 22 2c 20 73 74 72 6c |, "dragt|o", strl|
|00004a20| 65 6e 28 61 72 67 76 5b | 32 5d 29 29 20 3d 3d 20 |en(argv[|2])) == |
|00004a30| 30 29 29 20 7b 0a 58 09 | 20 20 20 20 4c 69 73 74 |0)) {.X.|    List|
|00004a40| 62 6f 78 53 63 61 6e 54 | 6f 28 6c 69 73 74 50 74 |boxScanT|o(listPt|
|00004a50| 72 2c 20 79 29 3b 0a 58 | 09 7d 20 65 6c 73 65 20 |r, y);.X|.} else |
|00004a60| 7b 0a 58 09 20 20 20 20 | 54 63 6c 5f 41 70 70 65 |{.X.    |Tcl_Appe|
|00004a70| 6e 64 52 65 73 75 6c 74 | 28 69 6e 74 65 72 70 2c |ndResult|(interp,|
|00004a80| 20 22 62 61 64 20 73 63 | 61 6e 20 6f 70 74 69 6f | "bad sc|an optio|
|00004a90| 6e 20 5c 22 22 2c 20 61 | 72 67 76 5b 32 5d 2c 0a |n \"", a|rgv[2],.|
|00004aa0| 58 09 09 20 20 20 20 22 | 5c 22 3a 20 20 6d 75 73 |X..    "|\":  mus|
|00004ab0| 74 20 62 65 20 6d 61 72 | 6b 20 6f 72 20 64 72 61 |t be mar|k or dra|
|00004ac0| 67 74 6f 22 2c 20 28 63 | 68 61 72 20 2a 29 20 4e |gto", (c|har *) N|
|00004ad0| 55 4c 4c 29 3b 0a 58 09 | 20 20 20 20 67 6f 74 6f |ULL);.X.|    goto|
|00004ae0| 20 65 72 72 6f 72 3b 0a | 58 09 7d 0a 58 20 20 20 | error;.|X.}.X   |
|00004af0| 20 7d 20 65 6c 73 65 20 | 69 66 20 28 28 63 20 3d | } else |if ((c =|
|00004b00| 3d 20 27 73 27 29 20 26 | 26 20 28 6c 65 6e 67 74 |= 's') &|& (lengt|
|00004b10| 68 20 3e 3d 20 34 29 0a | 58 09 20 20 20 20 26 26 |h >= 4).|X.    &&|
|00004b20| 20 28 73 74 72 6e 63 6d | 70 28 61 72 67 76 5b 31 | (strncm|p(argv[1|
|00004b30| 5d 2c 20 22 73 65 6c 6c | 69 6d 69 74 73 22 2c 20 |], "sell|imits", |
|00004b40| 6c 65 6e 67 74 68 29 20 | 3d 3d 20 30 29 29 20 7b |length) |== 0)) {|
|00004b50| 0a 58 09 73 70 72 69 6e | 74 66 28 69 6e 74 65 72 |.X.sprin|tf(inter|
|00004b60| 70 2d 3e 72 65 73 75 6c | 74 2c 20 22 25 64 20 25 |p->resul|t, "%d %|
|00004b70| 64 22 2c 20 6c 69 73 74 | 50 74 72 2d 3e 73 65 6c |d", list|Ptr->sel|
|00004b80| 65 63 74 46 69 72 73 74 | 2c 0a 58 09 09 09 09 09 |ectFirst|,.X.....|
|00004b90| 09 6c 69 73 74 50 74 72 | 2d 3e 73 65 6c 65 63 74 |.listPtr|->select|
|00004ba0| 4c 61 73 74 29 3b 0a 58 | 20 20 20 20 7d 20 65 6c |Last);.X|    } el|
|00004bb0| 73 65 20 69 66 20 28 28 | 63 20 3d 3d 20 27 73 27 |se if ((|c == 's'|
|00004bc0| 29 20 26 26 20 28 6c 65 | 6e 67 74 68 20 3e 3d 20 |) && (le|ngth >= |
|00004bd0| 34 29 0a 58 09 20 20 20 | 20 26 26 20 28 73 74 72 |4).X.   | && (str|
|00004be0| 6e 63 6d 70 28 61 72 67 | 76 5b 31 5d 2c 20 22 73 |ncmp(arg|v[1], "s|
|00004bf0| 65 6c 65 63 74 22 2c 20 | 6c 65 6e 67 74 68 29 20 |elect", |length) |
|00004c00| 3d 3d 20 30 29 29 20 7b | 0a 58 09 69 6e 74 20 69 |== 0)) {|.X.int i|
|00004c10| 6e 64 65 78 3b 0a 58 0a | 58 09 69 66 20 28 61 72 |ndex;.X.|X.if (ar|
|00004c20| 67 63 20 21 3d 20 34 29 | 20 7b 0a 58 09 20 20 20 |gc != 4)| {.X.   |
|00004c30| 20 54 63 6c 5f 41 70 70 | 65 6e 64 52 65 73 75 6c | Tcl_App|endResul|
|00004c40| 74 28 69 6e 74 65 72 70 | 2c 20 22 77 72 6f 6e 67 |t(interp|, "wrong|
|00004c50| 20 23 20 61 72 67 73 3a | 20 73 68 6f 75 6c 64 20 | # args:| should |
|00004c60| 62 65 20 5c 22 22 2c 0a | 58 09 09 20 20 20 20 61 |be \"",.|X..    a|
|00004c70| 72 67 76 5b 30 5d 2c 20 | 22 20 73 65 6c 65 63 74 |rgv[0], |" select|
|00004c80| 20 6f 70 74 69 6f 6e 20 | 69 6e 64 65 78 5c 22 22 | option |index\""|
|00004c90| 2c 20 28 63 68 61 72 20 | 2a 29 20 4e 55 4c 4c 29 |, (char |*) NULL)|
|00004ca0| 3b 0a 58 09 20 20 20 20 | 67 6f 74 6f 20 65 72 72 |;.X.    |goto err|
|00004cb0| 6f 72 3b 0a 58 09 7d 0a | 58 09 69 66 20 28 47 65 |or;.X.}.|X.if (Ge|
|00004cc0| 74 4c 69 73 74 62 6f 78 | 49 6e 64 65 78 28 69 6e |tListbox|Index(in|
|00004cd0| 74 65 72 70 2c 20 6c 69 | 73 74 50 74 72 2c 20 61 |terp, li|stPtr, a|
|00004ce0| 72 67 76 5b 33 5d 2c 20 | 30 2c 20 26 69 6e 64 65 |rgv[3], |0, &inde|
|00004cf0| 78 29 20 21 3d 20 54 43 | 4c 5f 4f 4b 29 20 7b 0a |x) != TC|L_OK) {.|
|00004d00| 58 09 20 20 20 20 67 6f | 74 6f 20 65 72 72 6f 72 |X.    go|to error|
|00004d10| 3b 0a 58 09 7d 0a 58 09 | 6c 65 6e 67 74 68 20 3d |;.X.}.X.|length =|
|00004d20| 20 73 74 72 6c 65 6e 28 | 61 72 67 76 5b 32 5d 29 | strlen(|argv[2])|
|00004d30| 3b 0a 58 09 63 20 3d 20 | 61 72 67 76 5b 32 5d 5b |;.X.c = |argv[2][|
|00004d40| 30 5d 3b 0a 58 09 69 66 | 20 28 28 63 20 3d 3d 20 |0];.X.if| ((c == |
|00004d50| 27 61 27 29 20 26 26 20 | 28 73 74 72 6e 63 6d 70 |'a') && |(strncmp|
|00004d60| 28 61 72 67 76 5b 32 5d | 2c 20 22 61 64 6a 75 73 |(argv[2]|, "adjus|
|00004d70| 74 22 2c 20 6c 65 6e 67 | 74 68 29 20 3d 3d 20 30 |t", leng|th) == 0|
|00004d80| 29 29 20 7b 0a 58 09 20 | 20 20 20 69 66 20 28 69 |)) {.X. |   if (i|
|00004d90| 6e 64 65 78 20 3c 20 28 | 6c 69 73 74 50 74 72 2d |ndex < (|listPtr-|
|00004da0| 3e 73 65 6c 65 63 74 46 | 69 72 73 74 20 2b 20 6c |>selectF|irst + l|
|00004db0| 69 73 74 50 74 72 2d 3e | 73 65 6c 65 63 74 4c 61 |istPtr->|selectLa|
|00004dc0| 73 74 29 2f 32 29 20 7b | 0a 58 09 09 6c 69 73 74 |st)/2) {|.X..list|
|00004dd0| 50 74 72 2d 3e 73 65 6c | 65 63 74 41 6e 63 68 6f |Ptr->sel|ectAncho|
|00004de0| 72 20 3d 20 6c 69 73 74 | 50 74 72 2d 3e 73 65 6c |r = list|Ptr->sel|
|00004df0| 65 63 74 4c 61 73 74 3b | 0a 58 09 20 20 20 20 7d |ectLast;|.X.    }|
|00004e00| 20 65 6c 73 65 20 7b 0a | 58 09 09 6c 69 73 74 50 | else {.|X..listP|
|00004e10| 74 72 2d 3e 73 65 6c 65 | 63 74 41 6e 63 68 6f 72 |tr->sele|ctAnchor|
|00004e20| 20 3d 20 6c 69 73 74 50 | 74 72 2d 3e 73 65 6c 65 | = listP|tr->sele|
|00004e30| 63 74 46 69 72 73 74 3b | 0a 58 09 20 20 20 20 7d |ctFirst;|.X.    }|
|00004e40| 0a 58 09 20 20 20 20 4c | 69 73 74 62 6f 78 53 65 |.X.    L|istboxSe|
|00004e50| 6c 65 63 74 54 6f 28 6c | 69 73 74 50 74 72 2c 20 |lectTo(l|istPtr, |
|00004e60| 69 6e 64 65 78 29 3b 0a | 58 09 7d 20 65 6c 73 65 |index);.|X.} else|
|00004e70| 20 69 66 20 28 28 63 20 | 3d 3d 20 27 66 27 29 20 | if ((c |== 'f') |
|00004e80| 26 26 20 28 73 74 72 6e | 63 6d 70 28 61 72 67 76 |&& (strn|cmp(argv|
|00004e90| 5b 32 5d 2c 20 22 66 72 | 6f 6d 22 2c 20 6c 65 6e |[2], "fr|om", len|
|00004ea0| 67 74 68 29 20 3d 3d 20 | 30 29 29 20 7b 0a 58 09 |gth) == |0)) {.X.|
|00004eb0| 20 20 20 20 4c 69 73 74 | 62 6f 78 53 65 6c 65 63 |    List|boxSelec|
|00004ec0| 74 46 72 6f 6d 28 6c 69 | 73 74 50 74 72 2c 20 69 |tFrom(li|stPtr, i|
|00004ed0| 6e 64 65 78 29 3b 0a 58 | 09 7d 20 65 6c 73 65 20 |ndex);.X|.} else |
|00004ee0| 69 66 20 28 28 63 20 3d | 3d 20 27 74 27 29 20 26 |if ((c =|= 't') &|
|00004ef0| 26 20 28 73 74 72 6e 63 | 6d 70 28 61 72 67 76 5b |& (strnc|mp(argv[|
|00004f00| 32 5d 2c 20 22 74 6f 22 | 2c 20 6c 65 6e 67 74 68 |2], "to"|, length|
|00004f10| 29 20 3d 3d 20 30 29 29 | 20 7b 0a 58 09 20 20 20 |) == 0))| {.X.   |
|00004f20| 20 4c 69 73 74 62 6f 78 | 53 65 6c 65 63 74 54 6f | Listbox|SelectTo|
|00004f30| 28 6c 69 73 74 50 74 72 | 2c 20 69 6e 64 65 78 29 |(listPtr|, index)|
|00004f40| 3b 0a 58 09 7d 20 65 6c | 73 65 20 7b 0a 58 09 20 |;.X.} el|se {.X. |
|00004f50| 20 20 20 54 63 6c 5f 41 | 70 70 65 6e 64 52 65 73 |   Tcl_A|ppendRes|
|00004f60| 75 6c 74 28 69 6e 74 65 | 72 70 2c 20 22 62 61 64 |ult(inte|rp, "bad|
|00004f70| 20 73 65 6c 65 63 74 20 | 6f 70 74 69 6f 6e 20 5c | select |option \|
|00004f80| 22 22 2c 20 61 72 67 76 | 5b 32 5d 2c 0a 58 09 09 |"", argv|[2],.X..|
|00004f90| 20 20 20 20 22 5c 22 3a | 20 6d 75 73 74 20 62 65 |    "\":| must be|
|00004fa0| 20 61 64 6a 75 73 74 2c | 20 66 72 6f 6d 2c 20 6f | adjust,| from, o|
|00004fb0| 72 20 74 6f 22 2c 20 28 | 63 68 61 72 20 2a 29 20 |r to", (|char *) |
|00004fc0| 4e 55 4c 4c 29 3b 0a 58 | 09 20 20 20 20 67 6f 74 |NULL);.X|.    got|
|00004fd0| 6f 20 65 72 72 6f 72 3b | 0a 58 09 7d 0a 58 20 20 |o error;|.X.}.X  |
|00004fe0| 20 20 7d 20 65 6c 73 65 | 20 69 66 20 28 28 63 20 |  } else| if ((c |
|00004ff0| 3d 3d 20 27 73 27 29 20 | 26 26 20 28 6c 65 6e 67 |== 's') |&& (leng|
|00005000| 74 68 20 3e 3d 20 32 29 | 0a 58 09 20 20 20 20 26 |th >= 2)|.X.    &|
|00005010| 26 20 28 73 74 72 6e 63 | 6d 70 28 61 72 67 76 5b |& (strnc|mp(argv[|
|00005020| 31 5d 2c 20 22 73 69 7a | 65 22 2c 20 6c 65 6e 67 |1], "siz|e", leng|
|00005030| 74 68 29 20 3d 3d 20 30 | 29 29 20 7b 0a 58 09 73 |th) == 0|)) {.X.s|
|00005040| 70 72 69 6e 74 66 28 69 | 6e 74 65 72 70 2d 3e 72 |printf(i|nterp->r|
|00005050| 65 73 75 6c 74 2c 20 22 | 25 64 22 2c 20 6c 69 73 |esult, "|%d", lis|
|00005060| 74 50 74 72 2d 3e 6e 75 | 6d 45 6c 65 6d 65 6e 74 |tPtr->nu|mElement|
|00005070| 73 29 3b 0a 58 20 20 20 | 20 7d 20 65 6c 73 65 20 |s);.X   | } else |
|00005080| 69 66 20 28 28 63 20 3d | 3d 20 27 76 27 29 20 26 |if ((c =|= 'v') &|
|00005090| 26 20 28 73 74 72 6e 63 | 6d 70 28 61 72 67 76 5b |& (strnc|mp(argv[|
|000050a0| 31 5d 2c 20 22 76 69 65 | 77 22 2c 20 6c 65 6e 67 |1], "vie|w", leng|
|000050b0| 74 68 29 20 3d 3d 20 30 | 29 29 20 7b 0a 58 09 69 |th) == 0|)) {.X.i|
|000050c0| 6e 74 20 69 6e 64 65 78 | 2c 20 6c 69 6e 65 4e 75 |nt index|, lineNu|
|000050d0| 6d 3b 0a 58 0a 58 09 69 | 66 20 28 28 61 72 67 63 |m;.X.X.i|f ((argc|
|000050e0| 20 21 3d 20 33 29 20 26 | 26 20 28 61 72 67 63 20 | != 3) &|& (argc |
|000050f0| 21 3d 20 34 29 29 20 7b | 0a 58 09 20 20 20 20 54 |!= 4)) {|.X.    T|
|00005100| 63 6c 5f 41 70 70 65 6e | 64 52 65 73 75 6c 74 28 |cl_Appen|dResult(|
|00005110| 69 6e 74 65 72 70 2c 20 | 22 77 72 6f 6e 67 20 23 |interp, |"wrong #|
|00005120| 20 61 72 67 73 3a 20 73 | 68 6f 75 6c 64 20 62 65 | args: s|hould be|
|00005130| 20 5c 22 22 2c 0a 58 09 | 09 20 20 20 20 61 72 67 | \"",.X.|.    arg|
|00005140| 76 5b 30 5d 2c 20 22 20 | 76 69 65 77 20 69 6e 64 |v[0], " |view ind|
|00005150| 65 78 20 3f 6c 69 6e 65 | 4e 75 6d 3f 5c 22 22 2c |ex ?line|Num?\"",|
|00005160| 20 28 63 68 61 72 20 2a | 29 20 4e 55 4c 4c 29 3b | (char *|) NULL);|
|00005170| 0a 58 09 20 20 20 20 67 | 6f 74 6f 20 65 72 72 6f |.X.    g|oto erro|
|00005180| 72 3b 0a 58 09 7d 0a 58 | 09 69 66 20 28 47 65 74 |r;.X.}.X|.if (Get|
|00005190| 4c 69 73 74 62 6f 78 49 | 6e 64 65 78 28 69 6e 74 |ListboxI|ndex(int|
|000051a0| 65 72 70 2c 20 6c 69 73 | 74 50 74 72 2c 20 61 72 |erp, lis|tPtr, ar|
|000051b0| 67 76 5b 32 5d 2c 20 5a | 45 52 4f 5f 4f 4b 2c 20 |gv[2], Z|ERO_OK, |
|000051c0| 26 69 6e 64 65 78 29 0a | 58 09 09 21 3d 20 54 43 |&index).|X..!= TC|
|000051d0| 4c 5f 4f 4b 29 20 7b 0a | 58 09 20 20 20 20 67 6f |L_OK) {.|X.    go|
|000051e0| 74 6f 20 65 72 72 6f 72 | 3b 0a 58 09 7d 0a 58 09 |to error|;.X.}.X.|
|000051f0| 69 66 20 28 61 72 67 63 | 20 3d 3d 20 33 29 20 7b |if (argc| == 3) {|
|00005200| 0a 58 09 20 20 20 20 6c | 69 6e 65 4e 75 6d 20 3d |.X.    l|ineNum =|
|00005210| 20 30 3b 0a 58 09 7d 20 | 65 6c 73 65 20 7b 0a 58 | 0;.X.} |else {.X|
|00005220| 09 20 20 20 20 69 66 20 | 28 54 63 6c 5f 47 65 74 |.    if |(Tcl_Get|
|00005230| 49 6e 74 28 69 6e 74 65 | 72 70 2c 20 61 72 67 76 |Int(inte|rp, argv|
|00005240| 5b 33 5d 2c 20 26 6c 69 | 6e 65 4e 75 6d 29 20 21 |[3], &li|neNum) !|
|00005250| 3d 20 54 43 4c 5f 4f 4b | 29 20 7b 0a 58 09 09 67 |= TCL_OK|) {.X..g|
|00005260| 6f 74 6f 20 65 72 72 6f | 72 3b 0a 58 09 20 20 20 |oto erro|r;.X.   |
|00005270| 20 7d 0a 58 09 7d 0a 58 | 09 43 68 61 6e 67 65 4c | }.X.}.X|.ChangeL|
|00005280| 69 73 74 62 6f 78 56 69 | 65 77 28 6c 69 73 74 50 |istboxVi|ew(listP|
|00005290| 74 72 2c 20 69 6e 64 65 | 78 2c 20 6c 69 6e 65 4e |tr, inde|x, lineN|
|000052a0| 75 6d 29 3b 0a 58 20 20 | 20 20 7d 20 65 6c 73 65 |um);.X  |  } else|
|000052b0| 20 7b 0a 58 09 54 63 6c | 5f 41 70 70 65 6e 64 52 | {.X.Tcl|_AppendR|
|000052c0| 65 73 75 6c 74 28 69 6e | 74 65 72 70 2c 20 22 62 |esult(in|terp, "b|
|000052d0| 61 64 20 6f 70 74 69 6f | 6e 20 5c 22 22 2c 20 61 |ad optio|n \"", a|
|000052e0| 72 67 76 5b 31 5d 2c 0a | 58 09 09 22 5c 22 3a 20 |rgv[1],.|X.."\": |
|000052f0| 6d 75 73 74 20 62 65 20 | 63 6f 6e 66 69 67 75 72 |must be |configur|
|00005300| 65 2c 20 64 65 6c 65 74 | 65 2c 20 67 65 74 2c 20 |e, delet|e, get, |
|00005310| 69 6e 73 65 72 74 2c 20 | 22 2c 0a 58 09 09 22 6e |insert, |",.X.."n|
|00005320| 65 61 72 65 73 74 2c 20 | 73 63 61 6e 2c 20 73 65 |earest, |scan, se|
|00005330| 6c 65 63 74 2c 20 73 69 | 7a 65 2c 20 6f 72 20 76 |lect, si|ze, or v|
|00005340| 69 65 77 22 2c 20 28 63 | 68 61 72 20 2a 29 20 4e |iew", (c|har *) N|
|00005350| 55 4c 4c 29 3b 0a 58 09 | 67 6f 74 6f 20 65 72 72 |ULL);.X.|goto err|
|00005360| 6f 72 3b 0a 58 20 20 20 | 20 7d 0a 58 20 20 20 20 |or;.X   | }.X    |
|00005370| 54 6b 5f 52 65 6c 65 61 | 73 65 28 28 43 6c 69 65 |Tk_Relea|se((Clie|
|00005380| 6e 74 44 61 74 61 29 20 | 6c 69 73 74 50 74 72 29 |ntData) |listPtr)|
|00005390| 3b 0a 58 20 20 20 20 72 | 65 74 75 72 6e 20 72 65 |;.X    r|eturn re|
|000053a0| 73 75 6c 74 3b 0a 58 0a | 58 20 20 20 20 65 72 72 |sult;.X.|X    err|
|000053b0| 6f 72 3a 0a 58 20 20 20 | 20 54 6b 5f 52 65 6c 65 |or:.X   | Tk_Rele|
|000053c0| 61 73 65 28 28 43 6c 69 | 65 6e 74 44 61 74 61 29 |ase((Cli|entData)|
|000053d0| 20 6c 69 73 74 50 74 72 | 29 3b 0a 58 20 20 20 20 | listPtr|);.X    |
|000053e0| 72 65 74 75 72 6e 20 54 | 43 4c 5f 45 52 52 4f 52 |return T|CL_ERROR|
|000053f0| 3b 0a 58 7d 0a 58 0c 0a | 58 2f 2a 0a 58 20 2a 2d |;.X}.X..|X/*.X *-|
|00005400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005440| 2d 2d 2d 2d 2d 0a 58 20 | 2a 0a 58 20 2a 20 44 65 |-----.X |*.X * De|
|00005450| 73 74 72 6f 79 4c 69 73 | 74 62 6f 78 20 2d 2d 0a |stroyLis|tbox --.|
|00005460| 58 20 2a 0a 58 20 2a 09 | 54 68 69 73 20 70 72 6f |X *.X *.|This pro|
|00005470| 63 65 64 75 72 65 20 69 | 73 20 69 6e 76 6f 6b 65 |cedure i|s invoke|
|00005480| 64 20 62 79 20 54 6b 5f | 45 76 65 6e 74 75 61 6c |d by Tk_|Eventual|
|00005490| 6c 79 46 72 65 65 20 6f | 72 20 54 6b 5f 52 65 6c |lyFree o|r Tk_Rel|
|000054a0| 65 61 73 65 0a 58 20 2a | 09 74 6f 20 63 6c 65 61 |ease.X *|.to clea|
|000054b0| 6e 20 75 70 20 74 68 65 | 20 69 6e 74 65 72 6e 61 |n up the| interna|
|000054c0| 6c 20 73 74 72 75 63 74 | 75 72 65 20 6f 66 20 61 |l struct|ure of a|
|000054d0| 20 6c 69 73 74 62 6f 78 | 20 61 74 20 61 20 73 61 | listbox| at a sa|
|000054e0| 66 65 20 74 69 6d 65 0a | 58 20 2a 09 28 77 68 65 |fe time.|X *.(whe|
|000054f0| 6e 20 6e 6f 2d 6f 6e 65 | 20 69 73 20 75 73 69 6e |n no-one| is usin|
|00005500| 67 20 69 74 20 61 6e 79 | 6d 6f 72 65 29 2e 0a 58 |g it any|more)..X|
|00005510| 20 2a 0a 58 20 2a 20 52 | 65 73 75 6c 74 73 3a 0a | *.X * R|esults:.|
|00005520| 58 20 2a 09 4e 6f 6e 65 | 2e 0a 58 20 2a 0a 58 20 |X *.None|..X *.X |
|00005530| 2a 20 53 69 64 65 20 65 | 66 66 65 63 74 73 3a 0a |* Side e|ffects:.|
|00005540| 58 20 2a 09 45 76 65 72 | 79 74 68 69 6e 67 20 61 |X *.Ever|ything a|
|00005550| 73 73 6f 63 69 61 74 65 | 64 20 77 69 74 68 20 74 |ssociate|d with t|
|00005560| 68 65 20 6c 69 73 74 62 | 6f 78 20 69 73 20 66 72 |he listb|ox is fr|
|00005570| 65 65 64 20 75 70 2e 0a | 58 20 2a 0a 58 20 2a 2d |eed up..|X *.X *-|
|00005580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000055a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000055b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000055c0| 2d 2d 2d 2d 2d 0a 58 20 | 2a 2f 0a 58 0a 73 74 61 |-----.X |*/.X.sta|
|000055d0| 74 69 63 20 76 6f 69 64 | 0a 44 65 73 74 72 6f 79 |tic void|.Destroy|
|000055e0| 4c 69 73 74 62 6f 78 28 | 63 6c 69 65 6e 74 44 61 |Listbox(|clientDa|
|000055f0| 74 61 29 0a 58 20 20 20 | 20 43 6c 69 65 6e 74 44 |ta).X   | ClientD|
|00005600| 61 74 61 20 63 6c 69 65 | 6e 74 44 61 74 61 3b 09 |ata clie|ntData;.|
|00005610| 2f 2a 20 49 6e 66 6f 20 | 61 62 6f 75 74 20 6c 69 |/* Info |about li|
|00005620| 73 74 62 6f 78 20 77 69 | 64 67 65 74 2e 20 2a 2f |stbox wi|dget. */|
|00005630| 0a 58 7b 0a 58 20 20 20 | 20 72 65 67 69 73 74 65 |.X{.X   | registe|
|00005640| 72 20 4c 69 73 74 62 6f | 78 20 2a 6c 69 73 74 50 |r Listbo|x *listP|
|00005650| 74 72 20 3d 20 28 4c 69 | 73 74 62 6f 78 20 2a 29 |tr = (Li|stbox *)|
|00005660| 20 63 6c 69 65 6e 74 44 | 61 74 61 3b 0a 58 20 20 | clientD|ata;.X  |
|00005670| 20 20 72 65 67 69 73 74 | 65 72 20 45 6c 65 6d 65 |  regist|er Eleme|
|00005680| 6e 74 20 2a 65 6c 50 74 | 72 2c 20 2a 6e 65 78 74 |nt *elPt|r, *next|
|00005690| 50 74 72 3b 0a 58 0a 58 | 20 20 20 20 66 6f 72 20 |Ptr;.X.X|    for |
|000056a0| 28 65 6c 50 74 72 20 3d | 20 6c 69 73 74 50 74 72 |(elPtr =| listPtr|
|000056b0| 2d 3e 65 6c 65 6d 65 6e | 74 50 74 72 3b 20 65 6c |->elemen|tPtr; el|
|000056c0| 50 74 72 20 21 3d 20 4e | 55 4c 4c 3b 20 29 20 7b |Ptr != N|ULL; ) {|
|000056d0| 0a 58 09 6e 65 78 74 50 | 74 72 20 3d 20 65 6c 50 |.X.nextP|tr = elP|
|000056e0| 74 72 2d 3e 6e 65 78 74 | 50 74 72 3b 0a 58 09 63 |tr->next|Ptr;.X.c|
|000056f0| 6b 66 72 65 65 28 28 63 | 68 61 72 20 2a 29 20 65 |kfree((c|har *) e|
|00005700| 6c 50 74 72 29 3b 0a 58 | 09 65 6c 50 74 72 20 3d |lPtr);.X|.elPtr =|
|00005710| 20 6e 65 78 74 50 74 72 | 3b 0a 58 20 20 20 20 7d | nextPtr|;.X    }|
|00005720| 0a 58 20 20 20 20 69 66 | 20 28 6c 69 73 74 50 74 |.X    if| (listPt|
|00005730| 72 2d 3e 6e 6f 72 6d 61 | 6c 42 6f 72 64 65 72 20 |r->norma|lBorder |
|00005740| 21 3d 20 4e 55 4c 4c 29 | 20 7b 0a 58 09 54 6b 5f |!= NULL)| {.X.Tk_|
|00005750| 46 72 65 65 33 44 42 6f | 72 64 65 72 28 6c 69 73 |Free3DBo|rder(lis|
|00005760| 74 50 74 72 2d 3e 6e 6f | 72 6d 61 6c 42 6f 72 64 |tPtr->no|rmalBord|
|00005770| 65 72 29 3b 0a 58 20 20 | 20 20 7d 0a 58 20 20 20 |er);.X  |  }.X   |
|00005780| 20 69 66 20 28 6c 69 73 | 74 50 74 72 2d 3e 66 6f | if (lis|tPtr->fo|
|00005790| 6e 74 50 74 72 20 21 3d | 20 4e 55 4c 4c 29 20 7b |ntPtr !=| NULL) {|
|000057a0| 0a 58 09 54 6b 5f 46 72 | 65 65 46 6f 6e 74 53 74 |.X.Tk_Fr|eeFontSt|
|000057b0| 72 75 63 74 28 6c 69 73 | 74 50 74 72 2d 3e 66 6f |ruct(lis|tPtr->fo|
|000057c0| 6e 74 50 74 72 29 3b 0a | 58 20 20 20 20 7d 0a 58 |ntPtr);.|X    }.X|
|000057d0| 20 20 20 20 69 66 20 28 | 6c 69 73 74 50 74 72 2d |    if (|listPtr-|
|000057e0| 3e 66 67 43 6f 6c 6f 72 | 50 74 72 20 21 3d 20 4e |>fgColor|Ptr != N|
|000057f0| 55 4c 4c 29 20 7b 0a 58 | 09 54 6b 5f 46 72 65 65 |ULL) {.X|.Tk_Free|
|00005800| 43 6f 6c 6f 72 28 6c 69 | 73 74 50 74 72 2d 3e 66 |Color(li|stPtr->f|
|00005810| 67 43 6f 6c 6f 72 50 74 | 72 29 3b 0a 58 20 20 20 |gColorPt|r);.X   |
|00005820| 20 7d 0a 58 20 20 20 20 | 69 66 20 28 6c 69 73 74 | }.X    |if (list|
|00005830| 50 74 72 2d 3e 74 65 78 | 74 47 43 20 21 3d 20 4e |Ptr->tex|tGC != N|
|00005840| 6f 6e 65 29 20 7b 0a 58 | 09 54 6b 5f 46 72 65 65 |one) {.X|.Tk_Free|
|00005850| 47 43 28 6c 69 73 74 50 | 74 72 2d 3e 74 65 78 74 |GC(listP|tr->text|
|00005860| 47 43 29 3b 0a 58 20 20 | 20 20 7d 0a 58 20 20 20 |GC);.X  |  }.X   |
|00005870| 20 69 66 20 28 6c 69 73 | 74 50 74 72 2d 3e 73 65 | if (lis|tPtr->se|
|00005880| 6c 42 6f 72 64 65 72 20 | 21 3d 20 4e 55 4c 4c 29 |lBorder |!= NULL)|
|00005890| 20 7b 0a 58 09 54 6b 5f | 46 72 65 65 33 44 42 6f | {.X.Tk_|Free3DBo|
|000058a0| 72 64 65 72 28 6c 69 73 | 74 50 74 72 2d 3e 73 65 |rder(lis|tPtr->se|
|000058b0| 6c 42 6f 72 64 65 72 29 | 3b 0a 58 20 20 20 20 7d |lBorder)|;.X    }|
|000058c0| 0a 58 20 20 20 20 69 66 | 20 28 6c 69 73 74 50 74 |.X    if| (listPt|
|000058d0| 72 2d 3e 73 65 6c 46 67 | 43 6f 6c 6f 72 50 74 72 |r->selFg|ColorPtr|
|000058e0| 20 21 3d 20 4e 55 4c 4c | 29 20 7b 0a 58 09 54 6b | != NULL|) {.X.Tk|
|000058f0| 5f 46 72 65 65 43 6f 6c | 6f 72 28 6c 69 73 74 50 |_FreeCol|or(listP|
|00005900| 74 72 2d 3e 73 65 6c 46 | 67 43 6f 6c 6f 72 50 74 |tr->selF|gColorPt|
|00005910| 72 29 3b 0a 58 20 20 20 | 20 7d 0a 58 20 20 20 20 |r);.X   | }.X    |
|00005920| 69 66 20 28 6c 69 73 74 | 50 74 72 2d 3e 73 65 6c |if (list|Ptr->sel|
|00005930| 54 65 78 74 47 43 20 21 | 3d 20 4e 6f 6e 65 29 20 |TextGC !|= None) |
|00005940| 7b 0a 58 09 54 6b 5f 46 | 72 65 65 47 43 28 6c 69 |{.X.Tk_F|reeGC(li|
|00005950| 73 74 50 74 72 2d 3e 73 | 65 6c 54 65 78 74 47 43 |stPtr->s|elTextGC|
|00005960| 29 3b 0a 58 20 20 20 20 | 7d 0a 58 20 20 20 20 69 |);.X    |}.X    i|
|00005970| 66 20 28 6c 69 73 74 50 | 74 72 2d 3e 67 65 6f 6d |f (listP|tr->geom|
|00005980| 65 74 72 79 20 21 3d 20 | 4e 55 4c 4c 29 20 7b 0a |etry != |NULL) {.|
|00005990| 58 09 63 6b 66 72 65 65 | 28 6c 69 73 74 50 74 72 |X.ckfree|(listPtr|
|000059a0| 2d 3e 67 65 6f 6d 65 74 | 72 79 29 3b 0a 58 20 20 |->geomet|ry);.X  |
|000059b0| 20 20 7d 0a 58 20 20 20 | 20 69 66 20 28 6c 69 73 |  }.X   | if (lis|
|000059c0| 74 50 74 72 2d 3e 73 63 | 72 6f 6c 6c 43 6d 64 20 |tPtr->sc|rollCmd |
|000059d0| 21 3d 20 4e 55 4c 4c 29 | 20 7b 0a 58 09 63 6b 66 |!= NULL)| {.X.ckf|
|000059e0| 72 65 65 28 6c 69 73 74 | 50 74 72 2d 3e 73 63 72 |ree(list|Ptr->scr|
|000059f0| 6f 6c 6c 43 6d 64 29 3b | 0a 58 20 20 20 20 7d 0a |ollCmd);|.X    }.|
|00005a00| 58 20 20 20 20 63 6b 66 | 72 65 65 28 28 63 68 61 |X    ckf|ree((cha|
|00005a10| 72 20 2a 29 20 6c 69 73 | 74 50 74 72 29 3b 0a 58 |r *) lis|tPtr);.X|
|00005a20| 7d 0a 58 0c 0a 58 2f 2a | 0a 58 20 2a 2d 2d 2d 2d |}.X..X/*|.X *----|
|00005a30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005a70| 2d 2d 0a 58 20 2a 0a 58 | 20 2a 20 43 6f 6e 66 69 |--.X *.X| * Confi|
|00005a80| 67 75 72 65 4c 69 73 74 | 62 6f 78 20 2d 2d 0a 58 |gureList|box --.X|
|00005a90| 20 2a 0a 58 20 2a 09 54 | 68 69 73 20 70 72 6f 63 | *.X *.T|his proc|
|00005aa0| 65 64 75 72 65 20 69 73 | 20 63 61 6c 6c 65 64 20 |edure is| called |
|00005ab0| 74 6f 20 70 72 6f 63 65 | 73 73 20 61 6e 20 61 72 |to proce|ss an ar|
|00005ac0| 67 76 2f 61 72 67 63 20 | 6c 69 73 74 2c 20 70 6c |gv/argc |list, pl|
|00005ad0| 75 73 0a 58 20 2a 09 74 | 68 65 20 54 6b 20 6f 70 |us.X *.t|he Tk op|
|00005ae0| 74 69 6f 6e 20 64 61 74 | 61 62 61 73 65 2c 20 69 |tion dat|abase, i|
|00005af0| 6e 20 6f 72 64 65 72 20 | 74 6f 20 63 6f 6e 66 69 |n order |to confi|
|00005b00| 67 75 72 65 20 28 6f 72 | 20 72 65 63 6f 6e 66 69 |gure (or| reconfi|
|00005b10| 67 75 72 65 29 0a 58 20 | 2a 09 61 20 6c 69 73 74 |gure).X |*.a list|
|00005b20| 62 6f 78 20 77 69 64 67 | 65 74 2e 0a 58 20 2a 0a |box widg|et..X *.|
|00005b30| 58 20 2a 20 52 65 73 75 | 6c 74 73 3a 0a 58 20 2a |X * Resu|lts:.X *|
|00005b40| 09 54 68 65 20 72 65 74 | 75 72 6e 20 76 61 6c 75 |.The ret|urn valu|
|00005b50| 65 20 69 73 20 61 20 73 | 74 61 6e 64 61 72 64 20 |e is a s|tandard |
|00005b60| 54 63 6c 20 72 65 73 75 | 6c 74 2e 20 20 49 66 20 |Tcl resu|lt.  If |
|00005b70| 54 43 4c 5f 45 52 52 4f | 52 20 69 73 0a 58 20 2a |TCL_ERRO|R is.X *|
|00005b80| 09 72 65 74 75 72 6e 65 | 64 2c 20 74 68 65 6e 20 |.returne|d, then |
|00005b90| 69 6e 74 65 72 70 2d 3e | 72 65 73 75 6c 74 20 63 |interp->|result c|
|00005ba0| 6f 6e 74 61 69 6e 73 20 | 61 6e 20 65 72 72 6f 72 |ontains |an error|
|00005bb0| 20 6d 65 73 73 61 67 65 | 2e 0a 58 20 2a 0a 58 20 | message|..X *.X |
|00005bc0| 2a 20 53 69 64 65 20 65 | 66 66 65 63 74 73 3a 0a |* Side e|ffects:.|
|00005bd0| 58 20 2a 09 43 6f 6e 66 | 69 67 75 72 61 74 69 6f |X *.Conf|iguratio|
|00005be0| 6e 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 2c 20 73 |n inform|ation, s|
|00005bf0| 75 63 68 20 61 73 20 63 | 6f 6c 6f 72 73 2c 20 62 |uch as c|olors, b|
|00005c00| 6f 72 64 65 72 20 77 69 | 64 74 68 2c 0a 58 20 2a |order wi|dth,.X *|
|00005c10| 09 65 74 63 2e 20 67 65 | 74 20 73 65 74 20 66 6f |.etc. ge|t set fo|
|00005c20| 72 20 6c 69 73 74 50 74 | 72 3b 20 20 6f 6c 64 20 |r listPt|r;  old |
|00005c30| 72 65 73 6f 75 72 63 65 | 73 20 67 65 74 20 66 72 |resource|s get fr|
|00005c40| 65 65 64 2c 0a 58 20 2a | 09 69 66 20 74 68 65 72 |eed,.X *|.if ther|
|00005c50| 65 20 77 65 72 65 20 61 | 6e 79 2e 0a 58 20 2a 0a |e were a|ny..X *.|
|00005c60| 58 20 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |X *-----|--------|
|00005c70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005c90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005ca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0a 58 20 2a 2f 0a 58 |--------|-.X */.X|
|00005cb0| 0a 73 74 61 74 69 63 20 | 69 6e 74 0a 43 6f 6e 66 |.static |int.Conf|
|00005cc0| 69 67 75 72 65 4c 69 73 | 74 62 6f 78 28 69 6e 74 |igureLis|tbox(int|
|00005cd0| 65 72 70 2c 20 6c 69 73 | 74 50 74 72 2c 20 61 72 |erp, lis|tPtr, ar|
|00005ce0| 67 63 2c 20 61 72 67 76 | 2c 20 66 6c 61 67 73 29 |gc, argv|, flags)|
|00005cf0| 0a 58 20 20 20 20 54 63 | 6c 5f 49 6e 74 65 72 70 |.X    Tc|l_Interp|
|00005d00| 20 2a 69 6e 74 65 72 70 | 3b 09 09 2f 2a 20 55 73 | *interp|;../* Us|
|00005d10| 65 64 20 66 6f 72 20 65 | 72 72 6f 72 20 72 65 70 |ed for e|rror rep|
|00005d20| 6f 72 74 69 6e 67 2e 20 | 2a 2f 0a 58 20 20 20 20 |orting. |*/.X    |
|00005d30| 72 65 67 69 73 74 65 72 | 20 4c 69 73 74 62 6f 78 |register| Listbox|
|00005d40| 20 2a 6c 69 73 74 50 74 | 72 3b 09 2f 2a 20 49 6e | *listPt|r;./* In|
|00005d50| 66 6f 72 6d 61 74 69 6f | 6e 20 61 62 6f 75 74 20 |formatio|n about |
|00005d60| 77 69 64 67 65 74 3b 20 | 20 6d 61 79 20 6f 72 20 |widget; | may or |
|00005d70| 6d 61 79 0a 58 09 09 09 | 09 20 2a 20 6e 6f 74 20 |may.X...|. * not |
|00005d80| 61 6c 72 65 61 64 79 20 | 68 61 76 65 20 76 61 6c |already |have val|
|00005d90| 75 65 73 20 66 6f 72 20 | 73 6f 6d 65 20 66 69 65 |ues for |some fie|
|00005da0| 6c 64 73 2e 20 2a 2f 0a | 58 20 20 20 20 69 6e 74 |lds. */.|X    int|
|00005db0| 20 61 72 67 63 3b 09 09 | 09 2f 2a 20 4e 75 6d 62 | argc;..|./* Numb|
|00005dc0| 65 72 20 6f 66 20 76 61 | 6c 69 64 20 65 6e 74 72 |er of va|lid entr|
|00005dd0| 69 65 73 20 69 6e 20 61 | 72 67 76 2e 20 2a 2f 0a |ies in a|rgv. */.|
|00005de0| 58 20 20 20 20 63 68 61 | 72 20 2a 2a 61 72 67 76 |X    cha|r **argv|
|00005df0| 3b 09 09 2f 2a 20 41 72 | 67 75 6d 65 6e 74 73 2e |;../* Ar|guments.|
|00005e00| 20 2a 2f 0a 58 20 20 20 | 20 69 6e 74 20 66 6c 61 | */.X   | int fla|
|00005e10| 67 73 3b 09 09 09 2f 2a | 20 46 6c 61 67 73 20 74 |gs;.../*| Flags t|
|00005e20| 6f 20 70 61 73 73 20 74 | 6f 20 54 6b 5f 43 6f 6e |o pass t|o Tk_Con|
|00005e30| 66 69 67 75 72 65 57 69 | 64 67 65 74 2e 20 2a 2f |figureWi|dget. */|
|00005e40| 0a 58 7b 0a 58 20 20 20 | 20 58 47 43 56 61 6c 75 |.X{.X   | XGCValu|
|00005e50| 65 73 20 67 63 56 61 6c | 75 65 73 3b 0a 58 20 20 |es gcVal|ues;.X  |
|00005e60| 20 20 47 43 20 6e 65 77 | 3b 0a 58 20 20 20 20 69 |  GC new|;.X    i|
|00005e70| 6e 74 20 77 69 64 74 68 | 2c 20 63 68 61 72 57 69 |nt width|, charWi|
|00005e80| 64 74 68 2c 20 68 65 69 | 67 68 74 2c 20 66 6f 6e |dth, hei|ght, fon|
|00005e90| 74 48 65 69 67 68 74 3b | 0a 58 0a 58 20 20 20 20 |tHeight;|.X.X    |
|00005ea0| 69 66 20 28 54 6b 5f 43 | 6f 6e 66 69 67 75 72 65 |if (Tk_C|onfigure|
|00005eb0| 57 69 64 67 65 74 28 69 | 6e 74 65 72 70 2c 20 6c |Widget(i|nterp, l|
|00005ec0| 69 73 74 50 74 72 2d 3e | 74 6b 77 69 6e 2c 20 63 |istPtr->|tkwin, c|
|00005ed0| 6f 6e 66 69 67 53 70 65 | 63 73 2c 0a 58 09 20 20 |onfigSpe|cs,.X.  |
|00005ee0| 20 20 61 72 67 63 2c 20 | 61 72 67 76 2c 20 28 63 |  argc, |argv, (c|
|00005ef0| 68 61 72 20 2a 29 20 6c | 69 73 74 50 74 72 2c 20 |har *) l|istPtr, |
|00005f00| 66 6c 61 67 73 29 20 21 | 3d 20 54 43 4c 5f 4f 4b |flags) !|= TCL_OK|
|00005f10| 29 20 7b 0a 58 09 72 65 | 74 75 72 6e 20 54 43 4c |) {.X.re|turn TCL|
|00005f20| 5f 45 52 52 4f 52 3b 0a | 58 20 20 20 20 7d 0a 58 |_ERROR;.|X    }.X|
|00005f30| 0a 58 20 20 20 20 2f 2a | 0a 58 20 20 20 20 20 2a |.X    /*|.X     *|
|00005f40| 20 41 20 66 65 77 20 6f | 70 74 69 6f 6e 73 20 6e | A few o|ptions n|
|00005f50| 65 65 64 20 73 70 65 63 | 69 61 6c 20 70 72 6f 63 |eed spec|ial proc|
|00005f60| 65 73 73 69 6e 67 2c 20 | 73 75 63 68 20 61 73 20 |essing, |such as |
|00005f70| 70 61 72 73 69 6e 67 20 | 74 68 65 0a 58 20 20 20 |parsing |the.X   |
|00005f80| 20 20 2a 20 67 65 6f 6d | 65 74 72 79 20 61 6e 64 |  * geom|etry and|
|00005f90| 20 73 65 74 74 69 6e 67 | 20 74 68 65 20 62 61 63 | setting| the bac|
|00005fa0| 6b 67 72 6f 75 6e 64 20 | 66 72 6f 6d 20 61 20 33 |kground |from a 3|
|00005fb0| 2d 44 20 62 6f 72 64 65 | 72 2e 0a 58 20 20 20 20 |-D borde|r..X    |
|00005fc0| 20 2a 2f 0a 58 0a 58 20 | 20 20 20 54 6b 5f 53 65 | */.X.X |   Tk_Se|
|00005fd0| 74 42 61 63 6b 67 72 6f | 75 6e 64 46 72 6f 6d 42 |tBackgro|undFromB|
|00005fe0| 6f 72 64 65 72 28 6c 69 | 73 74 50 74 72 2d 3e 74 |order(li|stPtr->t|
|00005ff0| 6b 77 69 6e 2c 20 6c 69 | 73 74 50 74 72 2d 3e 6e |kwin, li|stPtr->n|
|00006000| 6f 72 6d 61 6c 42 6f 72 | 64 65 72 29 3b 0a 58 0a |ormalBor|der);.X.|
|00006010| 58 0a 58 20 20 20 20 69 | 66 20 28 20 6c 69 73 74 |X.X    i|f ( list|
|00006020| 50 74 72 2d 3e 63 6f 6c | 75 6d 6e 73 20 3c 20 31 |Ptr->col|umns < 1|
|00006030| 20 29 20 7b 0a 58 09 54 | 63 6c 5f 41 70 70 65 6e | ) {.X.T|cl_Appen|
|00006040| 64 52 65 73 75 6c 74 28 | 69 6e 74 65 72 70 2c 20 |dResult(|interp, |
|00006050| 22 4e 75 6d 62 65 72 20 | 6f 66 20 63 6f 6c 75 6d |"Number |of colum|
|00006060| 6e 73 20 6d 75 73 74 20 | 62 65 20 3e 3d 20 31 22 |ns must |be >= 1"|
|00006070| 2c 0a 58 09 09 28 63 68 | 61 72 20 2a 29 20 4e 55 |,.X..(ch|ar *) NU|
|00006080| 4c 4c 29 3b 0a 58 09 72 | 65 74 75 72 6e 20 54 43 |LL);.X.r|eturn TC|
|00006090| 4c 5f 45 52 52 4f 52 3b | 0a 58 20 20 20 20 7d 0a |L_ERROR;|.X    }.|
|000060a0| 58 20 20 20 20 69 66 20 | 28 20 6c 69 73 74 50 74 |X    if |( listPt|
|000060b0| 72 2d 3e 63 6f 6c 75 6d | 6e 73 20 3e 20 4d 41 58 |r->colum|ns > MAX|
|000060c0| 5f 43 4f 4c 53 20 29 20 | 7b 0a 58 09 54 63 6c 5f |_COLS ) |{.X.Tcl_|
|000060d0| 41 70 70 65 6e 64 52 65 | 73 75 6c 74 28 69 6e 74 |AppendRe|sult(int|
|000060e0| 65 72 70 2c 20 22 4e 75 | 6d 62 65 72 20 6f 66 20 |erp, "Nu|mber of |
|000060f0| 63 6f 6c 75 6d 6e 73 20 | 6d 75 73 74 20 62 65 20 |columns |must be |
|00006100| 3c 3d 20 35 30 22 2c 0a | 58 09 09 28 63 68 61 72 |<= 50",.|X..(char|
|00006110| 20 2a 29 20 4e 55 4c 4c | 29 3b 0a 58 09 72 65 74 | *) NULL|);.X.ret|
|00006120| 75 72 6e 20 54 43 4c 5f | 45 52 52 4f 52 3b 0a 58 |urn TCL_|ERROR;.X|
|00006130| 20 20 20 20 7d 0a 58 20 | 20 20 20 6c 69 73 74 50 |    }.X |   listP|
|00006140| 74 72 2d 3e 6e 75 6d 49 | 6e 43 6f 6c 75 6d 6e 20 |tr->numI|nColumn |
|00006150| 3d 20 28 28 6c 69 73 74 | 50 74 72 2d 3e 6e 75 6d |= ((list|Ptr->num|
|00006160| 45 6c 65 6d 65 6e 74 73 | 29 20 2b 20 28 6c 69 73 |Elements|) + (lis|
|00006170| 74 50 74 72 2d 3e 63 6f | 6c 75 6d 6e 73 29 20 2d |tPtr->co|lumns) -|
|00006180| 20 31 29 0a 58 20 20 20 | 20 09 09 09 09 09 09 2f | 1).X   | ....../|
|00006190| 20 6c 69 73 74 50 74 72 | 2d 3e 63 6f 6c 75 6d 6e | listPtr|->column|
|000061a0| 73 3b 0a 58 0a 58 20 20 | 20 20 67 63 56 61 6c 75 |s;.X.X  |  gcValu|
|000061b0| 65 73 2e 66 6f 72 65 67 | 72 6f 75 6e 64 20 3d 20 |es.foreg|round = |
|000061c0| 6c 69 73 74 50 74 72 2d | 3e 66 67 43 6f 6c 6f 72 |listPtr-|>fgColor|
|000061d0| 50 74 72 2d 3e 70 69 78 | 65 6c 3b 0a 58 20 20 20 |Ptr->pix|el;.X   |
|000061e0| 20 67 63 56 61 6c 75 65 | 73 2e 66 6f 6e 74 20 3d | gcValue|s.font =|
|000061f0| 20 6c 69 73 74 50 74 72 | 2d 3e 66 6f 6e 74 50 74 | listPtr|->fontPt|
|00006200| 72 2d 3e 66 69 64 3b 0a | 58 20 20 20 20 6e 65 77 |r->fid;.|X    new|
|00006210| 20 3d 20 54 6b 5f 47 65 | 74 47 43 28 6c 69 73 74 | = Tk_Ge|tGC(list|
|00006220| 50 74 72 2d 3e 74 6b 77 | 69 6e 2c 20 47 43 46 6f |Ptr->tkw|in, GCFo|
|00006230| 72 65 67 72 6f 75 6e 64 | 7c 47 43 46 6f 6e 74 2c |reground||GCFont,|
|00006240| 20 26 67 63 56 61 6c 75 | 65 73 29 3b 0a 58 20 20 | &gcValu|es);.X  |
|00006250| 20 20 69 66 20 28 6c 69 | 73 74 50 74 72 2d 3e 74 |  if (li|stPtr->t|
|00006260| 65 78 74 47 43 20 21 3d | 20 4e 6f 6e 65 29 20 7b |extGC !=| None) {|
|00006270| 0a 58 09 54 6b 5f 46 72 | 65 65 47 43 28 6c 69 73 |.X.Tk_Fr|eeGC(lis|
|00006280| 74 50 74 72 2d 3e 74 65 | 78 74 47 43 29 3b 0a 58 |tPtr->te|xtGC);.X|
|00006290| 20 20 20 20 7d 0a 58 20 | 20 20 20 6c 69 73 74 50 |    }.X |   listP|
|000062a0| 74 72 2d 3e 74 65 78 74 | 47 43 20 3d 20 6e 65 77 |tr->text|GC = new|
|000062b0| 3b 0a 58 0a 58 20 20 20 | 20 67 63 56 61 6c 75 65 |;.X.X   | gcValue|
|000062c0| 73 2e 66 6f 72 65 67 72 | 6f 75 6e 64 20 3d 20 6c |s.foregr|ound = l|
|000062d0| 69 73 74 50 74 72 2d 3e | 73 65 6c 46 67 43 6f 6c |istPtr->|selFgCol|
|000062e0| 6f 72 50 74 72 2d 3e 70 | 69 78 65 6c 3b 0a 58 20 |orPtr->p|ixel;.X |
|000062f0| 20 20 20 67 63 56 61 6c | 75 65 73 2e 66 6f 6e 74 |   gcVal|ues.font|
|00006300| 20 3d 20 6c 69 73 74 50 | 74 72 2d 3e 66 6f 6e 74 | = listP|tr->font|
|00006310| 50 74 72 2d 3e 66 69 64 | 3b 0a 58 20 20 20 20 6e |Ptr->fid|;.X    n|
|00006320| 65 77 20 3d 20 54 6b 5f | 47 65 74 47 43 28 6c 69 |ew = Tk_|GetGC(li|
|00006330| 73 74 50 74 72 2d 3e 74 | 6b 77 69 6e 2c 20 47 43 |stPtr->t|kwin, GC|
|00006340| 46 6f 72 65 67 72 6f 75 | 6e 64 7c 47 43 46 6f 6e |Foregrou|nd|GCFon|
|00006350| 74 2c 20 26 67 63 56 61 | 6c 75 65 73 29 3b 0a 58 |t, &gcVa|lues);.X|
|00006360| 20 20 20 20 69 66 20 28 | 6c 69 73 74 50 74 72 2d |    if (|listPtr-|
|00006370| 3e 73 65 6c 54 65 78 74 | 47 43 20 21 3d 20 4e 6f |>selText|GC != No|
|00006380| 6e 65 29 20 7b 0a 58 09 | 54 6b 5f 46 72 65 65 47 |ne) {.X.|Tk_FreeG|
|00006390| 43 28 6c 69 73 74 50 74 | 72 2d 3e 73 65 6c 54 65 |C(listPt|r->selTe|
|000063a0| 78 74 47 43 29 3b 0a 58 | 20 20 20 20 7d 0a 58 20 |xtGC);.X|    }.X |
|000063b0| 20 20 20 6c 69 73 74 50 | 74 72 2d 3e 73 65 6c 54 |   listP|tr->selT|
|000063c0| 65 78 74 47 43 20 3d 20 | 6e 65 77 3b 0a 58 0a 58 |extGC = |new;.X.X|
|000063d0| 20 20 20 20 2f 2a 0a 58 | 20 20 20 20 20 2a 20 52 |    /*.X|     * R|
|000063e0| 65 67 69 73 74 65 72 20 | 74 68 65 20 64 65 73 69 |egister |the desi|
|000063f0| 72 65 64 20 67 65 6f 6d | 65 74 72 79 20 66 6f 72 |red geom|etry for|
+--------+-------------------------+-------------------------+--------+--------+