# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1372678293 -3600
# Node ID a793002658c44fc618ef077b5e58a884ab9c60e7
# Parent  d501a5c4ad42f051e5d63a05efac8f3cc6ea3696
Fix in  SmallSenseCompletionWindow>>#openWindowModalAt:

diff -r d501a5c4ad42 -r a793002658c4 SmallSenseCompletionWindow.st
--- 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