From 71f77609fd552417f0db1ee215d770085f55cb1e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 24 Jun 2003 15:23:10 +0000
Subject: [PATCH] deleted unused code

git-svn-id: trunk@4307 -
---
 .gitattributes                                |  1 +
 components/turbopower_ipro/ipdefine.inc       |  5 ++
 components/turbopower_ipro/iphtml.pas         | 14 ++++
 components/turbopower_ipro/turbopoweripro.lpk | 75 +++++++++++++++++++
 lcl/menus.pp                                  | 14 +---
 tools/install/create_fpc_rpm.sh               |  4 +-
 6 files changed, 100 insertions(+), 13 deletions(-)
 create mode 100644 components/turbopower_ipro/turbopoweripro.lpk

diff --git a/.gitattributes b/.gitattributes
index e318115803..a062f1c62d 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -132,6 +132,7 @@ components/turbopower_ipro/iphtmlpv.pas svneol=native#text/pascal
 components/turbopower_ipro/ipmsg.pas svneol=native#text/pascal
 components/turbopower_ipro/ipstrms.pas svneol=native#text/pascal
 components/turbopower_ipro/iputils.pas svneol=native#text/pascal
+components/turbopower_ipro/turbopoweripro.lpk svneol=native#text/pascal
 debugger/breakpointsdlg.lfm svneol=native#text/plain
 debugger/breakpointsdlg.lrs svneol=native#text/pascal
 debugger/breakpointsdlg.pp svneol=native#text/pascal
diff --git a/components/turbopower_ipro/ipdefine.inc b/components/turbopower_ipro/ipdefine.inc
index 3f2771cd30..71c32c6e18 100644
--- a/components/turbopower_ipro/ipdefine.inc
+++ b/components/turbopower_ipro/ipdefine.inc
@@ -33,6 +33,11 @@
        so options specified here could be overridden by hardcoded
        options in the unit source file.}
 
+{$IFDEF FPC}
+{$DEFINE IP_LAZARUS}
+{$ENDIF}
+
+
 {$IFDEF IP_LAZARUS}
 
 {$MODE DELPHI}{$H+}
diff --git a/components/turbopower_ipro/iphtml.pas b/components/turbopower_ipro/iphtml.pas
index 9ae40ef25c..b2b5c891f7 100644
--- a/components/turbopower_ipro/iphtml.pas
+++ b/components/turbopower_ipro/iphtml.pas
@@ -2865,6 +2865,10 @@ function MinI2(const I1, I2: Integer) : Integer;
 function CalcMultiLength(const List: TIpHtmlMultiLengthList;
   Avail: Integer; var Sections: Integer): TIntArr;                     {!!.10}
 
+{$IFDEF IP_LAZARUS}
+procedure Register;
+{$ENDIF}
+
 implementation
 
 uses
@@ -2912,6 +2916,13 @@ var
   BWPrinter: Boolean;                                                  {!!.10}
   Aspect : double;                                                     {!!.02}
 
+{$IFDEF IP_LAZARUS}
+procedure Register;
+begin
+  RegisterComponents('IPro', [TIpHtmlPanel]);
+end;
+{$ENDIF}
+
 {!!.14 new}
 {$IFNDEF VERSION3ONLY}
 type
@@ -17558,6 +17569,9 @@ initialization
   InitScrollProcs;
 {
   $Log$
+  Revision 1.8  2003/06/24 15:23:10  mattias
+  deleted unused code
+
   Revision 1.7  2003/03/31 20:25:18  mattias
   fixed scrollbars of TIpHtmlPanel
 
diff --git a/components/turbopower_ipro/turbopoweripro.lpk b/components/turbopower_ipro/turbopoweripro.lpk
new file mode 100644
index 0000000000..a6f8ca2b87
--- /dev/null
+++ b/components/turbopower_ipro/turbopoweripro.lpk
@@ -0,0 +1,75 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package>
+    <Name Value="TurboPowerIPro"/>
+    <Author Value="Turbopower, portiert fuer Lazarus von Mattias Gaertner"/>
+    <Description Value="Turbopower Internet Pro - Lazarus Package"/>
+    <License Value="MPL - Mozilla public license"/>
+    <Version Major="1"/>
+    <Files Count="9">
+      <Item1>
+        <Filename Value="ipanim.pas"/>
+        <UnitName Value="IpAnim"/>
+      </Item1>
+      <Item2>
+        <Filename Value="ipconst.pas"/>
+        <UnitName Value="IpConst"/>
+      </Item2>
+      <Item3>
+        <Filename Value="iphtml.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="IpHtml"/>
+      </Item3>
+      <Item4>
+        <Filename Value="iphtmlpv.pas"/>
+        <UnitName Value="IpHtmlPv"/>
+      </Item4>
+      <Item5>
+        <Filename Value="ipmsg.pas"/>
+        <UnitName Value="IpMsg"/>
+      </Item5>
+      <Item6>
+        <Filename Value="ipstrms.pas"/>
+        <UnitName Value="IpStrms"/>
+      </Item6>
+      <Item7>
+        <Filename Value="iputils.pas"/>
+        <UnitName Value="IpUtils"/>
+      </Item7>
+      <Item8>
+        <Filename Value="ipdefct.inc"/>
+        <Type Value="Include"/>
+      </Item8>
+      <Item9>
+        <Filename Value="ipdefine.inc"/>
+        <Type Value="Include"/>
+      </Item9>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="2">
+      <Item1>
+        <PackageName Value="LCL"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item2>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)/"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+  <CompilerOptions>
+    <SearchPaths>
+      <UnitOutputDirectory Value="lib/"/>
+      <LCLWidgetType Value="gtk"/>
+    </SearchPaths>
+    <Other>
+      <CompilerPath Value="$(CompPath)"/>
+    </Other>
+  </CompilerOptions>
+</CONFIG>
diff --git a/lcl/menus.pp b/lcl/menus.pp
index 8587dbf54b..a8a241bc42 100644
--- a/lcl/menus.pp
+++ b/lcl/menus.pp
@@ -309,17 +309,6 @@ procedure Register;
 implementation
 
 
-{ Menu command managment }
-
-{var
-  CommandPool: TBits;
-
-function UniqueCommand: Word;
-begin
-  Result := CommandPool.OpenBit;
-  CommandPool[Result] := True;
-end;
-}
 function ShortCutToText(ShortCut: TShortCut): string;
 begin
   Result:=ShortCutToShortCutText(ShortCut);
@@ -374,6 +363,9 @@ end.
 
 {
   $Log$
+  Revision 1.47  2003/06/24 15:23:10  mattias
+  deleted unused code
+
   Revision 1.46  2003/06/23 12:33:55  mattias
   implemented TPairSplitter streaming
 
diff --git a/tools/install/create_fpc_rpm.sh b/tools/install/create_fpc_rpm.sh
index b22a91491e..454d7e9c6f 100644
--- a/tools/install/create_fpc_rpm.sh
+++ b/tools/install/create_fpc_rpm.sh
@@ -36,13 +36,13 @@ fi
 if [ "x$FPCVersion" = "xdevel" ]; then
   Year=03
   Month=06
-  Day=21
+  Day=24
   LazVersion=1.1
 fi
 if [ "x$FPCVersion" = "xstable" ]; then
   Year=03
   Month=06
-  Day=21
+  Day=24
   LazVersion=1.0.8
 fi