ui_popup.lua

--Pop-up Window.
--Written by Cosmin Apreutesei. Public Domain.

local ui = require'ui'
local glue = require'glue'

local popup = ui.window:subclass'popup'
ui.popup = popup

popup.frame = false
popup.closeable = false
popup.moveable = false
popup.resizeable = false
popup.maximizable = false
popup.fullscreenable = false
popup.activable = false

--autohide property: hide when clicking outside of the popup

popup.autohide = true

function popup:parent_window_mousedown_autohide(win, button, mx, my)
	self:hide()
end

function popup:parent_window_deactivated_autohide(win)
	self:hide()
end

function popup:after_set_parent(parent)
	parent.window:on({'deactivated', self}, function(win)
		if self.ui and self.autohide and not self.activable and self.visible then
			self:parent_window_deactivated_autohide(win)
		end
	end)
	parent.window:on({'mousedown', self}, function(win, button, mx, my)
		if self.ui and self.autohide and self.visible then
			self:parent_window_mousedown_autohide(button, mx, my)
			--TODO: find out why this needs to be async.
			self.ui:runafter(0, function()
				parent:invalidate()
			end)
		end
	end)
	local x, y = self:frame_rect()
	self:frame_rect(x, y)
end

if not ... then require('ui_demo')(function(ui, win)

	ui:style('window_view :hot', {
		background_color = '#fff',
		transition_background_color = true,
		transition_duration = 1,
	})

	ui:style('popup > window_view', {
		background_color = '#333',
	})

	ui:style('popup > window_view :hot', {
		background_color = '#ff0',
		transition_background_color = true,
		transition_duration = 1,
	})

	local popup_class = ui.popup:subclass'p'

	local popup = popup_class(ui, {
		x = 10, y = 10,
		w = 300,
		h = 600,
		parent = win,
		visible = false
	})

	function win  :keypress(key)      print('win  ', 'keypress', key)
		if key == 'P' then
			popup.visible = true
		end
	end
	function popup:keypress(key)      print('popup', 'keypress', key) end
	--function win  :mousemove(mx, my)  print('win  ', 'move', mx, my) end
	--function popup:mousemove(mx, my)  print('popup', 'move', mx, my) end
	--function win  :mouseleave()       print('win  ', 'leave') end
	--function popup:mouseleave()       print('popup', 'leave') end
	--function win  :mouseenter(mx, my) print('win  ', 'enter', mx, my) end
	--function popup:mouseenter(mx, my) print('popup', 'enter', mx, my) end

end) end