paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 22:13:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added destructor, to fix memory leaks

Browse Source
This commit is contained in:
sg 2000-02-22 14:31:04 +00:00
parent 5d994591f2
commit 5a24fc5d2f
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fcl/shedit/gtk/gtkshedit.pp
View File

@ -55,7 +55,7 @@ type
FontStyle: TSHFontStyle;
end;
TSHStyleArray = array[1..1] of TSHStyle; // Notice the 1!
TSHStyleArray = array[1..255] of TSHStyle; // Notice the 1!
PSHStyleArray = ^TSHStyleArray;
@ -111,6 +111,7 @@ type
Widget: PGtkWidget; // this is the outer editor widget
constructor Create(ADoc: TTextDoc; AEditClass: TSHTextEditClass);
destructor Destroy; override;
procedure SetFocus;
@ -323,6 +324,13 @@ begin
FEdit.AddKeyDef(@FEdit.EditRedo, selClear, 'Redo last undone action', GDK_Backspace, [ssShift, ssAlt]);
end;
destructor TGtkSHWidget.Destroy;
begin
FreeMem(SHStyles);
FEdit.Free;
inherited Destroy;
end;
function TGtkSHWidget.AddSHStyle(AName: String; AColor, ABackground: LongWord; AStyle: TSHFontStyle): Integer;
begin
@ -565,7 +573,10 @@ end.
{
$Log$
Revision 1.3 2000-01-31 19:26:13 sg
Revision 1.4 2000-02-22 14:31:04 sg
* Added destructor, to fix memory leaks
Revision 1.3 2000/01/31 19:26:13 sg
* Changed to the new interface
Revision 1.2 2000/01/07 01:24:34 peter