improved deb creation

git-svn-id: trunk@2914 -

.gitattributes

@@ -725,6 +725,7 @@ packager/brokendependenciesdlg.pas svneol=native#text/pascal
 packager/lazaruspackageintf.pas svneol=native#text/pascal
 packager/packagedefs.pas svneol=native#text/pascal
 packager/packageeditor.pas svneol=native#text/pascal
+packager/packagesystem.pas svneol=native#text/pascal
 packager/pkggraphexporer.pas svneol=native#text/pascal
 packager/pkgmanager.pas svneol=native#text/pascal
 packager/ucomponentmanmain.lfm svneol=native#text/plain

ide/main.pp

@@ -46,7 +46,7 @@ uses
   Classes, SysUtils, Process, TypInfo,
   // lcl
   LCLType, LclLinux, LMessages, LResources, StdCtrls, Forms, Buttons, Menus,
-  ComCtrls, Spin, FileCtrl, Controls, Graphics, GraphType, ExtCtrls, Dialogs,
+  FileCtrl, Controls, Graphics, GraphType, ExtCtrls, Dialogs,
   // codetools
   CodeToolManager, CodeCache, DefineTemplates,
   // synedit
@@ -59,30 +59,22 @@ uses
   CompReg, IDEComp, AbstractFormEditor, Designer, FormEditor, CustomFormEditor,
   ObjectInspector, PropEdits, ControlSelection, ColumnDlg, MenuPropEdit,
   // debugger
-  Debugger, DBGOutputForm, GDBMIDebugger, RunParamsOpts, Watchesdlg,
+  RunParamsOpts, BaseDebugManager, DebugManager,
-  BreakPointsdlg, DebuggerDlg, LocalsDlg,
   // packager
   PkgManager, BasePkgManager,
   // source editing
   UnitEditor, EditDefineTree, CodeToolsOptions, IDEOptionDefs, CodeToolsDefines,
   DiffDialog, DiskDiffsDialog, UnitInfoDlg, EditorOptions, ViewUnit_dlg,
-  // rest ide
+  // rest of the ide
   LazarusIDEStrConsts, LazConf, MsgView, EnvironmentOpts,
   TransferMacros, KeyMapping, IDEProcs, ExtToolDialog, ExtToolEditDlg,
   MacroPromptDlg, OutputFilter, BuildLazDialog, MiscOptions,
   InputHistory, UnitDependencies, ClipBoardHistory, ProcessList,
   InitialSetupDlgs, NewDialog, MakeResStrDlg, ToDoList, AboutFrm,
   // main ide
-  BaseDebugManager, DebugManager, MainBar;
+  MainBar;
 
 type
-  TDisplayState = (
-    dsSource,     // focussing sourcenotebook
-    dsInspector,  // focussing object inspector
-    dsForm,       // focussing designer form
-    dsInspector2  // focussing object inspector
-    );
-
   TMainIDE = class(TMainIDEBar)
     // event handlers
     
@@ -470,7 +462,7 @@ type
     
     // package(s)
     function DoNewPackage: TModalResult;
-    
+
     // edit menu
     procedure DoEditMenuCommand(EditorCommand: integer);
     
@@ -5263,10 +5255,7 @@ end;
 
 function TMainIDE.DoNewPackage: TModalResult;
 begin
-  Result:=mrCancel;
+  Result:=PkgBoss.DoNewPackage;
-
-  
-  Result:=mrOk;
 end;
 
 function TMainIDE.DoBuildProject(BuildAll: boolean): TModalResult;
@@ -7344,8 +7333,7 @@ begin
   {$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.OnSrcNotebookShowHintForSource B');{$ENDIF}
 
   if (ToolStatus=itDebugger)
-  and (dcEvaluate in DebugBoss.Commands) then begin
+  and DebugBoss.Evaluate(Identifier,DebugEval) then begin
-    DebugBoss.Evaluate(Identifier,DebugEval);
     if (DebugEval<>'') then
       SmartHintStr:=SmartHintStr+' = '+DebugEval;
   end;
@@ -8123,6 +8111,9 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.505  2003/04/02 17:06:27  mattias
+  improved deb creation
+
   Revision 1.504  2003/04/01 23:35:28  mattias
   added menu component editor from Olivier
 

packager/packagesystem.pas

@@ -0,0 +1,76 @@
+{  $Id$  }
+{
+ /***************************************************************************
+                            packagesystem.pas
+                            -----------------
+
+
+ ***************************************************************************/
+
+ ***************************************************************************
+ *                                                                         *
+ *   This source is free software; you can redistribute it and/or modify   *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This code 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.  See the GNU     *
+ *   General Public License for more details.                              *
+ *                                                                         *
+ *   A copy of the GNU General Public License is available on the World    *
+ *   Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also      *
+ *   obtain it by writing to the Free Software Foundation,                 *
+ *   Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.        *
+ *                                                                         *
+ ***************************************************************************
+
+  Author: Mattias Gaertner
+
+  Abstract:
+    The package registration.
+}
+unit PackageSystem;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, AVL_Tree, PackageLinks, PackageDefs;
+  
+type
+  TLazPackageGraph = class
+  private
+    FItems: TAVLTree;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    procedure Clear;
+  public
+  end;
+
+implementation
+
+{ TLazPackageGraph }
+
+constructor TLazPackageGraph.Create;
+begin
+  FItems:=TAVLTree.Create(@CompareLazPackage);
+end;
+
+destructor TLazPackageGraph.Destroy;
+begin
+  Clear;
+  FItems.Free;
+  inherited Destroy;
+end;
+
+procedure TLazPackageGraph.Clear;
+begin
+  FItems.FreeAndClear;
+end;
+
+end.
+