Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* fixed

peter 26 years ago
parent
bf3e811517
commit
8cdbc655e6
1 changed files with 1 additions and 0 deletions
Unified View Show Diff Stats
  1. 1 0
      tests/tbs0249.pp

+ 1 - 0
tests/tbs0249.pp
View File 

@@ -7,6 +7,7 @@ type
 
   TNotifyEvent = procedure( Sender: TObject ) of object;
 
   TNotifyEvent = procedure( Sender: TObject ) of object;
 
 
 
   THost = class
 
   THost = class
 
+  protected
 
     FOnEvent: TNotifyEvent;
 
     FOnEvent: TNotifyEvent;
 
     procedure SetOnEvent( Value: TNotifyEvent );
 
     procedure SetOnEvent( Value: TNotifyEvent );
 
   public
 
   public