mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 03:19:17 +02:00
cocoa: update deallocation of read-only combobox
git-svn-id: trunk@59249 -
This commit is contained in:
parent
7c1bbdaa10
commit
003ad96f6d
@ -1327,13 +1327,7 @@ end;
|
||||
|
||||
procedure TCocoaReadOnlyComboBox.dealloc;
|
||||
begin
|
||||
if Assigned(list) then
|
||||
begin
|
||||
list.Free;
|
||||
list:=nil;
|
||||
end;
|
||||
if resultNS <> nil then
|
||||
resultNS.release;
|
||||
if resultNS <> nil then resultNS.release;
|
||||
inherited dealloc;
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user