- Menu add

- New Modern Dark and Light(default) Theme

.idea/workspace.xml

@@ -4,9 +4,138 @@
     <option name="autoReloadType" value="SELECTIVE" />
   </component>
   <component name="ChangeListManager">
-    <list default="true" id="940e1630-c825-4d4c-be80-bc11f543c122" name="Changes" comment="fix installer add .keys file">
-      <change afterPath="$PROJECT_DIR$/Changelog" afterDir="false" />
+    <list default="true" id="940e1630-c825-4d4c-be80-bc11f543c122" name="Changes" comment=" - Create file for settings (Autoupdate)&#10; - Create file for theme&#10; - Autoupdate in Options&#10; - Dark Theme for Wire-Py">
+      <change afterPath="$PROJECT_DIR$/TK-Themes/LICENSE" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/azure.tcl" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark.tcl" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/box-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/box-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/box-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/box-invalid.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/button-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/card.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/check-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/check-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/check-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/check-tri-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/check-tri-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/check-tri-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/circle-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/circle-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/circle-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/combo-button-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/combo-button-focus.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/combo-button-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/down-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/down.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/empty.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/hor-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/hor-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/hor-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/notebook.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/off-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/on-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/on-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/outline-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/outline-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/radio-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/radio-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/radio-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/radio-tri-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/radio-tri-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/radio-tri-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/rect-accent-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/rect-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/rect-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/rect-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/right.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/scale-hor.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/scale-vert.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/separator.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/size.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/tab-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/tab-disabled.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/tab-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/tick-hor-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/tick-hor-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/tick-hor-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/tick-vert-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/tick-vert-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/tick-vert-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/tree-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/tree-pressed.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/up-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/up.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/vert-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/vert-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/dark/vert-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light.tcl" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/box-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/box-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/box-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/box-invalid.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/button-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/card.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/check-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/check-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/check-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/check-tri-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/check-tri-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/check-tri-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/circle-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/circle-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/circle-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/combo-button-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/combo-button-focus.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/combo-button-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/down-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/down.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/empty.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/hor-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/hor-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/hor-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/notebook.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/off-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/off-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/on-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/on-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/on-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/outline-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/outline-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/radio-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/radio-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/radio-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/radio-tri-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/radio-tri-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/radio-tri-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/rect-accent-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/rect-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/rect-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/rect-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/right.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/scale-hor.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/scale-vert.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/separator.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/size.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/tab-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/tab-disabled.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/tab-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/tick-hor-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/tick-hor-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/tick-hor-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/tick-vert-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/tick-vert-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/tick-vert-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/tree-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/tree-pressed.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/up-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/up.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/vert-accent.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/vert-basic.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/TK-Themes/theme/light/vert-hover.png" afterDir="false" />
+      <change afterPath="$PROJECT_DIR$/testtheme.py" afterDir="false" />
       <change beforePath="$PROJECT_DIR$/.idea/workspace.xml" beforeDir="false" afterPath="$PROJECT_DIR$/.idea/workspace.xml" afterDir="false" />
+      <change beforePath="$PROJECT_DIR$/install" beforeDir="false" afterPath="$PROJECT_DIR$/install" afterDir="false" />
       <change beforePath="$PROJECT_DIR$/wg_func.py" beforeDir="false" afterPath="$PROJECT_DIR$/wg_func.py" afterDir="false" />
       <change beforePath="$PROJECT_DIR$/wg_main.py" beforeDir="false" afterPath="$PROJECT_DIR$/wg_main.py" afterDir="false" />
     </list>
@@ -42,23 +171,24 @@
     <option name="hideEmptyMiddlePackages" value="true" />
     <option name="showLibraryContents" value="true" />
   </component>
-  <component name="PropertiesComponent"><![CDATA[{
-  "keyToString": {
-    "ASKED_ADD_EXTERNAL_FILES": "true",
-    "Python.INSTALL.executor": "Run",
-    "Python.install.executor": "Run",
-    "Python.main.executor": "Run",
-    "Python.messagebox.executor": "Run",
-    "Python.start_wg.executor": "Run",
-    "Python.wg_func.executor": "Run",
-    "Python.wg_main.executor": "Run",
-    "RunOnceActivity.ShowReadmeOnStart": "true",
-    "Shell Script.install.executor": "Run",
-    "git-widget-placeholder": "main",
-    "last_opened_file_path": "/home/punix/Pyapps/wire-py",
-    "settings.editor.selected.configurable": "preferences.lookFeel"
+  <component name="PropertiesComponent">{
+  &quot;keyToString&quot;: {
+    &quot;ASKED_ADD_EXTERNAL_FILES&quot;: &quot;true&quot;,
+    &quot;Python.INSTALL.executor&quot;: &quot;Run&quot;,
+    &quot;Python.install.executor&quot;: &quot;Run&quot;,
+    &quot;Python.main.executor&quot;: &quot;Run&quot;,
+    &quot;Python.messagebox.executor&quot;: &quot;Run&quot;,
+    &quot;Python.start_wg.executor&quot;: &quot;Run&quot;,
+    &quot;Python.testtheme.executor&quot;: &quot;Run&quot;,
+    &quot;Python.wg_func.executor&quot;: &quot;Run&quot;,
+    &quot;Python.wg_main.executor&quot;: &quot;Run&quot;,
+    &quot;RunOnceActivity.ShowReadmeOnStart&quot;: &quot;true&quot;,
+    &quot;Shell Script.install.executor&quot;: &quot;Run&quot;,
+    &quot;git-widget-placeholder&quot;: &quot;main&quot;,
+    &quot;last_opened_file_path&quot;: &quot;/home/punix/Pyapps/wire-py&quot;,
+    &quot;settings.editor.selected.configurable&quot;: &quot;preferences.lookFeel&quot;
   }
-}]]></component>
+}</component>
   <component name="RecentsManager">
     <key name="CopyFile.RECENT_KEYS">
       <recent name="$PROJECT_DIR$" />
@@ -122,7 +252,7 @@
   <component name="SharedIndexes">
     <attachedChunks>
       <set>
-        <option value="bundled-python-sdk-8336bb23522e-31b6be0877a2-com.jetbrains.pycharm.community.sharedIndexes.bundled-PC-241.19072.16" />
+        <option value="bundled-python-sdk-0e3be3396995-c546a90a8094-com.jetbrains.pycharm.community.sharedIndexes.bundled-PC-242.23339.19" />
       </set>
     </attachedChunks>
   </component>
@@ -135,22 +265,6 @@
       <option name="presentableId" value="Default" />
       <updated>1723279982210</updated>
     </task>
-    <task id="LOCAL-00007" summary="add Label Interface and Peer to new FrameWidget one and two. when import Tunnel then add to list works and remove of list when Tunnel delete.(with Label active on and off) &#10;add to class and methods open a avtive Tunnel when Wire-Py open, when import and start a Tunnel">
-      <option name="closed" value="true" />
-      <created>1724102937260</created>
-      <option name="number" value="00007" />
-      <option name="presentableId" value="LOCAL-00007" />
-      <option name="project" value="LOCAL" />
-      <updated>1724102937260</updated>
-    </task>
-    <task id="LOCAL-00008" summary="add file dict_to_address for &#10;address a active Tunnel. Label green pack in Class.&#10;add Class to convert fileoutput as String to Dictionary">
-      <option name="closed" value="true" />
-      <created>1724233806458</created>
-      <option name="number" value="00008" />
-      <option name="presentableId" value="LOCAL-00008" />
-      <option name="project" value="LOCAL" />
-      <updated>1724233806458</updated>
-    </task>
     <task id="LOCAL-00009" summary="add Class StartStopBTN to wg_func.py">
       <option name="closed" value="true" />
       <created>1724237471056</created>
@@ -527,7 +641,23 @@
       <option name="project" value="LOCAL" />
       <updated>1727380793216</updated>
     </task>
-    <option name="localTasksCounter" value="56" />
+    <task id="LOCAL-00056" summary="Changelog create When exporting, the folder is now copied to /tmp and the non .conf files are deleted before the zip file is created. In main.py os import removed. Since os have been replaced by pathlib and shutil.&#10;Start with version number 1.4.7&#10;Message window size corrected so text is displayed better">
+      <option name="closed" value="true" />
+      <created>1727525609727</created>
+      <option name="number" value="00056" />
+      <option name="presentableId" value="LOCAL-00056" />
+      <option name="project" value="LOCAL" />
+      <updated>1727525609728</updated>
+    </task>
+    <task id="LOCAL-00057" summary="Fix msg_window and remove x , y argument&#10;Install further adapted and with colored&#10;text if user is not in group sudo or wheel.&#10;Added to install Opensuse for installation">
+      <option name="closed" value="true" />
+      <created>1728059870005</created>
+      <option name="number" value="00057" />
+      <option name="presentableId" value="LOCAL-00057" />
+      <option name="project" value="LOCAL" />
+      <updated>1728059870005</updated>
+    </task>
+    <option name="localTasksCounter" value="58" />
     <servers />
   </component>
   <component name="UnknownFeatures">
@@ -568,8 +698,6 @@
   </component>
   <component name="VcsManagerConfiguration">
     <option name="ADD_EXTERNAL_FILES_SILENTLY" value="true" />
-    <MESSAGE value="in delete replace open with Path&#10;install fixes" />
-    <MESSAGE value="new format little fixes icons sort add policy add .desktop File install Part 2" />
     <MESSAGE value="install fix for set dir right" />
     <MESSAGE value="fix checkbox disable and policy rename main.py to wg_main.py" />
     <MESSAGE value="fix rename in Messagebox warning to error" />
@@ -593,6 +721,8 @@
     <MESSAGE value="little fixes" />
     <MESSAGE value="fix msg_boxes when tunnel list = 0 a Start, Delete and Export" />
     <MESSAGE value="fix installer add .keys file" />
-    <option name="LAST_COMMIT_MESSAGE" value="fix installer add .keys file" />
+    <MESSAGE value="Changelog create When exporting, the folder is now copied to /tmp and the non .conf files are deleted before the zip file is created. In main.py os import removed. Since os have been replaced by pathlib and shutil.&#10;Start with version number 1.4.7&#10;Message window size corrected so text is displayed better" />
+    <MESSAGE value="Fix msg_window and remove x , y argument&#10;Install further adapted and with colored&#10;text if user is not in group sudo or wheel.&#10;Added to install Opensuse for installation" />
+    <option name="LAST_COMMIT_MESSAGE" value="Fix msg_window and remove x , y argument&#10;Install further adapted and with colored&#10;text if user is not in group sudo or wheel.&#10;Added to install Opensuse for installation" />
   </component>
 </project>

Changelog

@@ -1,15 +1,57 @@
 Changelog for Wire-Py
+My standard System: Linux Mint 22 Cinnamon
 
 ## [Unreleased]
+
  - os import in wg_func replaced by other methods
- - Autoupdate in Options
  - Guide to menu '?' with pictures
- - Create file for settings (Autoupdate)
- - UID and GID for another Systems (Fedora, Arch, ect.)
- - installer optimize for another Systems
  - In Gitea Readme enter text, images
- - Dark Theme for Wire-Py
  - Own filedialog for import
+ - If Wire-Py already runs, prevent further start
+ - for loops with lists replaced by List Comprehensions
+ - Keeping Classes Together
+
+ ### Added
+16-10-2024
+
+ - Menu add
+ - New Modern Dark and Light(default) Theme
+
+### Added
+12-10-2024
+
+ - Create file for settings (Autoupdate)
+ - Create file for theme
+ - Autoupdate in Options
+ - Dark Theme for Wire-Py
+
+
+### Added
+04-10-2024
+
+ - Fix msg_window and remove x , y argument
+
+ - Install further adapted and with colored text if user
+   is not in group sudo or wheel.
+
+ - Added to install Opensuse for installation
+
+ - Tested on Arch with Mate, Xfce4, Gnome, LXDE Desktop
+   Open Suse Tumbleweed KDE, Fedora 40 KDE and Debian 12 Mate Desktop
+
+
+### Added
+29-09-2024
+
+ - installer optimize for another Systems
+
+ - Version number changed to:
+   1 = 1. Year, 01 = Month of the Year, 0124 = Day and Year of the Year
+   Example for this version: 1.09.2924
+
+ - Comments modified by # description to ''' description '''
+   and insert empty lines for better readability
+
 
 ### Added
 28-09-2024
@@ -25,3 +67,5 @@ Changelog for Wire-Py
 
  - Message window size corrected so text is displayed better
 
+ - Version lobster assigned to a variable
+

TK-Themes/LICENSE

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2021 rdbende
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

TK-Themes/azure.tcl

@@ -0,0 +1,87 @@
+# Copyright © 2021 rdbende <rdbende@gmail.com>
+
+source [file join [file dirname [info script]] theme light.tcl]
+source [file join [file dirname [info script]] theme dark.tcl]
+
+option add *tearOff 0
+
+proc set_theme {mode} {
+	if {$mode == "dark"} {
+		ttk::style theme use "azure-dark"
+
+		array set colors {
+            -fg             "#ffffff"
+            -bg             "#333333"
+            -disabledfg     "#ffffff"
+            -disabledbg     "#737373"
+            -selectfg       "#ffffff"
+            -selectbg       "#00c4ff"
+        }
+        
+        ttk::style configure . \
+            -background $colors(-bg) \
+            -foreground $colors(-fg) \
+            -troughcolor $colors(-bg) \
+            -focuscolor $colors(-selectbg) \
+            -selectbackground $colors(-selectbg) \
+            -selectforeground $colors(-selectfg) \
+            -insertcolor $colors(-fg) \
+            -insertwidth 1 \
+            -fieldbackground $colors(-selectbg) \
+            -font {"Segoe Ui" 10} \
+            -borderwidth 1 \
+            -relief flat
+
+        tk_setPalette background [ttk::style lookup . -background] \
+            foreground [ttk::style lookup . -foreground] \
+            highlightColor [ttk::style lookup . -focuscolor] \
+            selectBackground [ttk::style lookup . -selectbackground] \
+            selectForeground [ttk::style lookup . -selectforeground] \
+            activeBackground [ttk::style lookup . -selectbackground] \
+            activeForeground [ttk::style lookup . -selectforeground]
+
+        ttk::style map . -foreground [list disabled $colors(-disabledfg)]
+
+        option add *font [ttk::style lookup . -font]
+        option add *Menu.selectcolor $colors(-fg)
+    
+	} elseif {$mode == "light"} {
+		ttk::style theme use "azure-light"
+
+        array set colors {
+            -fg             "#000000"
+            -bg             "#ffffff"
+            -disabledfg     "#737373"
+            -disabledbg     "#ffffff"
+            -selectfg       "#ffffff"
+            -selectbg       "#00c4ff"
+        }
+
+		ttk::style configure . \
+            -background $colors(-bg) \
+            -foreground $colors(-fg) \
+            -troughcolor $colors(-bg) \
+            -focuscolor $colors(-selectbg) \
+            -selectbackground $colors(-selectbg) \
+            -selectforeground $colors(-selectfg) \
+            -insertcolor $colors(-fg) \
+            -insertwidth 1 \
+            -fieldbackground $colors(-selectbg) \
+            -font {"Segoe Ui" 10} \
+            -borderwidth 1 \
+            -relief flat
+
+        tk_setPalette background [ttk::style lookup . -background] \
+            foreground [ttk::style lookup . -foreground] \
+            highlightColor [ttk::style lookup . -focuscolor] \
+            selectBackground [ttk::style lookup . -selectbackground] \
+            selectForeground [ttk::style lookup . -selectforeground] \
+            activeBackground [ttk::style lookup . -selectbackground] \
+            activeForeground [ttk::style lookup . -selectforeground]
+
+        ttk::style map . -foreground [list disabled $colors(-disabledfg)]
+
+        option add *font [ttk::style lookup . -font]
+        option add *Menu.selectcolor $colors(-fg)
+	}
+}

TK-Themes/theme/dark.tcl

@@ -0,0 +1,539 @@
+# Copyright (c) 2021 rdbende <rdbende@gmail.com>
+
+# The Azure theme is a beautiful modern ttk theme inspired by Microsoft's fluent design.
+
+package require Tk 8.6
+
+namespace eval ttk::theme::azure-dark {
+    variable version 2.0
+    package provide ttk::theme::azure-dark $version
+
+    ttk::style theme create azure-dark -parent clam -settings {
+        proc load_images {imgdir} {
+            variable I
+            foreach file [glob -directory $imgdir *.png] {
+                set img [file tail [file rootname $file]]
+                set I($img) [image create photo -file $file -format png]
+            }
+        }
+
+        load_images [file join [file dirname [info script]] dark]
+
+        array set colors {
+            -fg             "#ffffff"
+            -bg             "#333333"
+            -disabledfg     "#aaaaaa"
+            -disabledbg     "#737373"
+            -selectfg       "#ffffff"
+            -selectbg       "#007fff"
+        }
+
+        ttk::style layout TButton {
+            Button.button -children {
+                Button.padding -children {
+                    Button.label -side left -expand true
+                } 
+            }
+        }
+
+        ttk::style layout Toolbutton {
+            Toolbutton.button -children {
+                Toolbutton.padding -children {
+                    Toolbutton.label -side left -expand true
+                } 
+            }
+        }
+
+        ttk::style layout TMenubutton {
+            Menubutton.button -children {
+                Menubutton.padding -children {
+                    Menubutton.indicator -side right
+                    Menubutton.label -side right -expand true
+                }
+            }
+        }
+
+        ttk::style layout TOptionMenu {
+            OptionMenu.button -children {
+                OptionMenu.padding -children {
+                    OptionMenu.indicator -side right
+                    OptionMenu.label -side right -expand true
+                }
+            }
+        }
+
+        ttk::style layout Accent.TButton {
+            AccentButton.button -children {
+                AccentButton.padding -children {
+                    AccentButton.label -side left -expand true
+                } 
+            }
+        }
+
+        ttk::style layout TCheckbutton {
+            Checkbutton.button -children {
+                Checkbutton.padding -children {
+                    Checkbutton.indicator -side left
+                    Checkbutton.label -side right -expand true
+                }
+            }
+        }
+
+        ttk::style layout Switch.TCheckbutton {
+            Switch.button -children {
+                Switch.padding -children {
+                    Switch.indicator -side left
+                    Switch.label -side right -expand true
+                }
+            }
+        }
+
+        ttk::style layout Toggle.TButton {
+            ToggleButton.button -children {
+                ToggleButton.padding -children {
+                    ToggleButton.label -side left -expand true
+                } 
+            }
+        }
+
+        ttk::style layout TRadiobutton {
+            Radiobutton.button -children {
+                Radiobutton.padding -children {
+                    Radiobutton.indicator -side left
+                    Radiobutton.label -side right -expand true
+                }
+            }
+        }
+
+        ttk::style layout Vertical.TScrollbar {
+            Vertical.Scrollbar.trough -sticky ns -children {
+                Vertical.Scrollbar.thumb -expand true
+            }
+        }
+
+        ttk::style layout Horizontal.TScrollbar {
+            Horizontal.Scrollbar.trough -sticky ew -children {
+                Horizontal.Scrollbar.thumb -expand true
+            }
+        }
+
+        ttk::style layout TCombobox {
+            Combobox.field -sticky nswe -children {
+                Combobox.padding -expand true -sticky nswe -children {
+                    Combobox.textarea -sticky nswe
+                }
+            }
+            Combobox.button -side right -sticky ns -children {
+                Combobox.arrow -sticky nsew
+            }
+        }
+
+        ttk::style layout TSpinbox {
+            Spinbox.field -sticky nsew -children {
+                Spinbox.padding -expand true -sticky nswe -children {
+                    Spinbox.textarea -sticky nswe
+                }
+                
+            }
+            Spinbox.button -side right -sticky ns -children {
+                null -side right -children {
+                    Spinbox.uparrow -side top
+                    Spinbox.downarrow -side bottom
+                }
+            }
+        }
+
+        ttk::style layout Horizontal.TSeparator {
+            Horizontal.separator -sticky nswe
+        }
+
+        ttk::style layout Vertical.TSeparator {
+            Vertical.separator -sticky nswe
+        }
+        
+        ttk::style layout Horizontal.Tick.TScale {
+            Horizontal.TickScale.trough -sticky ew -children {
+                Horizontal.TickScale.slider -sticky w
+            }
+        }
+        
+        ttk::style layout Vertical.Tick.TScale {
+            Vertical.TickScale.trough -sticky ns -children {
+                Vertical.TickScale.slider -sticky n
+            }
+        }
+
+        ttk::style layout Card.TFrame {
+            Card.field {
+                Card.padding -expand 1 
+            }
+        }
+
+        ttk::style layout TLabelframe {
+            Labelframe.border {
+                Labelframe.padding -expand 1 -children {
+                    Labelframe.label -side right
+                }
+            }
+        }
+
+        ttk::style layout TNotebook.Tab {
+            Notebook.tab -children {
+                Notebook.padding -side top -children {
+                    Notebook.label -side top -sticky {}
+                }
+            }
+        }
+
+        ttk::style layout Treeview.Item {
+            Treeitem.padding -sticky nswe -children {
+                Treeitem.indicator -side left -sticky {}
+                Treeitem.image -side left -sticky {}
+                Treeitem.text -side left -sticky {}
+            }
+        }
+
+
+        # Elements
+
+        # Button
+        ttk::style configure TButton -padding {8 4 8 4} -width -10 -anchor center
+
+        ttk::style element create Button.button image \
+            [list $I(box-basic) \
+            	{selected disabled} $I(box-basic) \
+                disabled $I(box-basic) \
+                pressed $I(box-basic) \
+                selected $I(box-basic) \
+                active $I(button-hover) \
+                focus $I(button-hover) \
+            ] -border 4 -sticky ewns
+
+        # Toolbutton
+        ttk::style configure Toolbutton -padding {8 4 8 4} -width -5 -anchor center
+
+        ttk::style element create Toolbutton.button image \
+            [list $I(empty) \
+            	{selected disabled} $I(empty) \
+                disabled $I(empty) \
+                pressed $I(rect-basic) \
+                selected $I(rect-basic) \
+                active $I(rect-basic) \
+            ] -border 4 -sticky ewns
+
+        # Menubutton
+        ttk::style configure TMenubutton -padding {8 4 4 4}
+
+        ttk::style element create Menubutton.button \
+            image [list $I(rect-basic) \
+                disabled $I(rect-basic) \
+                pressed $I(rect-basic) \
+                active $I(button-hover) \
+            ] -border 4 -sticky ewns 
+
+        ttk::style element create Menubutton.indicator \
+            image [list $I(down) \
+                active   $I(down) \
+                pressed  $I(down) \
+                disabled $I(down) \
+            ] -width 15 -sticky e
+
+        # OptionMenu
+        ttk::style configure TOptionMenu -padding {8 4 4 4}
+
+        ttk::style element create OptionMenu.button \
+            image [list $I(rect-basic) \
+                disabled $I(rect-basic) \
+                pressed $I(rect-basic) \
+                active $I(button-hover) \
+            ] -border 4 -sticky ewns 
+
+        ttk::style element create OptionMenu.indicator \
+            image [list $I(down) \
+                active   $I(down) \
+                pressed  $I(down) \
+                disabled $I(down) \
+            ] -width 15 -sticky e
+
+        # AccentButton
+        ttk::style configure Accent.TButton -padding {8 4 8 4} -width -10 -anchor center
+
+        ttk::style element create AccentButton.button image \
+            [list $I(rect-accent) \
+            	{selected disabled} $I(rect-accent-hover) \
+                disabled $I(rect-accent-hover) \
+                pressed $I(rect-accent) \
+                selected $I(rect-accent) \
+                active $I(rect-accent-hover) \
+                focus $I(rect-accent-hover) \
+            ] -border 4 -sticky ewns
+
+        # Checkbutton
+        ttk::style configure TCheckbutton -padding 4
+
+        ttk::style element create Checkbutton.indicator image \
+            [list $I(box-basic) \
+                {alternate disabled} $I(check-tri-basic) \
+                {selected disabled} $I(check-basic) \
+                disabled $I(box-basic) \
+                {pressed alternate} $I(check-tri-hover) \
+                {active alternate} $I(check-tri-hover) \
+                alternate $I(check-tri-accent) \
+                {pressed selected} $I(check-hover) \
+                {active selected} $I(check-hover) \
+                selected $I(check-accent) \
+                {pressed !selected} $I(rect-hover) \
+                active $I(box-hover) \
+            ] -width 26 -sticky w
+
+        # Switch
+        ttk::style element create Switch.indicator image \
+            [list $I(off-basic) \
+                {selected disabled} $I(on-basic) \
+                disabled $I(off-basic) \
+                {pressed selected} $I(on-accent) \
+                {active selected} $I(on-accent) \
+                selected $I(on-accent) \
+                {pressed !selected} $I(off-basic) \
+                active $I(off-basic) \
+            ] -width 46 -sticky w
+
+        # ToggleButton
+        ttk::style configure Toggle.TButton -padding {8 4 8 4} -width -10 -anchor center
+
+        ttk::style element create ToggleButton.button image \
+            [list $I(rect-basic) \
+                {selected disabled} $I(rect-accent-hover) \
+                disabled $I(rect-basic) \
+                {pressed selected} $I(rect-basic) \
+                {active selected} $I(rect-accent) \
+                selected $I(rect-accent) \
+                {pressed !selected} $I(rect-accent) \
+                active $I(rect-basic) \
+            ] -border 4 -sticky ewns
+
+        # Radiobutton
+        ttk::style configure TRadiobutton -padding 4
+
+        ttk::style element create Radiobutton.indicator image \
+            [list $I(outline-basic) \
+                {alternate disabled} $I(radio-tri-basic) \
+                {selected disabled} $I(radio-basic) \
+                disabled $I(outline-basic) \
+                {pressed alternate} $I(radio-tri-hover) \
+                {active alternate} $I(radio-tri-hover) \
+                alternate $I(radio-tri-accent) \
+                {pressed selected} $I(radio-hover) \
+                {active selected} $I(radio-hover) \
+                selected $I(radio-accent) \
+                {pressed !selected} $I(circle-hover) \
+                active $I(outline-hover) \
+            ] -width 26 -sticky w
+
+        # Scrollbar
+        ttk::style element create Horizontal.Scrollbar.trough image $I(hor-basic) \
+            -sticky ew
+
+        ttk::style element create Horizontal.Scrollbar.thumb \
+             image [list $I(hor-accent) \
+                disabled $I(hor-basic) \
+                pressed $I(hor-hover) \
+                active $I(hor-hover) \
+            ] -sticky ew
+
+        ttk::style element create Vertical.Scrollbar.trough image $I(vert-basic) \
+            -sticky ns
+
+        ttk::style element create Vertical.Scrollbar.thumb \
+            image [list $I(vert-accent) \
+                disabled  $I(vert-basic) \
+                pressed $I(vert-hover) \
+                active $I(vert-hover) \
+            ] -sticky ns
+
+        # Scale
+        ttk::style element create Horizontal.Scale.trough image $I(scale-hor) \
+            -border 5 -padding 0
+
+        ttk::style element create Horizontal.Scale.slider \
+            image [list $I(circle-accent) \
+                disabled $I(circle-basic) \
+                pressed $I(circle-hover) \
+                active $I(circle-hover) \
+            ] -sticky {}
+
+        ttk::style element create Vertical.Scale.trough image $I(scale-vert) \
+            -border 5 -padding 0
+
+        ttk::style element create Vertical.Scale.slider \
+            image [list $I(circle-accent) \
+                disabled $I(circle-basic) \
+                pressed $I(circle-hover) \
+                active $I(circle-hover) \
+            ] -sticky {}
+            
+        # Tickscale
+        ttk::style element create Horizontal.TickScale.trough image $I(scale-hor) \
+            -border 5 -padding 0
+        
+        ttk::style element create Horizontal.TickScale.slider \
+            image [list $I(tick-hor-accent) \
+                disabled $I(tick-hor-basic) \
+                pressed $I(tick-hor-hover) \
+                active $I(tick-hor-hover) \
+            ] -sticky {}
+            
+        ttk::style element create Vertical.TickScale.trough image $I(scale-vert) \
+            -border 5 -padding 0
+
+        ttk::style element create Vertical.TickScale.slider \
+            image [list $I(tick-vert-accent) \
+                disabled $I(tick-vert-basic) \
+                pressed $I(tick-vert-hover) \
+                active $I(tick-vert-hover) \
+            ] -sticky {}
+
+        # Progressbar
+        ttk::style element create Horizontal.Progressbar.trough image $I(hor-basic) \
+            -sticky ew
+
+        ttk::style element create Horizontal.Progressbar.pbar image $I(hor-accent) \
+            -sticky ew
+
+        ttk::style element create Vertical.Progressbar.trough image $I(vert-basic) \
+            -sticky ns
+
+        ttk::style element create Vertical.Progressbar.pbar image $I(vert-accent) \
+            -sticky ns
+
+        # Entry
+        ttk::style element create Entry.field \
+            image [list $I(box-basic) \
+                {focus hover} $I(box-accent) \
+                invalid $I(box-invalid) \
+                disabled $I(box-basic) \
+                focus $I(box-accent) \
+                hover $I(box-hover) \
+            ] -border 5 -padding {8} -sticky news
+
+        # Combobox
+        ttk::style map TCombobox -selectbackground [list \
+            {!focus} $colors(-selectbg) \
+            {readonly hover} $colors(-selectbg) \
+            {readonly focus} $colors(-selectbg) \
+        ]
+            
+        ttk::style map TCombobox -selectforeground [list \
+            {!focus} $colors(-selectfg) \
+            {readonly hover} $colors(-selectfg) \
+            {readonly focus} $colors(-selectfg) \
+        ]
+
+        ttk::style element create Combobox.field \
+            image [list $I(box-basic) \
+                {readonly disabled} $I(rect-basic) \
+                {readonly pressed} $I(rect-basic) \
+                {readonly focus hover} $I(button-hover) \
+                {readonly focus} $I(button-hover) \
+                {readonly hover} $I(button-hover) \
+                {focus hover} $I(box-accent) \
+                readonly $I(rect-basic) \
+                invalid $I(box-invalid) \
+                disabled $I(box-basic) \
+                focus $I(box-accent) \
+                hover $I(box-hover) \
+            ] -border 5 -padding {8}
+            
+        ttk::style element create Combobox.button \
+            image [list $I(combo-button-basic) \
+                 {!readonly focus} $I(combo-button-focus) \
+                 {readonly focus} $I(combo-button-hover) \
+                 {readonly hover} $I(combo-button-hover)
+            ] -border 5 -padding {2 6 6 6}
+
+        ttk::style element create Combobox.arrow image $I(down) \
+            -width 15 -sticky e
+
+        # Spinbox
+        ttk::style element create Spinbox.field \
+            image [list $I(box-basic) \
+                invalid $I(box-invalid) \
+                disabled $I(box-basic) \
+                focus $I(box-accent) \
+                hover $I(box-hover) \
+            ] -border 5 -padding {8} -sticky news
+
+        ttk::style element create Spinbox.uparrow \
+            image [list $I(up) \
+                disabled $I(up) \
+                pressed $I(up-accent) \
+                active $I(up-accent) \
+            ] -border 4 -width 15 -sticky e
+
+        ttk::style element create Spinbox.downarrow \
+            image [list $I(down) \
+                disabled $I(down) \
+                pressed $I(down-accent) \
+                active $I(down-accent) \
+            ] -border 4 -width 15 -sticky e
+            
+        ttk::style element create Spinbox.button \
+            image [list $I(combo-button-basic) \
+                 {!readonly focus} $I(combo-button-focus) \
+                 {readonly focus} $I(combo-button-hover) \
+                 {readonly hover} $I(combo-button-hover)
+            ] -border 5 -padding {2 6 6 6}
+
+        # Sizegrip
+        ttk::style element create Sizegrip.sizegrip image $I(size) \
+            -sticky ewns
+
+        # Separator
+        ttk::style element create Horizontal.separator image $I(separator)
+
+        ttk::style element create Vertical.separator image $I(separator)
+        
+        # Card
+        ttk::style element create Card.field image $I(card) \
+            -border 10 -padding 4 -sticky news
+
+        # Labelframe
+        ttk::style element create Labelframe.border image $I(card) \
+            -border 5 -padding 4 -sticky news
+        
+        # Notebook
+        ttk::style element create Notebook.client \
+            image $I(notebook) -border 5
+
+        ttk::style element create Notebook.tab \
+            image [list $I(tab-disabled) \
+                selected $I(tab-basic) \
+                active $I(tab-hover) \
+            ] -border 5 -padding {14 4}
+
+        # Treeview
+        ttk::style element create Treeview.field image $I(card) \
+            -border 5
+
+        ttk::style element create Treeheading.cell \
+            image [list $I(tree-basic) \
+                pressed $I(tree-pressed)
+            ] -border 5 -padding 4 -sticky ewns
+        
+        ttk::style element create Treeitem.indicator \
+            image [list $I(right) \
+                user2 $I(empty) \
+                user1 $I(down) \
+            ] -width 26 -sticky {}
+
+        ttk::style configure Treeview -background $colors(-bg)
+        ttk::style configure Treeview.Item -padding {2 0 0 0}
+        ttk::style map Treeview \
+            -background [list selected $colors(-selectbg)] \
+            -foreground [list selected $colors(-selectfg)]
+
+        # Panedwindow
+        # Insane hack to remove clam's ugly sash
+        ttk::style configure Sash -gripcount 0
+    }
+}

TK-Themes/theme/light.tcl

@@ -0,0 +1,539 @@
+# Copyright (c) 2021 rdbende <rdbende@gmail.com>
+
+# The Azure theme is a beautiful modern ttk theme inspired by Microsoft's fluent design.
+
+package require Tk 8.6
+
+namespace eval ttk::theme::azure-light {
+    variable version 2.0
+    package provide ttk::theme::azure-light $version
+
+    ttk::style theme create azure-light -parent clam -settings {
+        proc load_images {imgdir} {
+            variable I
+            foreach file [glob -directory $imgdir *.png] {
+                set img [file tail [file rootname $file]]
+                set I($img) [image create photo -file $file -format png]
+            }
+        }
+
+        load_images [file join [file dirname [info script]] light]
+        
+        array set colors {
+            -fg             "#000000"
+            -bg             "#ffffff"
+            -disabledfg     "#737373"
+            -disabledbg     "#ffffff"
+            -selectfg       "#ffffff"
+            -selectbg       "#007fff"
+        }
+
+        ttk::style layout TButton {
+            Button.button -children {
+                Button.padding -children {
+                    Button.label -side left -expand true
+                } 
+            }
+        }
+
+        ttk::style layout Toolbutton {
+            Toolbutton.button -children {
+                Toolbutton.padding -children {
+                    Toolbutton.label -side left -expand true
+                } 
+            }
+        }
+
+        ttk::style layout TMenubutton {
+            Menubutton.button -children {
+                Menubutton.padding -children {
+                    Menubutton.indicator -side right
+                    Menubutton.label -side right -expand true
+                }
+            }
+        }
+
+        ttk::style layout TOptionMenu {
+            OptionMenu.button -children {
+                OptionMenu.padding -children {
+                    OptionMenu.indicator -side right
+                    OptionMenu.label -side right -expand true
+                }
+            }
+        }
+
+        ttk::style layout Accent.TButton {
+            AccentButton.button -children {
+                AccentButton.padding -children {
+                    AccentButton.label -side left -expand true
+                } 
+            }
+        }
+
+        ttk::style layout TCheckbutton {
+            Checkbutton.button -children {
+                Checkbutton.padding -children {
+                    Checkbutton.indicator -side left
+                    Checkbutton.label -side right -expand true
+                }
+            }
+        }
+
+        ttk::style layout Switch.TCheckbutton {
+            Switch.button -children {
+                Switch.padding -children {
+                    Switch.indicator -side left
+                    Switch.label -side right -expand true
+                }
+            }
+        }
+
+        ttk::style layout Toggle.TButton {
+            ToggleButton.button -children {
+                ToggleButton.padding -children {
+                    ToggleButton.label -side left -expand true
+                } 
+            }
+        }
+
+        ttk::style layout TRadiobutton {
+            Radiobutton.button -children {
+                Radiobutton.padding -children {
+                    Radiobutton.indicator -side left
+                    Radiobutton.label -side right -expand true
+                }
+            }
+        }
+
+        ttk::style layout Vertical.TScrollbar {
+            Vertical.Scrollbar.trough -sticky ns -children {
+                Vertical.Scrollbar.thumb -expand true
+            }
+        }
+
+        ttk::style layout Horizontal.TScrollbar {
+            Horizontal.Scrollbar.trough -sticky ew -children {
+                Horizontal.Scrollbar.thumb -expand true
+            }
+        }
+
+        ttk::style layout TCombobox {
+            Combobox.field -sticky nswe -children {
+                Combobox.padding -expand true -sticky nswe -children {
+                    Combobox.textarea -sticky nswe
+                }
+            }
+            Combobox.button -side right -sticky ns -children {
+                Combobox.arrow -sticky nsew
+            }
+        }
+        
+        ttk::style layout TSpinbox {
+            Spinbox.field -sticky nsew -children {
+                Spinbox.padding -expand true -sticky nswe -children {
+                    Spinbox.textarea -sticky nswe
+                }
+                
+            }
+            Spinbox.button -side right -sticky ns -children {
+                null -side right -children {
+                    Spinbox.uparrow -side top
+                    Spinbox.downarrow -side bottom
+                }
+            }
+        }
+        
+        ttk::style layout Horizontal.TSeparator {
+            Horizontal.separator -sticky nswe
+        }
+
+        ttk::style layout Vertical.TSeparator {
+            Vertical.separator -sticky nswe
+        }
+        
+        ttk::style layout Horizontal.Tick.TScale {
+            Horizontal.TickScale.trough -sticky ew -children {
+                Horizontal.TickScale.slider -sticky w
+            }
+        }
+        
+        ttk::style layout Vertical.Tick.TScale {
+            Vertical.TickScale.trough -sticky ns -children {
+                Vertical.TickScale.slider -sticky n
+            }
+        }
+
+        ttk::style layout Card.TFrame {
+            Card.field {
+                Card.padding -expand 1 
+            }
+        }
+
+        ttk::style layout TLabelframe {
+            Labelframe.border {
+                Labelframe.padding -expand 1 -children {
+                    Labelframe.label -side right
+                }
+            }
+        }
+
+        ttk::style layout TNotebook.Tab {
+            Notebook.tab -children {
+                Notebook.padding -side top -children {
+                    Notebook.label -side top -sticky {}
+                }
+            }
+        }
+
+        ttk::style layout Treeview.Item {
+            Treeitem.padding -sticky nswe -children {
+                Treeitem.indicator -side left -sticky {}
+                Treeitem.image -side left -sticky {}
+                Treeitem.text -side left -sticky {}
+            }
+        }
+
+
+        # Elements
+
+        # Button
+        ttk::style configure TButton -padding {8 4 8 4} -width -10 -anchor center
+
+        ttk::style element create Button.button image \
+            [list $I(box-basic) \
+            	{selected disabled} $I(box-basic) \
+                disabled $I(box-basic) \
+                selected $I(box-basic) \
+                pressed $I(box-basic) \
+                active $I(button-hover) \
+                focus $I(button-hover) \
+            ] -border 4 -sticky ewns
+
+        # Toolbutton
+        ttk::style configure Toolbutton -padding {8 4 8 4} -width -10 -anchor center
+
+        ttk::style element create Toolbutton.button image \
+            [list $I(empty) \
+            	{selected disabled} $I(empty) \
+                disabled $I(empty) \
+                selected $I(rect-basic) \
+                pressed $I(rect-basic) \
+                active $I(rect-basic) \
+            ] -border 4 -sticky ewns
+
+        # Menubutton
+        ttk::style configure TMenubutton -padding {8 4 4 4}
+
+        ttk::style element create Menubutton.button \
+            image [list $I(rect-basic) \
+                disabled $I(rect-basic) \
+                pressed $I(rect-basic) \
+                active $I(button-hover) \
+            ] -border 4 -sticky ewns 
+
+        ttk::style element create Menubutton.indicator \
+            image [list $I(down) \
+                active   $I(down) \
+                pressed  $I(down) \
+                disabled $I(down) \
+            ] -width 15 -sticky e
+
+        # OptionMenu
+        ttk::style configure TOptionMenu -padding {8 4 4 4}
+
+        ttk::style element create OptionMenu.button \
+            image [list $I(rect-basic) \
+                disabled $I(rect-basic) \
+                pressed $I(rect-basic) \
+                active $I(button-hover) \
+            ] -border 4 -sticky ewns 
+
+        ttk::style element create OptionMenu.indicator \
+            image [list $I(down) \
+                active   $I(down) \
+                pressed  $I(down) \
+                disabled $I(down) \
+            ] -width 15 -sticky e
+
+        # AccentButton
+        ttk::style configure Accent.TButton -padding {8 4 8 4} -width -10 -anchor center
+
+        ttk::style element create AccentButton.button image \
+            [list $I(rect-accent) \
+            	{selected disabled} $I(rect-accent-hover) \
+                disabled $I(rect-accent-hover) \
+                selected $I(rect-accent) \
+                pressed $I(rect-accent) \
+                active $I(rect-accent-hover) \
+                focus $I(rect-accent-hover) \
+            ] -border 4 -sticky ewns
+
+        # Checkbutton
+        ttk::style configure TCheckbutton -padding 4
+
+        ttk::style element create Checkbutton.indicator image \
+            [list $I(box-basic) \
+                {alternate disabled} $I(check-tri-basic) \
+                {selected disabled} $I(check-basic) \
+                disabled $I(box-basic) \
+                {pressed alternate} $I(check-tri-hover) \
+                {active alternate} $I(check-tri-hover) \
+                alternate $I(check-tri-accent) \
+                {pressed selected} $I(check-hover) \
+                {active selected} $I(check-hover) \
+                selected $I(check-accent) \
+                {pressed !selected} $I(rect-hover) \
+                active $I(box-hover) \
+            ] -width 26 -sticky w
+
+        # Switch
+        ttk::style element create Switch.indicator image \
+            [list $I(off-basic) \
+                {selected disabled} $I(on-basic) \
+                disabled $I(off-basic) \
+                {pressed selected} $I(on-hover) \
+                {active selected} $I(on-hover) \
+                selected $I(on-accent) \
+                {pressed !selected} $I(off-hover) \
+                active $I(off-hover) \
+            ] -width 46 -sticky w
+
+        # ToggleButton
+        ttk::style configure Toggle.TButton -padding {8 4 8 4} -width -10 -anchor center
+
+        ttk::style element create ToggleButton.button image \
+            [list $I(rect-basic) \
+                {selected disabled} $I(rect-accent-hover) \
+                disabled $I(rect-basic) \
+                {pressed selected} $I(rect-basic) \
+                {active selected} $I(rect-accent) \
+                selected $I(rect-accent) \
+                {pressed !selected} $I(rect-accent) \
+                active $I(rect-basic) \
+            ] -border 4 -sticky ewns
+
+        # Radiobutton
+        ttk::style configure TRadiobutton -padding 4
+
+        ttk::style element create Radiobutton.indicator image \
+            [list $I(outline-basic) \
+                {alternate disabled} $I(radio-tri-basic) \
+                {selected disabled} $I(radio-basic) \
+                disabled $I(outline-basic) \
+                {pressed alternate} $I(radio-tri-hover) \
+                {active alternate} $I(radio-tri-hover) \
+                alternate $I(radio-tri-accent) \
+                {pressed selected} $I(radio-hover) \
+                {active selected} $I(radio-hover) \
+                selected $I(radio-accent) \
+                {pressed !selected} $I(circle-hover) \
+                active $I(outline-hover) \
+            ] -width 26 -sticky w
+
+        # Scrollbar
+        ttk::style element create Horizontal.Scrollbar.trough image $I(hor-basic) \
+            -sticky ew
+
+        ttk::style element create Horizontal.Scrollbar.thumb \
+             image [list $I(hor-accent) \
+                disabled $I(hor-basic) \
+                pressed $I(hor-hover) \
+                active $I(hor-hover) \
+            ] -sticky ew
+
+        ttk::style element create Vertical.Scrollbar.trough image $I(vert-basic) \
+            -sticky ns
+
+        ttk::style element create Vertical.Scrollbar.thumb \
+            image [list $I(vert-accent) \
+                disabled  $I(vert-basic) \
+                pressed $I(vert-hover) \
+                active $I(vert-hover) \
+            ] -sticky ns
+
+        # Scale
+        ttk::style element create Horizontal.Scale.trough image $I(scale-hor) \
+            -border 5 -padding 0
+
+        ttk::style element create Horizontal.Scale.slider \
+            image [list $I(circle-accent) \
+                disabled $I(circle-basic) \
+                pressed $I(circle-hover) \
+                active $I(circle-hover) \
+            ] -sticky {}
+
+        ttk::style element create Vertical.Scale.trough image $I(scale-vert) \
+            -border 5 -padding 0
+
+        ttk::style element create Vertical.Scale.slider \
+            image [list $I(circle-accent) \
+                disabled $I(circle-basic) \
+                pressed $I(circle-hover) \
+                active $I(circle-hover) \
+            ] -sticky {}
+            
+        # Tickscale
+        ttk::style element create Horizontal.TickScale.trough image $I(scale-hor) \
+            -border 5 -padding 0
+        
+        ttk::style element create Horizontal.TickScale.slider \
+            image [list $I(tick-hor-accent) \
+                disabled $I(tick-hor-basic) \
+                pressed $I(tick-hor-hover) \
+                active $I(tick-hor-hover) \
+            ] -sticky {}
+            
+        ttk::style element create Vertical.TickScale.trough image $I(scale-vert) \
+            -border 5 -padding 0
+
+        ttk::style element create Vertical.TickScale.slider \
+            image [list $I(tick-vert-accent) \
+                disabled $I(tick-vert-basic) \
+                pressed $I(tick-vert-hover) \
+                active $I(tick-vert-hover) \
+            ] -sticky {}
+
+        # Progressbar
+        ttk::style element create Horizontal.Progressbar.trough image $I(hor-basic) \
+            -sticky ew
+
+        ttk::style element create Horizontal.Progressbar.pbar image $I(hor-accent) \
+            -sticky ew
+
+        ttk::style element create Vertical.Progressbar.trough image $I(vert-basic) \
+            -sticky ns
+
+        ttk::style element create Vertical.Progressbar.pbar image $I(vert-accent) \
+            -sticky ns
+
+        # Entry
+        ttk::style element create Entry.field \
+            image [list $I(box-basic) \
+                {focus hover} $I(box-accent) \
+                invalid $I(box-invalid) \
+                disabled $I(box-basic) \
+                focus $I(box-accent) \
+                hover $I(box-hover) \
+            ] -border 5 -padding {8} -sticky news
+
+        # Combobox
+        ttk::style map TCombobox -selectbackground [list \
+            {!focus} $colors(-selectbg) \
+            {readonly hover} $colors(-selectbg) \
+            {readonly focus} $colors(-selectbg) \
+        ]
+            
+        ttk::style map TCombobox -selectforeground [list \
+            {!focus} $colors(-selectfg) \
+            {readonly hover} $colors(-selectfg) \
+            {readonly focus} $colors(-selectfg) \
+        ]
+
+        ttk::style element create Combobox.field \
+            image [list $I(box-basic) \
+                {readonly disabled} $I(rect-basic) \
+                {readonly pressed} $I(rect-basic) \
+                {readonly focus hover} $I(button-hover) \
+                {readonly focus} $I(button-hover) \
+                {readonly hover} $I(button-hover) \
+                {focus hover} $I(box-accent) \
+                readonly $I(rect-basic) \
+                invalid $I(box-invalid) \
+                disabled $I(box-basic) \
+                focus $I(box-accent) \
+                hover $I(box-hover) \
+            ] -border 5 -padding {8}
+
+        ttk::style element create Combobox.button \
+            image [list $I(combo-button-basic) \
+                 {!readonly focus} $I(combo-button-focus) \
+                 {readonly focus} $I(combo-button-hover) \
+                 {readonly hover} $I(combo-button-hover)
+            ] -border 5 -padding {2 6 6 6}
+            
+        ttk::style element create Combobox.arrow image $I(down) \
+            -width 15 -sticky e
+
+        # Spinbox
+        ttk::style element create Spinbox.field \
+            image [list $I(box-basic) \
+                invalid $I(box-invalid) \
+                disabled $I(box-basic) \
+                focus $I(box-accent) \
+                hover $I(box-hover) \
+            ] -border 5 -padding {8} -sticky news
+
+        ttk::style element create Spinbox.uparrow \
+            image [list $I(up) \
+                disabled $I(up) \
+                pressed $I(up-accent) \
+                active $I(up-accent) \
+            ] -border 4 -width 15 -sticky e
+
+        ttk::style element create Spinbox.downarrow \
+            image [list $I(down) \
+                disabled $I(down) \
+                pressed $I(down-accent) \
+                active $I(down-accent) \
+            ] -border 4 -width 15 -sticky e
+            
+        ttk::style element create Spinbox.button \
+            image [list $I(combo-button-basic) \
+                 {!readonly focus} $I(combo-button-focus) \
+                 {readonly focus} $I(combo-button-hover) \
+                 {readonly hover} $I(combo-button-hover)
+            ] -border 5 -padding {2 6 6 6}
+
+        # Sizegrip
+        ttk::style element create Sizegrip.sizegrip image $I(size) \
+            -sticky ewns
+
+        # Separator
+        ttk::style element create Horizontal.separator image $I(separator)
+
+        ttk::style element create Vertical.separator image $I(separator)
+
+        # Card
+        ttk::style element create Card.field image $I(card) \
+            -border 10 -padding 4 -sticky news
+
+        # Labelframe
+        ttk::style element create Labelframe.border image $I(card) \
+            -border 5 -padding 4 -sticky news
+        
+        # Notebook
+        ttk::style element create Notebook.client \
+            image $I(notebook) -border 5
+
+        ttk::style element create Notebook.tab \
+            image [list $I(tab-disabled) \
+                selected $I(tab-basic) \
+                active $I(tab-hover) \
+            ] -border 5 -padding {14 4}
+
+        # Treeview
+        ttk::style element create Treeview.field image $I(card) \
+            -border 5
+
+        ttk::style element create Treeheading.cell \
+            image [list $I(tree-basic) \
+                pressed $I(tree-pressed)
+            ] -border 5 -padding 4 -sticky ewns
+        
+        ttk::style element create Treeitem.indicator \
+            image [list $I(right) \
+                user2 $I(empty) \
+                user1 $I(down) \
+            ] -width 26 -sticky {}
+
+        ttk::style configure Treeview -background $colors(-bg)
+        ttk::style configure Treeview.Item -padding {2 0 0 0}
+        ttk::style map Treeview \
+            -background [list selected #ccc] \
+            -foreground [list selected $colors(-fg)]
+
+        # Panedwindow
+        # Insane hack to remove clam's ugly sash
+        ttk::style configure Sash -gripcount 0
+    }
+}