153 lines
10 KiB
Tcl
153 lines
10 KiB
Tcl
######################################################
|
|
# Rac GUI
|
|
# Distributed under GNU Public License
|
|
# Author: Sergey Kalinin svk@nuk-svk.ru
|
|
# Copyright (c) "http://nuk-svk.ru", 2018, https://bitbucket.org/svk28/rac-gui
|
|
######################################################
|
|
#
|
|
# Base64 Images library
|
|
#
|
|
######################################################
|
|
|
|
image create photo del_color_32 -data {
|
|
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAADL0lEQVRYhb3XT2geRRgG8F+Wj1KL
|
|
SAgSi0i3BI9SihY8qNWlVkSKoHjwUFRUlJVYqBexIoXWKDUK4sHFfwi9+Ocg6kFEGxfBo0ooHkoQ
|
|
zcaSk5SQQwmhFA+zm4ybL+2XfF/6nGbe2ZnnmXd23nnfIT0iy6sO7sZB3I4xDCPBImYxjRJnyiJd
|
|
6mXdoR6Ib8SLeBY396h3AacxWRbp+U0JyPIqwQs4Kex0M1jCW5goi3S5ZwFZXg3jMzzYZcEzgpvP
|
|
Ca5PcAN24148UPdj/I5HyiKdu6qALK9GMYXbIvMFTOLDskgvdBMdzb8eh/EqbomGzuNgWaTn1hVQ
|
|
7/xn7InMX+H5skj/vRLxOkJOCcfYYB53lUU6u0ZAfebf4FA04ThOlEW6Ee62kCfwCTq16SzubG5J
|
|
En37XIv8tbJI+yKHskhP4xlcrk17hI1ZEVC7fiKa9zVe74t5rYj3ItNLWV6NrQjAOEbq9iLyfnfe
|
|
Ba8IwQq24WUYqs/+b+yqB0+URXp8zfQBIMurp/Bp3b2ImxLsi8gv4YOtIK/xOZrbtAOHEtwXffBL
|
|
WaTzW8Ve//nfRqYDHdwRGabak+r73A+WyiK9FOvA03V7b0cIoQ3+7LLAPzb/FsCTwsPUYCZq705a
|
|
i/f0hPaJmKOTrPvZNUKTTDTYfg04Y47ljhAc9tWGW7tMmMR1fRCebfVjjrkOfsNjtSHTCsFlkb7R
|
|
B3k3ZFF7OsFPkWF/llc7B0y4ypxX2/BwZJpK8KvVGN1BvlUC8DhG6/ZFfJeURXrZ/8PvkTorGiiy
|
|
vNoueobxZVmki801fN9qjB5GkeXVoDW8KaTysFz3w3NcFumikMM1eBTHBsVcZ0VHItO7ZZHOrAio
|
|
8TG+j/oTWV4d69cTWV4dxkcR1x+io2gnpSNCUhpnxJtNSncIbh6PyOdxT1mkf3UVUE/ciR+tTctP
|
|
CWn5Qg/ETVq+Kxqax4ErpuXRIiP4Ave3hpbwg/BszwhXiRBex4TC5CFrC5NpoTCZbXNdrTQbF0qz
|
|
9oK9Yglv4+SGSrOWkFEcFZKIXuNDU5y+060c25CASEgH+4XyfK/g8hHhB1vAnODqKRsoz/8DULTt
|
|
03QnJjkAAAAASUVORK5CYII=
|
|
}
|
|
image create photo add_color_32 -data {
|
|
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAADcklEQVRYhb3XT2gdVRQG8F+HR6yl
|
|
lBJKKCKdUtwIUopWXKjVR62IFEFxIRJc+JeRtCgIokXEVltqKnbloOCmG/8sRAu60MZBcakSiotS
|
|
tOTFGlxICSmUEEpxce+Qm8l7zUua9oOBmTPnnvPNvXPP/c4afaJddFq4D3twJ7ZhIzLMYALjqHCq
|
|
KvPZfuKu6SPxJuzD87ilT77TOIHRqszPr4hAu+hkeBmHhC9dCWbxPt6rynyubwLtorMRn+GRLgFP
|
|
CdN8Rpj6DBuwFQ/g4fic4nc8XpX55JIE2kVnCGO4IzFfwCg+qcr8QjfSyfj1GMYB3Jq8Oo89VZmf
|
|
6UkgfvlP2J6Yv8JLVZn/d7XEPYgcFZaxxhTurcp8YhGBuObfYG8y4G0crMp8ObmbRJ7Bp2hF02nc
|
|
U++SLPF9sZH8rarMryk5VGV+As/hSjRtFz4McQbi1P+FwWj/WvhpugZtF50N0T/F0arMj/Ui0i46
|
|
H+KV+DiH26syP1fPwEiSfAbFEl+eYVPjWne1AXhDKFYwgNchi2v/QuJ4vCrzf5cItmzENX8nMQ23
|
|
i876DDuxJRov4+PVTp7gc9S7aR32ZngwcfilKvOp65U9zsLJxLS7hbsSw1hzUNzPTXRb75t6+M5W
|
|
ZX455YFn4/2OTCihNf7sEuBvXGxc/3Txe7OL30U83fA7m9xvzSw8aPo6Qq8RaY5W1tPtBqEWEzXW
|
|
3oCcaY65llAcdkbDbV0GjOLmLkFea9h+jlcTpxvPaY7JFn7Dk9HQxrupd1Xmh5sRY+luEhiryvxg
|
|
FwKLhif34xl+TAy72kVncx9BVoR20RnAY4lpLMOv5mt0C8X1IoCnMBTvL+G7rCrzKxaW3/1RFa0q
|
|
2kVnreQYxpdVmc/U2/Aj8zV6I8p20VltDkcEKU84jo8QBUlV5jOChqvxhFDZeuGSIDLS62Qv56iK
|
|
9iem41WZn2WxJPvWQiV8AIevUZINC5JsIJr+wN21JGuK0kFBlKaKeKWidJ0wzSPmpd8U7q/K/Fzt
|
|
102Wb8YPFsvyo4Isn+4jcS3LtySvprD7qrI8CTKIL/BQ49UsvheO7bPCv0CojNuExuRRixuTcUFj
|
|
TjRzLdWajQitWTNgv5jFMRxaVmvWIDKEVwUR0W99qJvTD7q1Y8sikBBpYZfQnu8QpnxQ+MGmMSlM
|
|
9ZhltOf/AyB7DdqGFSIqAAAAAElFTkSuQmCC
|
|
}
|
|
image create photo quit_color_32 -data {
|
|
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAD1UlEQVRYhaXXTYhWVRgH8J+XYRgk
|
|
YhjCJMIrFlEQIn0uKuvFjCjTsk2BRVQUb5hUm6ghBKXELGrVpcAEN2qSVJBkzngLgjYZEi1EynxF
|
|
ZhUisxgGCWlxznXO3Pdz9Fndez6e//885znPxyIDSqPZGsL9WIs7sAKjyDCNMziBEhNlkc8OonfR
|
|
AMDX4XW8jBsG5HsBe7GrLPJzV0Sg0WxleA3bhZNeicziQ7xfFvnFgQk0mq1R7MOjHRROCGY+KZg+
|
|
w7VYjgfxSPxP5Xc8VRb52b4EGs3WEkzi9mT4PHbhi7LIz3ciney/BpswjhuTqXNYWxb5ya4E4sl/
|
|
xspk+BBeLYv8317AXYjsFK6xkincVxb5mTYC8c6/xbpkw1ZsK4t8Idh1Is9jN4bi0B+4t3olWbL2
|
|
lRr4e2WRXxU4lEW+Fy/hUhxaKRwM0QLR9H9jLI5/IzhNepL1UeF3vQAbzdaYcP/jaSxoNFuf4I34
|
|
exG3lUV+urLA5gR8Gs0a+EYcxMH43Qv8CN7C141maySZfkcIVjCMt2FRvPt/sCxObiuL/LKJIuC+
|
|
uKli/2xZ5Idq4KM4iruS4cN4urJEo9l6AXvi3Ayuz+KGCvw/fF472LD5vjKMfakluoDDSG3vflSv
|
|
aTHWZXgoWfBLWeRTqYayyPfjuUiujUQP8GN4oizymUTXLFIfWpPhzmRgUgfpRQK/DgKeqku+V2VC
|
|
CK3kr04E+pC4dQHgcCr5Xp6Zn2h6ptAuJBYCXscYyrou6y4/4HSXuT19wNukKiYqGem2kHnefkuX
|
|
Jbt7xYkOGBczc8EBbu4DfkS7w6VSvY4ne6xJMc5mOJ7i9AG/pzZ1TIjzdcc80INEinEii0oqWd1o
|
|
tpZ2AD/aAXxCcLgvdX4dB+rX0Wi2hrE+GZrM8Ju5axhCswa0VbvZJ7ChcrgeT3R3zA+VPIMl8XsG
|
|
h7OyyC+ZH363xKqokvEI2BG8kg4kZoSMej6efkSShvFVWeTT1TP8zFyMHkXRaLYqxTPYEIE7gncg
|
|
MY3HyyL/KZneIZTyhIS2g5goyiKfjietZCPeTRRXJLqC10jclILHqmhLsuzTsshP0V6SfW9+JTyO
|
|
D66yJNsklGRVOv8Td1cpul6UjglFaVoRX2lRulgw82ZzKXkKD5RFfjmSdirLlwrPrl6W7xTK8gsD
|
|
AFdl+bJkagprepbliZIxHMDDtalZ/Cik7VOCpxPC6wqhMXlMe2NyQngRZ+pY/VqzzUJrVlc4qMzi
|
|
I2xfUGtWI7IEb+JFc0Gkn1TN6ced2rEFEUiIDGG10J6vEkw+JjjYBZwVTD1pAe35/6xSeWLqUcxY
|
|
AAAAAElFTkSuQmCC
|
|
}
|
|
image create photo add_grey_32 -data {
|
|
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAQAAADZc7J/AAAAAmJLR0QA/4ePzL8AAAAJcEhZcwAA
|
|
CxMAAAsTAQCanBgAAAAHdElNRQfiBRMNAgAn+pb5AAACq0lEQVRIx6XVQWhcVRQG4G9uhxhDCEMo
|
|
sYiUENwURIp2cKG2lhoRqUrAhUhwUZTySiqtCGKDFBttiGnRlRcL3bjRuhAN6EI7xlaXo8TiohRb
|
|
xrQNXYQSp1DGtBQX8/omyUxiBv+7eJdzz/nvf9979z85LZDkPWHQIwYUBFUVM6adjrXm3FxT8Ub7
|
|
veb+FrwLPjMZr6xBkAT7jClYHTUf+iAutiRICj73bJZ42rTzqoIe/XZ4Rk+69puhONtEkPQpeQhc
|
|
N+lEvL7iaN2GjXoAXDEYzy8jSArOeBh8ZW+cb60/6TZhH5jzeKxkBEnwjd3gsCPRWkhedVIe5zwW
|
|
a2yA4l5vgnfjWNnaKP9e/MuLcu6TL5fIkRRc1IuvDS3dPelxMZ1OxGPLVHzkABZtiZcCRvSiKlkh
|
|
PtiYjq4VMt5RQYe3CUnwOvg4XrNOxJr3wHDSHWyzGbd9qh18YR5ddgdPgV/iXDv1sWYK7Mp7FJSW
|
|
fOu7aJz8niXRWrwNpu3B1qAf/JklXHYjHVez2KEsdsMraewC6A/p1alpF/WKfPA/EVRBZ9uV9YrF
|
|
vIpteDBbmHRvlvJWOjvrbLZ+Ln3WK2bzfvUSdno//UBHl/jDXYJSPNKkYCeYCX4E25NN7ehPOrxQ
|
|
pw7KKshL2noDL+vDTd+FeCf9id9I+ta9f6fD4MtYDfjEPAriukWMG8CicTZQ/qf4t+exxa3yz42s
|
|
4h0VU6ZM+al8bZknjcvheDzVsLRvUz8edfQ/LG3YSR34QzHWGqba60zqyWuZapdxIwLmPBkvLbf1
|
|
TX7IbH3CibjQVDxs1ObUk3etsPVUxSlPZ1fleyUX3ESnATs8lzWWGUN1S2/V2kaMZYmt7+AxY6u0
|
|
tqxDHbRH3yrN9Xijqa1CkLb37QZtNaBXsGDWjFLr9v4vHrjOsVtf4isAAAAASUVORK5CYII=
|
|
}
|
|
image create photo del_grey_32 -data {
|
|
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAQAAADZc7J/AAAAAmJLR0QA/4ePzL8AAAAJcEhZcwAA
|
|
CxMAAAsTAQCanBgAAAAHdElNRQfiBRMNDzSz4BwBAAACeklEQVRIx6XVT2hcVRgF8N/cPEpaShmD
|
|
pKVICKEbQaRoxwra1hIjIlUpuBAJVYpQbo2CbkSKFJpqqLFbLxZF6EKtC7EuXGjHUOpy1FhclCI6
|
|
jSWrUOMswpgGcTHP1z+ZjDN4Nm9xv3Pu9973vnNK2iBmHjbmPiPKgoa6WTPOpebq2tIq8p1e9qKt
|
|
bXQXnTadrnYQiMFhk8rWRtM73krLbQVi2SceLwrPmXFJQ7DJsD0esyk/+8H+NLdKIA6qugdcM+1U
|
|
unbbq2007oi7wFVj6dItArHsvHvB5w6lhfb9x41OOAzmPZTqhUAMztoHjjqWdEI84EMZLtqZmvRB
|
|
5ZDXwJtpsqYzaj9VrnhayWZZrUofseys9fjCS/9FzyXu8CAeqHxc+yNgwgAaYtIl3lDHOq9TisFv
|
|
hnAsHdU14gs+wpLNwQ5DWPG+XvCpBWywL3gEfJfme+Gnpi/BaOZ+UL1p1p3RTCtgxkFszwyDX4qC
|
|
3zvuAs87DS6D4ZCXN/WKFiML/ieCBujvmdliLGfqdmBbcTBtfUfixfzZYsxlvvcM9jqeD+jtLjvY
|
|
C2aDb8HuuKWX/uM6T7XGH9TUkYk9fYFnDWLJVyH9nf/Er8TBru/v19qbz1Ij4D0LKEtdNzFlBMum
|
|
6KP2V+VPT+Ju12sXurj/gCklnExn/nWkH+20DaOV65ULnU0ljvtAhp89V1u5YaoDzuee3MlUN5gy
|
|
IWDervTrrba+xTeFrZ9wKi2uIo87Yij35NHbbD3v4oxHi1X5WtVlS+g3Yo8nimCZtb9l6e2ibcJk
|
|
Udh+B981uUa0FQn1qoMG1wjXkzdCbQ2BPN53G7PdiAHBojmzqu3j/R95LLjoltEzPgAAAABJRU5E
|
|
rkJggg==
|
|
}
|
|
image create photo quit_grey_32 -data {
|
|
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAQAAADZc7J/AAAAAmJLR0QA/4ePzL8AAAAJcEhZcwAA
|
|
CxMAAAsTAQCanBgAAAAHdElNRQfiBRMNDyCpOsh8AAADBklEQVRIx4XVQWhcVRTG8V9eQ4ihlDGU
|
|
tIiEEERdiBTtVEFtlRoRbRtTNwqxiIrl1ijYTZEggUYb2urWi4UYcGEai8UKFmsmjRXBzSipuKhF
|
|
agwlqxBDFkMIQVzMy8vMZBLPZpj37v97555z73ca1InQ6HFdHtIpJ7Fo2pRJhbi0fm3DOni7t73h
|
|
rjq6Cz53Nt7eRCAkjhmUs3EsOePDuFxXIOSMejZbWDDphkWJbTrs84xt6btf9cSZdQKhzYQHwLyz
|
|
zsX5mq1t1avf3eC2rnijSiDkXPMguOhonKuff9jqtGNg1mNxOhMIiUsOgAEno80iHDGsEb95JC6x
|
|
BfJHHQfvx8GizaN4Pf+3bg12aCxOsIWQc8kd+NpbZTwcyt9X/KPmy635D/I/FlcoXs/f6VHsyX9R
|
|
/CdBn1YsCuXkw2EXXAiHq3FXHPdVaAbvmUaTEzSExF/acTIOpPioJix7OV7MSjxuN7jsxbhEeNUI
|
|
SnYkdmvHik/TjzVJ0t/RchYVOM3p2/Pm0OJA4knwU5wtr4jnvWJlTaIKv+pgLEFc8g3Yn3gYTKzt
|
|
t1rCz+txMAl2JTrAn5Ulq5K4vy7OTdCRpFen5qJWSNTHV4nGZMMT851bFf9GavAsEotpdauPTc64
|
|
eyseDFefi4xYTkyDe2rwK1npZB15oepJmZhJ/AKeqsH3ZHt/PSvnWJVEmZhKXAV7w86K5FfxgoPx
|
|
s4qOjK1uJDQ5VG5/omgajUIKDWTJF3THUk1Th0MreEkbSi4n8d/0EL8T2kC/QiVe1dSSnjhPaDYA
|
|
voyLCT4xh5wYEEu6FSrxTGLR8/EHMKQTy4ZWHenNNIv+eApCC+v7HraXrS4cMSLBmXhizdK+Tf24
|
|
36n/sbRew5rwu3xcWjPVVtdST97MVFsM6ZNg1hPxVrWt7zSe2fpp5+LCOrhXv/bUk/fX2HqaxZin
|
|
s6vyvQk3ldCs0z7PZYNlSk/Z0uuNtj6D2cL6o+0jgxuMtmxCves1bRsM14/XhtoGAul436vLLp1a
|
|
JRbMmDJRf7z/Byu+Db3fX4/0AAAAAElFTkSuQmCC
|
|
}
|
|
image create photo add_grey_24 -data {
|
|
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAQAAABKfvVzAAAAAmJLR0QA/4ePzL8AAAAJcEhZcwAA
|
|
CxMAAAsTAQCanBgAAAAHdElNRQfiBRQKBQWASdqNAAACXklEQVQ4y3WUT0gUcRzFP99pCREZNtuW
|
|
xYNIf2ARo1iwgiCidNOEDh0kSQo7zXSwNCgiJMJDRJB06bdL2KU0r2mIsEFRRCJ7TUQ2WUoMZIWl
|
|
xEMs++2wu+POZr/TzHfee/N+7/dmBN9ym4lzjjbCWORYJMWcZhJVCPGgENER6SXklyCv03KfrCnf
|
|
BrwHcZLSAhT4qAv8FIt9GpPTBOUKcR1iyvcGt1+fU8cmCRkza9vyTkiu6w0a5Q93eWJKBAc5wwz1
|
|
ZLhM2hRrdoW2ygRHKXCVSYOAG9HP7JcM3SbDjsttYkZjsq4nExkB9ymDuimdZt4zMsogkOVIJR83
|
|
qp8IyRR9ltvEJeAFC1XR1YsttthieaMlGRM4T9SigzBFxmq9A6g3M/CMLWy9YHEWmE9k/UBFUR/Z
|
|
5JlT6AzQChU7zii7AeQUgAZ55JRyHzfLwBe5SGuAMLBRlrkpDXjKEuR2+fI9y6B5Advin57IztmW
|
|
5wFy2sze8uw79QA0YoMWZBUUQbcACAK/AiwS41iZcFgRQB/LMMgqh7QIipTSOg4sBkhJv55wWhJZ
|
|
qETrVFwUtovtBukCUhbvWBdLhtzq3VTyt6oa5dDApr61zJpOgl7zbLEDEaJyC5hlyQJ5yIo08NI5
|
|
6OUxTg89DHj6EX1NSHPcSxRL9Y7rG6n7X72J6oTEKDDAK8MuSJP+1v5DuwnTx572r+nfVfCQDktS
|
|
DlDgDknj+6a7SNIMFPjAvG4Iaks7HdQB6zokk8Z/rA40yQi9NGrVWSvkZVofyIqp/WuUSNJCnE7a
|
|
iCiS0yVJ6axkTBXmLzyb1mPlnZFTAAAAAElFTkSuQmCC
|
|
}
|
|
image create photo quit_grey_24 -data {
|
|
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAQAAABKfvVzAAAAAmJLR0QA/4ePzL8AAAAJcEhZcwAA
|
|
CxMAAAsTAQCanBgAAAAHdElNRQfiBRQKBRoNQdd4AAACzklEQVQ4y22UTWhcVRTHf/+bGIZpCbFN
|
|
hyHGEKqLGAuGmjdW3IhtYxPaSkGLRakICu8GsaRdiIsiXYrQIEjvG4qfxdiNUFq1yoifaGp4q4DB
|
|
xbOUKhXiBIKNJUyHHBdJpjPBszvn/M/H/9xzj2gR38cIT7KDAo4qc1T40rKkCaEGFIp2Uofpbk3B
|
|
ol3UG1wLa2p7wzFCWf1AnR9shr/k2GY79ThdOsqITXC+pYJ/3s6SY4lEk+HGnfRxt8btGFtU43VO
|
|
h9WAGD3BJfJkPEcaVjawwgb1MUPUeYGpgMAX7Se2K2M0ZPyv+B4u2U7N22NJJvBv86otaW+4AnFJ
|
|
BzgV6o2WnqaoM2HFD9iPdOs8R9p8D++wiUTvpeZL+pQx2xp9m9bBu+gpndMo/0a/8Lfu0m76uODY
|
|
Q4EVJsMK8Ay9OMZ5y7cD+/mQPB28TEeAM9yi0w62Rcd5iOnkNED0vW3TMKKknuFNfMRmYJaxZAHS
|
|
5ehhewA5BoGZ1Y5DTSdIQPCS3ldeaJZDyfU1QtNCg44CsLBOMtziGB8AkAMyO5BcXffZItDpNo4w
|
|
1PSVLa9BftaNjVvkqBq2tTFxFx/kXeXWIEeZ9LlGRBfwj2MOKDWM+zlHHshsyjBsnDfj9X17BJhz
|
|
VAS74v7VZ7JP1AnMslsvKhFyvKIQt4PvYh9QcXzNvJwmvAN61Q42a4fC9VCzEySAsz45j8VsZsk+
|
|
a0tvDt+jXfagvkn/jGa4TS9jyTWA9HZU4V6qejYsRQM6S54LlAW+wDTbyWw0yWJHR7LctHYdEGq+
|
|
aJc1ZFU9GjIHNo+3Ze7XZV8SzXAINWp+wD7XEHVNkEEbpKS/R3/YKAWOcHf0a3qzqUK3HVdZ91Hn
|
|
Ncqh5U/vo0wfUOc7rtiCsE5F7CEHzNuEpkLrEYihRyc5zBa7Y8RgURftlK6GjVdjNUj9jLCXHRQN
|
|
Ve03VewLZaEJ8x+41wfP/ZumbAAAAABJRU5ErkJggg==
|
|
}
|
|
|