view release on metacpan or  search on metacpan

lib/Tickit/Widget/LogAny.pm  view on Meta::CPAN

				try {
					dispose $vbox;
					dispose $panel;
				} catch {
					warn "Failed - $@";
				}
			});
			$win->expose;
		};
	} else {
		# We don't have any suitable float holders, so we'll just overlay this
		# using our window as a parent. This next set of measurements assumes we
		# have a bit of space to play with - if we don't, I'm not sure how best
		# to handle this: use the root window instead, or just bail out?
		my $float = $win->make_float(
			2,
			2,
			$win->lines - 4,
			$win->cols - 4
		);
		# Need to hold on to the top widget in the new hierarchy