ttk::style toolbar

Here a little example of the power of ttk::style. Thanks to hae and others for editing this first Wiki page attempt.
Run the code to generate the ttk::style based toolbar below:
Code works fine in 8.5/8.6 It uses a checkbutton, button, radiobuttons and a ttk::frame all with the same images to get the job done. The ttk buttons could use their own -image state dependent settings to make this really neat. All buttons and the frame look the same and blend to make for a smooth toolbar.
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]
ttk::style