"
 COPYRIGHT (c) 1991-93 by Claus Gittinger
              All Rights Reserved

 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
"

EnterBox subclass:#EnterBox2
       instanceVariableNames:'okButton2 okAction2'
       classVariableNames:''
       poolDictionaries:''
       category:'Views-Interactors'
!

EnterBox2 comment:'

COPYRIGHT (c) 1991-93 by Claus Gittinger
              All Rights Reserved

like an EnterBox but with 2 action buttons.

$Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.2 1993-10-13 01:01:57 claus Exp $

written Sep 91 by claus
'!

!EnterBox2 class methodsFor:'instance creation'!

title:titleString okText1:text1 okText2:text2 abortText:abortText
                  action1:block1 action2:block2
    "create and return a new EnterBox-with-2 buttons
     and define its text, button-labels and actions"

    ^ (super title:titleString 
            okText:text1 
         abortText:abortText
            action:block1) okText2:text2 action2:block2
! !

!EnterBox2 methodsFor:'initialization'!

initialize
    super initialize.

    okButton2 := Button label:'' 
                       action:[
                                okButton2 turnOffWithoutRedraw.
                                self ok2Pressed
                              ] 
                           in:buttonPanel.
    okButton isReturnButton:false.
    okButton2 isReturnButton:true.
    self resize.
    enterField leaveAction:[:key | self ok2Pressed]
! !

!EnterBox2 methodsFor:'accessing'!

okText2:aString action2:aBlock
    "set the text to be displayed in the 2nd ok-button,
     and its action"

    self okText2:aString.
    okAction2 := aBlock
!

okText2:aString
    "set the text to be displayed in the 2nd ok-button"

    okButton2 label:aString.
    okButton2 resize.
    self resize
!

action2:aBlock
    "set the action to be performed when user presses the 2nd ok-button;
     aBlock must be nil or a block with one argument "

    okAction2 := aBlock
! !

!EnterBox2 methodsFor:'user interaction'!

ok2Pressed
    "user pressed 2nd ok button - evaluate action"

    self hideAndEvaluate:okAction2
! !