From fe884b1796e2c1491fba777f7eec4d6d80bd7692 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:48:12 +0000
Subject: [PATCH] Keith:   * Removed more obsolete code   * Compiles again!

git-svn-id: trunk@1271 -
---
 lcl/interfaces/win32/win32int.pp | 18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

diff --git a/lcl/interfaces/win32/win32int.pp b/lcl/interfaces/win32/win32int.pp
index 48aa10bb81..9f2e46156a 100644
--- a/lcl/interfaces/win32/win32int.pp
+++ b/lcl/interfaces/win32/win32int.pp
@@ -19,11 +19,6 @@
  
 Unit Win32Int;
 
-{ $I checkcompiler.inc}
-
-{$MODE OBJFPC} 
-{$LONGSTRINGS ON}
-
 Interface
 
 {$IFDEF Trace}
@@ -39,13 +34,6 @@ Uses
   GraphType, InterfaceBase, LCLLinux, LCLType, LMessages, StdCtrls, SysUtils,
   VCLGlobals, Win32Def;
 
-Var
-  AppName: PChar;
-  FormClassName: PChar;
-
-Const
-  ClsName = 'LazarusForm';
-
 Type
   { Virtual alignment-control record }
   TAlignment = Record
@@ -224,6 +212,7 @@ Type
 
 Const
   BOOL_RESULT: Array[Boolean] Of String = ('False', 'True');
+  ClsName = 'LazarusForm';
 
 Var
   OldClipboardViewer: HWND;
@@ -250,6 +239,11 @@ End.
 { =============================================================================
 
   $Log$
+  Revision 1.13  2002/04/03 03:41:29  lazarus
+  Keith:
+    * Removed more obsolete code
+    * Compiles again!
+
   Revision 1.12  2002/04/03 01:52:42  lazarus
   Keith: Removed obsolete code, in preperation of a pending TWin32Object cleanup