{
 wstrayicon.pas

 *****************************************************************************
 *                                                                           *
 *  See the file COPYING.modifiedLGPL, 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.                     *
 *                                                                           *
 *****************************************************************************

 Authors: Felipe Monteiro de Carvalho and Andrew Haines

 Special thanks for: Danny Milosavljevic and the Lazarus Team

 This unit calls the appropriate widgetset code.
}
unit wstrayicon;

{$ifdef FPC}
  {$mode delphi}{$H+}
{$endif}

interface

{*******************************************************************
*  Compatibility code for Delphi for Windows.
*******************************************************************}
{$ifndef FPC}
  {$define MSWindows}
{$endif}


uses

{$ifdef Win32}

  wswin32trayicon,

{$endif}
{$ifdef WinCE}

  wswincetrayicon,

{$endif}
{$ifdef UNIX}

  {$ifdef DARWIN}
  
    wscarbontrayicon,
    
  {$else}

    {$ifdef LCLGtk}
      wsgtktrayicon,
    {$endif}

    {$ifdef LCLGnome}
      wsgtktrayicon,
    {$endif}

    {$ifdef LCLGtk2}
      wsgtk2trayicon,
    {$endif}

    {$ifdef LCLQt}
      wsx11trayicon,
    {$endif}
  
  {$endif}

{$endif}

  Classes, SysUtils;

type

  { TWSTrayIcon }

  TWSTrayIcon = class(TWidgetTrayIcon)
    private
    protected
    public
    published
  end;

implementation

end.


