| [5b6b63c] | 1 | package require wtree |
|---|
| 2 | package require BWidget |
|---|
| [00c4270] | 3 | package require msgcat |
|---|
| [5b6b63c] | 4 | |
|---|
| 5 | namespace eval ::TolPkgGUI { |
|---|
| 6 | |
|---|
| [00c4270] | 7 | namespace import ::msgcat::* |
|---|
| 8 | |
|---|
| [5b6b63c] | 9 | variable widgets |
|---|
| 10 | |
|---|
| 11 | variable cwd [ file normalize [ file dir [ info script ] ] ] |
|---|
| 12 | |
|---|
| 13 | variable urlmap |
|---|
| [e4c69c1] | 14 | |
|---|
| 15 | array set urlmap { |
|---|
| 16 | http://packages.tol-project.org/OfficialTolArchiveNetwork/repository.php OTAN |
|---|
| 17 | http://packages.localbayes.es/BayesPrivateTolPackages/repository.php BPTP |
|---|
| 18 | } |
|---|
| [00c4270] | 19 | |
|---|
| [e83ccac] | 20 | variable packSyncInfo |
|---|
| 21 | variable versSyncInfo |
|---|
| [00c4270] | 22 | variable localVersionInfo |
|---|
| [e83ccac] | 23 | variable localMostRecent |
|---|
| [00c4270] | 24 | |
|---|
| [e83ccac] | 25 | variable nodesInfo |
|---|
| [5b6b63c] | 26 | variable treeParents |
|---|
| 27 | |
|---|
| 28 | if { ![ info exists localInfo ] } { |
|---|
| 29 | array set localInfo {} |
|---|
| 30 | } |
|---|
| 31 | |
|---|
| 32 | if { [ lsearch [ image names ] green_light ] == -1 } { |
|---|
| 33 | image create photo green_light -data { |
|---|
| 34 | R0lGODlhEAAQAOedABoaGh0eHSUlJScnJykpKUtLS0xMTFxcXFxdXF1dXWNjY0l4KUt4LEt5LU57 |
|---|
| 35 | L1Z4QG1ubVd5QW9wb0iJG0mLG2yBX22BYFiQM3KEZ1eSMXaGa3OJZHSJZ3mHb4KDgYOEgoSEhISG |
|---|
| 36 | g3yKdIWGhHCRWoWHhHCTWIeIhlegJliiJnSUYF+jM3eZYY6OjmClM1+oL2CqLouXg3ufZo2YhoCh |
|---|
| 37 | bIGibZqbmpubm4mldpucm4emdZifk52dnZ2fnJ6fnI6ofZ2jmJ+inZGqgXO4UaCknpSshHS7UaSm |
|---|
| 38 | oqSmo4e4ZaqsqKSvnKutqqSxnI69bK2urHfPPLGzr3jQPIjLW7S2sn3URX3VQ4zOYLa6s4/OdYLW |
|---|
| 39 | Wbm9tYTYUILYWJHRdoTZTp/NiqDNjL3Au7/AvsDAwL/BvsHBwcDDvsPDwrfKrMTEw7nKr4riUrzK |
|---|
| 40 | sovjVL3Ls5DkXZHkX5TmaJbmZ5Xma5fmZ67anJfmaZnnbZ3ncM/Pzpzoc53odNHR0ZrqgqHpeqXo |
|---|
| 41 | eaHpe6Xoep/qgJzrhaHqgqXpg6XphNTU1K7rh9fX1q/ridfY19TjycHto9fmzcPwpcPwpsTwp9fv |
|---|
| 42 | xdfvxtnzx9X2zNr1yNb2zuL52+P53ev25Oz35P////////////////////////////////////// |
|---|
| 43 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 44 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 45 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 46 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 47 | /////////////////////////////////////////////////////yH+EUNyZWF0ZWQgd2l0aCBH |
|---|
| 48 | SU1QACH5BAEKAP8ALAAAAAAQABAAAAjfAP8JHHiDjBkeAxMO7HNmhoUKMcQgUiiQkYgHQtq8KRKh |
|---|
| 49 | gyKFejQwaLSJE6dNjxxg6DMQBJAGSShVunSp0iQnC3a0EIiGw4QpjiJJkgTJ0RUKG9QIfKICBRRA |
|---|
| 50 | iRYtSiRISgoSTAQiYfGiips6efLUYWMFhokjAnv8WMElzh08eObA+eIChw+BNpZc0EKHT6A/e+R0 |
|---|
| 51 | ydAkh8ADQXQMIVTokKFBfozUIKJg4AgsNLJg0pTJkhcZW04kFOAhypowduyASUPlAwGFACCEUDKm |
|---|
| 52 | DJMSEgJQFCigAIIEBgbsHk4xIAA7 |
|---|
| 53 | } |
|---|
| 54 | } |
|---|
| 55 | |
|---|
| 56 | if { [ lsearch [ image names ] ok_green_16 ] == -1 } { |
|---|
| 57 | image create photo ok_green_16 -data { |
|---|
| 58 | R0lGODlhEAAQAOelAEhfPU5hRlFiTFNiTk5oP1NmS1VlUFRmTVllWFloUlxoW15rXF1sV1dwSVpy |
|---|
| 59 | S11yUmlyaGl0ZWxzbmB6UGaET1yOMXqCeWqLUV6XLH+Ie1KhCFOhCFOiCFSiCFWiCVejDVekDFik |
|---|
| 60 | DnGWVFqkEVilDlmmD1ymFF2nFl6nGGCpGoqSimGqHHWkTnijVGyxKm6yLmm7G3O2M3W2N5qimXyz |
|---|
| 61 | SWq/GZ6jnpykm3e5OH27Qn29P36/QYS9UoLBR3DNF3HOFnLQFonFT3PSFnTSGHjTHo/HW3jUHnjU |
|---|
| 62 | H3rUIXvVJLO3s5TKYX/WKpTLXbS5tJHNV5LOWIXWNpPPWbe8t5DSUYjZOYnZOorZPLu+vY/XSIra |
|---|
| 63 | PZXUWozaQJnTYY3aQY/ZRo3aQp/Rbo7bQ4/bRJDbRpDbR5vVZJDcRpLcSZLcSpTbT5PcS5PcTJvY |
|---|
| 64 | XpTcTZvZX5TdTZTdTpbdUMHFxJfdVJfeUpjeU5rdWpneVZvdWpzdXpveWpzeW5rfV6DcZZ7dYaPb |
|---|
| 65 | a5zfWp3fW6HdaKfadZ3gXJ/fYZ/gX6DhYaHhY6fecqLhZKPhZazcfaPhZq3cf6PiZqzfe63hfKvk |
|---|
| 66 | c8/Rz63kd7Higa7kd9DS0bDlfrPkgrTkhrrmj9ja2dvb29zd3eDh4OTl4+Xm4+7v7vLy8f////// |
|---|
| 67 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 68 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 69 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 70 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 71 | /////////////////////////////////////////////////////yH+EUNyZWF0ZWQgd2l0aCBH |
|---|
| 72 | SU1QACH5BAEKAP8ALAAAAAAQABAAAAjmAP8JHPiPAweCCAV+6NHFzyAzQUYk/OdCkZsqVq5wwSNJ |
|---|
| 73 | BsIXlc6QQbMGjpwLFBrlGBjCEh48fQIVOlQEApYBnFAIXDJpkSNGixIhevDJRgtIYQQ+MiTiwBZB |
|---|
| 74 | gXhYGGWAjp1IBTexkEBJAJU6E0CpoMEmTSYPHTSpceAEU4EsC0glGCMGzCUQ/wiV+dJgihIAM+ZU |
|---|
| 75 | MJKECSAN/5rE0RIlQKcbnjLUECLkCBSBJv4MEQJDQShRDCgLuZNiYAw2lDEgiECAshcdCHHoQSLk |
|---|
| 76 | hw8gRPLsmHjiSRs+e95IWTFx4AYSJTYkDAgAOw== |
|---|
| 77 | } |
|---|
| 78 | } |
|---|
| 79 | if { [ lsearch [ image names ] yellow_light ] == -1 } { |
|---|
| 80 | image create photo yellow_light -data { |
|---|
| 81 | R0lGODlhEAAQAPcAABoaGh4eHSUlJScnJykpKX9qOUtLS0xMTFxcXF1dXF1dXWNjY25ubXBwb5ds |
|---|
| 82 | DZptDIJkH4JlIoNmI4VnJZ56JZx5J4BrOoV5W4V5XId9Y4l/aLOBFbCAFriJH7qKHrKHJbSIJOKp |
|---|
| 83 | KeOqKeexMuixMeu5POq4PpuEUZmEUpuHWaCLWqaSX46AYI2BY4qBbI2EcaiWZamWZqybbquacK6e |
|---|
| 84 | eK+ge7GifsWmQ8mpQ9mtTMOiWtywUcenYujDR+bCSfXAQPXAQfXFTPXGTvbJVvbJV/bKV/bLWPbO |
|---|
| 85 | WPbPW/fNXffOXtrDat3HavfNYffMa/fNa/fQZPfRZffUbPjUbffccvbYdvbYd/jddfjSefjTevjU |
|---|
| 86 | fPjmdfjneISDgYWEgoaFg4SEhIaFhIeGhIiIho6OjpmSgZqTg5uampubm5ycm52dnZ+enKGckqCe |
|---|
| 87 | nKWgl6KgnKSinbGrmrSsmaeloaemo6yrqK2sqa2sqq6tq7Syrre1sbu5sr67tMG/u9bEgdbEg+LT |
|---|
| 88 | lPfamfrdnPrdnc7EqM3Drs7FrM3Er8HAvcHAvsPBvsDAwMHBwcPDwsTEw8/PztHR0dLR0dTU1NjX |
|---|
| 89 | 1tjY1+fcxenfyvXkwPnowfvpwvz1xvz1yP342P342fjx4vny4gAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 90 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 91 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 92 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 93 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 94 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAKAALAAAAAAQABAA |
|---|
| 95 | AAjfAEEJHIhmESM1AxMOhKTIDIYLZfpIUiiQ0osCNQodsmHBxSSFjzREqOTp0ydPliZkiDQQjBsJ |
|---|
| 96 | Oi5hypQJ0yUeENiQEdiohYMcgQQNGiQo0I4HLBwJxJOCQwgnWbRowfJExAYUdwTSUdFhBBAiTZoM |
|---|
| 97 | +UHCw4k5AtfQ+GBCiBElSYoEKQFiRhuBZ+JU8IEkyhQpUI70oCAnjUAEb2Tc4HLFShUqW3DEgLNg |
|---|
| 98 | YJg9MJZs6sRJE5MVfMYkFNAlj6E/gAD5IaTHCwGFABh8qYMokR0xDQJQFCjAQAIFBwbsHk4xIAA7 |
|---|
| 99 | } |
|---|
| 100 | } |
|---|
| 101 | |
|---|
| 102 | if { [ lsearch [ image names ] refresh_yellow_16 ] == -1 } { |
|---|
| 103 | image create photo refresh_yellow_16 -data { |
|---|
| 104 | R0lGODlhEAAQAMZJAI99Ob2SKdGaI9SbI8+fIOCjHbynYsSpSLypbeKmHL+qZdWsGryrd+upGdyw |
|---|
| 105 | FsaycuS0E+yzE+W3E/u0Evu1EfK4D+i7GPu3EPy4D/y4EPy6Dvy7Dfy9DPy+DP2+C/3ACv3BCv3C |
|---|
| 106 | Cf3DCP3DCf3ECP7ECOTEWfzGB/7GBv7GB/7HBv7JCP7JCf3JDP7KDPHJPf/MEP3MGf/MFPjMLf/N |
|---|
| 107 | Fv/NGv/PIf7PJf7QJ//QKv/SMv/TNv/TOP/VQ/7WR/7WSPjXaP/YU//YVf/ZWP/bZP/bZv/edf/e |
|---|
| 108 | d/7ggf////////////////////////////////////////////////////////////////////// |
|---|
| 109 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 110 | /////////////////////////////////////////////////////////////////////////yH+ |
|---|
| 111 | EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAH8ALAAAAAAQABAAAAdpgH+Cg4SFhoeIf0gKiYMPRkRB |
|---|
| 112 | PTo2MBKHQEM+OzcyKykjFYcvOTEtJyIfHBoBhxYAgwQZEw2NjQwIBraCR0VCB4MOEIcmPzw4NCwo |
|---|
| 113 | qRGHMzUuKiUgHRoXCYcLJCEeGxgUBbt/AgPi5o2BADs= |
|---|
| 114 | } |
|---|
| 115 | } |
|---|
| 116 | |
|---|
| 117 | if { [ lsearch [ image names ] red_stop_16 ] == -1 } { |
|---|
| 118 | image create photo red_stop_16 -data { |
|---|
| 119 | R0lGODlhEAAQAOeLAKkAAKoAAKoBAasEBKsGBqwGBqsHB60ICMwAAKwJCcwCAq0NDa8PD68QEM4I |
|---|
| 120 | CMcMDLATE84MDLEUFLYbG4YpKoUrK4UtLbcjI4c0NLgnJ7srK4g7O9MnJ9QnJ7wvL5E7O7swMNQq |
|---|
| 121 | Kr4wMNUuLtUvL7w4OME3N8I4ONc0NMA7O9c1Ndc4OMU+Ptg6Otg7O9g9PcdCQtk/P9lCQshHR9pE |
|---|
| 122 | RNpFRdpGRtpHR9pISM5NTdpKSttKStpLS89OTtlMTNBPT9tNTdpPT9xPT81UVNxQUNZSUtdSUtxR |
|---|
| 123 | UdxSUtNVVd1UVNpVVc1ZWd1VVYFubtVZWYRvb91XV91YWNpZWd5YWNpbW9pgYNRlZdxmZuBmZtpr |
|---|
| 124 | a+Fra91xcd9xceJyctx2dpuIh5aKiI+NieB3d+R2duF3d56LiuJ7e6COjaOSkaaVlOSFhaiYl6eb |
|---|
| 125 | maubm6KfnKydnLKpp6+tqru+uL/CvcPFwMfJxcvNyc7QzNDSzdLU0dPV0dbY1NfY1Nrc2Nzd2d7f |
|---|
| 126 | 3N/h3uLj4OPk4eXm5Obn5enq6Orr6e7u7fHy8fX19P////////////////////////////////// |
|---|
| 127 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 128 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 129 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 130 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 131 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 132 | /////////////////////////////////////////////////////yH+EUNyZWF0ZWQgd2l0aCBH |
|---|
| 133 | SU1QACH5BAEKAP8ALAAAAAAQABAAAAjXAP8JHPgvQACCCAUSYJFkSpUnMxIk/HcBywsOHUKMqNHF |
|---|
| 134 | A8IMW1CoWNHiRQwZNsikGGhgDI0aN3YAIYKkCZUoaxoIZJKlSZQoTZQgOUJECBApVwR+QQIFjhs2 |
|---|
| 135 | atKgMQPGCQwuBc/giKMoEaJDhQYF+iOnhBcBAcrEaGOIkCBAfvrsyfMGxJYB/7SoCMNHD547durQ |
|---|
| 136 | mSNmghUA/4a8+LABg4UKkCFTeNBD4IIlChBo3rzZB4SBGlxw5kzCBEIRQSJwdsDjxEQGOYoA0WHk |
|---|
| 137 | h4SJAwEUOIAYYUAAOw== |
|---|
| 138 | } |
|---|
| 139 | } |
|---|
| 140 | |
|---|
| 141 | if { [ lsearch [ image names ] yellow_stop_16 ] == -1 } { |
|---|
| 142 | image create photo yellow_stop_16 -data { |
|---|
| 143 | R0lGODlhEAAQAOeQAIWFbpSLK4iIb5SMLZaNKpSNNJWOO5+WO5CTiZiaiZ6fh6GiiqOkjcqnDaKl |
|---|
| 144 | nMqoDcuoDcupDMupDaankcupE8yqEMuqE8yrEsyrFqiplKmpmc2sFM2sGs6uGs2uHausl8+vHq6u |
|---|
| 145 | m9CxIK+vnK+yqtS3LrO1p9W4MtG+G9e8NNe8OdHBMNq/ONLDOLu+uNrBRNzDP93EQL/Cvd7GR8PF |
|---|
| 146 | wODKTubPDN3NQsfJxe3UAO3UAuPPWuPPYO7VCMvNyebRUubRU+7WDOjTU87QzOnWWdDSzfDaJ+jW |
|---|
| 147 | afDbJ/DbKurYXdLU0fDcLvDcL9PV0e3aVPHdNO3bVPHdNfHdOPHeOvHeO/HePfHfP9bY1O/dW9fY |
|---|
| 148 | 1PLfQu/eVu/dYfLfRfDfTPHfS/HfUO7dbfLgRPLgRfLgRvLgR/LgSO/fXPLgSvLgTfLhSvLhTfPh |
|---|
| 149 | T/PhUPDgaO7fevPiUPPiUfPiUtrc2PPiVPPiVfDgc/PjV/PjWNzd2fLjcvHjeN7f3PTlZvTla/Tm |
|---|
| 150 | a/Pled/h3vPlffTmcuLj4PbodvTohuPk4eXm5Obn5enq6Orr6e7u7fHy8fX19P////////////// |
|---|
| 151 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 152 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 153 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 154 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 155 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 156 | /////////////////////////////////////////////////////yH+EUNyZWF0ZWQgd2l0aCBH |
|---|
| 157 | SU1QACH5BAEKAP8ALAAAAAAQABAAAAjWAP8JHPjvAQSCCAVSmEEkCxolNTAk/FfijRUjSJIw8bJH |
|---|
| 158 | BcITgKBImULFypUtZQy9GGiBzxgyZtawcTPHTh48hzwI5OHHDh48durMkROnDZs8RwTCmSNgRIgP |
|---|
| 159 | GSYwWKAAwI07/yAMOmPikaNGjBQhEqSHRAtCEiIEuqJhUaJCfehocVLEwYo/Ff6JkZIAy5IhPnDQ |
|---|
| 160 | kOECAYouAndYOWCgwIAAkCETsAFEIAcuOnJo3rz5C4iBKapw5twEBkIWYYJw7gEmxsQOP56oSRNF |
|---|
| 161 | iIiJBC9saJAwIAA7 |
|---|
| 162 | } |
|---|
| 163 | } |
|---|
| 164 | |
|---|
| 165 | if { [ lsearch [ image names ] red_light ] == -1 } { |
|---|
| 166 | image create photo red_light -data { |
|---|
| 167 | R0lGODlhEAAQAPcAABoaGh4dHSUlJScnJykpKUtLS0xMTFxcXF1cXF1dXWNjY25tbXBvb54KB4ge |
|---|
| 168 | GqEJBrgTD7sSDocgHYgiH6QkH7siHbkkHoojIIM4NoQ5NqInIsIbFsAdGOwmIO0mIPEvKPAxKfM/ |
|---|
| 169 | NvQ9NMxLPdBLPf5AN/5BOPFSP55QTZxST4dbWYhcWp5YVqRZVpBgXqpgXIljYotoZoxsa5BjYY5x |
|---|
| 170 | cKtnYq1mY7Bva65wbrF3dbJ7ebR+fMhXVcxfXeFJReNOS/5ORO5TQf5QRv9XTv9YT/9aT/9bUf5f |
|---|
| 171 | UP5iU/9hVv9iVv9iWf5pXf5rXv5pZP5qZeB1ZON3Zf9yZf9yZv5/bP95c/1+cP1/cf95dP98dtuI |
|---|
| 172 | fdqKf/6Cb/+Lbv+PcoSBgYWCgoaDg4SEhIaEhIiEhImGho6OjpqBgJyDgpuampubm5ybm52dnZ+c |
|---|
| 173 | nKKRkaWXl6CcnKOcnKWdnbOambaamaehoaejo6yoqK6pqa6qqq+rq7Svrreysbyzsr+1tOadkOed |
|---|
| 174 | kPyXlPyYlf6al/6bl/+cmc+trc+urtCpptCtqsG6u8G9vcG+vsS+vve/vvi/vvzAv8DAwMHBwcPC |
|---|
| 175 | wsTDw8/OztHR0dLR0dTU1NjW1tjX1+jExOvJyP7BwP/RxP/Sxv/e1v/g2Pnh4fvh4QAAAAAAAAAA |
|---|
| 176 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 177 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 178 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 179 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 180 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAKQALAAAAAAQABAA |
|---|
| 181 | AAjfAEkJHKgmkiQ2AxMOtNQIzQoVZxRhUihQEw0MOgwd2pFBRiaFlWJI2CRq1ChRnC7AuDRQzJsJ |
|---|
| 182 | PBxB6tQJ0qMeDtyYEThpRgMfgggVKjQo0I8HLigJ1MMCQgcnWLJkqfLEQ4QUeQTaacEBhAkiS5YM |
|---|
| 183 | KfFhA4o6AtvksBBCiBElSYoAEVEBBxyBaeZoCIKkyRQpTI6coEBnjcADcW6M8MLlihUqXUjYkKNg |
|---|
| 184 | 4Jg+NaB8CgXKU5QXfsokFPBlT6ItfwBpQcQHDAGFABaEubOIER4yDAJQFCigAIIEBgbsHk4xIAA7 |
|---|
| 185 | } |
|---|
| 186 | } |
|---|
| 187 | |
|---|
| 188 | if { [ lsearch [ image names ] database_refresh_32 ] == -1 } { |
|---|
| 189 | image create photo database_refresh_32 -data { |
|---|
| 190 | R0lGODlhIAAgAOf/ADRnADpsADpyAD53AEJ6BD18ADd/AEV7ADmAADKDADqBADuDAD2EAESCAD+G |
|---|
| 191 | AmtvckeFA0GHBUOJAGtzekaLAHJyh0iNAE6MD0qPAFWRB1uKO1SWAF6RM36Dhl2ZFWeUPn6GjnyI |
|---|
| 192 | iFihAIGFoIGIkGChAGWfEX2MkoeHqW6YUIWNlYOPkG2hIoePloiQmHWlAHylAJCQpnKqAHSiS46S |
|---|
| 193 | oXGkRW+kTIyUm4aWnHmlSIGqBIKrAH6tAIuaoXisLnSyAH2pS5KaonyqU4KxAJScpJWdpZaeppCg |
|---|
| 194 | pnq4AIOtY4OvUZigqIG4BX26AJmhqYKyRZmgtZOjqZmzAIurgpujq4G+AJ22AITAAJ28BKKqspS0 |
|---|
| 195 | eZrAAKCsuYTHAJXCAKOstJHEAKSttZjEAKautpq0n57DAJa+Up22j47FK5rGAKSwvpvIAJ3JAK2x |
|---|
| 196 | wKqzu6qyx5/DQJnMBKK7k6HMAK+zz5zOAKHNDJ7QAKjEYaTPAJnTAKPPEqDSAK66x5XWAKHTAKy/ |
|---|
| 197 | q7O7w7HLOrS70Z7XAK3RGafTGLHQKLa/x7jAyLnByZ/eALrCyrTHs7rC17vDy7zEzL3FzajgAL7G |
|---|
| 198 | z57lAL/H0L/G3LzI1sbG3cDJ0cHWVq/hLL/L2cLL08LK38PM1MnJ7cTN1azqAMTaWrLkMMbO1sjN |
|---|
| 199 | 3MjM6cLdVMPP3cfP18XcY8TQ3s3N5cjQ2MbfTsnR2svP7MneXsbS4NHQ6MvT3Mjgbs/U18zV3czU |
|---|
| 200 | 6tDU5M3W3tDhcMrjcM7X38rmZM/Y4NDX7c3Z59DZ4djic9LpR9fX79HpUNLa4svobdbjgdPb5Nba |
|---|
| 201 | 6tPb8dTc5drb5dXd5tXmkNTohNbe59ne7tnojNfoktnd+tfg6Nvf797e9dnh6tzg8OTonOLootvj |
|---|
| 202 | 7Nzsltno29zk+t3l7uTj++Hk/9/n8O3sqOPn9+Dp8eTp7OHq8ufvr+fn/+Ps9Orq/+jt8PHys+ru |
|---|
| 203 | /vXzwuzx9Ory+/Dx++7z9vb2//P4+/T5/PX6/fb7/vj+//7//P///yH+EUNyZWF0ZWQgd2l0aCBH |
|---|
| 204 | SU1QACH5BAEKAP8ALAAAAAAgACAAAAj+AP8JFHhkyRInCBMqNHhkoMOH/4xEGZPIFa505jJqzJgO |
|---|
| 205 | l6tEY5wYgTiwyBhc26ZBQ8aypUuW0KZtQzamCMl/UXbtwlWrp8+fQGvh0hnl5pFxnz6VWsq0qdNS |
|---|
| 206 | Scc1JFmE37dMjyBBisS1q1etjzJ940fFaKR7++rNVNWprdu2qpBtq5fWFBSjgRJ1QrYOnj59+QIL |
|---|
| 207 | /gtPHbJPjhJ8uGkkEaNHkTJ1KuXKF7KYyHzhYpWKU6ZLmBjoaEBVESOuk13tAoZsGrZnzJgFy0Wr |
|---|
| 208 | 1SlQDIjpYADxxBjIkimvRoaNWzZhSTIgWK6AAQJlo3iQdqgiyxhFqWtZRpaNnBYPZqL+gStW7Nix |
|---|
| 209 | YtHEyBoCwWGQdWOIOHETKFInYN2BPLGGqtCePAACmMaAv1jgUA+d0LPOLYy4kQUXXLyRwhPSGBLH |
|---|
| 210 | HXxkqOEdGDJxwIGJJFIKNPDQww8//YSTQTJ/6KHHFSVQwMCMDBBCSBMDPNSDaVtl8okquDQzAxqb |
|---|
| 211 | +EFICRecAUgstzEgSRU5PhQEI6fZR5kv2iBAyiKLdHFBLrmY8gloDnQR5UMgjNFjasAIg4AolFAi |
|---|
| 212 | ghzBzFJKJpFYwsCZaFqHHWW1AAOMcggooEAjxujCSieZ9PHGCP9YQAEFFhj4zw3uxDdffZxkI047 |
|---|
| 213 | 77RTzjU1JDAIF06M4c5dLMzTzTnuluLwiYIMOgihGmq08QYdHMDAgCe+jGOPKTQogIc3VlgRa4gj |
|---|
| 214 | lsjPPtDuw48/SrwQDwP4kJMKGVMw4AM7gmCxQwEC3cBjZD9qx105NrxQTTWFMmcCHNZoskUZll5K |
|---|
| 215 | JWrCAfOMODnIwIsYthRsMC+rHFJGGhsIMBAOikBmpWr+koPAKwOmYcfGGw+YhxgbEOBQB0EoEpwr |
|---|
| 216 | texyGcA/8MGhhhn+AYYMFgAA0QQtBJFFII+whs036MgjBBI2MhCBBJNSAEEANw30QAgktNDCCitI |
|---|
| 217 | HYMGVUhCAQoVNO31TQN0ke/XZDt0wNhlp6322moHBAA7 |
|---|
| 218 | } |
|---|
| 219 | } |
|---|
| 220 | if { [ lsearch [ image names ] install_zip_32 ] == -1 } { |
|---|
| 221 | image create photo install_zip_32 -data { |
|---|
| 222 | R0lGODlhIAAgAPcAACUmJSYoJikpJyorKD4/PFA0Clg7DEY2Gl0/Ez9BPm5EBmpECXBHCXJJC2VF |
|---|
| 223 | FWlIF2lJGHROEFdMNWtQJFBRTVpZUlxeWl9iXnpsUn5zXGJnYWlqZ21wbndwY3FybXx3and4dXt8 |
|---|
| 224 | eJ9pEJJkG5hnG5loHKBmCqJoDqJtFKl0HpZpJZZrK4xpMKp1IqFzL698LLF8KaF1MqN4NopvR5F0 |
|---|
| 225 | RJ58RIZ2WaB+SbaBLqmAP7WCNbWDOLuKPcaRP8+WPqWDS7WJRLiLRKeGU66LVK+PXbGPW7eRVrOR |
|---|
| 226 | WoGDf52Oda6RY7KTYbyZYr2caKuTcMeSQ82WQ8qXSsyaTtObRtSeS8OXUc+cUcacXNCfU9miTs6h |
|---|
| 227 | XNKiV9mjUdSlXdypW+CsXcOdYMmiZMikbNytZNKqa9uvad2wa9Svddy0ddi0fOGuYOa0Zum5buG1 |
|---|
| 228 | cOa5c+y9dISFg4eJhYuLi52UhZSSiZSVlJeYlZiZl5eZmJydm6idjqukl6Chn6qmnqSlo6appauo |
|---|
| 229 | o6anqaepqqurqrCtpLOzramtsbS0s7i5t7u8u926hb7BvODAjcDBvvfVoPncr8XFxMfIxsnKx8vM |
|---|
| 230 | y9LPx8/QzsjL0NTU09fZ09nZ19bY29zc297g3+Dh393e4N/i5uTl4+fo5+nq5+bn6ezs6/Dx7vT0 |
|---|
| 231 | 8/n59/f4+P39/QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 232 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 233 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 234 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 235 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAKoAIf8LSUNDUkdC |
|---|
| 236 | RzEwMTL/AAAMSExpbm8CEAAAbW50clJHQiBYWVogB84AAgAJAAYAMQAAYWNzcE1TRlQAAAAASUVD |
|---|
| 237 | IHNSR0IAAAAAAAAAAAAAAAEAAPbWAAEAAAAA0y1IUCAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 238 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARY3BydAAAAVAAAAAzZGVzYwAAAYQAAABsd3RwdAAAAfAA |
|---|
| 239 | AAAUYmtwdAAAAgQAAAAUclhZWgAAAhgAAAAUZ1hZWgAAAiwAAAAUYlhZWgAAAkAAAAAUZG1uZAAA |
|---|
| 240 | AlQAAABwZG1kZAAAAsQAAACIdnVlZAAAA0wAAACGdmll/3cAAAPUAAAAJGx1bWkAAAP4AAAAFG1l |
|---|
| 241 | YXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJUUkMAAAQ8AAAI |
|---|
| 242 | DHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55AABkZXNj |
|---|
| 243 | AAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4xAAAA |
|---|
| 244 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA |
|---|
| 245 | 81EAAf8AAAABFsxYWVogAAAAAAAAAAAAAAAAAAAAAFhZWiAAAAAAAABvogAAOPUAAAOQWFlaIAAA |
|---|
| 246 | AAAAAGKZAAC3hQAAGNpYWVogAAAAAAAAJKAAAA+EAAC2z2Rlc2MAAAAAAAAAFklFQyBodHRwOi8v |
|---|
| 247 | d3d3LmllYy5jaAAAAAAAAAAAAAAAFklFQyBodHRwOi8vd3d3LmllYy5jaAAAAAAAAAAAAAAAAAAA |
|---|
| 248 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAAC5JRUMgNjE5NjYtMi4x |
|---|
| 249 | IERlZmF1bHQgUkdCIGNvbG91ciBzcGFjZSAtIHNSR0L/AAAAAAAAAAAAAAAuSUVDIDYxOTY2LTIu |
|---|
| 250 | MSBEZWZhdWx0IFJHQiBjb2xvdXIgc3BhY2UgLSBzUkdCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRl |
|---|
| 251 | c2MAAAAAAAAALFJlZmVyZW5jZSBWaWV3aW5nIENvbmRpdGlvbiBpbiBJRUM2MTk2Ni0yLjEAAAAA |
|---|
| 252 | AAAAAAAAACxSZWZlcmVuY2UgVmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAA |
|---|
| 253 | AAAAAAAAAAAAAAAAAAAAAAAAAAB2aWV3AAAAAAATpP4AFF8uABDPFAAD7cwABBMLAANcngAAAAFY |
|---|
| 254 | WVog/wAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJz |
|---|
| 255 | aWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAUABkAHgAjACgALQAyADcAOwBAAEUASgBP |
|---|
| 256 | AFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACpAK4AsgC3ALwAwQDGAMsA0ADVANsA |
|---|
| 257 | 4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFSAVkBYAFnAW4BdQF8AYMBiwGS |
|---|
| 258 | AZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAv8UAh0CJgIvAjgCQQJLAlQCXQJnAnECegKE |
|---|
| 259 | Ao4CmAKiAqwCtgLBAssC1QLgAusC9QMAAwsDFgMhAy0DOANDA08DWgNmA3IDfgOKA5YDogOuA7oD |
|---|
| 260 | xwPTA+AD7AP5BAYEEwQgBC0EOwRIBFUEYwRxBH4EjASaBKgEtgTEBNME4QTwBP4FDQUcBSsFOgVJ |
|---|
| 261 | BVgFZwV3BYYFlgWmBbUFxQXVBeUF9gYGBhYGJwY3BkgGWQZqBnsGjAadBq8GwAbRBuMG9QcHBxkH |
|---|
| 262 | Kwc9B08HYQd0B4YHmQesB78H0gflB/gICwgfCDIIRghaCG4IggiWCKoIvgjSCOcI+wkQCSUJOglP |
|---|
| 263 | CWT/CXkJjwmkCboJzwnlCfsKEQonCj0KVApqCoEKmAquCsUK3ArzCwsLIgs5C1ELaQuAC5gLsAvI |
|---|
| 264 | C+EL+QwSDCoMQwxcDHUMjgynDMAM2QzzDQ0NJg1ADVoNdA2ODakNww3eDfgOEw4uDkkOZA5/DpsO |
|---|
| 265 | tg7SDu4PCQ8lD0EPXg96D5YPsw/PD+wQCRAmEEMQYRB+EJsQuRDXEPURExExEU8RbRGMEaoRyRHo |
|---|
| 266 | EgcSJhJFEmQShBKjEsMS4xMDEyMTQxNjE4MTpBPFE+UUBhQnFEkUahSLFK0UzhTwFRIVNBVWFXgV |
|---|
| 267 | mxW9FeAWAxYmFkkWbBaPFrIW1hb6Fx0XQRdlF4kX/64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZ |
|---|
| 268 | kRm3Gd0aBBoqGlEadxqeGsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3s |
|---|
| 269 | HhYeQB5qHpQevh7pHxMfPh9pH5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i |
|---|
| 270 | 3SMKIzgjZiOUI8Ij8CQfJE0kfCSrJNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgN |
|---|
| 271 | KD8ocSiiKNQpBik4KWspnSnQKgIqNSpoKpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last |
|---|
| 272 | 4f8uFi5MLoIuty7uLyQvWi+RL8cv/jA1MGwwpDDbMRIxSjGCMbox8jIqMmMymzLUMw0zRjN/M7gz |
|---|
| 273 | 8TQrNGU0njTYNRM1TTWHNcI1/TY3NnI2rjbpNyQ3YDecN9c4FDhQOIw4yDkFOUI5fzm8Ofk6Njp0 |
|---|
| 274 | OrI67zstO2s7qjvoPCc8ZTykPOM9Ij1hPaE94D4gPmA+oD7gPyE/YT+iP+JAI0BkQKZA50EpQWpB |
|---|
| 275 | rEHuQjBCckK1QvdDOkN9Q8BEA0RHRIpEzkUSRVVFmkXeRiJGZ0arRvBHNUd7R8BIBUhLSJFI10kd |
|---|
| 276 | SWNJqUnwSjdKfUrESwxLU0uaS+JMKkxyTLpNAk3/Sk2TTdxOJU5uTrdPAE9JT5NP3VAnUHFQu1EG |
|---|
| 277 | UVBRm1HmUjFSfFLHUxNTX1OqU/ZUQlSPVNtVKFV1VcJWD1ZcVqlW91dEV5JX4FgvWH1Yy1kaWWlZ |
|---|
| 278 | uFoHWlZaplr1W0VblVvlXDVchlzWXSddeF3JXhpebF69Xw9fYV+zYAVgV2CqYPxhT2GiYfViSWKc |
|---|
| 279 | YvBjQ2OXY+tkQGSUZOllPWWSZedmPWaSZuhnPWeTZ+loP2iWaOxpQ2maafFqSGqfavdrT2una/9s |
|---|
| 280 | V2yvbQhtYG25bhJua27Ebx5veG/RcCtwhnDgcTpxlXHwcktypnMBc11zuHQUdHB0zHUodYV14XY+ |
|---|
| 281 | /3abdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co |
|---|
| 282 | gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL |
|---|
| 283 | /IxjjMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1 |
|---|
| 284 | l+CYTJi4mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj |
|---|
| 285 | 5qRWpMelOKWpphqmi6b9p26n4KhSqMSpN6mpqv8cqo+rAqt1q+msXKzQrUStuK4trqGvFq+LsACw |
|---|
| 286 | dbDqsWCx1rJLssKzOLOutCW0nLUTtYq2AbZ5tvC3aLfguFm40blKucK6O7q1uy67p7whvJu9Fb2P |
|---|
| 287 | vgq+hL7/v3q/9cBwwOzBZ8Hjwl/C28NYw9TEUcTOxUvFyMZGxsPHQce/yD3IvMk6ybnKOMq3yzbL |
|---|
| 288 | tsw1zLXNNc21zjbOts83z7jQOdC60TzRvtI/0sHTRNPG1EnUy9VO1dHWVdbY11zX4Nhk2OjZbNnx |
|---|
| 289 | 2nba+9uA3AXcit0Q3ZbeHN6i3ynfr+A24L3hROHM4lPi2+Nj4+vkc+T85YTmDeaW5x/nqegy6LxU |
|---|
| 290 | 6Ubp0Opb6uXrcOv77IbtEe2c7ijutO9A78zwWPDl8XLx//KM8xnzp/Q09ML1UPXe9m32+/eK+Bn4 |
|---|
| 291 | qPk4+cf6V/rn+3f8B/yY/Sn9uv5L/tz/bf//ACwAAAAAIAAgAAAI/gBVCRxIEASfO3f4KOQz6A8c |
|---|
| 292 | ghAjQhxkKtWpi6dSpaqU6FIkDRJDChyUqlQpUidLneqDJA8fSZUsiIwY4qKpmzdTNZJz6FChP5cG |
|---|
| 293 | zSRIYZLGoxpNcYATJw6eQ4g4cZhpARGkSEiRmmoUyU4FOoUIUcoztE7Ws6kO2cgRBIjbIDp0vBCZ |
|---|
| 294 | B61GTR8mqHARwwXfGDJkhKkiEtHRjKlQ+ZFgYMGCBpAhM1CgwMgjHiEJQEJ6ycOBAgYQOIDwgPRo |
|---|
| 295 | CA6OOOoi8kKlVKb6YKBxQwgRJmLOpEmjqHdvRmSgoIhYp6ecRHI6ELkCJgyZMm+iS3/D5k0ZVSlM |
|---|
| 296 | EIxzqNIlTZDq/mgaBUjJlS5hxnz54oVLlixTpviwMpzg8UmJIE3aJIoUKlSHLKFFFwRusYUVUkTx |
|---|
| 297 | xIJVpAARIpcgkt8lnoxCyk2kzDECCSV06OGHIpxAUB2bTHLVeCiVMsomo1gygwoqrCDjjDK6UMKD |
|---|
| 298 | o1xyySagTIJIhZdkssknSbyww5FIIhlECwTBMQkpn3xCyiQCIZJJJpVoAsoeT0DhAxRggunDFFTA |
|---|
| 299 | YN8lppCC0iEDBWlJJp4AAkV88VFB5xRc4ACRJLDdtAmbg3hSCUyb6EEmFYgmiugYOkB0SGKpkBLK |
|---|
| 300 | Jpt0cslVlVjixHtcdOqpe2NgZl8psAkqSSSJABKIIYjk0cQatmqMIesYZZRhRhtomDmRRpDAccgg |
|---|
| 301 | gAgCyCCDBGJDBCzUUMMNPwxxxBEq1BcRIqeM4oddfgQgRyCBHJLIJKAYMlQgm/yhiSkpoWRKJx5U |
|---|
| 302 | 4h0mnIRSykNDqQLCHaeI0h8p+pYySCOl6CuKKZDUS5AkpFB6ZaWg2NEIKKCIAsoGBg9EgSSdYKIx |
|---|
| 303 | JpVwwskfi4jSSQgVE5SAHYgsskgjjawsSSN/XFByRAEMYPMAAdQ8wMw89+xzRAEBADs= |
|---|
| 304 | } |
|---|
| 305 | } |
|---|
| 306 | if { [ lsearch [ image names ] database_add_32 ] == -1 } { |
|---|
| 307 | image create photo database_add_32 -data { |
|---|
| 308 | R0lGODlhIAAgAOfXADpyADx0AD52AEV7ADmAADqBADuCAEKAADyDAD6FAUaEAmtvckeFBEKHAEOI |
|---|
| 309 | AESJAGtzekaLAEmOAEqPAFuJM0+SAFCTAFOWAFmRIliUDX6Dhl6aF36FjWGYKn+GjnyIiIGIkIKJ |
|---|
| 310 | kX2MkoSMk4WNlG2eOYOPkIaOlYePlm6hQomRmIqSpouTmoaVm4yUm4eWnI2VnGmwBGSyAHimT4ua |
|---|
| 311 | oW6zAJGZoZKaom+1AHazAJCbqJObo5ScpHG3AGu5AHK4AJWdpZibt3m3AHO5AJaeppCgpnS6ApGh |
|---|
| 312 | p5igqHe7AHa7BZmhqXi8AJOjqZqiqnm9AJSkqnq+AJujq368DIDEAKGqsYPGAKKrs4rFAKCsuYTH |
|---|
| 313 | AKOstIXIAKGtuofFHKSttYfJAKKuvKauto3IAKevt47JAInLAKiwuJLBU5DLAKiwxYvNAJLII6qy |
|---|
| 314 | upPJJauzu5DMGZvDV6y0vJLNG6m5oK21vZvFXpHSAK+3v6S+qZ7IYbK7w7S9xZ3TMbW+xra/x6XT |
|---|
| 315 | M7jAyLXBz7nBybrCyrvDy6nVWLzEzK/UWLfJtb3Fzb7Gz8XE3L/H0L/G3MDJ0cHI3sTI2MHK0rTa |
|---|
| 316 | ZcLL08DM2sPM1MTN1brbbsbO1sfP18TQ3sjQ2MfP5cnR2srS28vT3M/U18/T48zV3cHhiM3U6sXg |
|---|
| 317 | j83W3s7X38Tji9LW5sjikc/Y4M3Z59DZ4dDY7c7a6MjkmdLa4s/b6tPb5NTc5cvnndTc8tva8tXd |
|---|
| 318 | 5tzb89be59fg6Nvf79jh6dni6trj69vk7N3l7t7m79/n8ODp8eTp7OHq8uXq7eLr8+Ps9Oft7+nu |
|---|
| 319 | 8Ojw+evw8+zx9Orz++7z9vP4+/T5/PX6/fb7/v7//P////////////////////////////////// |
|---|
| 320 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 321 | /////////////////////////////////////////////////////yH+EUNyZWF0ZWQgd2l0aCBH |
|---|
| 322 | SU1QACH5BAEKAP8ALAAAAAAgACAAAAj+AP8JFFgECZIlCBMqNFhkoMOH/4hAEROI06hixDJqzFhs |
|---|
| 323 | FKdAYpYQgTgQiJhRvnblksWypUuWuXb5kiUGCMl/TU6dGgWqp8+fQEGN0tnkZhFhlixlWsq0qdNM |
|---|
| 324 | SYU1JAmkGrBHhQ4dUsS1q1ethR4BqybFqKJo1KD9kqWJktu3bjXJ+gWNmjNFUyEe8ROIkqxjzKZN |
|---|
| 325 | k0a4sGBmxmRZChToyE0igQgVUvSIUiZOqGTFlIVqlCZLjxQdIjRoJNVBhLha5nSKlaxdvFie4vQ5 |
|---|
| 326 | dCFCNkmKEDO58uXWr2PLml1btJwQN0dUETNoNajMsnj5WokKFKdMlBThETPi5o1kZHj+OGmzRxEl |
|---|
| 327 | VLt+AYudKXSdKkvEIENykwalZ8dCEXpTpb+YM2d0kUV/chQyijHNUEJDfYxlkssyz1RDzYSCTUhN |
|---|
| 328 | Nc0ss0smgQiiQ32obfWIJZo8p9kunHmUSSWRQOIII0HcZAMhqZn3m2uwycbJJp3Q0QECCCQQgQMQ |
|---|
| 329 | cUCGiKsBlyNnopQygwRomGKLLavYkQEDDnmwXHOXgXIKS9KtJMsrKVywiiFTxBDDFIjEsgGWAsGg |
|---|
| 330 | THjjledXeuvJokoeEpDiRQ84WGMNDj14kUoGA71gCX768ecfgF10oQYGcbiRRBKBDnqpG3ooIFAL |
|---|
| 331 | DT4YoYUVVmMNAZNE0UMPMggqw6rDUWASgUAuhEgZiSZu1gouBfSRhKDAApsEILP+wwKNqt0YnCyw |
|---|
| 332 | 6FIAHFEEG2wUcBTbwiCT2cgajrE1WwAVVEQRhQ+C+iAuFWMUq8EOg0ji3Jey+PJLLrPcUkIMYIAR |
|---|
| 333 | rqBRUJFvDgcMBIEKO1TBRyGu8QLMMMQE80sviUgwhhn6CuqvGWVcQNICH4CAwgkmmEDCyCegsAIF |
|---|
| 334 | F6SxRr75rpHGBQLcJLNDAVQgxBp33LGGEBUEMPPPAw0QwdARDAD00UgnnXRAADs= |
|---|
| 335 | } |
|---|
| 336 | } |
|---|
| 337 | if { [ lsearch [ image names ] system_upgrade_32 ] == -1 } { |
|---|
| 338 | image create photo system_upgrade_32 -data { |
|---|
| 339 | R0lGODlhIAAgAOf/ACwsNDg2Oi09LSRGHUo7V0BERkNFQh9hETlXM2BdYS17GkB5MGdqeGlqc3Zn |
|---|
| 340 | jCmJHm9tcTmGJHBtfEuBRXNwf3FyeyKWFAegEnp2hnx2gVOJTECTKSqbGxWkGACwBQ6rE0WYLiuk |
|---|
| 341 | GkCdMQC1AGOOX4SChgC3AA+zAIKDjAC4AFCbOR+wBwC7AxaxJoWGj4iGihC2Ehi2AGOXZTmpM1ue |
|---|
| 342 | PSKzHjCtNoyImTGxHUWnSQm/DIiNkB67GpCNnXiaeCi+DSO+HpGSnEW2JFWtTzy5JyPBLJSWkzq+ |
|---|
| 343 | EC3DJZmZo0jAJC7HM3KuZz7EJznFO52eqHG0UT/GNKGeojzHPUPHKpygr6Cgt0zHNZ+kpqOiuVvH |
|---|
| 344 | LqSkulTKMKWnpIy0iU3NS1PNO6envqqorFLORZeykKaquVnMTGPKQ6mpv1/NPV3ORq6ssIW/cVzP |
|---|
| 345 | T2HNVa+tsaquvq2vrK2ut5+0pmjOR62txF7TObGuv1/SUZS8kbKwtLCwumjRUZm8mWzSTLK0sbOz |
|---|
| 346 | vbayw7ezxWzVVbW1v7i1unTWXnnWULq3yG3ZYLW5ybi6t3zVX7m5w6DEoHvWZnXZaHrZW7i8zKzC |
|---|
| 347 | tL68wLi+wLq+znrcZIDaa8G9z3zeZobacofcX73CxL3B0cbAy4XeZ8LCzL/D0oXfb8bDyMPFwrnM |
|---|
| 348 | uIficoziZIria8bH0ZDjc5XheorldMjJ08vJzZjidLvRw5PldtHK1p7lcZzld5boeM3O2NDO0sjR |
|---|
| 349 | zMvQ0pjnhbzXwdDR26LpidbS5KLsftnS3tTU387Y09jW2rnnn6Pwh9Xa3KfxgtzZ3tna5LHyhdvc |
|---|
| 350 | 5rjupdze27Pykt/c7t3e6ODe4rH1juHf49bl2MLwqLX3ieDh6+Ph5eTh8+jh7d3m4ebj6MfyuN7o |
|---|
| 351 | 4r/4oOXm8L77lOnm69D0u+ro7OXq7ejp8+vp7e3q7+Tu6err9u/s8dD9re3v6/Du8vLv9O/x7unz |
|---|
| 352 | 7vTx9u7z9vHz8Pbz+Pj1+vz1//n3+/j69/37//j9//v9+v3//P///yH+EUNyZWF0ZWQgd2l0aCBH |
|---|
| 353 | SU1QACH5BAEKAP8ALAAAAAAgACAAAAj+AP8JHEiwoMGDCBP+A+TPHyCFEAXiIvik4ROCEyMOLGTP |
|---|
| 354 | X6OBSRpiGZjJX75CGv9VaMgPAqVt6jbx2WWNXDNWjLw5SPnvVj9++/w9SuPrGbJly66Ja1dLC8Fi |
|---|
| 355 | ClHwy1ePyKhTqU7JkmULGLCj4CIJhEWroBxKAsXks3cvBKRBhhJd0nS11VZbtozBkjUNVcFu9saJ |
|---|
| 356 | sQdvnwg3Y9S0WYwkRQoWURJd1cqVE0FA99i9g8cOnqMZUZxM+QLEhIcLHVawiEEF06VLoEaJJeji |
|---|
| 357 | XDp06PApWFKkiBPHDw4MEIAgApEfTRgpZ3TIIIB048rFssCDBxAeKTgQDEBgQ5MjV/j+iPdjMMi4 |
|---|
| 358 | budk1IABg0eMGgYXcFFyxYx9M2cMAsJGbduEGh7EEIMJOBhkRxp00KFGGlQcocRAr5BCSS/MMBOM |
|---|
| 359 | Bi14YIIJLBwkhAggqCAiDVCwMYtAmdyiTDQVBkOCDQPG0OFBGfTwyS/QaAPNL54IhMYWWWxRRyCu |
|---|
| 360 | +DCECRBJsYcqgdwRRpBoCIQBBRJY8aQkczDxAURydNJIFmFYIQEFGBR0w49oUONFDgoZ4YozZWyB |
|---|
| 361 | xg0IMVAHGmikM0keClUijDlloFEHAwgl0GQgntDDSx8IURKOPZ4cmsBBhCByhyWKSMKMOtWYQgZB |
|---|
| 362 | ceCSzjzKSKKIJXcgQkhBVaBxRyCyosQaCjbycMPNMLnockw65dyTTSixitIkGlUUlCocDQijyi0q |
|---|
| 363 | xlOPOdCyY489yjCrijANwGGpQQ00IFAF0fQiTDLJUGNOPPCkQw25xPQSTQUCdQtRCdRkI0023Yyj |
|---|
| 364 | 73n2ZkNNCTz9Q0y588DjzsEIwzPPusTwtEa57xiwQynu1FOPO6XsUMA7676R0gvJCDZQFxZ3MZAY |
|---|
| 365 | 5STzQsB6EPRHPPH8QVDLARu0iD76LFLzzhAFBAA7 |
|---|
| 366 | } |
|---|
| 367 | } |
|---|
| 368 | if { [ lsearch [ image names ] product_update_32 ] == -1 } { |
|---|
| 369 | image create photo product_update_32 -data { |
|---|
| 370 | R0lGODlhIAAgAOf/AAAjAgEkAAQwBhM1DQM8AAA/AAs+Dhk7EwpCAxhAEQBKAQNOACVBHxRJCgBS |
|---|
| 371 | ABJNDipHJAVYABlQGABdAC5NLx9WHUVHRClTKABoAABvAAZtBjZbNRZyAEJgPEBiN0FjOCFxDhB4 |
|---|
| 372 | ACtuJTFvM0RpQz1tOSt1JACGAACHACh5IDxxNhp/ERCDB2FjYE5sRyZ/HQCPAEF3PByJEWlraACZ |
|---|
| 373 | BAGcADSLKCCUElGBTA2fAEOKOCiUJ0CLPnd5dmOCW3V6fGGDYlCLR0uQN2CGXlWORBilGXx+e3uA |
|---|
| 374 | ghisACOoEBGtFEiYRH6DhYGDgFuWUi2oKQy1ECiuJDioMoiKh1ufWG+YYyK7BI2RlFmpU2yiYzu5 |
|---|
| 375 | JmWqT0q1N12wUi3DJSvGGm+rZUy5Q2SvYHmoale5RG6wYnqrc1u4Uj7FMzDOJXiyeD7MJHi0bVHF |
|---|
| 376 | RZeplnS5cKKnqUHRNKaopU/MQ1/ISXDBaT7XMIu4hqesrpuyl17NXDreK62vrKuwsnrFdHPKape8 |
|---|
| 377 | jLCyr4zBjWHUU1DdQE3dSUngOVXbUKG9m5fCiovIf5LFi33OdXDUZGHcUnbUa1zfTJjKkLLAtK3E |
|---|
| 378 | qbDDr3DebKvHpI3TiILZd2XmU4fYfl/qTX/dc1btT1rtR17rVlHxSnHma2DtWKjQpbjKt2zpZb7I |
|---|
| 379 | w7zKvnvmbJvZj8HMupTfjKrYpITodsDQtqDcn2H2V77VuqDhnbjXuqPhl6fgnWz4Y8DYvLHfq4P0 |
|---|
| 380 | cZ3plbbfs8/U18bZxc/Wy4/wi73hvKzoq5L1iIH8d9Lb1sjgxL3mud3a39fc36bynrTtqs7izeLb |
|---|
| 381 | 59rf4tfh3N7g3Nzh5L/uutPm0s3o0uLg5MPtwLfztcjtyN/k57L5rOni79Ts0Ofl6dDw0uPo6ubp |
|---|
| 382 | 5eHr5uXq7e7n8+vp7ffp9+zu6+/t8env8ffs8+vx5vTt+dL8z+b058/+yezy9PPw9e/y7vL08fbz |
|---|
| 383 | +PD19+P83/3y+fvz//n3+/P5+/f59vX88Pf9//v9+v78//3//P///yH+EUNyZWF0ZWQgd2l0aCBH |
|---|
| 384 | SU1QACH5BAEKAP8ALAAAAAAgACAAAAj+AP8JHEiwoMGDBwP5W8iwocOHC6ckhEiRH798+PDlm+eP |
|---|
| 385 | ycR9FS1azIcxX7x57jpObLjPYr+XMO+R3BgPnrt9RyaKdNmPH7117dbRy3fvHkp4SPnlNKhwZz99 |
|---|
| 386 | 2XLZggWrU6ZKwdjdc/cO3jmcOvn18xcNkh07hjZ12kToC5Iwu+B9O3cOn5Gw/mRZgYIEjSNUrUId |
|---|
| 387 | QnMjgggcPsyFszsxn79dMFCwkLKqWzp46a49kqLiQQEElMzNu2uQj79+8UQsqKADV7979d6ps1cv |
|---|
| 388 | lZQuNzLcUTfvx8E+C90AYDDiVb93riKlWqRKXa1GmDApefJNXo+Dpv11ELChTD90iSD+2RqWbBAi |
|---|
| 389 | adY01fmD5I4936X9fRsAoQSrfpO8GKpU7doeLaao8802yvixiDzwFWSaLwl4EMQ09mxBQxSRvHNJ |
|---|
| 390 | EjWMMQ43HHIDzTkJEmRaOafEcks58AjhwAuW3MOGDRM4saEzzjxDzTnXxXdPP/XI8845RLiQBylm |
|---|
| 391 | 9KIAAVWI00sWQ5AgyTshDoSHP8WMMosv6KgDCAcgrBDCLSZgMIk4o8RAQQBP5liQHP6w8gQPVAgS |
|---|
| 392 | yzNbnJADFFHcAAY14rzxwQEJEDNOlALh0Q84SbTBCBZLqEGNInQ4Qscix2hTDA8UAAAEN96oSZAc |
|---|
| 393 | +dQjBgpc/BEGLuRo8wwxzWijzTL+WFxgAAKn3EjoP3Lg8w4lC0Rggg5k4IKNq9o0s8sZKWiQARjc |
|---|
| 394 | NDPaQXDMEw42F0jQQAM7oFHJKrSswskcReTwlo3e7NPEQXK44804lJDyhgw0eFHIJ6KwtcYXaTTi |
|---|
| 395 | DKfnqGQQHO94g80443zDih5xGOKJJ6AsXEot1HATzjkpeTpQuthgAw001KgKjC6/CCNMMsY8ow03 |
|---|
| 396 | 3yAFjz8zQGuOxtA0I/MxzDBzzM01U+NNOe7YdBNCcpyz8czNIGO00TdHPM477jQ9TzkIwTGOzDIf |
|---|
| 397 | jfQxzWDjzTk2wYOPP/ksVRo+4YTjjTeccno21/jwAxI/8/ByBUICtdDEEXjnbQQS3kY0McXfUzQx |
|---|
| 398 | gwV0F2644QEBADs= |
|---|
| 399 | } |
|---|
| 400 | } |
|---|
| 401 | if { [ lsearch [ image names ] file_remove_32 ] == -1 } { |
|---|
| 402 | image create photo file_remove_32 -data { |
|---|
| 403 | R0lGODlhIAAgAOf/AMIABToqFMMWGMUaIFZBH1pFI11HJcYpKcYpL19JJ8gqKmBKKGFLKExOS2NM |
|---|
| 404 | JMIvLmVNJmZOJlFTUGlRKWxTJW5VJ3BXKcc9Os48PXhZLHBaPNE+P3ddL19hXntdNnpgMYFgLtFH |
|---|
| 405 | R4RjMHRnUWhqZ4hmM9FPT4VuT5JuNYtvQJNvNpRwN5VxOJZyOZdzOnZ4dZh0O5p1PIJ4bJt2PZx3 |
|---|
| 406 | Pp14P555QJ96QKB7QYh+cs5qa4OAcqF8QqJ9Q8ttbKN+RKJ+SsxubaR/RZ2AUKN/S6aARqWATKeB |
|---|
| 407 | R6GDTaiCSKKETqmDSY6GgKWFSaOFT6qESqWGUKuFS5qIZ6yGTImLiK2HTaiJU66ITq2IVLCJT9l6 |
|---|
| 408 | eLGKUJONjN95erKLUbGMV7OMUo+Rjq2OV7SNU7ONWbWOU6yPZLaPVLWPWt9/fZKUkbGRVKKTfLOS |
|---|
| 409 | VZmUkraRXOGBf7OTXLWUV7SUXbiTXeKDhrWVXrqUXraWX5ial7iXWreXYK2ZceGIibmZYaybfqib |
|---|
| 410 | irqaY+SLi7ycZL2dZZ+hnr6eZr+fZ8CgaOSSkMGhacChb8KiasOja+CWl8KjceaVmcSkbMalbcOl |
|---|
| 411 | eaeppcembsWmdKiqp+Sam8inb+Ccm8mocMiodsqpccmpd8uqcs2sc8yses+tdc2te7Cyruejoc2v |
|---|
| 412 | gsixgs+wfc6wg+mlo7K0sbO1su2opsa2n9G0s8y2ssi7qby+u+izsr2/vL7BvcHDv8LEwcPFwsTG |
|---|
| 413 | w8XHxMbIxdHFxeq+wcfJxu2/vMjKx9THx8nLyNTJvNXIyMrMye/CxenExcvOys3Py+3HyM7QzdvO |
|---|
| 414 | z+/JytHT0NLU0djT0tPV0t/S0tXX1OHU1NvW1NbY1enU19ja1t7Z2Nnb19rc2dze293f3N7g3d/h |
|---|
| 415 | 3ubh3+Hk4Ojj4uPl4eTm4+Xn5Ozm5ebo5efp5ujq5+nr6Ors6fDr6evu6u3v6+7w7e/x7vXw7vDy |
|---|
| 416 | 7/Hz8Pjy8fL08fP18vT38/b49Pf59vj69/n7+Pr8+fv9+v3//P///yH+EUNyZWF0ZWQgd2l0aCBH |
|---|
| 417 | SU1QACH5BAEKAP8ALAAAAAAgACAAAAj+AP8JHEiwoMGDCAXWQkjFG7qEEHGhe1jQ1jhv7ihCLEgJ |
|---|
| 418 | XTp46brlEehN3blv796F2VjQWbp079y1a+fw3bpz4eDBY8WS4LN06tbNa5dxHLyM5+bNE9ZzYLSg |
|---|
| 419 | 7ea5ewcv3Dx569Ldu4etqcBo64i+mwdPnrp59o7m0/fN679pRKfWk4d2Hr6r+/Spcwt3Krx69e7h |
|---|
| 420 | y7cPH75++OS5xeZ3XmDC/Pr587dP6WKqdO9BnjwZH9GejEaFGoXKlGlTqFKdNp3q1ClLnDwtSlhJ |
|---|
| 421 | lG3bnzbp3pQpUyVJwCU1YsSo0SPalX4DbzRckSJEhw4ZIkQo0KRhyc6p05bsIHTp1AP+iQ+0pzye |
|---|
| 422 | 83RcYUMHz7E9e/N2ESy/5zweO3PmxEGD5kyZMmOAEYs26phDVz32xENPPV0JhIUVUESohBJIGGGh |
|---|
| 423 | hUBkyEd215SijFLxGKNMPPPIMlAVRRTxw4or8uDiizzcMg01iSQCyTHszKJKK7/M804HAolRRRVT |
|---|
| 424 | TBHFkU88scQSTSRhBi3dgKNJHX0IgomNmDTjIyUCtQHgGAF6scUWWWQxZBV/5MLNOOA40kUacFDZ |
|---|
| 425 | C13vICOQHnTkyR9/ZPRJxpiA4KJNOOFQY8IGGISgRTrrvNPONALJsd8ZXoY5pplVsHHJLs8QgwAA |
|---|
| 426 | oIIaRDfeYOOLQGW0YWmZQxqZpBTWheTCywOhDhCqDt5Mw9M/YmJKZBRKLpHEEUUMoYYtsAggKjQX |
|---|
| 427 | gHpANtFQIRCRrgo7bIoquijDKr68IoAP2GDD7AHMTHOqQEpem2KLPOBwww02pMCFLcUEM0242lQj |
|---|
| 428 | zTTJkDAQtj+86K4NNtRAwwwxxHCCG7cAk0w0907zDDLSDiQwvDUYjLALHLfAwgoe7ECKLsAIg0wx |
|---|
| 429 | skhQUAwF03BwDBy74PEKKqiAwgoulKDBCDkw8UIDBxVQggggfMBBBhZUQMEEEUDgwNMQMLBAAgYQ |
|---|
| 430 | EIBbWB8UEAA7 |
|---|
| 431 | } |
|---|
| 432 | } |
|---|
| 433 | if { [ lsearch [ image names ] check_connection_32 ] == -1 } { |
|---|
| 434 | image create photo check_connection_32 -data { |
|---|
| 435 | R0lGODlhIAAgAOeWAGhoaGlpaQCUAGxsbACYAG5ubgCbAHFxcQCeAHNzcwChAACiAHR0dHV1dXZ2 |
|---|
| 436 | dgClAHd3d3h4eACoAHl5eQumC3p6egCrAHt7ewCsAA6nDnx8fA+oD319fQCvAH5+foCAgACzAIGB |
|---|
| 437 | gQC1AIKCggC2AIODgwC4AEKeQoSEhAC5AIWFhYaGhoeHhwC9AImJiYqKioyMjI2NjY6Ojo+Pj5CQ |
|---|
| 438 | kJGRkZKSkpOTk5SUlJWVlZaWlpiYmJmZmVS3VJubm5ycnJ6enlS8VJ+fn6GhoaKioqOjo2y9bKen |
|---|
| 439 | p6ioqJSylKurq6ysrK6urq+vr7CwsLKysrOzs7S0tLW1tbe3t7i4uIfPh7y8vL29vb+/v8PDw8TE |
|---|
| 440 | xMXFxcbGxsfHx8jIyMnJycrKysvLy8zMzM3Nzc7Ozs/Pz9DQ0NHR0dLS0rrcutPT09TU1NXV1dbW |
|---|
| 441 | 1tfX19jY2NnZ2dra2tvb28jjyNzc3N3d3d7e3t/f3+Dg4OHh4eLi4uLj4uPj4+Tk5OXl5ebm5ufn |
|---|
| 442 | 5+jo6Onp6erq6uvr6+zs7O3t7e7u7u/v7/Dw8PHx8fLy8vPz8/T09PX19fb29vf39/j4+Pr6+vn7 |
|---|
| 443 | +fv7+/z8/P////////////////////////////////////////////////////////////////// |
|---|
| 444 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 445 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 446 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 447 | //////////////////////////////////////////////////////////////////////////// |
|---|
| 448 | /////////////////////////////////////////////////////yH+EUNyZWF0ZWQgd2l0aCBH |
|---|
| 449 | SU1QACH5BAEKAP8ALAAAAAAgACAAAAj+AP8JHEiwoMGDCBMqXMiwoUOFLJCsMAjgocEYY9qooUGQ |
|---|
| 450 | RgCLBF+YWYPmjRwfXdZsqQFyoAs0cAqRKUMHzxEwcVoKZKGmDp0/isygsfPnyBudKtjkgYPmzqCg |
|---|
| 451 | SvX8aFnCTZ8/kNyoyVNI0Zk3fOSosDiiDSCihiC9YdMHkSI0cf6YsfiEUCM9awQhUvsG6KKhb4o0 |
|---|
| 452 | rEDjRhtFlPi0IaQIEhw5ghopGqMFCEMOdCwJ4aGGUeI3hxhFimNHkJwtShhWaFMpUCMcO8o8Siwn |
|---|
| 453 | kaNIbtZoWcLwgplIlCrFYQRDxxhIlfrYYaSIThYmDCd8abToUSVJcAKNuOFFUvI6b7T+NNHAMEtj |
|---|
| 454 | OIIYVcJd50INLpQWmcnixMNAAQivHDr0SG2gRZU80gYaDchAhRv0cTAQAQwaNAUhd9xRyCOOmJVI |
|---|
| 455 | JYyo0cUBGtCwRAgDGSCiiATN8McgFZb2CCNr+GHIJHOEYcUEL9gnEAI44liQB1f0EdoadADyyFt7 |
|---|
| 456 | BJFBGljwQJACCzS5wEElTJHHIYqoIYcfkCDSwwMPbJAECgNxKSZCDHzQxB2HJHJGHHxAUoUEcFJA |
|---|
| 457 | EJxwKjTCBEjAcYghZcCBxyFGYCCoBQIJKuhCb1SQABFoHELIGHKEIcUJHVRqaaUMxQFGBAX4IMYh |
|---|
| 458 | gHgRRQz/gGDqqSAwVMMWa3QBwQAtOWjRBRQzDCQCCbiSwFAAHA3kwAAqDGFDQSakkEJDFRXkgAMK |
|---|
| 459 | GtSCTtBG+1BAADs= |
|---|
| 460 | } |
|---|
| 461 | } |
|---|
| 462 | if { [ lsearch [ image names ] package_down_16 ] == -1 } { |
|---|
| 463 | image create photo package_down_16 -data { |
|---|
| 464 | R0lGODlhEAAQAPcAADJwKjZ6MUFqIkNsJ0ZvJkBvK096LVyAPUePQEuPQUqMRUuNRk2PSFeNQ1CS |
|---|
| 465 | S1WaTleZUVejTlikT2a2XGi4XWytZXysZ22+Yny/dnDCZXLFZnPGZ3THaH7AecODIsOEI8CFJcSF |
|---|
| 466 | JMWHJsaKKMeNK8iPLcmQLsmSL8iVMsuVMsyYNMiUO86dOd6fMtGkP+KqN+KpOOOrOua0Pea1P+y2 |
|---|
| 467 | OOm1PcqQStCXU9KlQNOoQtSqRNWsRdWtR9awSdewSteyS9iyS9i0TNi0Tdm1Tdm1Ttm3T9WmUdqt |
|---|
| 468 | UNuxVuGnQOa1QuaxR+i+Q+m9ReSxTOi/SOi7T/W9QOWvVtuyYt25ada4cNy9d+a2a+W/b+SzdIDB |
|---|
| 469 | eoLCfYXDfuzFR/nESOHAcuDAfeDGfvXPf//Vd/XQePXQf/7WeIfFgZHKiZPLjJ3QlaDSl6nXoKvY |
|---|
| 470 | otvDidfTj97JlezFg+7Eg+3Gh+zKhOvMhOfMiO7KiPHPhvvchPfViffXi/DQjOXPku3SkurVnPHV |
|---|
| 471 | kPXXkPLWlf7flfjbnf/hm+3ZpfLdr+3evv/kpfnhqvrjqv/oq/fksvrksP/qs//ptv/rt/blv//q |
|---|
| 472 | uf/ruv/rvf/tvv/uwf/vwfvty//vyPnrzfrszv/wyf/yzvXr0vfu0f/z1P/z1f/01//12f/02v/2 |
|---|
| 473 | 2//23fz24v324v724/744f344vz45v775//+8P//9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 474 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 475 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 476 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 477 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAALEALAAAAAAQABAA |
|---|
| 478 | AAjnAGMJHBgLiA+CCAcK+fHHzg4dCQcG6dNK1aFGX1wkJBIGFKxXmY7sUSRoCguBRYYY+oQIjpsq |
|---|
| 479 | VAKJIbSIjpEUQlZt8lMHC5IVnEhNGjQmUZ4TP1iFcoSnDBknjiAVMhOlBqASPVKVElVJD4cNGS54 |
|---|
| 480 | ofEECh8SPFCN8qSJkoY2bCh0aaJkyZ0ROlCF6mTp0YQ1aiQwmREjSRwROVydwhSJUYQ0aBDIgNHi |
|---|
| 481 | ipwQOKxIMnXpzYMzXAK8kDIniw0PAlmAsZCgwhYtDgAcuPEBoQoUDSB0wLCgAIjaEU0YYKBgQIiI |
|---|
| 482 | CAkIiBgQADs= |
|---|
| 483 | } |
|---|
| 484 | } |
|---|
| 485 | if { [ lsearch [ image names ] software_update_16 ] == -1 } { |
|---|
| 486 | image create photo software_update_16 -data { |
|---|
| 487 | R0lGODlhEAAQAPYAAM5cAM5dAM9dAM5dAc9dAc9eAc9eAs9fAs9eA89fBNBeAdBfAtBfA9FhBNFh |
|---|
| 488 | BdBhBtBiB9FjCNFjCtFkCtJkCtNlC9RlCNJmDdJnD9ptDdJoENNoENNpEt1xENhzHN96IN97IuF/ |
|---|
| 489 | JfaDE/WEEvaFE/aGFfaFF/aKGfKIH/eNH/iQG/iRHfiSH9+FMeKAJu6FIO+FIfCHIvCHI/OKIPaL |
|---|
| 490 | I/KNK/iWIfWSL+OOPPGTNPSWN/iYMfmeMviaNPmhOfmhPfqmPvafRfahRvmiQfqnQPqoQfemTvSm |
|---|
| 491 | UveoUPWrV/u0V/u3XvayYvSzZvW0aPa3a/q0avq0a/u3bfa4bPm4aPu6cfu6cvm9cfrAdPvBdPzB |
|---|
| 492 | df7kv//qzQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 493 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5 |
|---|
| 494 | BAEAAF0ALAAAAAAQABAAAAeYgF2Cg4SFhoIHCYeGBy04C4tdEhwGE1dYGgQYFwCFG1pTTUtKTk9Z |
|---|
| 495 | HoYBTEVEW1tEQFQIhQURRz42XFw2PEkVkIIEIEZDLCq6Kis/SC4GggYfQT1WurpVO0IhzoICEDkp |
|---|
| 496 | UrpSJzoUCoY1JSRRUCQjNwOGDjQyLyYiMDE0FoYMEAUMUMxwUOBBg06HBGTocC7SoAIEHEoUFAgA |
|---|
| 497 | Ow== |
|---|
| 498 | } |
|---|
| 499 | } |
|---|
| 500 | if { [ lsearch [ image names ] check_green_16 ] == -1 } { |
|---|
| 501 | image create photo check_green_16 -data { |
|---|
| 502 | R0lGODlhEAAQAPYAAACVAACWAACXAACYAACZAAKaAgOaAwecBwidCAmdCA6gDQ+gDhCgDxOgERWj |
|---|
| 503 | ExymGiSlISirJSqsJCqsJi+uKzCvLDKvLzayMTeyMjixNDy1Nz21OD61OT+1O0C2O0O1P0O4PUS4 |
|---|
| 504 | PkW4P0m2REe5Qki7Q0q7REu7RlC+SlG6TFK6TF3CV17EWGjLWm3FZmnJYm7JZ3LMZnnNb3TQbHjU |
|---|
| 505 | a3vPcHrTcoDTdYDUeYXWeYbQfoXUfYfeeojeeovaf43VhY/VhY7WhonYgozdgI/dhJDXh5Peh5HV |
|---|
| 506 | iJHWiZLWiZLaiZPaiZbdjJTfjJnbkJ3elJHmhJTkh5rljpnikJ/ml57rkZ/qkqDgl6HgmKHimKbl |
|---|
| 507 | nKjmn6XsmajqnanvnanmoKnooKzroazoo6zuoK7qpbHtp7LsqLPtqbLuqbfzrLnzr7zzsr/1tQAA |
|---|
| 508 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5 |
|---|
| 509 | BAEAAG0ALAAAAAAQABAAAAeZgG2Cg4SCBQgLhYptBSouKQ+LgwYfRzJIEpKCDD8xMUUTmgkwSy1P |
|---|
| 510 | KxSaFlc0TDsVmgtKRkNZHoIAECMNBJssWj1kLxeCATpAQRYHbRFiUWFNGIMCSTU3VyQOQl1WZSWE |
|---|
| 511 | AxlOOT5bOGdVazMahQUdWEQ8ZlxpVBuLCidfUlBeaiiaHmwAM4aNDRCa2kwwgWZKiISCMHAQISkQ |
|---|
| 512 | ADs= |
|---|
| 513 | } |
|---|
| 514 | } |
|---|
| 515 | if { [ lsearch [ image names ] cdr_tick_16 ] == -1 } { |
|---|
| 516 | image create photo cdr_tick_16 -data { |
|---|
| 517 | R0lGODlhEAAQAPZ2ADd7MTh8Mph/Mpl/Mpp/MjqUMECFOWuPPUijPFWcTVKtQ1ymUlyjVGuqXGC1 |
|---|
| 518 | UGi3XmyyYnS5ZZmAMo2vZo6waY+ya5Czb821b861cM63cs+3cs+3c9C4ddC4dtC5dtC5d9G6edK8 |
|---|
| 519 | fdO9f4HKdoPJeILLeIbJeYXLeYXIeoXJeofMe4bMfIfNfInNfYnOfovPf9S+gNS/gtW/g43PgZDS |
|---|
| 520 | hK/LlcDAhdbAhdnGjtnGj9nGkNrHkdvJldzKltzKl93Mmt7NnN7NneTWruTXsObZs+batebatufb |
|---|
| 521 | t+fbuOfduujduujdvOnevtPhvurgwOvhwuvixezixOzixezjx+3jyO3kyu7lzO7mzO/mze/mzu/n |
|---|
| 522 | z/Dp1PHq1fHr1/Lr1vLr1/Lr2PTv3vXv3/Xw4fXx4vby5Pfz5vj16vn27Pn27fn37fv48fz69Pz6 |
|---|
| 523 | 9fz69vz79v379/37+P78+v79+/7+/P///v///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5 |
|---|
| 524 | BAEAAHcALAAAAAAQABAAAAfMgHeCg4SFhjxOXGRgPgSOhR9zYjg/WHN1cx+PdwQfa3ZwITJedm5v |
|---|
| 525 | dpqDXzdbdj0ZY3NncnRzjgQ+QSAdUFlDYWpncWxtjQRMMCAePSKOMW1lXVJMjlEcHyBFtwRXQDoU |
|---|
| 526 | DQcEURsYF0fbTzsTECgJBEsaFzlbMY4iRBYQMy8GuEZWzIRp8qAGkgoQWrAIQEDQnDRfpkQwscCG |
|---|
| 527 | gxUnGDbshEaLEgU0UkAgUSLABwmEPoyhIgSBCxUjTG4ixCNJlQIMGAowRGgAAQANCQUCADs= |
|---|
| 528 | } |
|---|
| 529 | } |
|---|
| 530 | if { [ lsearch [ image names ] database_1_16 ] == -1 } { |
|---|
| 531 | image create photo database_1_16 -data { |
|---|
| 532 | R0lGODlhEAAQAPeLAEdHR0dHSEtMTEtMTU1OTlNUVFRVVVZYWFdYWGFjY2JjY2JkZGNkZGVlZWRn |
|---|
| 533 | Z2VnZ2hoaGhpaWttbW5vb29xcXN1dXV3d3Z2eHh5eXl5eXh6enl6enp6en19f3x+fn6AgICCgoGD |
|---|
| 534 | g4mLi4qKjI6Ojo6OkJGRkZGRk5OUlJSUlZSUlpSVlpWWlpaXl5iXl5aXmJeYmJeYmZmYmJmampqb |
|---|
| 535 | m5ydnZycn5+fn6CgoKCgoqGioqCjo6Smpqeoqautraytrq2urq2vr66vr66wr62vsLCxsbCysrGy |
|---|
| 536 | s7Gzs7Kzs7GztLKztbK0tbO1trS1tbW1tbS1trW2trW2t7W3t7e3ura4uLe4uLe6uri4ubm7u7q7 |
|---|
| 537 | u7u7vru8vr29vb6/wb6/wr/AwMLCwsPDxMXFxcXGxsXGx8bGxsXFyMbHycjIycjJysvKysvLy8rL |
|---|
| 538 | zcvLzcvNzcvMzs3Nz8/Ozs7Oz8/Pz8/Q0tHR0tLS1NfX19bX2Nvb29vc3Nzc3Nzd3d3e3t/f39/g |
|---|
| 539 | 4Ofn5/Dx8fX19vj4+fn5+fz8+/v8/Pz9/P39/f7+/v///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 540 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 541 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 542 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 543 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 544 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 545 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAIwALAAAAAAQABAA |
|---|
| 546 | AAjOABkJHEiwYEEyRnYg0fPnzRWDc+7YiaOmjBUtZNjIWUOQyZYveQQFamFBBI8xWQhCoYJmkKE9 |
|---|
| 547 | QT4kqFBkCsEmXNoQStTHx4cFGKI4IRjjgoo0fMzMmICAQQYZBInYGJGiBokGAgpMuHGEoJQtbggh |
|---|
| 548 | 2gMkxIMNTqoQVLIFDiFFfoD8xPAkCcEXF06IwROGhYQDCji4ILgkRwkYOExAIGCAgg6bA3t4aVOI |
|---|
| 549 | pxCzGqz8ILjiTJ1DiwANAeHAAxgaBQN0wEKnC4oIAwQAMEjbYEAAOw== |
|---|
| 550 | } |
|---|
| 551 | } |
|---|
| 552 | if { [ lsearch [ image names ] back_to_ou_16 ] == -1 } { |
|---|
| 553 | image create photo back_to_ou_16 -data { |
|---|
| 554 | R0lGODlhEAAQAPYAALRmJ33VJtuPGd+aHeGhHt+bL+WwKuaxPOe4PYnVPu3UAO3VE+3QF+7VHPDb |
|---|
| 555 | KvDYL/HdN8+kU+m9Q82nYt62Ztq1aeewY+K1dY3cQJDXSpXdUZvdW4jCZZHJaJbObu7PR+zJS/Hd |
|---|
| 556 | QezHU/DYVPLgTPPiWfPjWfPfZmZ3mHiGq3aIsH+Pt6u816Kx3LPA4b/P4r3F9L3G9s7Pzs/Pz8/S |
|---|
| 557 | 18/T19LX3dLY39jY2Nvb29zc3N3d3cHM48vZ68vb79LY4Nba4NPV8dPZ+ePj4+np6ert/PHx8QAA |
|---|
| 558 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 559 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
|---|
| 560 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5 |
|---|
| 561 | BAEAAEcALAAAAAAQABAAAAd8gEeCg4SFhR8RLIoshoIDBw8MFT0+Pi+GCCQQDgoNF0VFPIUEJiUg |
|---|
| 562 | IQsUQUJCLoUSJwJHIxMwMbcthQYiggUqKykrKyiGFo3HRwDIy8xAPz80RzY3NzVHHhwcHYJERkY5 |
|---|
| 563 | R0PeOkcbGBgagjtDQzNHOOwyRxkBAQnM+Pn5gQA7 |
|---|
| 564 | } |
|---|
| 565 | } |
|---|
| 566 | } |
|---|
| 567 | |
|---|
| 568 | source [ file join $::TolPkgGUI::cwd tolpkg.tcl ] |
|---|
| 569 | |
|---|
| [2d896ea] | 570 | proc ::TolPkgGUI::CmpVersion { v1 v2 } { |
|---|
| [5b6b63c] | 571 | foreach { v11 v12 } { {} {} } break |
|---|
| 572 | foreach { n1 v11 v12 } [ split $v1 . ] break |
|---|
| 573 | foreach { v21 v22 } { {} {} } break |
|---|
| 574 | foreach { n2 v21 v22 } [ split $v2 . ] break |
|---|
| 575 | set cmp [ string compare $n1 $n2 ] |
|---|
| 576 | if { $cmp } { |
|---|
| 577 | return $cmp |
|---|
| 578 | } else { |
|---|
| [2d896ea] | 579 | return [ expr { $v11 < $v21 ? -1 : ( $v11 > $v21 ? 1 : ( $v12 < $v22 ? -1 : ( $v12 > $v22 ? 1 : 0 ) ) ) } ] |
|---|
| [5b6b63c] | 580 | } |
|---|
| 581 | } |
|---|
| 582 | |
|---|
| [e83ccac] | 583 | proc ::TolPkgGUI::ReadPackSyncInfo { } { |
|---|
| 584 | variable packSyncInfo |
|---|
| 585 | |
|---|
| 586 | array unset packSyncInfo |
|---|
| 587 | foreach p [ ::TolPkg::GetPkgSyncInfo ] { |
|---|
| 588 | array set packSyncInfo $p |
|---|
| 589 | } |
|---|
| 590 | } |
|---|
| 591 | |
|---|
| 592 | proc ::TolPkgGUI::ReadVersSyncInfo { } { |
|---|
| 593 | variable versSyncInfo |
|---|
| 594 | |
|---|
| 595 | array unset versSyncInfo |
|---|
| 596 | foreach p [ ::TolPkg::GetVersSyncInfo ] { |
|---|
| 597 | array set versSyncInfo $p |
|---|
| 598 | } |
|---|
| 599 | } |
|---|
| 600 | |
|---|
| 601 | proc ::TolPkgGUI::ReadLocalVersionInfo { } { |
|---|
| 602 | variable localVersionInfo |
|---|
| 603 | |
|---|
| 604 | array unset localVersionInfo |
|---|
| 605 | foreach pv [ ::TolPkg::GetLocalPackages ] { |
|---|
| 606 | array set localVersionInfo $pv |
|---|
| 607 | } |
|---|
| 608 | } |
|---|
| 609 | |
|---|
| [e4c69c1] | 610 | proc ::TolPkgGUI::GetPkgNode { T url p } { |
|---|
| 611 | variable urlmap |
|---|
| [e83ccac] | 612 | variable treeParents |
|---|
| 613 | variable nodesInfo |
|---|
| 614 | variable packSyncInfo |
|---|
| 615 | |
|---|
| 616 | if { [ info exists treeParents($p) ] } { |
|---|
| 617 | return treeParents($p) |
|---|
| 618 | } |
|---|
| [e4c69c1] | 619 | set url [ expr { [ string range $url end-13 end ] eq "repository.php" ? |
|---|
| 620 | $url : "${url}repository.php" } ] |
|---|
| 621 | set repo $urlmap($url) |
|---|
| [e83ccac] | 622 | if { [ info exists packSyncInfo($p) ] } { |
|---|
| 623 | array set packSync $packSyncInfo($p) |
|---|
| 624 | set lastlocal $packSync(lastlocal) |
|---|
| 625 | set lastremote $packSync(lastremote) |
|---|
| 626 | if { $lastlocal eq "" } { |
|---|
| 627 | set img "package_down_16" |
|---|
| 628 | set nodeStatus new |
|---|
| 629 | set statusLabel "new ($lastremote)" |
|---|
| 630 | } else { |
|---|
| 631 | set idx [ CmpVersion $lastremote $lastlocal ] |
|---|
| 632 | if { $idx <= 0 } { |
|---|
| 633 | # could be -1 (because of date error) |
|---|
| 634 | set img "cdr_tick_16" |
|---|
| 635 | set nodeStatus ok |
|---|
| 636 | set statusLabel "ok" |
|---|
| 637 | } else { |
|---|
| 638 | puts "$lastremote > $lastlocal" |
|---|
| 639 | set img "software_update_16" |
|---|
| 640 | set nodeStatus upgrade |
|---|
| 641 | set statusLabel "upgrade ($lastremote)" |
|---|
| 642 | } |
|---|
| 643 | } |
|---|
| 644 | } else { |
|---|
| 645 | set img "" |
|---|
| 646 | set nodeStatus unknown |
|---|
| 647 | set statusLabel "unknown" |
|---|
| 648 | } |
|---|
| [e4c69c1] | 649 | set treeParents($p) [ $T insert [ list [ list $img $p ] [ list $statusLabel ] \ |
|---|
| 650 | [ list $repo ] ] -at end -relative root \ |
|---|
| 651 | -button auto ] |
|---|
| 652 | set nodesInfo($treeParents($p),type) pkg |
|---|
| [e83ccac] | 653 | set nodesInfo($treeParents($p),status) $nodeStatus |
|---|
| 654 | } |
|---|
| 655 | |
|---|
| [5b6b63c] | 656 | proc ::TolPkgGUI::FillTreeInfo { T } { |
|---|
| [e83ccac] | 657 | variable packSyncInfo |
|---|
| 658 | variable versSyncInfo |
|---|
| [5b6b63c] | 659 | variable localVersionInfo |
|---|
| 660 | variable treeParents |
|---|
| [00c4270] | 661 | variable nodesInfo |
|---|
| [e83ccac] | 662 | variable localMostRecent |
|---|
| 663 | |
|---|
| 664 | array unset treeParents |
|---|
| 665 | array unset nodesInfo |
|---|
| 666 | ReadPackSyncInfo |
|---|
| 667 | ReadVersSyncInfo |
|---|
| 668 | ReadLocalVersionInfo |
|---|
| [5b6b63c] | 669 | |
|---|
| 670 | $T configure -table no -filter yes -columns { |
|---|
| 671 | { {image text} -tags NAME -label "Name" } |
|---|
| [e83ccac] | 672 | { {text} -tags STATUS -label "Status" } |
|---|
| [e4c69c1] | 673 | { {text} -tags REPO -label "Repository" } |
|---|
| [5b6b63c] | 674 | } |
|---|
| 675 | |
|---|
| 676 | # insert package information |
|---|
| [e83ccac] | 677 | foreach p [ lsort [ array names packSyncInfo ] ] { |
|---|
| 678 | array unset pkg |
|---|
| 679 | array set pkg $packSyncInfo($p) |
|---|
| 680 | set url $pkg(url) |
|---|
| 681 | set pkgRepo [ expr { [ string range $url end-13 end ] eq "repository.php" ? |
|---|
| 682 | $url : "${url}repository.php" } ] |
|---|
| 683 | GetPkgNode $T $pkgRepo $p |
|---|
| 684 | } |
|---|
| 685 | |
|---|
| 686 | set localVersionNames [ lsort -decreasing -command ::TolPkgGUI::CmpVersion \ |
|---|
| 687 | [ array names localVersionInfo ] ] |
|---|
| 688 | |
|---|
| 689 | array unset localMostRecent |
|---|
| 690 | # insert version information |
|---|
| 691 | foreach pv $localVersionNames { |
|---|
| 692 | array unset pkg |
|---|
| 693 | array set pkg $localVersionInfo($pv) |
|---|
| 694 | set pkgRoot [ lindex [ split $pv . ] 0 ] |
|---|
| 695 | set url $pkg(_.autodoc.url) |
|---|
| 696 | set pkgRepo [ expr { [ string range $url end-13 end ] eq "repository.php" ? |
|---|
| 697 | $url : "${url}repository.php" } ] |
|---|
| 698 | GetPkgNode $T $pkgRepo $pkgRoot |
|---|
| 699 | |
|---|
| 700 | if { ![ info exists localMostRecent($pkgRoot) ] } { |
|---|
| 701 | # will be used in contextual menu |
|---|
| 702 | set localMostRecent($pkgRoot) $pv |
|---|
| 703 | } |
|---|
| 704 | if { [ info exists versSyncInfo($pv) ] } { |
|---|
| 705 | array set versSync $versSyncInfo($pv) |
|---|
| 706 | set dateremote $versSync(dateremote) |
|---|
| 707 | set datelocal $versSync(datelocal) |
|---|
| 708 | if { $datelocal eq "TheBegin" } { |
|---|
| [5b6b63c] | 709 | set img "package_down_16" |
|---|
| [00c4270] | 710 | set nodeStatus new |
|---|
| [e83ccac] | 711 | set statusLabel "new" |
|---|
| [5b6b63c] | 712 | } else { |
|---|
| [e83ccac] | 713 | set idx [ string compare $dateremote $datelocal ] |
|---|
| [00c4270] | 714 | if { $idx <= 0 } { |
|---|
| 715 | # could be -1 (because of date error) |
|---|
| 716 | set img "cdr_tick_16" |
|---|
| 717 | set nodeStatus ok |
|---|
| [e83ccac] | 718 | set statusLabel "ok" |
|---|
| [00c4270] | 719 | } else { |
|---|
| 720 | set img "software_update_16" |
|---|
| [e83ccac] | 721 | set nodeStatus update |
|---|
| 722 | set statusLabel "outdated" |
|---|
| [00c4270] | 723 | } |
|---|
| [5b6b63c] | 724 | } |
|---|
| 725 | } else { |
|---|
| [e83ccac] | 726 | set img "" |
|---|
| 727 | set nodeStatus unknown |
|---|
| [5b6b63c] | 728 | } |
|---|
| [e83ccac] | 729 | set nid [ $T insert [ list [ list $img $pv ] [ list $statusLabel ] ] \ |
|---|
| [5b6b63c] | 730 | -at end -relative $treeParents($pkgRoot) -button auto ] |
|---|
| [00c4270] | 731 | set nodesInfo($nid,type) pkgver |
|---|
| 732 | set nodesInfo($nid,status) $nodeStatus |
|---|
| [e83ccac] | 733 | foreach {{} d} $pkg(_.autodoc.dependencies) { |
|---|
| 734 | set _nid [ $T insert [ list [ list back_to_ou_16 $d ] ] \ |
|---|
| [00c4270] | 735 | -at end -relative $nid -button no ] |
|---|
| [e83ccac] | 736 | set nodesInfo($_nid,type) pkgdep |
|---|
| [5b6b63c] | 737 | } |
|---|
| 738 | } |
|---|
| 739 | } |
|---|
| 740 | |
|---|
| [e4c69c1] | 741 | proc ::TolPkgGUI::CreateTreeWidget { t } { |
|---|
| 742 | variable tree $t |
|---|
| [5b6b63c] | 743 | |
|---|
| [e4c69c1] | 744 | wtree $t |
|---|
| 745 | grid $t -row 1 -column 0 -sticky "snew" |
|---|
| 746 | set f [ winfo parent $t ] |
|---|
| [5b6b63c] | 747 | grid rowconfigure $f 1 -weight 1 |
|---|
| 748 | grid columnconfigure $f 0 -weight 1 |
|---|
| 749 | } |
|---|
| 750 | |
|---|
| [e4c69c1] | 751 | proc ::TolPkgGUI::CreateTree { t } { |
|---|
| [5b6b63c] | 752 | variable widgets |
|---|
| 753 | |
|---|
| [e4c69c1] | 754 | CreateTreeWidget $t |
|---|
| [5b6b63c] | 755 | |
|---|
| [e4c69c1] | 756 | menu $t.cmenu -tearoff 0 \ |
|---|
| 757 | -postcommand [ list ::TolPkgGUI::PostContextMenu $t $t.cmenu ] |
|---|
| 758 | $t configure -contextmenu $t.cmenu |
|---|
| [00c4270] | 759 | } |
|---|
| 760 | |
|---|
| 761 | proc ::TolPkgGUI::PostContextMenu { T w } { |
|---|
| 762 | variable nodesInfo |
|---|
| [e83ccac] | 763 | variable packSyncInfo |
|---|
| 764 | variable versSyncInfo |
|---|
| [2d896ea] | 765 | variable localVersionInfo |
|---|
| [e83ccac] | 766 | variable localMostRecent |
|---|
| [00c4270] | 767 | |
|---|
| 768 | $w delete 0 end |
|---|
| 769 | array set selectionInfo { |
|---|
| 770 | repo "" |
|---|
| 771 | pkg "" |
|---|
| 772 | pkgver "" |
|---|
| 773 | } |
|---|
| 774 | foreach nid [ $T selection get ] { |
|---|
| 775 | lappend selectionInfo($nodesInfo($nid,type)) $nid |
|---|
| 776 | } |
|---|
| [e83ccac] | 777 | $w add command -label "[ mc {Add New Repository} ]..." \ |
|---|
| [00c4270] | 778 | -command ::TolPkgGUI::AddNewRepository |
|---|
| 779 | set lenRepo [ llength $selectionInfo(repo) ] |
|---|
| 780 | if { $lenRepo } { |
|---|
| 781 | $w add cascade -label "[ mc {Check Repository} ]" \ |
|---|
| 782 | -menu $w.check |
|---|
| 783 | if { [ winfo exists $w.check ] } { |
|---|
| 784 | $w.check delete 0 end |
|---|
| 785 | } else { |
|---|
| 786 | menu $w.check -tearoff 0 |
|---|
| 787 | } |
|---|
| 788 | if { $lenRepo > 1 } { |
|---|
| 789 | set labelCheck [ mc "Selected" ] |
|---|
| 790 | } else { |
|---|
| 791 | set labelCheck [ $T item text [ lindex $selectionInfo(repo) 0 ] 0 ] |
|---|
| 792 | } |
|---|
| 793 | $w.check add command -label $labelCheck \ |
|---|
| 794 | -command "::TolPkgGUI::CheckRepository $labelCheck $lenRepo" |
|---|
| 795 | $w.check add command -label [ mc "All" ] \ |
|---|
| 796 | -command "::TolPkgGUI::CheckRepository ALL -1" |
|---|
| 797 | } |
|---|
| 798 | $w add command -label [ mc "Sync with servers" ] \ |
|---|
| 799 | -command "::TolPkgGUI::SyncServers" |
|---|
| 800 | $w add separator |
|---|
| [2d896ea] | 801 | # preprocess selection of packages |
|---|
| 802 | set listNEW {} |
|---|
| 803 | set listUPD {} |
|---|
| 804 | set listUPG {} |
|---|
| 805 | set listEXP {} |
|---|
| 806 | |
|---|
| 807 | # process first the list of pkg |
|---|
| 808 | foreach nid $selectionInfo(pkg) { |
|---|
| 809 | set pkg [ $T item text $nid 0 ] |
|---|
| 810 | array unset pkgInfo |
|---|
| [e83ccac] | 811 | if { [ info exists packSyncInfo($pkg) ] } { |
|---|
| 812 | array set pkgInfo $packSyncInfo($pkg) |
|---|
| 813 | } else { |
|---|
| 814 | set pkgInfo(lastremote) $localMostRecent($pkg) |
|---|
| 815 | } |
|---|
| [2d896ea] | 816 | switch -exact $nodesInfo($nid,status) { |
|---|
| 817 | "new" { |
|---|
| 818 | lappend listNEW $pkgInfo(lastremote) |
|---|
| 819 | } |
|---|
| 820 | "upgrade" { |
|---|
| 821 | lappend listUPG $pkg |
|---|
| 822 | } |
|---|
| 823 | "ok" { |
|---|
| 824 | } |
|---|
| [e83ccac] | 825 | "unknown" { |
|---|
| 826 | } |
|---|
| [2d896ea] | 827 | default { |
|---|
| 828 | puts "unexpected status $status for pkg $pkg" |
|---|
| 829 | } |
|---|
| 830 | } |
|---|
| [be70fb2] | 831 | lappend listEXP [ list $pkgInfo(lastremote) $nodesInfo($nid,status) ] |
|---|
| [2d896ea] | 832 | } |
|---|
| 833 | # next process the list of pkgver |
|---|
| 834 | foreach nid $selectionInfo(pkgver) { |
|---|
| 835 | set pkg [ $T item text $nid 0 ] |
|---|
| 836 | switch -exact $nodesInfo($nid,status) { |
|---|
| 837 | "new" { |
|---|
| 838 | if { [ lsearch $listNEW $pkg ] == -1 } { |
|---|
| 839 | lappend listNEW $pkg |
|---|
| [00c4270] | 840 | } |
|---|
| 841 | } |
|---|
| [2d896ea] | 842 | "update" { |
|---|
| 843 | lappend listUPD $pkg |
|---|
| 844 | } |
|---|
| 845 | "ok" { |
|---|
| 846 | } |
|---|
| 847 | default { |
|---|
| 848 | puts "unexpected status $status for pkg $pkg" |
|---|
| 849 | } |
|---|
| [00c4270] | 850 | } |
|---|
| [be70fb2] | 851 | if { [ lsearch $listEXP $pkg ] == -1 } { |
|---|
| 852 | lappend listEXP [ list $pkg $nodesInfo($nid,status) ] |
|---|
| [2d896ea] | 853 | } |
|---|
| 854 | } |
|---|
| 855 | # install list |
|---|
| 856 | if { [ llength $listNEW ] == 1 } { |
|---|
| 857 | $w add command -label [ mc "Install %s" [ lindex $listNEW 0 ] ] \ |
|---|
| 858 | -command [ list ::TolPkgGUI::InstallPackage [ lindex $listNEW 0 ] ] |
|---|
| 859 | } elseif { [ llength $listNEW ] > 1 } { |
|---|
| 860 | $w add command -label [ mc "Install selected" ] \ |
|---|
| 861 | -command [ list ::TolPkgGUI::InstallPackage $listNEW ] |
|---|
| [00c4270] | 862 | } |
|---|
| 863 | $w add command -label "[ mc {Install ZIP} ]..." \ |
|---|
| 864 | -command "::TolPkgGUI::InstallZip" |
|---|
| [2d896ea] | 865 | # update list |
|---|
| 866 | if { [ llength $listUPD ] == 1 } { |
|---|
| 867 | $w add command -label [ mc "Update %s" [ lindex $listUPD 0 ] ] \ |
|---|
| 868 | -command [ list ::TolPkgGUI::UpdatePackageVersion [ lindex $listUPD 0 ] ] |
|---|
| 869 | } elseif { [ llength $listUPD ] > 1 } { |
|---|
| 870 | $w add command -label [ mc "Update selected" ] \ |
|---|
| 871 | -command [ list ::TolPkgGUI::UpdatePackageVersion $listUPD ] |
|---|
| 872 | } |
|---|
| 873 | $w add command -label [ mc "Update all" ] \ |
|---|
| 874 | -command "::TolPkgGUI::UpdatePackageVersion" |
|---|
| 875 | # upgrade list |
|---|
| 876 | if { [ llength $listUPG ] == 1 } { |
|---|
| 877 | $w add command -label [ mc "Upgrade %s" [ lindex $listUPG 0 ] ] \ |
|---|
| 878 | -command "::TolPkgGUI::UpgradePackage [ lindex $listUPG 0 ]" |
|---|
| 879 | } elseif { [ llength $listUPG ] > 1 } { |
|---|
| 880 | $w add command -label [ mc "Upgrade selected" ] \ |
|---|
| 881 | -command [ list ::TolPkgGUI::UpgradePackage $listUPG ] |
|---|
| 882 | } |
|---|
| 883 | $w add command -label [ mc "Upgrade all" ] \ |
|---|
| 884 | -command "::TolPkgGUI::UpgradePackage" |
|---|
| [00c4270] | 885 | # export options |
|---|
| [2d896ea] | 886 | $w add separator |
|---|
| 887 | if { [ llength $listEXP ] == 1 } { |
|---|
| [e4c69c1] | 888 | $w add command -label [ mc "Export %s" [ lindex [ lindex $listEXP 0 ] 0 ] ]... \ |
|---|
| [2d896ea] | 889 | -command [ list ::TolPkgGUI::ExportPackageVersion [ lindex $listEXP 0 ] ] |
|---|
| 890 | } elseif { [ llength $listEXP ] > 1 } { |
|---|
| [e4c69c1] | 891 | $w add command -label [ mc "Export selected" ]... \ |
|---|
| [2d896ea] | 892 | -command [ list ::TolPkgGUI::ExportPackageVersion $listEXP ] |
|---|
| 893 | } |
|---|
| [e4c69c1] | 894 | $w add command -label [ mc "Export all" ]... \ |
|---|
| [2d896ea] | 895 | -command [ list ::TolPkgGUI::ExportPackageVersion ] |
|---|
| [e83ccac] | 896 | # SyncInfo import/export |
|---|
| 897 | $w add separator |
|---|
| 898 | $w add command -label [ mc "Import SyncInfo" ]... \ |
|---|
| 899 | -command [ list ::TolPkgGUI::ImportSyncInfo ] |
|---|
| 900 | $w add command -label [ mc "Export SyncInfo" ]... \ |
|---|
| 901 | -command [ list ::TolPkgGUI::ExportSyncInfo ] |
|---|
| 902 | |
|---|
| [00c4270] | 903 | } |
|---|
| 904 | |
|---|
| 905 | proc ::TolPkgGUI::AddNewRepository { } { |
|---|
| 906 | } |
|---|
| 907 | |
|---|
| 908 | proc ::TolPkgGUI::CheckRepository { repo length } { |
|---|
| 909 | } |
|---|
| 910 | |
|---|
| 911 | proc ::TolPkgGUI::SyncServers { } { |
|---|
| [e4c69c1] | 912 | variable tree |
|---|
| 913 | update |
|---|
| [e83ccac] | 914 | ::TolPkg::UpdateRepositoryInfo |
|---|
| [e4c69c1] | 915 | $tree item delete all |
|---|
| 916 | FillTreeInfo $tree |
|---|
| [00c4270] | 917 | } |
|---|
| 918 | |
|---|
| 919 | proc ::TolPkgGUI::InstallPackage { p } { |
|---|
| 920 | } |
|---|
| 921 | |
|---|
| [2d896ea] | 922 | proc ::TolPkgGUI::InstallZip { } { |
|---|
| 923 | } |
|---|
| 924 | |
|---|
| [00c4270] | 925 | proc ::TolPkgGUI::UpgradePackage { {p ""} } { |
|---|
| 926 | } |
|---|
| 927 | |
|---|
| 928 | proc ::TolPkgGUI::UpdatePackageVersion { {p ""} } { |
|---|
| 929 | } |
|---|
| 930 | |
|---|
| [e83ccac] | 931 | proc ::TolPkgGUI::ImportSyncInfo { } { |
|---|
| 932 | } |
|---|
| 933 | |
|---|
| 934 | proc ::TolPkgGUI::ExportSyncInfo { } { |
|---|
| 935 | } |
|---|
| 936 | |
|---|
| 937 | ## |
|---|
| 938 | # Export packages -- |
|---|
| 939 | # |
|---|
| 940 | # p == "" then the last installed version of every package is |
|---|
| 941 | # exported, |
|---|
| 942 | # |
|---|
| 943 | # [ llength $p ]>0 then all specified package is exported, if some |
|---|
| 944 | # packages is not installed then it is requested from the remote |
|---|
| 945 | # repository. |
|---|
| 946 | # |
|---|
| [2d896ea] | 947 | proc ::TolPkgGUI::ExportPackageVersion { {p ""} } { |
|---|
| [e83ccac] | 948 | |
|---|
| [5b6b63c] | 949 | } |
|---|
| 950 | |
|---|
| 951 | proc ::TolPkgGUI::Show { } { |
|---|
| 952 | set w .tolpkg |
|---|
| 953 | |
|---|
| 954 | if { [ winfo exists $w ] } { |
|---|
| 955 | raise $w |
|---|
| 956 | } else { |
|---|
| 957 | toplevel $w |
|---|
| 958 | wm state $w withdrawn |
|---|
| [e4c69c1] | 959 | CreateTree $w.tree |
|---|
| 960 | FillTreeInfo $w.tree |
|---|
| [5b6b63c] | 961 | wm state $w normal |
|---|
| 962 | } |
|---|
| 963 | } |
|---|
| 964 | |
|---|
| 965 | proc ::TolPkgGUI::test { } { |
|---|
| [e4c69c1] | 966 | destroy .tolpkg |
|---|
| 967 | ::TolPkgGUI::Show |
|---|
| [5b6b63c] | 968 | } |
|---|
| 969 | |
|---|
| 970 | if { 0 } { |
|---|
| 971 | ::TolPkg::UpdateRepositoryInfo |
|---|
| 972 | ::TolPkgGUI::test |
|---|
| 973 | } |
|---|
