EditTextViewCompletionSupport.st
changeset 6740 c5b2dda450d0
parent 6734 e8d5a97c068c
child 6746 cc13f6cb0f10
--- a/EditTextViewCompletionSupport.st	Sat Nov 16 22:17:50 2019 +0100
+++ b/EditTextViewCompletionSupport.st	Sun Nov 24 16:17:37 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'stx:libwidg' }"
 
 "{ NameSpace: Smalltalk }"
@@ -505,7 +503,9 @@
     ].
     
     topView ~~ completionView ifTrue:[
-        self adjustSizeOfCompletionView:topView.
+        topView shown ifTrue:[
+            self adjustSizeOfCompletionView:topView.
+        ].
     ].
 
     "Created: / 26-09-2013 / 17:07:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"