equal
deleted
inserted
replaced
323 self openInterfaceModal:#windowSpec at:p |
323 self openInterfaceModal:#windowSpec at:p |
324 |
324 |
325 "Created: / 04-04-2011 / 21:12:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
325 "Created: / 04-04-2011 / 21:12:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
326 ! ! |
326 ! ! |
327 |
327 |
|
328 !SmallSenseCompletionWindow methodsFor:'opening'! |
|
329 |
|
330 openWindowModalAt:aPoint |
|
331 "open the window as a modal dialog |
|
332 - assumes that the builder has already setup the interface." |
|
333 |
|
334 | windowExtent screenExtent| |
|
335 |
|
336 windowExtent := builder window extent copy. |
|
337 screenExtent := Screen current monitorBoundsAt: aPoint. |
|
338 windowExtent y: (windowExtent y min: (screenExtent height - aPoint y)). |
|
339 |
|
340 builder openDialogAt:aPoint withExtent: windowExtent. |
|
341 |
|
342 "Created: / 01-07-2013 / 12:22:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
343 ! ! |
|
344 |
328 !SmallSenseCompletionWindow class methodsFor:'documentation'! |
345 !SmallSenseCompletionWindow class methodsFor:'documentation'! |
329 |
346 |
330 version_HG |
347 version_HG |
331 |
348 |
332 ^ '$Changeset: <not expanded> $' |
349 ^ '$Changeset: <not expanded> $' |