Here a little example of the power of ttk::style
I wanted to add an image on this page, failed miserably. If anyone knows their way around the wiki please clean this up!

Run the code to see this image below:
http://wiki.tcl.tk/41618

Code works fine in 8.5/8.6 
It uses a checkbutton, button, radiobuttons and ttk::frames all with the same  images to get the job done. The ttk buttons could use their own images to make this really neat. All buttons and the frame look the same and blend to make a smooth toolbar. Bulk of the code is just the inline images in the MakeImages proc.

proc main {argc argv} { 
    MakeImages
    #Make the new styles - one for all buttons, one for the frame.
    ttk::style element create ToolbarGradientButton image \
    {ToolbarGradientBG readonly ToolbarGradientBG selected RadioGradient pressed RadioGradient {hover !disabled !readonly} RadioGradientFade disabled ToolbarGradientBG} \
    -border 0 -sticky nsew
    
    ttk::style layout ToolbarGradientButton.TButton {
        ToolbarGradientButton -sticky nsew -children {
            EasyRadioButtonInvis.border -sticky nsew -children {
                Button.padding -sticky nsew -children {
                    Button.label -sticky nse 
                }
            }
        }
    }
    
    ttk::style element create ToolbarGradient.image image ToolbarGradientBG -sticky ew -border {2 4}
    ttk::style layout ToolbarGradient.TFrame [list ToolbarGradient.image -sticky nsew]
    
    #Make the toolbar frame
    ttk::frame .fm -style ToolbarGradient.TFrame
    
    #Add the buttons for it - all using the same style!
    ttk::checkbutton .fm.cb -style ToolbarGradientButton.TButton -text "Radio on/off"
    ttk::button .fm.b -style ToolbarGradientButton.TButton -text "Search"
    
    set rb 1
    ttk::radiobutton .fm.rb1 -style ToolbarGradientButton.TButton -value 1 -text "Radio FM1" -var rb
    ttk::radiobutton .fm.rb2 -style ToolbarGradientButton.TButton -value 2 -text "Radio FM2" -var rb
    ttk::radiobutton .fm.rb3 -style ToolbarGradientButton.TButton -value 3 -text "Radio FM3" -var rb
    
    #Pack it all together
    foreach button [list .fm.cb .fm.b .fm.rb1 .fm.rb2 .fm.rb3] {
        pack $button -side left
    }
    pack .fm -expand 1 -fill x -anchor n
    
    wm geometry . 800x[image height ToolbarGradientBG]
    
    #Play with it!
}
    
#Make some fancy images

proc MakeImages {} {
    set data1(im_ToolbarGradientBG) { 
    R0lGODlhKQAyAPcAANzn9d3o9d/p9uDq9uLr9+Ps9+Tt9+Xt+Obu+Ojv+enw+evy+uzy+u70+/D2+/H2/PP4/PT4/fb6/ff6/vj7/vj8/vr9/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAAKQAyAAAI/wAtCBxIsKDBgwgLVljIsKHDhxAjSpxIsWJDChgzatzIsaPHjRNCihxJsqTJkyhTqlw5UoLLlzBjypxJM2aEmzhz6tzJs6fPn0CDCh1KtKhRoBCSKl3KtKnTp0wfSJ1KtarVq1izat3KtavXr2DDbnVAtqzZs2jTqj3boK3bt3Djyp1Lt67du3jz6t3L1y6Dv4ADCx5MuLDhw4gTK17MGPCCx5AjS55MubLly5gzR1bAubPnz6BDix5NurTp06hTq15dOoHr17Bjy55NOzaC27hz697Nu7fv38CDCx9OvLhx4AeSK1/OvLnz58wNSJ9Ovbr169irF9jOvbv37+DDi1gfT758dwLo06tfz769+/fw48tXP6C+/fv48+vfz7+///8ABiigfQIUaOCBCCao4IIMNujggwcGIOGEFFZo4YUYZqjhhhxSCMCHIIYo4ogklmjiiSimGGJAADs=
    }
    image create photo ToolbarGradientBG -data $data1(im_ToolbarGradientBG)
    
    set data1(im_RadioGradient) {R0lGODlhIAMyAPcAAP7XAP7YAP7YAf7YAv7ZA/7aAv7aA/7aBP7aBf7bBv7cBf7cBv3cB/zcCP3dCf3eCP3eCf3eCv3eC/3fDP3gC/3gDP3gDf3hDvzhD/3iDvziD/viEPziEPziEfzjEvzkEPzkEfzkEvzkE/zmE/zkFPzlFfzmFPzmFfzmFvzmF/vnGPvoF/zoFvzoF/roGProGfvoGvvpG/vqGfvqGvvqG/vqHPvqHfvrHvvsHPvsHfvsHvvsH/vuH/zoGPvsIPrtIfruIPnuIfruIvruI/rvJPrwIvrwI/rwJPrwJfrwJvrxJ/ryJfryJvryJ/nyKPjyKfnzKvn0KPn0Kfn0Kvn0K/n2K/n0LPn2LPn2Lfn3Lvn2L/n4Lvn4L/f5Mfj4MPj5Mfj4Mvj6Mfj6Mvj6M/j7NPj6Nfj8NPj8Nfj8Nvj9N/j+N/j8OPj+OPj+Ofj/OgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAAIAMyAAAI/wDdCBxIsKDBgwgTKlzIsKHDhxAjSpxIsaLFixgzatzIsaPHjyBDihxJsqTJkyhTqlzJsqXLlzBjypxJs6bNmzhz6tzJs6fPn0CDCh1KFGGbNmvWHF3KtKnTpmzYqIlKtarVolizat3KtavXryiRKn1KtuzRqFOtVk3Ktm3bNGjQpJlLt67du3jnxi1TJq7fv2jACh5MuLDhw1qPjjXLuA3atGrVup2sN6/ly3rR9AXMuTPgM2fMmAFNujTf06hRkyEzZrXr17BdI55Nu7bt2zcVN959VipkyZMpw8VMPK/mzZ6T+wU9urRz0qmj813dOrb169bHjAGjvbv37+C9i/8RE2a8+fNiwKgHg7u9+/fwcypezJss2sjAg78dXrz4XuTKBYgGc8+ZJl1qrFWH3YLYaadeeBCGN1556FWY3noYZpjhF1548cWHIIYo4ohddKhFhyimqGJ8LLboYldi1dfYffixoZ9bcMnV347/CagcgQU6d+Bp1DFoZGwORqjkdxNSaKGGUGr4YYcjVmkliCV6caKKXHaZIhdbbMHFmGSWyYUWaKap5ppqZpEFFli4KeecWbxo5514uqGbjE89VqNVNyZV2Y7+aeZjgMw1V+CQqrF25KOwJblkhBNaWGGUmKo3pYdXdtpFllt6KaqKY4ppZplspsqmm3HS6eqrdML/aYUVcNZq66245orFFVdUUQWvwF4x66x5FmtsSHvyaZ9vNQbK1qCE+sfXoZ4BGSR0jE7nKKRHSjqpkpVaemGmUE7Z6bkfghrqqKKWeuq7qsaLJquw1junrLrmq++tvPoq7LAAByzwrFRQAUXBCCes8MIJTzGFFA5HLPHEx1YMY4zKOkXjnzY6uwa00eLVI7XJWbtotmUkyO2jDnL3LYThijseueVSia6VoLKrM4ruwiuvvPTaKzSrWNC679H89hrsvwM3TbDBBzMs9cIOQzzx1VhnPbEUUkTB9RNghy322GI74YQSZqet9toWt+0QxhlrLNWfHn8cV8jEjUzyXyZf/5ttkSsz6O3LEpLn5KU0S8khpzdfmfPO7Yb5Lqo/p0r00Pbii/Tmtfb6K69Oh15w1FOXrnDVWqeeOtdec/012bCPbTbaa9du++1mN9EEE7r37vvvwPvOBBNLLDH88cgz4TZQycbtGLMcR+UsyHjftdfenSXqN8qAB27k4IRrF7PMiStuc+Mhfmoi5KP2PHnllr+JudCyGs35vv1+HmzoTo9u+v8Ps5rqBri1rnktdggs29lwx8AGOmF3vAueBIE3POMlb3hJyKAGN8hBDSIBCUT4oAhHSMISmvCDRziCEVLIwhYujyDNc15v1PAbQHmMetWz3rSwt5zQXMtAf9uW9/+uA77wdWd8iCvfesyFviqpi31dct/kxgS/Vclvfq7S3P02lz+m8W9g/vuf6VBHwDIGsHWuSyACZ0c7B7rxgRCcoBwpSLwLYrCDeEwCCEN4wj76EYUqXGELB0lIQhrBCEU4pCIXecghOPKRkIxkJIXwgx8I4ZKYFIJO5iPDpWyMbjfkTw7rojce9lBRJ/ubdoa4oJYZkUnkkZl5lLjE8zUxXeuDYrvA9L4qWrFVWHyVFreYr34t7YtghJoYp0ZGM5qRda9TI9lm98Zqpk13w5vjHCtoxzx684N8/KM4R5hCQRbynIU8ZBESychGSvKdkrxkJTNJz3raE5NBCAIQ8skQz37685/8BAIPeACEghr0oP8F7eSyamjD6d1tlCI7jinj0rcgBVFBrIzUdl4JniaJi5ZLXNwtnZhLXX5JclM8ky/TdLlgxqpoxESa54CFTIGFcZmla6YzV9c110VTmgpsozUZiE1tarOCFrygNzkIznE6lYTlRKdUy4nIdrYTnlh9pDwtec+uZjKf+wSoWMVaUIIitKA+SKta18rWtu5gBzd4q1znSte6zlUHOshBDvDK177qAKLGMdREKRoaVAqJe0LMaHY2ytExINFSINWUSEf6BfVpyaRckuKpVsrSK7r0pbOKaTFnesyaAuymOD0d13ZKQNYdEKiwo+ZQ3RhHo0qQm91cKh6b+tRxRnWqwFX/p1WNkNXiytOryMWnPsM61uYu16xnNWhbp0vdt8bVrtilK1736tfueve7280BDvSqVxuY97zoTa96bVCDGsSgvfCN7w8Pe1HFIomxjRVfLD8aWSZSFpdaWpdJNdtLzgbts2+CqWjxN1PT2tRgqZWaTlmLNWj6FLayO5tQZ1s7bEbQthPErVJ160EihLO3f6QqcKUq3OG6s7jvpCRXk3tPsDr3xgEVaHSpy2O2Wje7QNZuXsFLZCLrdbzkXa+S09veGLw3vlCOcpRpQIMZUPnKWM6ylrdM5RnMQAZengEMxkxm6mzHZY197JNAOlnKPg6zpOKlzzg7L88imGj2W3DS//QHOgc/DQqki3DBJkzhrFkYw0HlMG1rC+LfiRh5JGYqCFEszt+uGJ3qZOdVYRxjGdM4uTbG8VgFCt0d95jH1r1ukLO73SK7uq9HRnJ5l0xr9rpXyrjOdXu7zOVe+7rLXw4zmYdN7GKT+QUvUAGyl83sZjv72S9wwQpW0INqW7sHkrXlf98MZzCZaop01kJL7zxMPfPLX332M2oF3bCHFVprFk4josEmW0XbrqiNDh5S7ciESOtx0pT2rQovnc6quvjFnIbkVj9dY32KurlljS4QTt3jH686yOF9tcbzKl5Z56DWtG6yrke+ay//+uRY9jKYhW3slhcb2cqGtsxl7v8CF7SgBdfOuc53bu2bs+DmN0+B0IdO9KIbPQUoQEEJks70pqeUinQ+8J0THFpz26qLpVU3hNmNsAC+G94GlMK8E21v3DE63x5OavL8vUHeBvyElia4IQ2+6YRPkpIM7ypYmfvwfkZc4mileHXhenHstnrjrz4yeT8O8iWLnOQj5zXKJ1/lYLPc5S6Hecxnzvlm1/zmPA89z31+9NKXXulLb7rqV8/6pp/gBCZ4vexnT/va194EJhgB7k1Agt773ur66qKfT7t1rg/a3V+/Wrx/imE2lr3DZ0d77x4NaX/v8e1+VLHcB9liF9t9kvPMOz1D3Xey6visgkc14QvP6iH/I97Vik9y49Xb5CdDXsqSp/zJVX55zLcc5p0XgMz2eaJXgDnnc0BnegoodEmXeq33gBD4erFnexRIgbg3AiPgexq4gRzYgb4nAiLgAR4AgiRYgiZ4giAYAiEAAirYgi74Z4EmaISWfBFzaGNXb88HfdkkfWmXW2zndtgHVQO3fXO3TsP1fQrnaeJnT+RXfgE1UIA3cennY3Claux3V+73ft8Va4s3f+v1ePena/mnf77Gf17mf5gHgAIYgNJGbQZogD7HAgu4gA0IgXbYehJYgXpIexe4e7zngYDYgSA4gihYiIYoAirIgi64iIzYiCsIAh/QAZI4iZRYiZZ4iR3A/wEcgAGa2IkcIDHLJ3Y3uEA5qDb4xoNpp3bVR2JAGIQlFHfb133eh4SOtHBLqFx854R7V2oHNYVutX5XWFcZp4XgxYXy54XoBYZhCGWVR4ZlaHlniIaZl2xr2Hmfh3NvWIAImIBzaHp1eIfgyHR5uIfkeIGBeI6CKIKHuI6IuIKO+I7vCAKQKI8ggIn2aI+ayImeuI/82I8boAEakAEAOZAEWZAGeZAAeQEXYAEK2ZAX0GE7yIPUdzxs50EA54rkNIRE2EKyuEi0qFV4d4tftVy6mGO8iH6+uFYWF4xvdXjEuIXi1YXIyGS3toz4V2XO+GtmGI3SSGyaV43WaHPYmP+NoUd63eiNJeCA4RiBsEeOTgl7ubd76IiOg0iI7LiOiQiPWrmI8hiJ9/iVlZiP+tiPZOmPACmQCJmWarmQDOmQbvmWb2kBFjABclmXdnmXeImXFVABFLCXfvmXGJl9gbSRLNSRdcdptiiSuFiS//R3CJWSVGiFLNmSWfiS3RV/szaTtuZkNsmMOJmTvbaTPWlsagiUM0eARCl629gCR3l037iUdziOT2mBuZeBU3mbVXmVhpiVW9mbkPgB8giWwpmPZVmc+7gB/xiQarmcBqmQcgmX0BmdbEmXeVmd1mkBe9mXf7md3NmdfykBEhABEQCe5Fme5nme4CmeDiCe7Nn/nlRlhFb1kUOQmIopBE2oi6QWhZCZVqk2mXLlkpbJV8aYmZqpjJ0ZX2MImlkmmqPpk9RomjQ3balZlC3AAnLYmkb3mrDJlBM4m7bXh1J5m4E4iLrJjrzZm/EIicK5opJInMZpnMmZAWjJnDSqAc7ZltIpnXJJndfZo9jJl94ZpEK6l+mJnkZ6pOkZAevZnkzapE7anhAAAQ/wAFFapVZ6pVhqpQ7QAA3AAFz6pQ0wkrmIn+eHkvu5kv65A8MYoLDWcTKpmZt5oAhqcgq6oNAoZg3qoJsHoZ4nlBM6ehUKdKyJoUWnoRuKh03poR+aeyI6lSFolSVagieKoikKnMHJ/6L36KIvWpYxWqOe6pw5GqoNuaM+6qPZOaSoup0TUKRIiqTq+aSwGqtMGqVTmqW2eqUOsKVdCqa82qu+yqUMwAAJEKzEWqzGeqzIGqwLsAAKsKzOugDThabBCKBsGl4eB6fnZaAHmqB1Cmwrx5N5+pN8+mzX+Kc7Z5SESnSod6gPKJuKentRiXuN6oG5GamFOKmU2ohdialfKZabCqNn6ak0ypaiGp2kWqqmCqSpmqoTsKrh2aoQG55KKqsU26S0eqsYe6XA6qW/2rG+GqzDmqwiO7IMsKzN+qwom7IoiwAIcAAs+7IwG7MyO7MxewAHQAAEYLPehZmMV6DuZX/b+pWZ3Zpy0Jinw1aa49qnQ2mu17aa6Tp0hsququeu7yqBtTmv51iv9kqC+JqvXPkBlsqvmKip/+qPnSqwa0mwBaujc4mwCaudCzukSRqxR/qqFXu37CmlVJqxGAusHvu3vAqyJDu4x2qyKnu4iMuyLkuzjNu4LXuzNhu5kju5lCu5BmAABVAAl7u5nNu5nnu5AzAAAhC6pP9buggqtEPrrf0Xrg+atAMooUzbtBV6oU+LdEonte2aqFUreyAqr1jLgSS6tSjYtV77iF4ptvi4iWVLljE6o2iLkDe6tnB5sG6bl6cat6nKqnTrqhOLt7JKq3vLtxirqxwLuIAruIRLuCZ7soiLuAmQAIrruPJLszebs5V7v5R7uZr7ufzLvzgbuqNbugI8wAQ8wAIgAABwwAq8wAzcwA0cABAcwQFwtK3rutHmp7Hbc4HKjbUbtbibdFRbteb4u/SqjsKbgu5YvPo6j5eKvGGpvMvLj2f7vGkJqtJrsG1bvdarsNgrpA47nttrnnbrvXcLvuKbpbnqt+brseibvur/y6ztG8XO+r7xO7/za7M4i79anL+Y279efLn/e8AFPMZkLMAHnMAOnMYOLMFs3MZu/MZwHMdy3MbnWqG1C7VJ+cFTq7u7y7vx+ock3Htae8IorIgqzJUq6sKW6K8xLMMBS8PQ+5w37JDUq8N6ycM93J0Nq71BLMTdS8SxerFHfKsbu8R/28ROTLKGK8WHW8VW/MqPm8VbrMX6+8W2bAAAXMa6bMAIrMa+vMZzHMzCPMzEXMzGbMysF8LveoG2GcgbOMhbS7wq/JstrMiZCMON7InI+ciQXJDRO8lxmcOWfMlwm8ncObedXJ5DDMqhXKujjKVKbModi8qpLLKrzMqJ/9uysHzFkDvLW6y/+3vLn5vLu1zQpXvGv5zQx7zQDN3QDv3QEB3RESyIIUjIJijN+bqv1rzI2JzNHNC83XyQ3wzO0znOd3m95uydnJzO6vzJ7DyrevvOtkq+8szEwlrPI7u++JyyVKzP+3zFsuzPlVvLAt2//yu6Bl3QCJ3QTC3RTv3UUB3VUj3VT+2CXUmPGz2JZJvNMxzSBGnDJE3J4mzSP1rOKf2XP8zSSbqkLx3KMS3TUZrEu1rTvUrPOF24ULzTh9vTi/vTM4vF9ivU+EvURc25YRzASa3UvczUakzVjv3YkB3Zkj3Zku3IyunVXy3JJF3JZF3WZ82dm/ywav9Nnuvc1lAqpXANz11avnQNpnZ918V6z3q9rK7s140L2II91F1c2AON1IldxkvN2L5M2cRd3MZ93Mid3Mo9vWPd2Sj92UQqsaMtsWxt2hbrzqkNAfHc2q5907CdrLI9285a27Zds/2c21ycubzduQT927oc3MLNwMo93/Rd3/Z93/id3xHcnSs92qVt2kac3VVK09wduN793bHNrOw723xd3rcd1Ohts4S93pt71Ijt3gQM3/H9wPrd4R7+4SAe4iLe4W6N3TIt16zN3a+N4OEt3gvQ4A4Os7gd4elN4WBMAKJ74RhewBq+4QIw4kAe5EI+5ERe5ET+sQeO4Am+4LN4Td4xLuP1S+ORO+E23t47bsaL7eMcbuRc3uVe/uVgHuZgrrJOHuNYLOWWi7kBTeFWfuW8jMZafsBiPud0Xud2fud4nucRrNtrbuMW7uZvHudbrueEXuiGfuiInuh5/t5ZHueK/uiQHumSPumUXumWfumYnumavumcNd7pnv7poB7qoj7qpF7qpn7qqJ7qqr7qrN7qrv7qsB7rsj7rtF7rtn7ruJ7rur7rvN7rxhwQADs=}
    
    image create photo RadioGradient -data $data1(im_RadioGradient)
    
    set data1(im_RadioGradientFade) {
    R0lGODlh9AEyAPcAAP/xo//xpP/ypP/ypf7ypv7zp/70p/70qP71qf71qv72qv72q/73rP73rf74rf74rv35r/35sP36sP36sf36sv37s/38s/38tPz9tfz9tvz+tvz+t/z/uAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAA9AEyAAAI/wA5CBxIsKDBgwgTKlzIsKHDhxAjSpxIsaLFixgzatzIsaPHjyBDihxJsqTJkyhTqlzJsqXLlzBjypxJs6bNghty6tx5s6fPn0CDCo25s6jRo0iTGh3KtKnTp1A9Kp1KtWpSDVizat3KtWvUr2DDigVptaxZpF3Tql2rNYPbt3DjusVAt67dsXjz6n15tq/fDWwDC8Yqt/Bcu4gTK16c+ILjx5D3Sp6s969lqoMzpzXMmbHnz4shix5NurTp0ZRTq+54ubVSzbC3cpYLunbt07hz6y5tobfv38CDA69QYbVxsK6T74zNXMPswrajh95NvTpp4dizWyDOvbv37+C5U/8YT7788fOslasH3Bz2c7jS49u1Tr/+Be34f4ffz79C+f8ABijggAKiJ9l6ybWn2XtxyecgBvZFmFt+FPZnIXgEZqjhhhlO4OGHIIYoIogGnoSgcgouyGAGD8on4YumUVjhhTRyaOONG46o44489rijBEAGKUGJA53YWoqZrfhWi9LB6CRkMuJH45T+4WjlleP5qOWWXE4g5JdghilkBGSWaWYEEKSp5k1GuobkYEoyGd2TdDoWpXZUWojlnlZ26eefHoopqJhnFoqmmogmquiijDZKUZuWvRmYkofJeVudMN6ZXZ4X8umphoCG2uWgpI5pqJmNpqrqqqo+4OqrsMb/KiuskC4nKVtxWnoppi9quimn+30q7ICiFttjqcieiiqrzDa76qzQRivttNA6YO21DtyKK6W6gsZrr74GB2x/w5ZbnrHo6ohsssoe6uy78EJA7bz01ovtvdg2oO++/Pbr77/6EpZrt4x9m2m4w42LobkMU5Duw4GuO2i7ZMZrsbP1ZqxxrPh2DPDHIIfMLwMkl2zyySib/KDBESKcsMILNywsxDRLPDHFF+ec6sY8b9wxviIHLXQDKRdt9NElL6D00kw37TTTLEPpsn4weydzuTQ/bLOgFLur89eJ9iw2tT/nO/TZICOt9tokP+3223DH7bYCdNetwNS+VR3z1Xxmhq311oS2C/bgao5teLRlm4324vuy7bjRckcu+eR2V2755ZjXncDmnHfOKd/D+m0s4GF2Tfjph6cOa+LXMu5644/HnvTktNfOdOa4565557z33jsCwAcv/PDECw86gKKjSzqYpp/+terQu8q6ta8zLvv1tmdvu+7cY+7797wXL/745Jdv/gHo/6N/bvKiLv9l884/H/3h01fv+vXYa69/3N33vzv4ANyc+QZIwAICL30ITKACF8hABhbLfe87VfwGN7/UTc8B9kMb/mS3vw6+zX8gDCAADUjCEg6vgShMoQpXaIACuPCFMIyhDAtwM8FNUGcVNNwFM7i4DT7Og0C8HQj7J8IRmvCIJFyhEpeYwhk68YlQfCEBpkjFKlrxilO8IaNySL/68VBoPnRcEMeotCESsYi/Q6IaB8jENroRgVGMoxwLgMU62vGOeKzjAPa4x7BxsWde/CIYw8g2MgLRjNxDI/jWyMjxvfGRS5yjJJ2Yx0pa8pIE4KMmN8nJTnqyk2PboSBFRv/IQhrSg4hMpCLD18hWCg+SsFRhCydJSxdi8pa4pOInd8nLXvZSAMAMpjCHKYAAGPOYARglKUuJtFN2MJW6W2UaXUnNWFpTgbXMZi63iUlfevObvCSmOIeJzHKa85zoRCcA1gkA2DETcs58JjRxJ03OUfOe18wnHLNJS276847gDKhANTlOcabzoAhNJzsXytCGOvShDz1ZPPU3z8zVk5X3bKQ+9cnPfv7zo1gcqEi9WdBxJvSkJ4WoSlfK0pa69KH7q6hFL5qAjLZyo/qcZUflCNKe6nKkQN1lSYmJ0qIq9KVITapSl8rUhw6RpgK0qUZxGsudStKnWA2qVjk5VIPsGvWryGyqWMdK1rKa9aH2lCojqXpNq84RqyDdqlwJ2lVggvWuxjyrXvfK1776FaJrZSss3cpTuMZ1rlutqzDxCta/OvaxkI2sZCEqWBTqlLCUNOw/EStXxdqVsUadrGhHS9rSmlalCcRsFDX7Uc5q1bPBBG1oT0vb2tr2trh96AxZy03XJlaxsp1tbodL3OIa97gPPaxvRQrbYgY3pciNrnSnS93qQnS5QvXsc6Fr3e5697vgDe916Qrb7SZUvOhNr3rXy16VBre98I2vfOdL3/ra9774za9+98vf/vr3vwAOsIAHTOACG/jACE4SsIIXzOAGO/jBEI6whCf82IAAADs=
    }
    image create photo RadioGradientFade -data $data1(im_RadioGradientFade)
}

main $argc $argv

wm geom . 1200x[image height RadioGradientFade]

<<categories>>ttk