EditTextViewCompletionSupport.st
changeset 6722 e302ad05e8c1
parent 6721 1cd09d31cb4a
child 6734 e8d5a97c068c
equal deleted inserted replaced
6721:1cd09d31cb4a 6722:e302ad05e8c1
   434 
   434 
   435 closeCompletionView
   435 closeCompletionView
   436     |v|
   436     |v|
   437 
   437 
   438     (v := completionView) notNil ifTrue:[
   438     (v := completionView) notNil ifTrue:[
   439         completionView := nil.
   439         "/ completionView := nil.
   440 
   440 
   441         "/ let it close itself - avoids synchronization problems
   441         "/ let it close itself - avoids synchronization problems
   442         v sensor pushAction:[ v topView destroy ]
   442         v sensor pushAction:[ completionView := nil. v topView destroy ]
   443     ].
   443     ].
   444 
   444 
   445     "Modified (format): / 14-09-2018 / 22:08:05 / Claus Gittinger"
   445     "Modified (format): / 14-09-2018 / 22:08:05 / Claus Gittinger"
   446 !
   446 !
   447 
   447