--- a/SmallSenseCompletionWindow.st Thu Feb 28 22:46:18 2013 +0000
+++ b/SmallSenseCompletionWindow.st Mon Jul 01 12:31:33 2013 +0100
@@ -325,6 +325,23 @@
"Created: / 04-04-2011 / 21:12:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!SmallSenseCompletionWindow methodsFor:'opening'!
+
+openWindowModalAt:aPoint
+ "open the window as a modal dialog
+ - assumes that the builder has already setup the interface."
+
+ | windowExtent screenExtent|
+
+ windowExtent := builder window extent copy.
+ screenExtent := Screen current monitorBoundsAt: aPoint.
+ windowExtent y: (windowExtent y min: (screenExtent height - aPoint y)).
+
+ builder openDialogAt:aPoint withExtent: windowExtent.
+
+ "Created: / 01-07-2013 / 12:22:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!SmallSenseCompletionWindow class methodsFor:'documentation'!
version_HG