12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152 |
- {
- This file is part of the Free Component Library (FCL)
- Copyright (c) 1999-2000 by Michael Van Canneyt and Florian Klaempfl
- Classes unit for BeOS
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- **********************************************************************}
- {$mode objfpc}
- { determine the type of the resource/form file }
- {$define Win16Res}
- unit Classes;
- interface
- uses
- sysutils,
- rtlconsts,
- types,
- typinfo;
- {$i classesh.inc}
- implementation
- uses
- baseunix,unix;
- { OS - independent class implementations are in /inc directory. }
- {$i classes.inc}
- initialization
- CommonInit;
- finalization
- CommonCleanup;
- {$ifndef ver1_0}
- if ThreadsInited then
- DoneThreads;
- {$endif}
- end.
|