moved IDE interface units to ideintf directory

git-svn-id: trunk@4933 -
2025-08-26 15:20:22 +02:00 · 2003-12-22 00:11:53 +00:00 · 2003-12-22 00:11:53 +00:00 · 6ff959c82d
commit 6ff959c82d
parent 7660812e1d
24 changed files with 2182 additions and 49 deletions
--- a/.gitattributes
+++ b/.gitattributes
@ -185,26 +185,17 @@ designer/abstracteditor.pp svneol=native#text/pascal
 designer/abstractfilesystem.pp svneol=native#text/pascal
 designer/abstractformeditor.pp svneol=native#text/pascal
 designer/aligncompsdlg.pp svneol=native#text/pascal
-designer/columndlg.pp svneol=native#text/pascal
-designer/componenteditors.pas svneol=native#text/pascal
-designer/componenttreeview.pas svneol=native#text/pascal
 designer/controlselection.pp svneol=native#text/pascal
 designer/customeditor.pp svneol=native#text/pascal
 designer/designer.pp svneol=native#text/pascal
 designer/designermenu.pp svneol=native#text/pascal
 designer/designerprocs.pas svneol=native#text/pascal
 designer/filesystem.pp svneol=native#text/pascal
-designer/graphpropedits.pas svneol=native#text/pascal
-designer/imagelisteditor.pp svneol=native#text/pascal
 designer/jitform/jitform.pas svneol=native#text/pascal
 designer/jitforms.pp svneol=native#text/pascal
-designer/listviewpropedit.pp svneol=native#text/pascal
 designer/menueditorform.pas svneol=native#text/pascal
 designer/menupropedit.pp svneol=native#text/pascal
 designer/noncontrolforms.pas svneol=native#text/pascal
-designer/objectinspector.pp svneol=native#text/pascal
-designer/objinspstrconsts.pas svneol=native#text/pascal
-designer/propedits.pp svneol=native#text/pascal
 designer/scalecompsdlg.pp svneol=native#text/pascal
 designer/sizecompsdlg.pp svneol=native#text/pascal
 designer/taborderdlg.lfm svneol=native#text/plain
@ -478,6 +469,17 @@ ide/viewunit_dlg.lfm svneol=native#text/plain
 ide/viewunit_dlg.pp svneol=native#text/pascal
 ide/viewunits1.lrs svneol=native#text/pascal
 ide/wordcompletion.pp svneol=native#text/pascal
+ideintf/allideintf.pas svneol=native#text/pascal
+ideintf/columndlg.pp svneol=native#text/pascal
+ideintf/componenteditors.pas svneol=native#text/pascal
+ideintf/componenttreeview.pas svneol=native#text/pascal
+ideintf/graphpropedits.pas svneol=native#text/pascal
+ideintf/idecommands.pas svneol=native#text/pascal
+ideintf/imagelisteditor.pp svneol=native#text/pascal
+ideintf/listviewpropedit.pp svneol=native#text/pascal
+ideintf/objectinspector.pp svneol=native#text/pascal
+ideintf/objinspstrconsts.pas svneol=native#text/pascal
+ideintf/propedits.pp svneol=native#text/pascal
 images/bookmark.lrs svneol=native#text/pascal
 images/btn_downarrow.ico -text svneol=unset#image/x-icon
 images/btn_downarrow.xpm -text svneol=native#image/x-xpixmap
--- a/54
+++ b/54
@ -1,5 +1,5 @@
 #
-# Don't edit, this file is generated by FPCMake Version 1.1 [2003/12/19]
+# Don't edit, this file is generated by FPCMake Version 1.1 [2003/12/21]
 #
 default: all
 MAKEFILETARGETS=linux go32v2 win32 os2 freebsd beos netbsd amiga atari sunos qnx netware openbsd wdosx palmos macos darwin emx watcom
@ -224,15 +224,15 @@ endif
 endif
 export LAZARUS_CONFIG_DIR
 LAZARUS_IDE_CONFIG=$(LAZARUS_CONFIG_DIR)/idemake.cfg
-override TARGET_DIRS+=lcl components designer packager
+override TARGET_DIRS+=lcl components designer packager ideintf
 override TARGET_PROGRAMS+=lazarus
 override TARGET_EXAMPLEDIRS+=examples
-override CLEAN_FILES+=$(wildcard ./designer/*$(OEXT)) $(wildcard ./designer/*$(PPUEXT)) $(wildcard ./debugger/*$(OEXT)) $(wildcard ./debugger/*$(PPUEXT)) $(wildcard ./packager/*$(OEXT)) $(wildcard ./packager/*$(PPUEXT))
+override CLEAN_FILES+=$(wildcard ./designer/*$(OEXT)) $(wildcard ./designer/*$(PPUEXT)) $(wildcard ./debugger/*$(OEXT)) $(wildcard ./debugger/*$(PPUEXT)) $(wildcard ./packager/*$(OEXT)) $(wildcard ./packager/*$(PPUEXT)) $(wildcard ./doceditor/*$(OEXT)) $(wildcard ./doceditor/*$(PPUEXT))
 override INSTALL_BASEDIR=share/lazarus
 override DIST_DESTDIR=$(BASEDIR)/dist
 override COMPILER_OPTIONS+=-gl
 override COMPILER_INCLUDEDIR+=include include/$(OS_TARGET)
-override COMPILER_UNITDIR+=lcl/units/$(CPU_TARGET)/$(OS_TARGET) lcl/units/$(CPU_TARGET)/$(OS_TARGET)/$(LCL_PLATFORM) components/units/$(CPU_TARGET)/$(OS_TARGET) components/custom components/mpaslex designer designer/units debugger packager packager/units/$(CPU_TARGET)/$(OS_TARGET) .
+override COMPILER_UNITDIR+=lcl/units/$(CPU_TARGET)/$(OS_TARGET) lcl/units/$(CPU_TARGET)/$(OS_TARGET)/$(LCL_PLATFORM) components/units/$(CPU_TARGET)/$(OS_TARGET) components/custom components/mpaslex designer designer/units debugger ideintf ideintf/units packager packager/units/$(CPU_TARGET)/$(OS_TARGET) .
 override COMPILER_TARGETDIR+=.
 ifdef REQUIRE_UNITSDIR
 override UNITSDIR+=$(REQUIRE_UNITSDIR)
@ -2003,6 +2003,7 @@ TARGET_DIRS_LCL=1
 TARGET_DIRS_COMPONENTS=1
 TARGET_DIRS_DESIGNER=1
 TARGET_DIRS_PACKAGER=1
+TARGET_DIRS_IDEINTF=1
 ifdef TARGET_DIRS_LCL
 lcl_all:
 	$(MAKE) -C lcl all
@ -2175,6 +2176,49 @@ packager:
 	$(MAKE) -C packager all
 .PHONY: packager_all packager_debug packager_smart packager_release packager_examples packager_shared packager_install packager_sourceinstall packager_exampleinstall packager_distinstall packager_zipinstall packager_zipsourceinstall packager_zipexampleinstall packager_zipdistinstall packager_clean packager_distclean packager_cleanall packager_info packager_makefiles packager
 endif
+ifdef TARGET_DIRS_IDEINTF
+ideintf_all:
+	$(MAKE) -C ideintf all
+ideintf_debug:
+	$(MAKE) -C ideintf debug
+ideintf_smart:
+	$(MAKE) -C ideintf smart
+ideintf_release:
+	$(MAKE) -C ideintf release
+ideintf_examples:
+	$(MAKE) -C ideintf examples
+ideintf_shared:
+	$(MAKE) -C ideintf shared
+ideintf_install:
+	$(MAKE) -C ideintf install
+ideintf_sourceinstall:
+	$(MAKE) -C ideintf sourceinstall
+ideintf_exampleinstall:
+	$(MAKE) -C ideintf exampleinstall
+ideintf_distinstall:
+	$(MAKE) -C ideintf distinstall
+ideintf_zipinstall:
+	$(MAKE) -C ideintf zipinstall
+ideintf_zipsourceinstall:
+	$(MAKE) -C ideintf zipsourceinstall
+ideintf_zipexampleinstall:
+	$(MAKE) -C ideintf zipexampleinstall
+ideintf_zipdistinstall:
+	$(MAKE) -C ideintf zipdistinstall
+ideintf_clean:
+	$(MAKE) -C ideintf clean
+ideintf_distclean:
+	$(MAKE) -C ideintf distclean
+ideintf_cleanall:
+	$(MAKE) -C ideintf cleanall
+ideintf_info:
+	$(MAKE) -C ideintf info
+ideintf_makefiles:
+	$(MAKE) -C ideintf makefiles
+ideintf:
+	$(MAKE) -C ideintf all
+.PHONY: ideintf_all ideintf_debug ideintf_smart ideintf_release ideintf_examples ideintf_shared ideintf_install ideintf_sourceinstall ideintf_exampleinstall ideintf_distinstall ideintf_zipinstall ideintf_zipsourceinstall ideintf_zipexampleinstall ideintf_zipdistinstall ideintf_clean ideintf_distclean ideintf_cleanall ideintf_info ideintf_makefiles ideintf
+endif
 TARGET_EXAMPLEDIRS_EXAMPLES=1
 ifdef TARGET_EXAMPLEDIRS_EXAMPLES
 examples_all:
@ -2264,6 +2308,8 @@ cleanide:
 	$(DEL) $(wildcard ./debugger/*$(PPUEXT))
 	$(DEL) $(wildcard ./packager/*$(OEXT))
 	$(DEL) $(wildcard ./packager/*$(PPUEXT))
+	$(DEL) $(wildcard ./doceditor/*$(OEXT))
+	$(DEL) $(wildcard ./doceditor/*$(PPUEXT))
 ifeq ($(OS_TARGET), win32)
 	$(DEL) $(wildcard *.res)
 	$(DEL) lazarus.owr
--- a/Makefile.fpc
+++ b/Makefile.fpc
@ -12,7 +12,7 @@ packages=fcl regexpr

 [target]
 programs=lazarus
-dirs=lcl components designer packager
+dirs=lcl components designer packager ideintf
 exampledirs=examples

 [compiler]
@ -22,6 +22,7 @@ unitdir=lcl/units/$(CPU_TARGET)/$(OS_TARGET) \
        components/units/$(CPU_TARGET)/$(OS_TARGET) \
        components/custom components/mpaslex \
        designer designer/units debugger \
+        ideintf ideintf/units \
        packager packager/units/$(CPU_TARGET)/$(OS_TARGET) .
 includedir=include include/$(OS_TARGET)
 targetdir=.
@ -29,7 +30,8 @@ targetdir=.
 [clean]
 files=$(wildcard ./designer/*$(OEXT)) $(wildcard ./designer/*$(PPUEXT)) \
      $(wildcard ./debugger/*$(OEXT)) $(wildcard ./debugger/*$(PPUEXT)) \
-      $(wildcard ./packager/*$(OEXT)) $(wildcard ./packager/*$(PPUEXT))
+      $(wildcard ./packager/*$(OEXT)) $(wildcard ./packager/*$(PPUEXT)) \
+      $(wildcard ./doceditor/*$(OEXT)) $(wildcard ./doceditor/*$(PPUEXT))

 [install]
 basedir=share/lazarus
@ -92,6 +94,8 @@ cleanide:
        $(DEL) $(wildcard ./debugger/*$(PPUEXT))
        $(DEL) $(wildcard ./packager/*$(OEXT))
        $(DEL) $(wildcard ./packager/*$(PPUEXT))
+        $(DEL) $(wildcard ./doceditor/*$(OEXT))
+        $(DEL) $(wildcard ./doceditor/*$(PPUEXT))
 ifeq ($(OS_TARGET), win32)
        $(DEL) $(wildcard *.res)
        $(DEL) lazarus.owr
--- a/components/codetools/codetoolsstrconsts.pas
+++ b/components/codetools/codetoolsstrconsts.pas
@ -192,6 +192,7 @@ ResourceString
  ctsCustomComponentsDirectory = 'Custom Components Directory';
  ctsToolsDirectory = 'Tools Directory';
  ctsDesignerDirectory = 'Designer Directory';
+  ctsIDEIntfDirectory = 'IDEIntf Directory';
  ctsJITFormDirectory = 'JITForm Directory';
  ctsDesignerUnitsDirectory = 'Designer Units';
  ctsCompiledSrcPath = 'Compiled SrcPath';
--- a/components/codetools/definetemplates.pas
+++ b/components/codetools/definetemplates.pas
@ -3370,6 +3370,7 @@ begin
       +'debugger;'
       +'packager;'
       +'packager/registration;'
+       +'ideintf;'
       +'components/synedit;'
       +'components/codetools;'
       +'components/custom;'
@ -3460,7 +3461,7 @@ begin
    '','doceditor',da_Directory);
  DirTempl.AddChild(TDefineTemplate.Create('Unit path addition',
    Format(ctsAddsDirToSourcePath,['lcl, components']),
-    ExternalMacroStart+'SrcPath',
+    SrcPathMacroName,
      d('..'
       +';../components/codetools'
       +';../lcl'
@ -3474,19 +3475,19 @@ begin
    '','packager',da_Directory);
  DirTempl.AddChild(TDefineTemplate.Create('LCL path addition',
    Format(ctsAddsDirToSourcePath,['lcl']),
-    ExternalMacroStart+'SrcPath',
+    SrcPathMacroName,
      d('../lcl'
      +';../lcl/interfaces/'+WidgetType)
      +';'+SrcPath
    ,da_Define));
  DirTempl.AddChild(TDefineTemplate.Create('main path addition',
    Format(ctsAddsDirToSourcePath,[ctsLazarusMainDirectory]),
-    ExternalMacroStart+'SrcPath',
+    SrcPathMacroName,
    '..;'+SrcPath
    ,da_Define));
  DirTempl.AddChild(TDefineTemplate.Create('components path addition',
    Format(ctsAddsDirToSourcePath,['synedit']),
-    ExternalMacroStart+'SrcPath',
+    SrcPathMacroName,
      d('registration;'
      +'../components/synedit;'
      +'../components/codetools;'
@ -3511,6 +3512,19 @@ begin
  DirTempl.AddChild(SubDirTempl);
  MainDir.AddChild(DirTempl);

+  // <LazarusSrcDir>/ideintf
+  DirTempl:=TDefineTemplate.Create('IDEIntf',ctsIDEIntfDirectory,
+    '','ideintf',da_Directory);
+  DirTempl.AddChild(TDefineTemplate.Create('LCL path addition',
+    Format(ctsAddsDirToSourcePath,['lcl']),
+    SrcPathMacroName,
+      d('../components/codetools'
+       +';../lcl'
+       +';../lcl/interfaces/'+WidgetType)
+       +';'+SrcPath
+    ,da_Define));
+  MainDir.AddChild(DirTempl);
+
  // <LazarusSrcDir>/examples
  DirTempl:=TDefineTemplate.Create('Examples',
    Format(ctsNamedDirectory,['Examples']),
--- a/ide/buildlazdialog.pas
+++ b/ide/buildlazdialog.pas
@ -107,6 +107,7 @@ type
    FItemCodeTools: TBuildLazarusItem;
    FItemExamples: TBuildLazarusItem;
    FItemIDE: TBuildLazarusItem;
+    FItemIDEIntf: TBuildLazarusItem;
    FItemJITForm: TBuildLazarusItem;
    FItemLCL: TBuildLazarusItem;
    FItemPkgReg: TBuildLazarusItem;
@ -143,6 +144,7 @@ type
    property ItemSynEdit: TBuildLazarusItem read FItemSynEdit;
    property ItemCodeTools: TBuildLazarusItem read FItemCodeTools;
    property ItemPkgReg: TBuildLazarusItem read FItemPkgReg;
+    property ItemIDEIntf: TBuildLazarusItem read FItemIDEIntf;
    property ItemJITForm: TBuildLazarusItem read FItemJITForm;
    property ItemIDE: TBuildLazarusItem read FItemIDE;
    property ItemExamples: TBuildLazarusItem read FItemExamples;
@ -984,6 +986,7 @@ begin
  FItemSynEdit:=FindName('SynEdit');
  FItemCodeTools:=FindName('CodeTools');
  FItemPkgReg:=FindName('PkgReg');
+  FItemIDEIntf:=FindName('IDEIntf');
  FItemJITForm:=FindName('JITForm');
  FItemIDE:=FindName('IDE');
  FItemExamples:=FindName('Examples');
@ -1118,6 +1121,7 @@ begin
  FItemSynEdit:=nil;
  FItemCodeTools:=nil;
  FItemPkgReg:=nil;
+  FItemIDEIntf:=nil;
  FItemJITForm:=nil;
  FItemIDE:=nil;
  FItemExamples:=nil;
@ -1146,6 +1150,11 @@ begin
    mmBuild);
  fItems.Add(FItemPkgReg);

+  // IDE Interface
+  FItemIDEIntf:=TBuildLazarusItem.Create(
+    'IDEIntf',lisBuildIDEIntf,'ideintf',mmBuild);
+  fItems.Add(FItemIDEIntf);
+
  // JITForm
  FItemJITForm:=TBuildLazarusItem.Create(
    'JITForm',lisBuildJITForm,'designer/jitform',mmBuild);
--- a/ide/customformeditor.pp
+++ b/ide/customformeditor.pp
@ -38,10 +38,13 @@ uses
 {$IFDEF IDE_MEM_CHECK}
  MemCheck,
 {$ENDIF}
-  Classes, SysUtils, Math, AbstractFormeditor, Controls, PropEdits, TypInfo,
-  Forms, Menus, Dialogs, AVL_Tree, ObjectInspector, JITForms, NonControlForms,
-  ComponentReg, IDEProcs, ComponentEditors, KeyMapping, EditorOptions,
-  Designerprocs;
+  // LCL+FCL
+  Classes, SysUtils, TypInfo, Math, Controls, Forms, Menus, Dialogs,
+  // components
+  AVL_Tree, PropEdits, ObjectInspector, IDECommands,
+  // IDE
+  JITForms, NonControlForms, AbstractFormEditor, ComponentReg, IDEProcs,
+  ComponentEditors, KeyMapping, EditorOptions, DesignerProcs;

 Const OrdinalTypes = [tkInteger,tkChar,tkENumeration,tkbool];

--- a/ide/editoroptions.pp
+++ b/ide/editoroptions.pp
@ -44,8 +44,8 @@ uses
  SynEdit, SynEditHighlighter, SynEditAutoComplete, SynEditKeyCmds,
  SynHighlighterPas, SynHighlighterHTML, SynHighlighterCPP, SynHighlighterXML,
  SynHighlighterLFM, SynHighlighterPerl, SynHighlighterJava,
-  SynHighlighterUNIXShellScript,
-  Laz_XMLCfg, CodeTemplateDialog, KeyMapping, InputHistory, IDEOptionDefs,
+  SynHighlighterUNIXShellScript, Laz_XMLCfg,
+  IDECommands, CodeTemplateDialog, KeyMapping, InputHistory, IDEOptionDefs,
  LazarusIDEStrConsts, KeymapSchemeDlg;

 type
--- a/ide/keymapping.pp
+++ b/ide/keymapping.pp
@ -35,7 +35,7 @@ uses
  LCLIntf, LCLType,
  Forms, Classes, SysUtils, Buttons, LResources, StdCtrls, Controls,
  SynEdit, SynEditKeyCmds, Laz_XMLCfg, Dialogs, StringHashList,
-  LazarusIDEStrConsts;
+  LazarusIDEStrConsts, IDECommands;

 const
  { editor commands constants. see syneditkeycmds.pp for more
@ -238,10 +238,6 @@ const
  ecCustomToolLast       = ecUserFirst + 2999;


-type
-  TCommandArea = (caSourceEditor, caDesigner);
-  TCommandAreas = set of TCommandArea;
-  
 const
  caAll = [caSourceEditor, caDesigner];
  caSrcEditOnly = [caSourceEditor];
@ -256,14 +252,10 @@ type

  //---------------------------------------------------------------------------
  // TKeyCommandCategory is used to divide the key commands in handy packets
-  TKeyCommandCategory = class(TList)
+  TKeyCommandCategory = class(TIDECommandCategory)
  public
-    Name: string;
-    Description: string;
-    Parent: TKeyCommandCategory;
-    Areas: TCommandAreas;
    procedure Clear; override;
-    procedure Delete(Index: Integer);
+    procedure Delete(Index: Integer); override;
    constructor Create(const AName, ADescription: string;
      TheAreas: TCommandAreas);
  end;
@ -1628,10 +1620,13 @@ var NewKey1,NewKey2:integer;
  AText:AnsiString;
  DummyRelation, CurRelation:TKeyCommandRelation;
 begin
+  // set defaults
  NewKey1:=VK_UNKNOWN;
  NewShiftState1:=[];
  NewKey2:=VK_UNKNOWN;
  NewShiftState2:=[];
+  
+  // get settings for key1
  NewKey1:=EditorKeyStringToVKCode(Key1KeyComboBox.Text);
  if NewKey1<>VK_UNKNOWN then
  begin
@ -1640,7 +1635,10 @@ begin
    if Key1ShiftCheckBox.Checked then include(NewShiftState1,ssShift);
  end;

+  // get old relation
  CurRelation:=KeyCommandRelationList.Relations[KeyIndex];
+  
+  // search for conflict
  DummyRelation:=KeyCommandRelationList.Find(NewKey1,NewShiftState1,
                                                      CurRelation.Parent.Areas);
  if (DummyRelation<>nil) 
@ -2531,8 +2529,8 @@ end;

 procedure TKeyCommandCategory.Clear;
 begin
-  Name:='';
-  Description:='';
+  fName:='';
+  fDescription:='';
  inherited Clear;
 end;

@ -2546,9 +2544,9 @@ constructor TKeyCommandCategory.Create(const AName, ADescription: string;
  TheAreas: TCommandAreas);
 begin
  inherited Create;
-  Name:=AName;
-  Description:=ADescription;
-  Areas:=TheAreas;
+  FName:=AName;
+  FDescription:=ADescription;
+  FAreas:=TheAreas;
 end;


--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@ -1291,6 +1291,7 @@ resourcestring
  lisBuildComponent = 'Build Component';
  lisBuildCodeTools = 'Build CodeTools';
  lisBuildSynEdit = 'Build SynEdit';
+  lisBuildIDEIntf = 'Build IDE Interface';
  lisBuildJITForm = 'Build JIT Form';
  lisBuildPkgReg = 'Build Package Registration';
  lisBuildIDE = 'Build IDE';
--- a/ide/uniteditor.pp
+++ b/ide/uniteditor.pp
@ -41,19 +41,19 @@ uses
  {$IFDEF IDE_MEM_CHECK}
  MemCheck,
  {$ENDIF}
-  Classes, Controls, LCLProc, LCLType, LCLIntf, FileCtrl, LMessages, Forms,
-  Buttons, ComCtrls, SysUtils, Dialogs, StdCtrls, GraphType, Graphics, Extctrls,
-  Menus,
+  Classes, SysUtils, TypInfo,Controls, LCLProc, LCLType, LCLIntf, FileCtrl,
+  LMessages, Forms, Buttons, ComCtrls, Dialogs, StdCtrls, GraphType, Graphics,
+  Extctrls, Menus,
  // codetools
  CodeToolManager, CodeCache, SourceLog,
  // synedit
-  SynEditTypes, SynEdit, SynRegExpr, SynEditHighlighter, SynHighlighterPas,
+  SynEditTypes, SynEdit, SynRegExpr, SynEditHighlighter, //SynHighlighterPas,
  SynEditAutoComplete, SynEditKeyCmds, SynCompletion,
  // IDE units
-  EditorOptions, CustomFormEditor, KeyMapping, FormEditor, Project,
+  IDECommands, EditorOptions, CustomFormEditor, KeyMapping, FormEditor, Project,
  FindReplaceDialog, WordCompletion, FindInFilesDlg, IDEProcs, IDEOptionDefs,
-  MsgView, SearchResultView, InputHistory, LazarusIDEStrConsts, BaseDebugManager, Debugger,
-  TypInfo, LResources, LazConf, EnvironmentOpts, Compiler,
+  MsgView, SearchResultView, InputHistory, LazarusIDEStrConsts,
+  BaseDebugManager, Debugger, LResources, LazConf, EnvironmentOpts, Compiler,
  SortSelectionDlg, EncloseSelectionDlg, ClipBoardHistory, DiffDialog,
  SourceEditProcs, SourceMarks, CharacterMapDlg, frmSearch;

@ -2465,7 +2465,7 @@ begin
           NewStr := 'var         '+PropName+' :'+CompInt.GetPropTypeName(I);
        tkSString :
           NewStr := 'var         '+PropName+' :'+CompInt.GetPropTypeName(I);
-        tkUnKnown,tkLString,tkWString,tkAString,tkVariant :
+        tkUnknown,tkLString,tkWString,tkAString,tkVariant :
           NewStr := 'var         '+PropName+' :'+CompInt.GetPropTypeName(I);
      end;

--- a/ideintf/Makefile
+++ b/ideintf/Makefile
--- a/ideintf/Makefile.fpc
+++ b/ideintf/Makefile.fpc
@ -0,0 +1,43 @@
+#   $Id$
+#
+#   Makefile.fpc for Lazarus for Free Pascal
+#
+
+[package]
+name=ideintf
+version=0.9b
+
+[compiler]
+unitdir=../lcl/units/$(CPU_TARGET)/$(OS_TARGET) \
+        ../components/units/$(CPU_TARGET)/$(OS_TARGET) .
+unittargetdir=units
+options=-gl
+
+[target]
+units=allideintf
+implicitunits=idecommands propedits objinspstrconsts objectinspector columndlg \
+  componenteditors graphpropedits listviewpropedit imagelisteditor \
+  componenttreeview
+
+[clean]
+files=$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT)) \
+      $(wildcard ./units/*$(OEXT)) \
+      $(wildcard ./units/*$(PPUEXT)) \
+      $(wildcard ./units/*$(RSTEXT))
+
+[require]
+packages=fcl
+
+[default]
+lcldir=../lcl
+
+[rules]
+.PHONY: cleartarget all
+
+cleartarget:
+        -$(DEL) $(COMPILER_UNITTARGETDIR)/allideintf$(PPUEXT)
+
+all: cleartarget allideintf$(PPUEXT)
+
+# end.
+
--- a/ideintf/allideintf.pas
+++ b/ideintf/allideintf.pas
@ -0,0 +1,29 @@
+{
+ *****************************************************************************
+ *                                                                           *
+ *  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.                     *
+ *                                                                           *
+ *****************************************************************************
+ 
+  Dummy unit to compile all IDE interface units.
+}
+unit AllIDEIntf;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  IDECommands, PropEdits, ObjInspStrConsts, ObjectInspector, ColumnDlg,
+  ComponentEditors, GraphPropEdits, ListViewPropEdit, ImageListEditor,
+  ComponentTreeView;
+
+implementation
+
+end.
+
--- a/designer/columndlg.pp
+++ b/designer/columndlg.pp
--- a/designer/componenteditors.pas
+++ b/designer/componenteditors.pas
--- a/designer/componenttreeview.pas
+++ b/designer/componenttreeview.pas
--- a/designer/graphpropedits.pas
+++ b/designer/graphpropedits.pas
--- a/ideintf/idecommands.pas
+++ b/ideintf/idecommands.pas
@ -0,0 +1,56 @@
+{
+ *****************************************************************************
+ *                                                                           *
+ *  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.                     *
+ *                                                                           *
+ *****************************************************************************
+
+ Abstract:
+   Interface unit for IDE commands.
+}
+unit IDECommands;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils; 
+  
+type
+  TCommandArea = (caSourceEditor, caDesigner);
+  TCommandAreas = set of TCommandArea;
+
+  //---------------------------------------------------------------------------
+  // TIDECommandCategory is used to divide the key commands in handy packets
+  TIDECommandCategory = class(TList)
+  protected
+    FAreas: TCommandAreas;
+    FDescription: string;
+    FName: string;
+    FParent: TIDECommandCategory;
+  public
+    property Name: string read FName;
+    property Description: string read FDescription;
+    property Parent: TIDECommandCategory read FParent;
+    property Areas: TCommandAreas read FAreas;
+    procedure Delete(Index: Integer); virtual;
+  end;
+
+
+implementation
+
+{ TIDECommandCategory }
+
+procedure TIDECommandCategory.Delete(Index: Integer);
+begin
+  inherited Delete(Index);
+end;
+
+end.
+
--- a/designer/imagelisteditor.pp
+++ b/designer/imagelisteditor.pp
--- a/designer/listviewpropedit.pp
+++ b/designer/listviewpropedit.pp
--- a/designer/objectinspector.pp
+++ b/designer/objectinspector.pp
--- a/designer/objinspstrconsts.pas
+++ b/designer/objinspstrconsts.pas
--- a/designer/propedits.pp
+++ b/designer/propedits.pp