diff --git a/roles/scripts/files/t460p/start_vm b/roles/scripts/files/t460p/start_vm
new file mode 100644
index 0000000..31a604b
--- /dev/null
+++ b/roles/scripts/files/t460p/start_vm
@@ -0,0 +1,5 @@
+#! /usr/bin/env sh
+
+virsh --connect qemu:///system start "win11"
+
+virt-manager --connect qemu:///system --show-domain-console "win11"
diff --git a/roles/scripts/tasks/main.yml b/roles/scripts/tasks/main.yml
index a86c43c..63d4b21 100644
--- a/roles/scripts/tasks/main.yml
+++ b/roles/scripts/tasks/main.yml
@@ -42,4 +42,5 @@
   with_items:
     - { src: compiledoc, dest: ~/.local/bin/compiledoc }
     - { src: inline_code.tex, dest: ~/.local/bin/inline_code.tex }
+    - { src: start_vm, dest: ~/.local/bin/start_vm }
   tags: t460p
diff --git a/roles/xmonad/files/xmonad_t460p.hs b/roles/xmonad/files/xmonad_t460p.hs
index f41359f..8f3e603 100644
--- a/roles/xmonad/files/xmonad_t460p.hs
+++ b/roles/xmonad/files/xmonad_t460p.hs
@@ -35,7 +35,7 @@ import XMonad.Prompt.FuzzyMatch
 import XMonad.Prompt.Shell
 import XMonad.Prompt.Workspace
 import XMonad.Hooks.WorkspaceHistory (workspaceHistoryHook)
-import XMonad.Hooks.DynamicProperty
+import XMonad.Hooks.OnPropertyChange (onXPropertyChange)
 import qualified XMonad.StackSet as W
 import qualified Data.Map        as M
 import Text.Regex.Posix
@@ -90,7 +90,8 @@ topicItems =
   , TI         "ST_Frontend"    "~/projekte/SchulungsTracker/Frontend" (switchToLayout "Programming" *> spawnShellAndExecute "npm start" *> spawnShell *> spawnEditor)
   , TI         "ST_Backend"    "~/projekte/SchulungsTracker/Backend" (switchToLayout "Full" *> spawn "rider ~/projekte/SchulungsTracker/Backend/SchulungsTracker_Backend.sln")
   , TI         "ST_Wiki"    "~/projekte/SchulungsTracker/Wiki" (switchToLayout "Programming" *> spawnEditor)
-  , TI          "azsql-dump" "~/projekte/azsql-dump" (switchToLayout "Programming" *> spawnShell *> spawnEditor)
+  , TI         "azsql-dump" "~/projekte/azsql-dump" (switchToLayout "Programming" *> spawnShell *> spawnEditor)
+  , TI         "gtue"   "~/projekte/gtue"   (switchToLayout "FullNoBar" *> spawn "start_vm")
   ]
 
 myTopicConfig :: TopicConfig
@@ -227,11 +228,12 @@ myAdditionalKeys =
 mySpacing :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a
 mySpacing i = spacingRaw True (Border i i i i) True (Border i i i i) True
 
-myLayout = avoidStruts $ tiling ||| hacking ||| full
+myLayout = avoidStrutsOn [U] (tiling ||| hacking ||| full) ||| fullNoBar
   where
     tiling = renamed [Replace "Tall"] $ smartBorders $ mySpacing 6 $ Tall 1 (3/100) (1/2) 
     hacking = renamed [Replace "Programming"] $ smartBorders $ mySpacing 6 $ Tall 1 (3/100) (5/8)
     full = noBorders Full
+    fullNoBar = renamed [Replace "FullNoBar"] full
 -- Regex lifted up to use in manageHook
 (*!?) :: Functor f => f String -> String -> f Bool
 q *!? x = fmap (=~ x) q
@@ -268,7 +270,7 @@ myManageHook = composeAll . concat $
 -- return (All True) if the default handler is to be run afterwards. To
 -- combine event hooks use mappend or mconcat from Data.Monoid.
 --
-myEventHook = dynamicPropertyChange "WM_NAME" (title =? "it factum Max Hohlfeld - KeePassXC" <||> title =? "db.kdbx [Gesperrt] - KeePassXC" --> floating)
+myEventHook = onXPropertyChange "WM_NAME" (title =? "it factum Max Hohlfeld - KeePassXC" <||> title =? "db.kdbx [Gesperrt] - KeePassXC" --> floating)
     where floating = customFloating $ W.RationalRect (1/8) (1/8) (3/4) (3/4)
 
 ------------------------------------------------------------------------