EditTextView.st
branchjv
changeset 5776 74d9c599d5d1
parent 5771 9ee6810e35da
parent 5774 3a1531b4c933
child 5809 a5cecde02b21
equal deleted inserted replaced
5771:9ee6810e35da 5776:74d9c599d5d1
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  COPYRIGHT (c) 1989 by Claus Gittinger
     2  COPYRIGHT (c) 1989 by Claus Gittinger
     5               All Rights Reserved
     3               All Rights Reserved
     6 
     4 
     7  This software is furnished under a license and may be used
     5  This software is furnished under a license and may be used
  5928             "/ on windows, an activate:false event is first sent to my textView,
  5926             "/ on windows, an activate:false event is first sent to my textView,
  5929             "/ then an activate is sent to the completion popup.
  5927             "/ then an activate is sent to the completion popup.
  5930             "/ this is done BEFORE the buttonPress event is delivered.
  5928             "/ this is done BEFORE the buttonPress event is delivered.
  5931             "/ therefore, allow for the activate of the completionMenu and it's button event to be processed.
  5929             "/ therefore, allow for the activate of the completionMenu and it's button event to be processed.
  5932             "/ before forcing it to be closed...
  5930             "/ before forcing it to be closed...
  5933             Processor addTimedBlock:[completionSupport editViewLostFocus] afterMilliseconds:200.
  5931             completionSupport startTimeoutForEditViewLostFocus.
  5934         ].
  5932         ].
  5935     ].
  5933     ].
  5936 
  5934 
  5937     "Modified (format): / 06-11-2013 / 15:37:31 / cg"
  5935     "Modified (format): / 06-11-2013 / 15:37:31 / cg"
  5938 !
  5936 !
  7729      (not sending contentsChanged, but textChanged),
  7727      (not sending contentsChanged, but textChanged),
  7730      we do it here despite what is written above, to ensure that scrollers update correctly."
  7728      we do it here despite what is written above, to ensure that scrollers update correctly."
  7731 
  7729 
  7732     self contentsChanged.
  7730     self contentsChanged.
  7733     self modified:true.
  7731     self modified:true.
  7734     self changed:#textChanged.
  7732     dependents notNil ifTrue:[ self changed:#textChanged ].
  7735     contentsWasSaved := false
  7733     contentsWasSaved := false
  7736 
  7734 
  7737     "Modified: 14.2.1997 / 16:58:38 / cg"
  7735     "Modified: 14.2.1997 / 16:58:38 / cg"
  7738 !
  7736 !
  7739 
  7737