mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-21 18:21:49 +02:00
82 lines
2.1 KiB
PHP
82 lines
2.1 KiB
PHP
{
|
|
$Id$
|
|
This file is part of the Free Pascal Integrated Development Environment
|
|
Copyright (c) 1998 by Berczi Gabor
|
|
|
|
Debug menu entries
|
|
|
|
See the file COPYING.FPC, 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.
|
|
|
|
**********************************************************************}
|
|
|
|
procedure TIDEApp.DoUserScreenWindow;
|
|
begin
|
|
if UserScreenWindow=nil then
|
|
begin
|
|
New(UserScreenWindow, Init(UserScreen, SearchFreeWindowNo));
|
|
Desktop^.Insert(UserScreenWindow);
|
|
end;
|
|
UserScreenWindow^.MakeFirst;
|
|
end;
|
|
|
|
procedure TIDEApp.DoUserScreen;
|
|
begin
|
|
if UserScreen=nil then
|
|
begin
|
|
ErrorBox('Sorry, user screen not available.',nil);
|
|
Exit;
|
|
end;
|
|
|
|
ShowUserScreen;
|
|
|
|
Keyboard.GetKeyEvent;
|
|
while (Keyboard.PollKeyEvent<>0) do
|
|
Keyboard.GetKeyEvent;
|
|
|
|
ShowIDEScreen;
|
|
end;
|
|
|
|
procedure TIDEApp.DoShowCallStack;
|
|
begin
|
|
NotImplemented;
|
|
end;
|
|
|
|
procedure TIDEApp.DoShowBreakpointList;
|
|
begin
|
|
NotImplemented;
|
|
end;
|
|
|
|
procedure TIDEApp.DoAddWatch;
|
|
begin
|
|
NotImplemented;
|
|
end;
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.4 1999-06-25 00:36:51 pierre
|
|
+ missing Debug menu added (not implemented yet)
|
|
|
|
Revision 1.3 1999/02/02 16:41:40 peter
|
|
+ automatic .pas/.pp adding by opening of file
|
|
* better debuggerscreen changes
|
|
|
|
Revision 1.2 1999/01/21 11:54:16 peter
|
|
+ tools menu
|
|
+ speedsearch in symbolbrowser
|
|
* working run command
|
|
|
|
Revision 1.1 1998/12/28 15:47:47 peter
|
|
+ Added user screen support, display & window
|
|
+ Implemented Editor,Mouse Options dialog
|
|
+ Added location of .INI and .CFG file
|
|
+ Option (INI) file managment implemented (see bottom of Options Menu)
|
|
+ Switches updated
|
|
+ Run program
|
|
|
|
}
|