MML/Core: Clean up os_linux.

Units/MMLCore/os_linux.pas

@@ -23,6 +23,12 @@
 {$mode objfpc}{$H+}
 unit os_linux;
 
+{
+  TODO's:
+  - Allow selecting a different X display
+  - Fix keyboard layout / SendString
+}
+
 interface
 
   uses
@@ -126,7 +132,7 @@ implementation
  {
     This is extremely hacky, but also very useful.
     We have to install a X error handler, because otherwise X
-    will terminate out entire app on error.
+    will terminate our entire app on error.
 
     Since we want the right thread to recieve the right error, we have to
     fiddle a bit with threadvars, mutexes / semaphores.
@@ -413,12 +419,13 @@ implementation
     result := xmask and ButtonP > 0;
   end;
 
-procedure TWindow.SendString(str: string);
-var
+  { TODO: Check if this supports multiple keyboard layouts, probably not }
+  procedure TWindow.SendString(str: string);
+  var
     I, L: Integer;
     K: Byte;
     HoldShift: Boolean;
-begin
+  begin
     HoldShift := False;
     L := Length(str);
     for I := 1 to L do
@@ -446,7 +453,7 @@ begin
         ReleaseKey(VK_SHIFT);
       end;
     end;
-end;
+  end;
 
   procedure TWindow.HoldKey(key: integer);
   begin