mirror of
				https://gitlab.com/freepascal.org/lazarus/lazarus.git
				synced 2025-11-04 14:29:25 +01: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