EnterBox.st
changeset 144 a86f474be012
parent 139 7dd008efa3d8
child 150 9411bf3927d9
equal deleted inserted replaced
143:0ee673b4e943 144:a86f474be012
    35 "
    35 "
    36 !
    36 !
    37 
    37 
    38 version
    38 version
    39 "
    39 "
    40 $Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.27 1995-08-11 16:07:08 claus Exp $
    40 $Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.28 1995-08-23 18:05:16 claus Exp $
    41 "
    41 "
    42 !
    42 !
    43 
    43 
    44 documentation
    44 documentation
    45 "
    45 "
   194     "return my contents"
   194     "return my contents"
   195 
   195 
   196     ^ enterField contents
   196     ^ enterField contents
   197 !
   197 !
   198 
   198 
       
   199 contents:aString
       
   200     "set my contents"
       
   201 
       
   202     enterField contents:aString
       
   203 !
       
   204 
   199 initialText:aString
   205 initialText:aString
   200     "define the initial text in the enterfield. all will be selected initially"
   206     "define the initial text in the enterfield. all will be selected initially"
   201 
   207 
   202     enterField initialText:aString
   208     enterField initialText:aString
       
   209 !
       
   210 
       
   211 entryCompletionBlock:aBlock
       
   212     enterField entryCompletionBlock:aBlock
   203 !
   213 !
   204 
   214 
   205 title:aString
   215 title:aString
   206     "set the title to be displayed at top of enterBox"
   216     "set the title to be displayed at top of enterBox"
   207 
   217