hunk ./attraktio.ml 28
+let azerty_layout () = ignore (Unix.system "setxkbmap fr")
+
+let qwertz_layout () = ignore (Unix.system "setxkbmap de")
+
hunk ./attraktio.ml 196
-    let t = Text.create Fonts.arial "F1 Qwerty\nF2 Dvorak\nF3 Das variant" (scale 40.0) in
+    let t = Text.create Fonts.arial "F1 Qwerty\nF2 Dvorak\nF3 Das variant\nF4 Azerty\nF5 Qwertz" (scale 40.0) in
hunk ./attraktio.ml 237
+		    | W.Event.Key (W.Event.KeyPressed, W.Key.FKey 4, _, _, _) ->
+			azerty_layout();
+			loop ()
+		    | W.Event.Key (W.Event.KeyPressed, W.Key.FKey 5, _, _, _) ->
+			qwertz_layout();
+			loop ()