* fix

git-svn-id: https://svn.code.sf.net/p/kolmck/code@160 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07

KOLadd.pas

@@ -450,7 +450,7 @@ type
     FDestroying: Boolean;
     FFlags: DWORD;
     function Execute( Sender: PThread ): PtrInt;
-    procedure Changed;
+    function Changed: LRESULT;
   protected
     destructor Destroy; virtual;
     {*}
@@ -2354,9 +2354,8 @@ end;
 
 { TDirChange }
 
+function TDirChange.Changed: LRESULT;
 {$IFDEF ASM_VERSION}
-//[procedure TDirChange.Changed]
-procedure TDirChange.Changed;
 asm
         MOV      ECX, [EAX].FOnChange.TMethod.Code
         JECXZ    @@exit
@@ -2365,14 +2364,12 @@ asm
         MOV      EAX, [EDX].FOnChange.TMethod.Data
         CALL     [EDX].FOnChange.TMethod.Code
 @@exit:
-end;
 {$ELSE ASM_VERSION} //Pascal
-procedure TDirChange.Changed;
 begin
   if Assigned( FOnChange ) then
     FOnChange(@Self, FPath);
-end;
 {$ENDIF ASM_VERSION}
+end;
 
 {$IFDEF noASM_VERSION}
 //[destructor TDirChange.Destroy]

mckObjs.pas

@@ -37,7 +37,7 @@ uses KOL, Classes, Forms, Controls, Dialogs, Windows, Messages, extctrls,
 //////////////////////////////////////////
      {$ENDIF}                           //
 //////////////////////////////////////////
-     imglist, TypInfo, menus;
+     , imglist, TypInfo, menus;
 
 type
   //============================================================================

mirror.pas

@@ -65,7 +65,7 @@ uses olectrls, KOL, KOLadd, Classes, Forms, Controls, Dialogs, Windows, Messages
      DsgnIntf                                   //
      {$ENDIF}                                   //
 //////////////////////////////////////////////////
-     ToolsAPI, TypInfo, Consts,  mckMenuEditor, mckAccEditor, mckActionListEditor;
+     , ToolsAPI, TypInfo, Consts,  mckMenuEditor, mckAccEditor, mckActionListEditor;
 
 const
   WM_USER_ALIGNCHILDREN = WM_USER + 1;