Browse Source

* storebrowsercol returns boolean now

peter 25 years ago
parent
commit
40e19412ed
1 changed files with 7 additions and 3 deletions
  1. 7 3
      ide/fake/compiler/browcol.pas

+ 7 - 3
ide/fake/compiler/browcol.pas

@@ -156,7 +156,7 @@ procedure InitBrowserCol;
 procedure DoneBrowserCol;
 procedure DoneBrowserCol;
 
 
 function  LoadBrowserCol(S: PStream): boolean;
 function  LoadBrowserCol(S: PStream): boolean;
-procedure StoreBrowserCol(S: PStream);
+function  StoreBrowserCol(S: PStream): boolean;
 procedure RegisterSymbols;
 procedure RegisterSymbols;
 
 
 implementation
 implementation
@@ -443,8 +443,9 @@ begin
   LoadBrowserCol:=true;
   LoadBrowserCol:=true;
 end;
 end;
 
 
-procedure StoreBrowserCol(S: PStream);
+function StoreBrowserCol(S: PStream): boolean;
 begin
 begin
+  StoreBrowserCol:=true;
 end;
 end;
 
 
 procedure RegisterSymbols;
 procedure RegisterSymbols;
@@ -500,7 +501,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.4  1999-08-17 13:25:16  peter
+  Revision 1.5  2000-01-27 23:42:33  peter
+    * storebrowsercol returns boolean now
+
+  Revision 1.4  1999/08/17 13:25:16  peter
     * updates with the compiler browcol
     * updates with the compiler browcol
 
 
   Revision 1.3  1999/08/05 16:54:35  peter
   Revision 1.3  1999/08/05 16:54:35  peter