diff --git a/fcl/shedit/shedit.pp b/fcl/shedit/shedit.pp
index 96fd1a9848..cfa7653614 100644
--- a/fcl/shedit/shedit.pp
+++ b/fcl/shedit/shedit.pp
@@ -173,8 +173,6 @@ type
 
 
     function  CalcSHFlags(FlagsIn: Byte; source: String): Byte;
-    procedure HideCursor;
-    procedure ShowCursor;
     procedure ChangeInLine(line: Integer);  // Redraws screen where necessary
     procedure AddUndoInfo(AInfo: TUndoInfo; CanMerge: Boolean);
 
@@ -237,6 +235,8 @@ type
       AAction: TKeyboardActionDescr): TShortcut;
     procedure AddKeyDef(AMethod: TKeyboardActionProc; ASelectionAction:TSelectionAction; ADescr: String; AKeyCode: Integer; AShiftState: TShiftState);
 
+    procedure HideCursor;
+    procedure ShowCursor;
     procedure FocusIn;
     procedure FocusOut;
     procedure DrawContent(x, y, w, h: Integer);
@@ -513,7 +513,10 @@ end.
 
 {
   $Log$
-  Revision 1.16  2000-01-31 19:28:12  sg
+  Revision 1.17  2000-02-19 19:06:17  sg
+  * HideCursor and ShowCursor are now public methods
+
+  Revision 1.16  2000/01/31 19:28:12  sg
   * Forgot some debug code ;)
 
   Revision 1.15  2000/01/31 19:23:37  sg