paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 07:30:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

* compilation fixed

Browse Source
This commit is contained in:
marco 2005-04-23 09:43:40 +00:00
parent 8c1d399dc5
commit 44f8eaa99a
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
utils/fpdoc/fpde/pgeditor.pp
View File

@ -51,14 +51,14 @@ Type
FTDeleteMenu,
FRenameMenu,
FDeleteMenu : TFPgtkMenuItem;
Procedure MenuRenameClick(Sender : TFPGtkWidget; Data : Pointer);
Procedure MenuDeleteClick(Sender : TFPGtkWidget; Data : Pointer);
Procedure MenuRenameClick(Sender : TFPGtkObject; Data : Pointer);
Procedure MenuDeleteClick(Sender : TFPGtkObject; Data : Pointer);
Function PopupModuleMenu(Sender:TFPgtkWidget; Event:PGdkEventButton; data:pointer): boolean;
Function PopupTopicMenu(Sender:TFPgtkWidget; Event:PGdkEventButton; data:pointer): boolean;
Procedure SelectTopic(Sender : TFPGtkWidget; Data : Pointer);
Procedure SelectModule(Sender : TFPGtkWidget; Data : Pointer);
Procedure SelectPackage(Sender : TFPGtkWidget; Data : Pointer);
Procedure SelectElement(Sender : TFPGtkWidget; Data : Pointer);
Procedure SelectTopic(Sender : TFPGtkObject; Data : Pointer);
Procedure SelectModule(Sender : TFPGtkObject; Data : Pointer);
Procedure SelectPackage(Sender : TFPGtkObject; Data : Pointer);
Procedure SelectElement(Sender : TFPGtkObject; Data : Pointer);
// Procedure DeSelectElement(Sender : TFPGtkWidget; Data : Pointer);
// Procedure DoSelectionChanged(Sender : TFPGtkWidget; Data : Pointer);
Procedure ShowModuleElements(Module : TDomElement);
@ -133,7 +133,7 @@ Type
Function CurrentEditable : TFPGtkEditable;
Function OnEditableFocusIn(Sender : TFPGtkWidget; Event : PGDKEventFocus;Data : Pointer) : Boolean;
Function GetCurrentSelection : String;
Procedure OnTextModified(Sender : TFPGtkWidget; Data : Pointer);
Procedure OnTextModified(Sender : TFPGtkObject; Data : Pointer);
Public
Procedure Refresh;
Constructor Create;
@ -594,7 +594,7 @@ begin
Result:=False;
end;
Procedure TElementEditor.OnTextModified(Sender : TFPGtkWidget; Data : Pointer);
Procedure TElementEditor.OnTextModified(Sender : TFPGtkObject; Data : Pointer);
begin
FModified:=True;
@ -702,7 +702,7 @@ begin
end;
end;
}
Procedure TPackageEditor.SelectModule(Sender : TFPGtkWidget; Data : Pointer);
Procedure TPackageEditor.SelectModule(Sender : TFPGtkObject; Data : Pointer);
Var
W : TFPGtkWidget;
@ -717,7 +717,7 @@ begin
FOnSelectModule(Self,FCurrentModule);
end;
Procedure TPackageEditor.SelectPackage(Sender : TFPGtkWidget; Data : Pointer);
Procedure TPackageEditor.SelectPackage(Sender : TFPGtkObject; Data : Pointer);
begin
FCurrentElement:=Nil;
@ -728,7 +728,7 @@ begin
FOnSelectPackage(Self,FCurrentPackage);
end;
Procedure TPackageEditor.SelectTopic(Sender : TFPGtkWidget; Data : Pointer);
Procedure TPackageEditor.SelectTopic(Sender : TFPGtkObject; Data : Pointer);
Var
P : TDomElement;
@ -771,7 +771,7 @@ begin
// Writeln('Getselectednode done');
end;
Procedure TPackageEditor.MenuRenameClick(Sender : TFPGtkWidget; Data : Pointer);
Procedure TPackageEditor.MenuRenameClick(Sender : TFPGtkObject; Data : Pointer);
Var
N : TNodeTreeItem;
@ -791,7 +791,7 @@ begin
end;
Procedure TPackageEditor.MenuDeleteClick(Sender : TFPGtkWidget; Data : Pointer);
Procedure TPackageEditor.MenuDeleteClick(Sender : TFPGtkObject; Data : Pointer);
Var
N : TNodeTreeItem;
@ -935,7 +935,7 @@ begin
end;
end;
Procedure TPackageEditor.SelectElement (Sender : TFPGtkWidget; Data : Pointer);
Procedure TPackageEditor.SelectElement (Sender : TFPGtkObject; Data : Pointer);
begin