note
	description: "EiffelVision popup window, Cocoa implementation"
	author: "Daniel Furrer"
	date: "$Date$"
	revision: "$Revision$"

class
	EV_POPUP_WINDOW_IMP

inherit
	EV_POPUP_WINDOW_I
		undefine
			propagate_background_color,
			propagate_foreground_color,
			lock_update,
			unlock_update
		redefine
			interface
		end

	EV_WINDOW_IMP
		rename
			has_shadow as has_shadow_cocoa
		redefine
			interface,
			make
		end

create
	make,
	initialize_with_shadow

feature -- Implementation

	make
		do
			Precursor {EV_WINDOW_IMP}
			disable_border
			disable_user_resize
		end

feature {EV_ANY, EV_ANY_I} -- Implementation

	interface: detachable EV_POPUP_WINDOW note option: stable attribute end;
			-- Provides a common user interface to possibly dependent
			-- functionality implemented by `Current'.

end -- class EV_POPUP_WINDOW_IMP