"

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

"

'From Smalltalk/X, Version:2.10.5 on 14-mar-1995 at 11:15:37 am'!

EditTextView subclass:#EditField

	 instanceVariableNames:'leaveAction enabled enableAction'

	 classVariableNames:'DefaultForegroundColor DefaultBackgroundColor

	 poolDictionaries:''

	 category:'Views-Text'

!

EditField comment:'

COPYRIGHT (c) 1990 by Claus Gittinger

	      All Rights Reserved

'!

!EditField class methodsFor:'documentation'!

copyright

"

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

"

"

!

documentation

"

    an editable text-field. Realized by using an EditTextView,

    and forcing its size to 1 line - disabling cursor movement

    in the vertical direction.

    An action (leaveAction) is performed when the field is left

    by either Return or a cursor movement, or if 'accept' is

    performed from the menu.

"

! !

!EditField class methodsFor:'defaults'!

updateStyleCache

    DefaultForegroundColor := StyleSheet colorAt:'editFieldForegroundColor' default:Black.

    DefaultBackgroundColor := StyleSheet colorAt:'editFieldBackgroundColor' default:White.

    DefaultSelectionForegroundColor := StyleSheet colorAt:'editFieldSelectionForegroundColor' default:DefaultBackgroundColor.

    DefaultSelectionBackgroundColor := StyleSheet colorAt:'editFieldSelectionBackgroundColor' default:DefaultForegroundColor.

    DefaultFont := StyleSheet fontAt:'editFieldFont' default:nil.

    "

     self updateStyleCache

    "

!

defaultNumberOfLines

    "the number of lines in the field"

    ^ 1

! !

!EditField methodsFor:'initialization'!

initialize

    super initialize.

    self height:(font height + font descent + (topMargin * 2)).

    enabled := true.

    fixedSize := true.

    nFullLinesShown := 1.

    nLinesShown := 1.

!

initStyle

    super initStyle.

    DefaultBackgroundColor notNil ifTrue:[

	bgColor := DefaultBackgroundColor on:device.

	self viewBackground:bgColor.

    ].

    fgColor := DefaultForegroundColor.

    selectionFgColor := DefaultSelectionForegroundColor.

    selectionBgColor := DefaultSelectionBackgroundColor.

    DefaultFont notNil ifTrue:[

	font := DefaultFont on:device

    ]

!

editMenu

    |labels selectors m|

    labels := #(

		'copy'

		'cut'

		'paste'

"

		'replace'

"

		'-'

		'accept'

	       ).

     selectors := #(

		 copySelection

		 cut

		 paste

"

		 replace

"

		 nil

		 accept

		).

    m := PopUpMenu 

	  labels:(resources array:labels)

	  selectors:selectors.

    self hasSelection ifFalse:[

	m disable:#copySelection.

	m disable:#cut

    ].

    ^ m

! !

!EditField methodsFor:'realization'!

realize

    "scroll back to beginning when realized"

    leftOffset := 0.

    super realize

! !

!EditField methodsFor:'private'!

startAutoScrollUp:y

    "no vertical scrolling in editfields"

    ^ self

!

startAutoScrollDown:y

    "no vertical scrolling in editfields"

    ^ self

! !

!EditField methodsFor:'queries'!

preferedExtent

    "return the prefered extent of this view.

     That is the width of the string plus some extra, 

     but not wider than half of the screen"

    |string w|

    string := self contents.

    (string isNil or:[string isBlank]) ifTrue:[

	string := '          ' "/ just any string is ok ^ super preferedExtent

    ].

    w := (((font on:device) widthOf:string) * 1.5) rounded.

    w := w min:(device width // 2).

    ^ w @ self height

! !

!EditField methodsFor:'accessing'!

list:someText

    "redefined to force text to 1 line, and notify dependents

     of any changed extent-wishes."

    |l oldWidth|

    l := someText.

    l size > 1 ifTrue:[

	l := OrderedCollection with:(l at:1)

    ].

    oldWidth := self widthOfContents.

    super list:l.

    self widthOfContents ~~ oldWidth ifTrue:[

	self changed:#preferedExtent

    ]

!

contents

    "return contents as a string

     - redefined since EditFields hold only one line of text"

    list isNil ifTrue:[^ ''].

    (list size == 0) ifTrue:[^ ''].

    ^ list at:1

!

enable

    "enable the field; show cursor and allow input"

    enabled ifFalse:[

	enableAction notNil ifTrue:[

	    enableAction value

	].

	enabled := true.

	super showCursor

    ]

!

leaveAction:aBlock

    "define an action to be evaluated when field is left by return key"

    leaveAction := aBlock

!

disable

    "disable the field; hide cursor and ignore input"

    enabled ifTrue:[

	enabled := false.

	self hideCursor

    ]

!

enableAction:aBlock

    "define an action to be evaluated when enabled by clicking upon"

    enableAction := aBlock

!

initialText:aString selected:aBoolean

    "set the initialText and select it if aBoolean is true"

    |len s|

    leftOffset := 0.

    self contents:(s := aString asString).

    aBoolean ifTrue:[

	(len := s size) ~~ 0 ifTrue:[

	    self selectFromLine:1 col:1 toLine:1 col:len

	]

    ]

!

initialText:aString

    "set the initialText and select it"

    self initialText:aString selected:true

! !

!EditField methodsFor:'editing'!

paste:someText

    "redefined to force text to 1 line"

    super paste:someText.

    list size > 1 ifTrue:[

	self deleteFromLine:2 toLine:(list size)

    ]

! !

!EditField methodsFor:'cursor drawing'!

showCursor

    "make cursor visible if currently invisible - but only if this

     EditField is enabled"

    enabled ifTrue:[super showCursor]

! !

!EditField methodsFor:'cursor movement'!

cursorLine:line col:col

    "catch cursor movement"

    super cursorLine:1 col:col

!

cursorDown

    "catch cursor movement"

    (cursorVisibleLine == nLinesShown) ifFalse:[

	super cursorDown

    ]

! !

!EditField methodsFor:'event handling'!

accept

    "accept the fields contents - perform the leave action as if

     return was pressed."

    enabled ifTrue:[

    ].

!

buttonPress:button x:x y:y

    "enable myself on mouse click"

    enabled ifFalse:[

	enabled := true.

	super buttonPress:button x:x y:y.

	enableAction notNil ifTrue:[

	    enableAction value

	]

    ] ifTrue:[

	super buttonPress:button x:x y:y

    ]

!

keyPress:key x:x y:y

    "if keyHandler is defined, pass input; otherwise check for leave

     keys"

    |leave xCol newOffset oldWidth newWidth|

    enabled ifFalse:[

    ].

    (key == #DeleteLine) ifTrue:[

    ].

    leave := false.

    (key == #Return) ifTrue:[leave := true].

    (key == #Accept) ifTrue:[leave := true].

    ((key == #CursorDown) or:[key == #Next]) ifTrue:[leave := true].

    ((key == #CursorUp) or:[key == #Prior]) ifTrue:[leave := true].

    leave ifTrue:[

    ].

    oldWidth := self widthOfContents.

    super keyPress:key x:x y:y.

    newWidth := self widthOfContents.

    "

     should (& can) we resize ?

    "

    xCol := (self xOfCol:cursorCol inVisibleLine:cursorLine) - leftOffset.

    (xCol > (width * (5/6))) ifTrue:[

    ] ifFalse:[

    ].

    "

     did someone react ?

     (if not, we scroll horizontally)

    "

    xCol := (self xOfCol:cursorCol inVisibleLine:cursorLine) - leftOffset.

    (xCol > (width * (5/6))) ifTrue:[

    ] ifFalse:[

    ].

    newOffset ~~ leftOffset ifTrue:[

    ]

!

canHandle:aKey

    "return true, if the receiver would like to handle aKey

     (usually from another view, when the receiver is part of

      a more complex dialog box).

     We do return true here, since the editfield will handle

     all keys."

    ^ true

! !