EditField.st
changeset 2994 01f0505709b6
parent 2993 5a610fe081ed
child 2995 45b695aa5065
equal deleted inserted replaced
2993:5a610fe081ed 2994:01f0505709b6
   997         ^ entryCompletionBlock
   997         ^ entryCompletionBlock
   998     ].
   998     ].
   999     ^ entryCompletionBlock value
   999     ^ entryCompletionBlock value
  1000 !
  1000 !
  1001 
  1001 
  1002 entryCompletionBlock:aOneArgBlock
  1002 entryCompletionBlock:aOneYwoOrThreeArgBlock
  1003     "define an action to be evaluated when Tab (EntryCompletionCharacter) is pressed.
  1003     "define an action to be evaluated when Tab (EntryCompletionCharacter) is pressed.
  1004      The block gets the current contents and the field itself as optional arguments
  1004      The block gets the current contents and the field itself as optional arguments
  1005      (i.e. it can be a 0, 1 or 2-arg block)."
  1005      (i.e. it can be a 0, 1 or 2-arg block)."
  1006 
  1006 
  1007     entryCompletionBlock := aOneArgBlock
  1007     entryCompletionBlock := aOneYwoOrThreeArgBlock
  1008 !
  1008 !
  1009 
  1009 
  1010 entryCompletionBlockHolder:aOneArgBlockHolder
  1010 entryCompletionBlockHolder:aOneYwoOrThreeArgBlockHolder
  1011     "a holder for an action to be evaluated when Tab (EntryCompletionCharacter) is pressed.
  1011     "a holder for an action to be evaluated when Tab (EntryCompletionCharacter) is pressed.
  1012      The block gets the current contents and the field itself as optional arguments
  1012      The block gets the current contents and the field itself as optional arguments
  1013      (i.e. it can be a 0, 1 or 2-arg block)."
  1013      (i.e. it can be a 0, 1 or 2-arg block)."
  1014 
  1014 
  1015     "/ for now (to avoid incompatibilities), misuse the existing
  1015     "/ for now (to avoid incompatibilities), misuse the existing
  1016     "/ entryCompletionBlock and check if its a holder.
  1016     "/ entryCompletionBlock and check if its a holder.
  1017 
  1017 
  1018     entryCompletionBlock := aOneArgBlockHolder
  1018     entryCompletionBlock := aOneYwoOrThreeArgBlockHolder
  1019 !
  1019 !
  1020 
  1020 
  1021 immediateAccept:aBoolean
  1021 immediateAccept:aBoolean
  1022     "set/clear the immediateAccept flag. The default is false.
  1022     "set/clear the immediateAccept flag. The default is false.
  1023      If true, every pressed key immediately accepts my 
  1023      If true, every pressed key immediately accepts my 
  2154 ! !
  2154 ! !
  2155 
  2155 
  2156 !EditField class methodsFor:'documentation'!
  2156 !EditField class methodsFor:'documentation'!
  2157 
  2157 
  2158 version
  2158 version
  2159     ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.172 2004-06-09 15:20:08 cg Exp $'
  2159     ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.173 2004-06-09 17:04:27 cg Exp $'
  2160 ! !
  2160 ! !