"

 COPYRIGHT (c) 1991 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-DialogBoxes'

!

!EnterBox2 class methodsFor:'documentation '!

copyright

"

 COPYRIGHT (c) 1991 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.

"

!

version

    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.12 1995-11-11 16:20:13 cg Exp $'

!

documentation

"

    An EnterBox2 is like an EnterBox but with 2 action buttons.

    This is used (for example) in the search-boxes, where two ok-buttons

    'find-previous' and 'find-next' are needed in addition to the abort button.

    The protocol is like that of EnterBox, the additional buttons label

    can be set with 'okText2:aString' and its action with 'action2:aBlock'.

"

! !

!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.

    "

     add a second ok-button

    "

    okButton2 := Button okButtonIn:buttonPanel.

    okButton2 model:self; change:#ok2Pressed.

    "

     the old (see superclass) ok-button is no longer a return-button

    "

    okButton isReturnButton:false.

    enterField leaveAction:[:key | self ok2Pressed]

!

focusSequence

    ^ Array with:enterField with:abortButton with:okButton with:okButton2 

! !

!EnterBox2 methodsFor:'realization'!

positionOffset

    "return the delta, by which the box should be displayed

     from the mouse pointer. Value returned here makes

     okButton appear under the cursor"

    buttonPanel setChildPositionsIfChanged.

    ^ (okButton2 originRelativeTo:self) + (okButton2 extent // 2)

! !

!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"

    aString ~= okButton2 label ifTrue:[

	okButton2 label:aString.

	okButton2 resize.

	shown ifTrue:[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"

    okButton2 turnOffWithoutRedraw.

    self hideAndEvaluate:okAction2

!

keyPress:aKey x:x y:y

    "return-key dublicates ok-function if acceptReturnAsOK is true"

    acceptReturnAsOK ifTrue:[

	(aKey == #Return) ifTrue:[^ self ok2Pressed]

    ].

    super keyPress:aKey x:x y:y

! !