paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 13:38:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: moved IDE Internalss / View Package Links to Package / Package Links

Browse Source 
git-svn-id: trunk@40000 -
This commit is contained in:
mattias 2013-01-28 10:43:10 +00:00
parent fdc85b3e79
commit 4a0a600a00
5 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/keymapping.pp
View File

@ -616,6 +616,7 @@ begin
ecAddCurFileToPkg : Result:= lisMenuAddCurFileToPkg;
ecNewPkgComponent : Result:= lisMenuPkgNewPackageComponent;
ecPackageGraph : Result:= lisMenuPackageGraph;
ecPackageLinks : Result:= lisMenuPackageLinks;
ecEditInstallPkgs : Result:= lisMenuEditInstallPkgs;
ecConfigCustomComps : Result:= lisMenuConfigCustomComps;
@ -1231,6 +1232,7 @@ begin
ecAddCurFileToPkg: SetSingle(VK_UNKNOWN,[]);
ecNewPkgComponent: SetSingle(VK_UNKNOWN,[]);
ecPackageGraph: SetSingle(VK_UNKNOWN,[]);
ecPackageLinks: SetSingle(VK_UNKNOWN,[]);
ecEditInstallPkgs: SetSingle(VK_UNKNOWN,[]);
ecConfigCustomComps: SetSingle(VK_UNKNOWN,[]);
@ -1664,6 +1666,7 @@ begin
ecAddCurFileToPkg: SetSingle(VK_UNKNOWN,[]);
ecNewPkgComponent: SetSingle(VK_UNKNOWN,[]);
ecPackageGraph: SetSingle(VK_UNKNOWN,[]);
ecPackageLinks: SetSingle(VK_UNKNOWN,[]);
ecEditInstallPkgs: SetSingle(VK_UNKNOWN,[]);
ecConfigCustomComps: SetSingle(VK_UNKNOWN,[]);
@ -2286,6 +2289,7 @@ begin
ecAddCurFileToPkg: SetSingle(VK_UNKNOWN,[]);
ecNewPkgComponent: SetSingle(VK_UNKNOWN,[]);
ecPackageGraph: SetSingle(VK_UNKNOWN,[]);
ecPackageLinks: SetSingle(VK_UNKNOWN,[]);
ecEditInstallPkgs: SetSingle(VK_UNKNOWN,[]);
ecConfigCustomComps: SetSingle(VK_UNKNOWN,[]);
@ -2936,6 +2940,7 @@ begin
AddDefault(C, 'Add active unit to a package', lisMenuAddCurFileToPkg, ecAddCurFileToPkg);
AddDefault(C, 'Add new component to a package', lisMenuPkgNewPackageComponent, ecNewPkgComponent);
AddDefault(C, 'Package graph', lisMenuPackageGraph, ecPackageGraph);
AddDefault(C, 'Package links', lisMenuPackageLinks, ecPackageLinks);
AddDefault(C, 'Configure installed packages', lisInstallUninstallPackages, ecEditInstallPkgs);
AddDefault(C, 'Configure custom components', lisKMConfigureCustomComponents, ecConfigCustomComps);

2
ide/mainbar.pas
View File

@ -194,7 +194,6 @@ type
itmViewPseudoTerminal: TIDEMenuCommand;
itmViewDbgHistory: TIDEMenuCommand;
//itmViewIDEInternalsWindows: TIDEMenuSection;
itmViewPackageLinks: TIDEMenuCommand;
itmViewFPCInfo: TIDEMenuCommand;
itmViewIDEInfo: TIDEMenuCommand;
itmViewNeedBuild: TIDEMenuCommand;
@ -323,6 +322,7 @@ type
itmPkgAddNewComponentToPkg: TIDEMenuCommand;
//itmPkgGraphSection: TIDEMenuSection;
itmPkgPkgGraph: TIDEMenuCommand;
itmPkgPackageLinks: TIDEMenuCommand;
itmPkgEditInstallPkgs: TIDEMenuCommand;
{$IFDEF CustomIDEComps}
itmCompsConfigCustomComps: TIDEMenuCommand;

5
ide/mainbase.pas
View File

@ -706,7 +706,6 @@ begin
end;
CreateMenuSubSection(ParentMI, itmViewIDEInternalsWindows, 'itmViewIDEInternalsWindows', lisMenuIDEInternals);
begin
CreateMenuItem(itmViewIDEInternalsWindows, itmViewPackageLinks, 'itmViewPackageLinks', lisMenuPackageLinks);
CreateMenuItem(itmViewIDEInternalsWindows, itmViewFPCInfo, 'itmViewFPCInfo', lisMenuAboutFPC);
CreateMenuItem(itmViewIDEInternalsWindows, itmViewIDEInfo, 'itmViewIDEInfo', lisAboutIDE);
CreateMenuItem(itmViewIDEInternalsWindows, itmViewNeedBuild, 'itmViewNeedBuild', lisMenuWhatNeedsBuilding);
@ -904,6 +903,7 @@ begin
CreateMenuSeparatorSection(mnuComponent,itmPkgGraphSection,'itmPkgGraphSection');
ParentMI:=itmPkgGraphSection;
CreateMenuItem(ParentMI,itmPkgPkgGraph,'itmPkgPkgGraph',lisMenuPackageGraph,'pkg_graph');
CreateMenuItem(ParentMI,itmPkgPackageLinks,'itmPkgPackageLinks',lisMenuPackageLinks);
CreateMenuItem(ParentMI,itmPkgEditInstallPkgs,'itmPkgEditInstallPkgs',lisMenuEditInstallPkgs,'pkg_properties');
{$IFDEF CustomIDEComps}
@ -1095,7 +1095,7 @@ begin
itmViewTabOrder.Command:=GetCommand(ecViewTabOrder);
itmViewComponentPalette.Command:=GetCommand(ecToggleCompPalette);
itmViewIDESpeedButtons.Command:=GetCommand(ecToggleIDESpeedBtns);
//itmViewPackageLinks.Command:=GetCommand(ec?);
//itmPkgPackageLinks.Command:=GetCommand(ec?);
// source menu
itmSourceCommentBlock.Command:=GetCommand(ecSelectionComment);
@ -1189,6 +1189,7 @@ begin
itmPkgAddCurFileToPkg.Command:=GetCommand(ecAddCurFileToPkg);
itmPkgAddNewComponentToPkg.Command:=GetCommand(ecNewPkgComponent);
itmPkgPkgGraph.Command:=GetCommand(ecPackageGraph);
itmPkgPackageLinks.Command:=GetCommand(ecPackageLinks);
itmPkgEditInstallPkgs.Command:=GetCommand(ecEditInstallPkgs);
{$IFDEF CustomIDEComps}
itmCompsConfigCustomComps.Command:=GetCommand(ecConfigCustomComps);

7
ideintf/idecommands.pas
View File

@ -297,9 +297,10 @@ const
ecNewPkgComponent = ecFirstLazarus + 604;
// ecAddCurUnitToPkg = ecAddCurFileToPkg deprecated;
ecPackageGraph = ecFirstLazarus + 605;
ecEditInstallPkgs = ecFirstLazarus + 606;
ecConfigCustomComps = ecFirstLazarus + 607;
ecNewPackage = ecFirstLazarus + 608;
ecPackageLinks = ecFirstLazarus + 606;
ecEditInstallPkgs = ecFirstLazarus + 607;
ecConfigCustomComps = ecFirstLazarus + 608;
ecNewPackage = ecFirstLazarus + 609;
// custom tools menu
ecExtToolFirst = ecFirstLazarus + 700;

7
packager/pkgmanager.pas
View File

@ -135,7 +135,7 @@ type
procedure MainIDEitmOpenRecentPackageClicked(Sender: TObject);
procedure MainIDEitmPkgOpenPackageClicked(Sender: TObject);
procedure MainIDEitmPkgNewPackageClick(Sender: TObject);
procedure MainIDEViewPackageLinksClicked(Sender: TObject);
procedure MainIDEitmPackageLinksClicked(Sender: TObject);
// component palette
procedure IDEComponentPaletteEndUpdate(Sender: TObject;
@ -938,7 +938,7 @@ begin
DoShowOpenInstalledPckDlg;
end;
procedure TPkgManager.MainIDEViewPackageLinksClicked(Sender: TObject);
procedure TPkgManager.MainIDEitmPackageLinksClicked(Sender: TObject);
begin
ShowPackageLinks;
end;
@ -1600,12 +1600,11 @@ begin
itmPkgAddCurFileToPkg.OnClick:=@MainIDEitmPkgAddCurFileToPkgClick;
itmPkgAddNewComponentToPkg.OnClick:=@MainIDEitmPkgNewComponentClick;
itmPkgPkgGraph.OnClick:=@MainIDEitmPkgPkgGraphClick;
itmPkgPackageLinks.OnClick := @MainIDEitmPackageLinksClicked;
itmPkgEditInstallPkgs.OnClick:=@MainIDEitmPkgEditInstallPkgsClick;
{$IFDEF CustomIDEComps}
itmCompsConfigCustomComps.OnClick :=@MainIDEitmConfigCustomCompsClicked;
{$ENDIF}
itmViewPackageLinks.OnClick := @MainIDEViewPackageLinksClicked;
end;
SetRecentPackagesMenu;