EditField.st
author Claus Gittinger <cg@exept.de>
Mon, 02 Sep 2013 23:05:54 +0200
changeset 4724 10440165e22e
parent 4720 1a78fc5a39d7
child 4888 1fdc6c4bc806
permissions -rw-r--r--
class: EditField changed: #onKey:leaveWith:
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
     1
"
5
claus
parents: 3
diff changeset
     2
 COPYRIGHT (c) 1990 by Claus Gittinger
59
450ce95a72a4 *** empty log message ***
claus
parents: 47
diff changeset
     3
	      All Rights Reserved
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
     4
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
     5
 This software is furnished under a license and may be used
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
    10
 hereby transferred.
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
    11
"
2193
58666d1d312c Channels moved to superclass (#destroy)
Stefan Vogel <sv@exept.de>
parents: 2130
diff changeset
    12
"{ Package: 'stx:libwidg' }"
58666d1d312c Channels moved to superclass (#destroy)
Stefan Vogel <sv@exept.de>
parents: 2130
diff changeset
    13
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
    14
EditTextView subclass:#EditField
316
1e27aa926710 fixed Tab handling in enterFieldGroups;
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
    15
	instanceVariableNames:'leaveAction enabled clickAction crAction tabAction converter
209
7a6db7fac566 dont allow multiline selections in EditField
Claus Gittinger <cg@exept.de>
parents: 192
diff changeset
    16
		leaveKeys immediateAccept acceptOnLeave acceptOnReturn
979
c71f75bb9ffc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 978
diff changeset
    17
		lengthLimit entryCompletionBlock entryCompletionCharacter
2130
40515380f762 moved control over how-to-move-the-cursor when updating text
Claus Gittinger <cg@exept.de>
parents: 2105
diff changeset
    18
		passwordCharacter autoScrollHorizontally acceptOnTab
3216
8161c0b4b38e add double click action
ab
parents: 3082
diff changeset
    19
		acceptOnLostFocus acceptOnPointerLeave acceptIfUnchanged leaveKey
4720
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
    20
		doubleClickAction emptyFieldReplacementText leaveKeyActions'
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
    21
	classVariableNames:'DefaultForegroundColor DefaultBackgroundColor
4013
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
    22
		DefaultSelectionForegroundColor DefaultSelectionBackgroundColor
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
    23
		DefaultBorderColor DefaultBorderWidth DefaultLevel'
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
    24
	poolDictionaries:''
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
    25
	category:'Views-Text'
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
    26
!
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
    27
892
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
    28
!EditField class methodsFor:'documentation'!
19
a696fb528758 *** empty log message ***
claus
parents: 7
diff changeset
    29
38
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
    30
copyright
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
    31
"
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
    32
 COPYRIGHT (c) 1990 by Claus Gittinger
59
450ce95a72a4 *** empty log message ***
claus
parents: 47
diff changeset
    33
	      All Rights Reserved
38
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
    34
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
    35
 This software is furnished under a license and may be used
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
    36
 only in accordance with the terms of that license and with the
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
    37
 inclusion of the above copyright notice.   This software may not
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
    38
 be provided or otherwise made available to, or used by, any
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
    39
 other person.  No title to or ownership of the software is
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
    40
 hereby transferred.
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
    41
"
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
    42
!
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
    43
19
a696fb528758 *** empty log message ***
claus
parents: 7
diff changeset
    44
documentation
a696fb528758 *** empty log message ***
claus
parents: 7
diff changeset
    45
"
38
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
    46
    an editable text-field. Realized by using an EditTextView,
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
    47
    and forcing its size to 1 line - disabling cursor movement
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
    48
    in the vertical direction.
121
claus
parents: 120
diff changeset
    49
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
    50
    Basically, an editField is an editor for a single line text,
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
    51
    and provides the usual access protocol as defined in its superClasses
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
    52
    (especially: #contents / #contents:).
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
    53
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
    54
    The above underlying internal mechanism can be used for fields which
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
    55
    are passive; i.e. into which text can be entered and the value (string)
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
    56
    is extracted actively by someone else.
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
    57
2737
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    58
    accepting:
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    59
      The opposite way to use editFields is to connect them to a model
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    60
      and let the field notify changes to it.
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    61
      This notification is called ``accepting''.
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    62
      Unless accepted, the models value is not updated from the editFields contents
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    63
      this default is the normal operation and way things should work, since most
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    64
      uses of editFields are not interested in every individual change
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    65
      (i.e. getting each keyStroke when a long number is entered).
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    66
      The default behavior is to ``accept'' when either return or a cursorUp/Down
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    67
      key is pressed in a field.
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    68
      However, the field can setup to accept/not accept on leave, on return
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    69
      or on each individual key input.
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    70
      See the methods #acceptOnLeave: / #acceptOnReturn: / #immediateAccept.
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    71
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    72
      In addition, the set of keys which are considered ``leaveKeys'' can be
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    73
      specified by #leaveKeys: (in case you need keys other than Return, CursorUp/Down).
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    74
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    75
    models value vs. field contents:
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    76
      Although the field internally keeps its contents as some string object,
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    77
      the application may prefer to think of numbers, floats, yes/no values etc.
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    78
      To support this, a converter may defined, which is responsible for conversion of
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    79
      strings to/from the models domain value.
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    80
      If present (i.e. nonNil), the converter is asked to convert a string to the models
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    81
      domain with #readValueFrom:aString and vice versa, a value to a string by #printStringFor:.
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    82
      The PrintConverter class already provides a number of standard conversions, see the examples.
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    83
      To access a converted value directly (i.e. not via the model), use #editValue.
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    84
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    85
    grouping:
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    86
      Individual fields do not know about being included in a group. This must be arranged on the
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    87
      outside, by placing multiple fields into an EnterFieldGroup.
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    88
      This groupObject keeps a reference to one active field, and forwards input from any other
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    89
      field to the active one. Also have a look at the examples for this.
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    90
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    91
    input completion:
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    92
      To support input completion (i.e. filename completion, classname completion etc.),
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    93
      a completionBlock can be defined which (if non-nil) is evaluated when the completion-key
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    94
      is pressed and its value is taken as the new field-contents. 
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    95
      The physical completion-key is the Tab key (this one cannot be defined by
64329a4d4dd5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
    96
      the keyboardTranslation mechanism, since that would disable the Tab-key on regular text views.
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
    97
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
    98
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
    99
586
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   100
    [Instance variables:]
121
claus
parents: 120
diff changeset
   101
claus
parents: 120
diff changeset
   102
      leaveAction    <Block | nil>              if non-nil, this is evaluated with
586
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   103
                                                the key (#Return, #CursorUp etc.) when
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   104
                                                the field is left via keyboard keys.
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   105
                                                (fieldGroups use this to decide which
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   106
                                                 field has to be enabled next)
121
claus
parents: 120
diff changeset
   107
claus
parents: 120
diff changeset
   108
      enabled        <Boolean>                  if false, input is ignored.
claus
parents: 120
diff changeset
   109
316
1e27aa926710 fixed Tab handling in enterFieldGroups;
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   110
      clickAction    <Block | nil>              action performed if the field is
586
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   111
                                                clicked upon.
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   112
                                                (this is used by the group to
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   113
                                                 set the active field to the clicked upon field)
121
claus
parents: 120
diff changeset
   114
claus
parents: 120
diff changeset
   115
      crAction       <Block | nil>              if non-nil, keyboard input of a cr are not
586
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   116
                                                handled specially, instead this block is evaluated
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   117
                                                (however, this block can perform additional checks and send
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   118
                                                 a #accept then)
121
claus
parents: 120
diff changeset
   119
claus
parents: 120
diff changeset
   120
      tabAction      <Block | nil>              if non-nil, keyboard input of a tab character
586
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   121
                                                is not entered into the text, instead this block
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   122
                                                is evaluated. Also, no input completion is performed if
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   123
                                                tabAction is nonNil.
121
claus
parents: 120
diff changeset
   124
claus
parents: 120
diff changeset
   125
      converter      <PrintConverter | nil>     if non-nil, this is supposed to convert between
586
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   126
                                                the object and its printed representation and vice versa.
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   127
                                                Defaults to nil i.e. assume that strings are edited.
121
claus
parents: 120
diff changeset
   128
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   129
      leaveKeys      <Collection>               keys which are interpreted as 'leaving the field'
122
claus
parents: 121
diff changeset
   130
125
claus
parents: 122
diff changeset
   131
      immediateAccept   <Boolean>               if true, every change of the text is immediately
586
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   132
                                                forwarded to the model/acceptBlock. If false,
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   133
                                                the changed value is only stored in the model
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   134
                                                if the field is left or accepted.
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   135
                                                Default is false.
122
claus
parents: 121
diff changeset
   136
claus
parents: 121
diff changeset
   137
      acceptOnLeave  <Boolean>                  if true, leaving the field (via cursor keys)
586
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   138
                                                automatically accepts the value into the model.
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   139
                                                Default is true.
122
claus
parents: 121
diff changeset
   140
claus
parents: 121
diff changeset
   141
      acceptOnReturn <Boolean>                  if true, leaving the field via return
586
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   142
                                                automatically accepts the value into the model.
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   143
                                                Default is true.
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   144
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   145
      acceptOnTab    <Boolean>                  if true, the Tab key accepts and leaves the field.
586
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   146
                                                If false, Tabs are entered into the contents field like
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   147
                                                ordinary non-control keys.
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   148
                                                AcceptOnTab is ignored if the entryCompletion block is nonNil.
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   149
                                                Default is true.
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   150
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   151
      lengthLimit    <Number>                   the max. number of allowed characters
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   152
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   153
      entryCompletionBlock <BlockOrNil>         if non-nil, this is evaluated to complete the entry
978
6e678fdc6e5b allow non-Tab as entryCompleter; care for immediateAccept after completion
Claus Gittinger <cg@exept.de>
parents: 967
diff changeset
   154
                                                when <entryCompletionCharacter> is pressed.
586
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   155
                                                Entry completion is used with Filenamefields or in the
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   156
                                                browser for classname/selector completion.
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   157
                                                Setting a nonNil entryCompletion disables acceptOnTab.
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   158
2130
40515380f762 moved control over how-to-move-the-cursor when updating text
Claus Gittinger <cg@exept.de>
parents: 2105
diff changeset
   159
      entryCompletionCharacter <CharacterOrNil> if non-nil AND entryCompletionBlock is nonNil, that one
40515380f762 moved control over how-to-move-the-cursor when updating text
Claus Gittinger <cg@exept.de>
parents: 2105
diff changeset
   160
                                                is evaluated for completion. Typically used to complete
40515380f762 moved control over how-to-move-the-cursor when updating text
Claus Gittinger <cg@exept.de>
parents: 2105
diff changeset
   161
                                                a fileName (also, classNames in the browser)
40515380f762 moved control over how-to-move-the-cursor when updating text
Claus Gittinger <cg@exept.de>
parents: 2105
diff changeset
   162
                                                Default is #Tab.
978
6e678fdc6e5b allow non-Tab as entryCompleter; care for immediateAccept after completion
Claus Gittinger <cg@exept.de>
parents: 967
diff changeset
   163
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   164
      passwordCharacter     <CharacterOrNil>    if non-nil, typed input is replaced by this character
586
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   165
                                                for display. Used for secret-input fields (such as password entry).
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   166
                                                Default is nil.
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   167
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   168
586
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   169
    [author:]
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   170
        Claus Gittinger
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   171
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   172
    [see also:]
032b3245e53a documentation
Claus Gittinger <cg@exept.de>
parents: 561
diff changeset
   173
        DialogBox
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   174
        EnterFieldGroup
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   175
        EnterBox EnterBox2
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   176
        FilenameEditField EditTextView
19
a696fb528758 *** empty log message ***
claus
parents: 7
diff changeset
   177
"
120
claus
parents: 118
diff changeset
   178
!
claus
parents: 118
diff changeset
   179
claus
parents: 118
diff changeset
   180
examples 
claus
parents: 118
diff changeset
   181
"
122
claus
parents: 121
diff changeset
   182
    see more examples in EnterFieldGroup>>examples.
claus
parents: 121
diff changeset
   183
claus
parents: 121
diff changeset
   184
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   185
    Step-by-step introduction:
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   186
120
claus
parents: 118
diff changeset
   187
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   188
    basic field in some view:
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   189
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   190
        |top field|
120
claus
parents: 118
diff changeset
   191
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   192
        top := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   193
        top extent:200@100.
120
claus
parents: 118
diff changeset
   194
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   195
        field := EditField origin:0.0@0.0 in:top.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   196
        field width:1.0.                                'let its height as-is'.
120
claus
parents: 118
diff changeset
   197
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   198
        top open
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   199
                                                                        [exEnd]
120
claus
parents: 118
diff changeset
   200
122
claus
parents: 121
diff changeset
   201
125
claus
parents: 122
diff changeset
   202
    forward input in topView to the field:
claus
parents: 122
diff changeset
   203
    (currently, the field does not know this - therefore,
claus
parents: 122
diff changeset
   204
     its been told here ... this may change)
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   205
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   206
        |top field|
122
claus
parents: 121
diff changeset
   207
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   208
        top := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   209
        top extent:200@100.
122
claus
parents: 121
diff changeset
   210
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   211
        field := EditField origin:0.0@0.0 in:top.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   212
        field width:1.0.                                'let its height as-is'.
122
claus
parents: 121
diff changeset
   213
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   214
        top delegate:(KeyboardForwarder toView:field).
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   215
        field hasKeyboardFocus:true.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   216
        top open
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   217
                                                                        [exEnd]
122
claus
parents: 121
diff changeset
   218
claus
parents: 121
diff changeset
   219
125
claus
parents: 122
diff changeset
   220
    to make it look better: set some inset:
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   221
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   222
        |top field spacing|
120
claus
parents: 118
diff changeset
   223
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   224
        top := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   225
        top extent:200@100.
120
claus
parents: 118
diff changeset
   226
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   227
        spacing := View viewSpacing.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   228
        field := EditField origin:(0.0 @ spacing) in:top.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   229
        field width:1.0.                                        'let its height as-is'.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   230
        field leftInset:spacing; rightInset:spacing.
120
claus
parents: 118
diff changeset
   231
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   232
        top open
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   233
                                                                        [exEnd]
120
claus
parents: 118
diff changeset
   234
122
claus
parents: 121
diff changeset
   235
120
claus
parents: 118
diff changeset
   236
    give it an initial contents:
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   237
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   238
        |top field|
120
claus
parents: 118
diff changeset
   239
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   240
        top := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   241
        top extent:200@100.
120
claus
parents: 118
diff changeset
   242
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   243
        field := EditField origin:(0.0 @ 0.0) in:top.
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   244
        field width:1.0.       
120
claus
parents: 118
diff changeset
   245
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   246
        field editValue:'hello world'.
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   247
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   248
        top open
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   249
                                                                        [exEnd]
120
claus
parents: 118
diff changeset
   250
122
claus
parents: 121
diff changeset
   251
125
claus
parents: 122
diff changeset
   252
    have it preselected:
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   253
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   254
        |top field|
120
claus
parents: 118
diff changeset
   255
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   256
        top := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   257
        top extent:200@100.
120
claus
parents: 118
diff changeset
   258
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   259
        field := EditField origin:(0.0 @ 0.0) in:top.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   260
        field width:1.0.     
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   261
        field editValue:'hello world' selected:true.
120
claus
parents: 118
diff changeset
   262
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   263
        top open
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   264
                                                                         [exEnd]
120
claus
parents: 118
diff changeset
   265
122
claus
parents: 121
diff changeset
   266
120
claus
parents: 118
diff changeset
   267
    have part of it preselected:
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   268
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   269
        |top field|
120
claus
parents: 118
diff changeset
   270
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   271
        top := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   272
        top extent:200@100.
120
claus
parents: 118
diff changeset
   273
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   274
        field := EditField origin:(0.0 @ 0.0) in:top.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   275
        field width:1.0.     
120
claus
parents: 118
diff changeset
   276
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   277
        field editValue:'hello world'.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   278
        field selectFromCharacterPosition:1 to:5.
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   279
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   280
        top open
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   281
                                                                        [exEnd]
120
claus
parents: 118
diff changeset
   282
122
claus
parents: 121
diff changeset
   283
125
claus
parents: 122
diff changeset
   284
    set a size limit:
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   285
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   286
        |top field|
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   287
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   288
        top := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   289
        top extent:200@100.
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   290
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   291
        field := EditField origin:(0.0 @ 0.0) in:top.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   292
        field width:1.0.     
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   293
        field editValue:'hello'.
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   294
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   295
        field maxChars:8.
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   296
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   297
        top open
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   298
                                                                        [exEnd]
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   299
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   300
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   301
    set a size limit, initial width and stop it from scrolling
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   302
    notice: you may prefer a constant-pitch font (such as courier):
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   303
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   304
        |top field|
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   305
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   306
        top := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   307
        top extent:200@100.
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   308
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   309
        field := EditField origin:(0.0 @ 0.0) in:top.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   310
        field innerWidth:(field font widthOf:'00000000').     
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   311
        field editValue:'12345678'.
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   312
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   313
        field maxChars:8.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   314
        field autoScroll:false.
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   315
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   316
        top open
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   317
                                                                        [exEnd]
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   318
125
claus
parents: 122
diff changeset
   319
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   320
    enable / disable:
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   321
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   322
        |top panel check field ena|
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   323
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   324
        top := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   325
        top extent:200@100.
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   326
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   327
        panel := VerticalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   328
        panel borderWidth:0.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   329
        panel horizontalLayout:#left.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   330
        panel horizontalInset:View viewSpacing.
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   331
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   332
        check := CheckBox label:'enable' in:panel.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   333
        check turnOn.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   334
        check action:[:onOff | onOff ifTrue:[field enable] ifFalse:[field disable]].
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   335
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   336
        panel add:(View new height:30; borderWidth:0).
125
claus
parents: 122
diff changeset
   337
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   338
        field := EditField in:panel.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   339
        field width:1.0.     
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   340
        field editValue:'hello'.
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   341
        
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   342
        top open
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   343
                                                                        [exEnd]
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   344
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   345
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   346
    enable / disable using a channel:
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   347
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   348
        |top panel check field ena|
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   349
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   350
        top := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   351
        top extent:200@100.
125
claus
parents: 122
diff changeset
   352
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   353
        panel := VerticalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   354
        panel borderWidth:0.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   355
        panel horizontalLayout:#left.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   356
        panel horizontalInset:View viewSpacing.
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   357
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   358
        ena := true asValue.
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   359
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   360
        check := CheckBox label:'enable' in:panel.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   361
        check model:ena.
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   362
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   363
        panel add:(View new height:30; borderWidth:0).
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   364
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   365
        field := EditField in:panel.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   366
        field enableChannel:ena.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   367
        field width:1.0.     
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   368
        field editValue:'hello'.
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   369
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   370
        top open
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   371
                                                                        [exEnd]
125
claus
parents: 122
diff changeset
   372
claus
parents: 122
diff changeset
   373
121
claus
parents: 120
diff changeset
   374
    use a converter:
125
claus
parents: 122
diff changeset
   375
      - numbers (default to 0):
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   376
                                                                        [exBegin]
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   377
        |top field spacing|
121
claus
parents: 120
diff changeset
   378
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   379
        top := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   380
        top extent:200@100.
121
claus
parents: 120
diff changeset
   381
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   382
        spacing := View viewSpacing.
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   383
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   384
        field := EditField origin:0.0 @ spacing in:top.
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   385
        field width:1.0.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   386
        field horizontalInset:spacing.
121
claus
parents: 120
diff changeset
   387
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   388
        field converter:(PrintConverter new initForNumber).
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   389
        field editValue:1234.
655
acad3ef3a46c showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 611
diff changeset
   390
        field acceptAction:[:value | Transcript showCR:value].
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   391
        field crAction:[field accept. top destroy].
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   392
        top open.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   393
                                                                        [exEnd]
121
claus
parents: 120
diff changeset
   394
claus
parents: 120
diff changeset
   395
      - dates:
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   396
                                                                        [exBegin]
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   397
        |top field spacing|
121
claus
parents: 120
diff changeset
   398
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   399
        top := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   400
        top extent:200@100.
121
claus
parents: 120
diff changeset
   401
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   402
        spacing := View viewSpacing.
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   403
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   404
        field := EditField origin:0.0 @ spacing in:top.
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   405
        field width:1.0.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   406
        field horizontalInset:spacing.
121
claus
parents: 120
diff changeset
   407
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   408
        field converter:(PrintConverter new initForDate).
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   409
        field editValue:Date today.
655
acad3ef3a46c showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 611
diff changeset
   410
        field acceptAction:[:value | Transcript showCR:value class name , ' ' , value printString].
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   411
        field crAction:[field accept. top destroy].
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   412
        top open.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   413
                                                                        [exEnd]
121
claus
parents: 120
diff changeset
   414
122
claus
parents: 121
diff changeset
   415
125
claus
parents: 122
diff changeset
   416
    setting immediateAccept, makes the field update with every key:
claus
parents: 122
diff changeset
   417
claus
parents: 122
diff changeset
   418
      - immediate accept numbers, defaulting to nil:
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   419
                                                                        [exBegin]
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   420
        |top field spacing|
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   421
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   422
        top := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   423
        top extent:200@100.
121
claus
parents: 120
diff changeset
   424
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   425
        spacing := View viewSpacing.
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   426
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   427
        field := EditField origin:0.0 @ spacing in:top.
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   428
        field width:1.0.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   429
        field horizontalInset:spacing.
121
claus
parents: 120
diff changeset
   430
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   431
        field converter:(PrintConverter new initForNumberOrNil).
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   432
        field immediateAccept:true.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   433
        field editValue:1234.
655
acad3ef3a46c showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 611
diff changeset
   434
        field acceptAction:[:value | Transcript showCR:value].
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   435
        field crAction:[field accept. top destroy].
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   436
        top open.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   437
                                                                        [exEnd]
121
claus
parents: 120
diff changeset
   438
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   439
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   440
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   441
    grouping multiple fields, and forward keyPres from the outer view to the active field
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   442
    (i.e. actually: to the group):
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   443
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   444
        |top field1 field2 field3 group|
121
claus
parents: 120
diff changeset
   445
122
claus
parents: 121
diff changeset
   446
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   447
        top := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   448
        top extent:200@100.
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   449
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   450
        field1 := EditField origin:(0.0 @ 0.0) in:top.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   451
        field1 width:1.0.
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   452
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   453
        field2 := EditField origin:(0.0 @ 0.0) in:top.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   454
        field2 width:0.5.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   455
        field2 topInset:(field1 height); bottomInset:(field1 height negated).
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   456
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   457
        field3 := EditField origin:(0.5 @ 0.0) in:top.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   458
        field3 width:0.5.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   459
        field3 topInset:(field1 height); bottomInset:(field1 height negated).
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   460
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   461
        group := EnterFieldGroup new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   462
        group add:field1; add:field2; add:field3.
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   463
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   464
        top delegate:(KeyboardForwarder to:group).
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   465
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   466
        top open.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   467
                                                                        [exEnd]
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   468
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   469
        
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   470
    in addition: tell the group to close when the last field is left:
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   471
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   472
        |top field1 field2 field3 group|
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   473
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   474
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   475
        top := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   476
        top extent:200@100.
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   477
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   478
        field1 := EditField origin:(0.0 @ 0.0) in:top.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   479
        field1 width:1.0.
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   480
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   481
        field2 := EditField origin:(0.0 @ 0.0) in:top.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   482
        field2 width:0.5.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   483
        field2 topInset:(field1 height); bottomInset:(field1 height negated).
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   484
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   485
        field3 := EditField origin:(0.5 @ 0.0) in:top.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   486
        field3 width:0.5.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   487
        field3 topInset:(field1 height); bottomInset:(field1 height negated).
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   488
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   489
        group := EnterFieldGroup new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   490
        group add:field1; add:field2; add:field3.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   491
        group leaveAction:[top destroy].
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   492
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   493
        top delegate:(KeyboardForwarder to:group).
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   494
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   495
        top open.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   496
                                                                        [exEnd]
127
claus
parents: 125
diff changeset
   497
claus
parents: 125
diff changeset
   498
120
claus
parents: 118
diff changeset
   499
    use a model:
claus
parents: 118
diff changeset
   500
    (see changing model value in inspector when return is pressed in the field)
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   501
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   502
        |top field model|
120
claus
parents: 118
diff changeset
   503
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   504
        model := 'hello world' asValue.
120
claus
parents: 118
diff changeset
   505
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   506
        top := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   507
        top extent:200@100.
120
claus
parents: 118
diff changeset
   508
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   509
        field := EditField origin:(0.0 @ 0.0) in:top.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   510
        field width:1.0.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   511
        field model:model.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   512
        field acceptOnReturn:true.
120
claus
parents: 118
diff changeset
   513
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   514
        top open.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   515
        model inspect.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   516
                                                                        [exEnd]
121
claus
parents: 120
diff changeset
   517
122
claus
parents: 121
diff changeset
   518
892
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   519
    like above, but also accept the value, when the focus is changed
894
210626ca9586 example
Claus Gittinger <cg@exept.de>
parents: 892
diff changeset
   520
    (i.e. out of the input field):
892
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   521
    (see changing model value in inspector)
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   522
                                                                        [exBegin]
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   523
        |top field model|
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   524
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   525
        model := 'hello world' asValue.
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   526
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   527
        top := StandardSystemView new.
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   528
        top extent:200@100.
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   529
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   530
        field := EditField origin:(0.0 @ 0.0) in:top.
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   531
        field width:1.0.
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   532
        field model:model.
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   533
        field acceptOnLostFocus:true.
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   534
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   535
        top open.
894
210626ca9586 example
Claus Gittinger <cg@exept.de>
parents: 892
diff changeset
   536
        InspectorView openOn:model monitor:'value'.
892
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   537
                                                                        [exEnd]
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   538
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   539
127
claus
parents: 125
diff changeset
   540
    two views on the same model (each accepts on return):
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   541
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   542
        |top1 top2 field1 field2 model|
121
claus
parents: 120
diff changeset
   543
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   544
        model := 'hello world' asValue.
121
claus
parents: 120
diff changeset
   545
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   546
        top1 := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   547
        top1 extent:200@100.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   548
        field1 := EditField origin:(0.0 @ 0.0) in:top1.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   549
        field1 width:1.0.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   550
        field1 model:model.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   551
        field1 acceptOnReturn:true.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   552
        top1 open.
121
claus
parents: 120
diff changeset
   553
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   554
        top2 := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   555
        top2 extent:200@100.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   556
        field2 := EditField origin:(0.0 @ 0.0) in:top2.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   557
        field2 width:1.0.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   558
        field2 model:model.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   559
        field2 acceptOnReturn:true.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   560
        top2 open.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   561
                                                                        [exEnd]
121
claus
parents: 120
diff changeset
   562
127
claus
parents: 125
diff changeset
   563
    two views on the same model (no accept on return):
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   564
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   565
        |top1 top2 field1 field2 model|
127
claus
parents: 125
diff changeset
   566
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   567
        model := 'hello world' asValue.
127
claus
parents: 125
diff changeset
   568
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   569
        top1 := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   570
        top1 extent:200@100.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   571
        field1 := EditField origin:(0.0 @ 0.0) in:top1.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   572
        field1 width:1.0.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   573
        field1 model:model; acceptOnReturn:false.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   574
        top1 open.
127
claus
parents: 125
diff changeset
   575
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   576
        top2 := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   577
        top2 extent:200@100.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   578
        field2 := EditField origin:(0.0 @ 0.0) in:top2.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   579
        field2 width:1.0.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   580
        field2 model:model; acceptOnReturn:false.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   581
        top2 open.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   582
                                                                        [exEnd]
127
claus
parents: 125
diff changeset
   583
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   584
    with immediate accept (every key updates the model):
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   585
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   586
        |top1 top2 field1 field2 model|
125
claus
parents: 122
diff changeset
   587
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   588
        model := 'hello world' asValue.
125
claus
parents: 122
diff changeset
   589
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   590
        top1 := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   591
        top1 extent:200@100.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   592
        field1 := EditField origin:(0.0 @ 0.0) in:top1.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   593
        field1 width:1.0.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   594
        field1 model:model; immediateAccept:true.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   595
        top1 open.
125
claus
parents: 122
diff changeset
   596
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   597
        top2 := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   598
        top2 extent:200@100.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   599
        field2 := EditField origin:(0.0 @ 0.0) in:top2.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   600
        field2 width:1.0.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   601
        field2 model:model; immediateAccept:true.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   602
        top2 open.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   603
                                                                        [exEnd]
122
claus
parents: 121
diff changeset
   604
121
claus
parents: 120
diff changeset
   605
    just an example; a checkBox and an editField on the same model:
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   606
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   607
        |top1 top2 field1 box model|
121
claus
parents: 120
diff changeset
   608
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   609
        model := false asValue.
121
claus
parents: 120
diff changeset
   610
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   611
        top1 := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   612
        top1 extent:200@100.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   613
        field1 := EditField origin:(0.0 @ 0.0) in:top1.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   614
        field1 width:1.0.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   615
        field1 converter:(PrintConverter new initForYesNo).
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   616
        field1 model:model.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   617
        top1 open.
121
claus
parents: 120
diff changeset
   618
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   619
        top2 := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   620
        top2 extent:200@100.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   621
        box := CheckBox on:model.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   622
        box label:'on/off'.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   623
        top2 add:box.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   624
        top2 open.
121
claus
parents: 120
diff changeset
   625
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   626
        model inspect.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   627
                                                                        [exEnd]
125
claus
parents: 122
diff changeset
   628
claus
parents: 122
diff changeset
   629
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   630
    multiple editFields on multiple models (value holders):
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   631
    (the fields are connected by a group to allow tabbing)
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   632
                                                                        [exBegin]
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   633
        |top panel group field1 field2 field3 box 
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   634
         v1 v2 v3 spacing|
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   635
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   636
        v1 := true asValue.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   637
        v2 := 'some string' asValue.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   638
        v3 := 1.2 asValue.
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   639
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   640
        top := StandardSystemView new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   641
        top extent:200@100.
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   642
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   643
        panel := VerticalPanelView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   644
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   645
        spacing := View viewSpacing.
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   646
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   647
        field1 := EditField new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   648
        field1 width:1.0.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   649
        field1 horizontalInset:spacing.
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   650
        field1 converter:(PrintConverter new initForYesNo).
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   651
        field1 model:v1.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   652
        panel add:field1.
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   653
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   654
        field2 := EditField new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   655
        field2 width:1.0.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   656
        field2 horizontalInset:spacing.
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   657
        field2 model:v2.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   658
        panel add:field2.
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   659
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   660
        field3 := EditField new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   661
        field3 width:1.0.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   662
        field3 horizontalInset:spacing.
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   663
        field3 converter:(PrintConverter new initForNumber).
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   664
        field3 model:v3.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   665
        panel add:field3.
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   666
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   667
        group := EnterFieldGroup new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   668
        group add:field1; add:field2; add:field3.
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   669
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   670
        top openModal.
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   671
655
acad3ef3a46c showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 611
diff changeset
   672
        Transcript showCR:v1 value.
acad3ef3a46c showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 611
diff changeset
   673
        Transcript showCR:v2 value.
acad3ef3a46c showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 611
diff changeset
   674
        Transcript showCR:v3 value.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   675
                                                                        [exEnd]
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   676
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   677
125
claus
parents: 122
diff changeset
   678
    connecting fields:
claus
parents: 122
diff changeset
   679
    update field2 wehenever field1 is changed.
claus
parents: 122
diff changeset
   680
    (normally, the processing below (xChanged) is done in your application
claus
parents: 122
diff changeset
   681
     class, or in a complex model. For the demonstration below, we use
claus
parents: 122
diff changeset
   682
     a Plug to simulate the protocol.)
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   683
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   684
        |application top field1 field2 value1 value2|
125
claus
parents: 122
diff changeset
   685
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   686
        application := Plug new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   687
        application respondTo:#value1Changed
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   688
                         with:[value2 value:(value1 value isNil ifTrue:[nil]
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   689
                                                                ifFalse:[value1 value squared])].
125
claus
parents: 122
diff changeset
   690
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   691
        value1 := 1 asValue.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   692
        value2 := 1 asValue.
125
claus
parents: 122
diff changeset
   693
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   694
        top := Dialog new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   695
        top extent:200@200.
125
claus
parents: 122
diff changeset
   696
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   697
        (top addTextLabel:'some number:') layout:#left.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   698
        top addVerticalSpace.
125
claus
parents: 122
diff changeset
   699
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   700
        (top addInputFieldOn:value1 tabable:false) 
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   701
            converter:(PrintConverter new initForNumberOrNil);
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   702
            immediateAccept:true.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   703
        top addVerticalSpace.
125
claus
parents: 122
diff changeset
   704
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   705
        (top addTextLabel:'squared:') layout:#left.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   706
        top addVerticalSpace.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   707
        (top addInputFieldOn:value2 tabable:false) 
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   708
            converter:(PrintConverter new initForNumberOrNil).
125
claus
parents: 122
diff changeset
   709
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   710
        value1 onChangeSend:#value1Changed to:application.
125
claus
parents: 122
diff changeset
   711
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   712
        top openModeless.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   713
                                                                        [exEnd]
125
claus
parents: 122
diff changeset
   714
claus
parents: 122
diff changeset
   715
claus
parents: 122
diff changeset
   716
    two-way connect:
claus
parents: 122
diff changeset
   717
    each field updates the other (notice, that we have to turn off
claus
parents: 122
diff changeset
   718
    onChange: notification, to avoid an endless notification cycle)
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   719
                                                                        [exBegin]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   720
        |application top field1 field2 value1 value2|
125
claus
parents: 122
diff changeset
   721
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   722
        application := Plug new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   723
        application respondTo:#value1Changed
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   724
                         with:[value2 retractInterestsFor:application.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   725
                               value2 value:(value1 value isNil ifTrue:[nil]
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   726
                                                                ifFalse:[value1 value squared]).
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   727
                               value2 onChangeSend:#value2Changed to:application.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   728
                              ].
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   729
        application respondTo:#value2Changed
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   730
                         with:[value1 retractInterestsFor:application.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   731
                               value1 value:(value2 value isNil ifTrue:[nil]
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   732
                                                                ifFalse:[value2 value sqrt]).
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   733
                               value1 onChangeSend:#value1Changed to:application.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   734
                              ].
125
claus
parents: 122
diff changeset
   735
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   736
        value1 := 1 asValue.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   737
        value2 := 1 asValue.
125
claus
parents: 122
diff changeset
   738
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   739
        top := Dialog new.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   740
        top extent:200@200.
125
claus
parents: 122
diff changeset
   741
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   742
        (top addTextLabel:'some number:') layout:#left.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   743
        top addVerticalSpace.
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   744
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   745
        (top addInputFieldOn:value1 tabable:false) 
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   746
            converter:(PrintConverter new initForNumberOrNil);
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   747
            immediateAccept:true.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   748
        top addVerticalSpace.
125
claus
parents: 122
diff changeset
   749
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   750
        (top addTextLabel:'squared:') layout:#left.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   751
        top addVerticalSpace.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   752
        (top addInputFieldOn:value2 tabable:false) 
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   753
            converter:(PrintConverter new initForNumberOrNil);
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   754
            immediateAccept:true.
125
claus
parents: 122
diff changeset
   755
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   756
        value1 onChangeSend:#value1Changed to:application.
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   757
        value2 onChangeSend:#value2Changed to:application.
125
claus
parents: 122
diff changeset
   758
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
   759
        top openModeless.
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
   760
                                                                        [exEnd]
120
claus
parents: 118
diff changeset
   761
"
19
a696fb528758 *** empty log message ***
claus
parents: 7
diff changeset
   762
! !
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
   763
892
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   764
!EditField class methodsFor:'defaults'!
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
   765
4028
Claus Gittinger <cg@exept.de>
parents: 4013
diff changeset
   766
defaultBorderColor
Claus Gittinger <cg@exept.de>
parents: 4013
diff changeset
   767
    ^ DefaultBorderColor
Claus Gittinger <cg@exept.de>
parents: 4013
diff changeset
   768
!
Claus Gittinger <cg@exept.de>
parents: 4013
diff changeset
   769
Claus Gittinger <cg@exept.de>
parents: 4013
diff changeset
   770
defaultBorderWidth
Claus Gittinger <cg@exept.de>
parents: 4013
diff changeset
   771
    ^ DefaultBorderWidth
Claus Gittinger <cg@exept.de>
parents: 4013
diff changeset
   772
!
Claus Gittinger <cg@exept.de>
parents: 4013
diff changeset
   773
125
claus
parents: 122
diff changeset
   774
defaultLeaveKeys
128
claus
parents: 127
diff changeset
   775
    "return the set of keys which are taken as leave-keys.
claus
parents: 127
diff changeset
   776
     If the field is in an enterFieldGroup, all leave keys will be
claus
parents: 127
diff changeset
   777
     forwarded to the group and possible step to the next/previous field.
claus
parents: 127
diff changeset
   778
     Also, if acceptOnLeave is true, leave keys will store the current
claus
parents: 127
diff changeset
   779
     value into their model (if any)"
claus
parents: 127
diff changeset
   780
125
claus
parents: 122
diff changeset
   781
    ^ #(Return CursorUp CursorDown Next Previous Accept)
claus
parents: 122
diff changeset
   782
!
claus
parents: 122
diff changeset
   783
4507
5d052c1b7f02 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4320
diff changeset
   784
defaultLevel
5d052c1b7f02 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4320
diff changeset
   785
    ^ DefaultLevel
5d052c1b7f02 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4320
diff changeset
   786
!
5d052c1b7f02 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4320
diff changeset
   787
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   788
defaultNumberOfLines
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   789
    "the number of lines in the field"
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   790
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   791
    ^ 1
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   792
!
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   793
59
450ce95a72a4 *** empty log message ***
claus
parents: 47
diff changeset
   794
updateStyleCache
440
2beb33cb0146 added style resource directive
Claus Gittinger <cg@exept.de>
parents: 392
diff changeset
   795
    "extract values from the styleSheet and cache them in class variables"
2beb33cb0146 added style resource directive
Claus Gittinger <cg@exept.de>
parents: 392
diff changeset
   796
4013
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
   797
    <resource: #style (#'editField.foregroundColor' 
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
   798
                       #'editField.backgroundColor'
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
   799
                       #'editField.selectionForegroundColor' 
4214
d98c74667441 changed: #updateStyleCache
Claus Gittinger <cg@exept.de>
parents: 4212
diff changeset
   800
                       #'editField.selectionBackgroundColor'
1354
c260c896ea66 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
   801
                       #'editField.font')>
440
2beb33cb0146 added style resource directive
Claus Gittinger <cg@exept.de>
parents: 392
diff changeset
   802
1354
c260c896ea66 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
   803
    DefaultForegroundColor := StyleSheet colorAt:'editField.foregroundColor' default:Black.
c260c896ea66 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
   804
    DefaultBackgroundColor := StyleSheet colorAt:'editField.backgroundColor' default:White.
1834
2cad8377f2e6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1829
diff changeset
   805
    DefaultSelectionForegroundColor := StyleSheet colorAt:'editField.selectionForegroundColor' default:nil.
2cad8377f2e6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1829
diff changeset
   806
    DefaultSelectionForegroundColor isNil ifTrue:[
2cad8377f2e6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1829
diff changeset
   807
        DefaultSelectionForegroundColor := StyleSheet colorAt:'selection.hilightForegroundColor' default:DefaultBackgroundColor.
2cad8377f2e6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1829
diff changeset
   808
    ].
2cad8377f2e6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1829
diff changeset
   809
    DefaultSelectionBackgroundColor := StyleSheet colorAt:'editField.selectionBackgroundColor' default:nil.
2cad8377f2e6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1829
diff changeset
   810
    DefaultSelectionBackgroundColor isNil ifTrue:[
2cad8377f2e6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1829
diff changeset
   811
        DefaultSelectionBackgroundColor := StyleSheet colorAt:'selection.hilightBackgroundColor' default:DefaultForegroundColor.
2cad8377f2e6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1829
diff changeset
   812
    ].
1354
c260c896ea66 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
   813
    DefaultFont := StyleSheet fontAt:'editField.font' default:nil.
4013
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
   814
    DefaultBorderColor := StyleSheet colorAt:'editField.borderColor' default:nil. 
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
   815
    DefaultBorderWidth := StyleSheet at:'editField.borderWidth' default:nil.  
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
   816
    DefaultLevel := StyleSheet at:'editField.level' default:nil. 
59
450ce95a72a4 *** empty log message ***
claus
parents: 47
diff changeset
   817
450ce95a72a4 *** empty log message ***
claus
parents: 47
diff changeset
   818
    "
60
f3c738c24ce6 mostly style
claus
parents: 59
diff changeset
   819
     self updateStyleCache
59
450ce95a72a4 *** empty log message ***
claus
parents: 47
diff changeset
   820
    "
440
2beb33cb0146 added style resource directive
Claus Gittinger <cg@exept.de>
parents: 392
diff changeset
   821
4214
d98c74667441 changed: #updateStyleCache
Claus Gittinger <cg@exept.de>
parents: 4212
diff changeset
   822
    "Modified: / 19-01-2011 / 22:34:35 / cg"
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
   823
! !
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
   824
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   825
!EditField methodsFor:'accepting'!
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   826
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   827
accept
3709
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
   828
    "accept the current contents by executing the accept-action and/or
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
   829
     changeMessage.
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
   830
     Do this only if the contents of the EditField differs
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
   831
     from the printed representation of the model."
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
   832
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
   833
    |string|
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   834
1108
3d14bb6bceb7 added disableAccept
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
   835
    acceptEnabled == false ifTrue:[
3046
c2d66c9ba0d8 Send #beep to window instead of device
Stefan Vogel <sv@exept.de>
parents: 2995
diff changeset
   836
        self beep.
1108
3d14bb6bceb7 added disableAccept
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
   837
        ^ self
3d14bb6bceb7 added disableAccept
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
   838
    ].
3d14bb6bceb7 added disableAccept
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
   839
2105
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   840
    (acceptIfUnchanged not
3709
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
   841
     and:[model notNil
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
   842
     and:[(self convertEditValueToString:model value) = self contents]]) ifTrue:[
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
   843
        ^ self
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
   844
    ].
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
   845
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   846
    super accept.
2105
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   847
3709
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
   848
    "a typeconverter can convert different strings to the same value 
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
   849
     ('010' asInteger = '10' asInteger).
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
   850
     Show the common string representation ('10') of the value"
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
   851
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   852
    converter notNil ifTrue:[
3709
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
   853
        string := converter printStringFor:self editValue.
1108
3d14bb6bceb7 added disableAccept
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
   854
        string ~= self contents ifTrue:[
3d14bb6bceb7 added disableAccept
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
   855
            self contents:string.
3d14bb6bceb7 added disableAccept
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
   856
            self flash
3709
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
   857
        ].
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   858
    ].
1108
3d14bb6bceb7 added disableAccept
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
   859
3d14bb6bceb7 added disableAccept
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
   860
    "Modified: 7.3.1997 / 11:06:00 / cg"
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   861
! !
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   862
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   863
!EditField methodsFor:'accessing-behavior'!
125
claus
parents: 122
diff changeset
   864
2105
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   865
acceptIfUnchanged
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   866
    "return the acceptIfUnchanged flag setting.
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   867
     if set (the default), an accept notification is sent on accept,
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   868
     even if the fields value is the same. If cleared,
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   869
     the notification is suppressed, if the fields contents is the same."
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   870
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   871
    ^ acceptIfUnchanged
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   872
!
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   873
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   874
acceptIfUnchanged:aBoolean
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   875
    "if set (the default), an accept notification is sent on accept,
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   876
     even if the fields value is the same. If cleared,
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   877
     the notification is suppressed, if the fields contents is the same."
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   878
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   879
    acceptIfUnchanged := aBoolean
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   880
!
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
   881
2538
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
   882
acceptOnLeave
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
   883
    "returnr the acceptOnLeave flag. The default is false.
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
   884
     If true, leaving the box (via return, cursor etc.) accepts my 
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
   885
     string into the valueHolder (if any).
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
   886
     (actually, the set of keys can be specified with #leaveKeys:)"
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
   887
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
   888
     ^ acceptOnLeave 
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
   889
!
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
   890
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   891
acceptOnLeave:aBoolean
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   892
    "set/clear the acceptOnLeave flag. The default is false.
892
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   893
     If true, leaving the box (via return, cursor etc.) accepts my 
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   894
     string into the valueHolder (if any).
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   895
     (actually, the set of keys can be specified with #leaveKeys:)"
125
claus
parents: 122
diff changeset
   896
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   897
     acceptOnLeave := aBoolean
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   898
892
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   899
    "Modified: 11.12.1996 / 16:47:25 / cg"
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   900
!
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   901
3082
1a438d1ed699 acceptOnLostFocus getter added
penk
parents: 3046
diff changeset
   902
acceptOnLostFocus
1a438d1ed699 acceptOnLostFocus getter added
penk
parents: 3046
diff changeset
   903
    ^ acceptOnLostFocus
1a438d1ed699 acceptOnLostFocus getter added
penk
parents: 3046
diff changeset
   904
!
1a438d1ed699 acceptOnLostFocus getter added
penk
parents: 3046
diff changeset
   905
892
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   906
acceptOnLostFocus:aBoolean
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   907
    "set/clear the acceptOnLostFocus flag. The default is false.
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   908
     If true, a lost focus (via mouse-pointer motion etc.) accepts my 
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   909
     string into the valueHolder (if any)."
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   910
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   911
     acceptOnLostFocus := aBoolean
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   912
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   913
    "Modified: 16.12.1995 / 16:26:45 / cg"
892
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
   914
    "Created: 11.12.1996 / 16:48:00 / cg"
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   915
!
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   916
1937
b88111019826 added acceptOnPointerLeave - must be separate from acceptOnLeave
Claus Gittinger <cg@exept.de>
parents: 1936
diff changeset
   917
acceptOnPointerLeave:aBoolean
b88111019826 added acceptOnPointerLeave - must be separate from acceptOnLeave
Claus Gittinger <cg@exept.de>
parents: 1936
diff changeset
   918
    "set/clear the acceptOnPointerLeave flag. The default is false.
b88111019826 added acceptOnPointerLeave - must be separate from acceptOnLeave
Claus Gittinger <cg@exept.de>
parents: 1936
diff changeset
   919
     If true, a pointer leave (via mouse-pointer motion etc.) accepts my 
b88111019826 added acceptOnPointerLeave - must be separate from acceptOnLeave
Claus Gittinger <cg@exept.de>
parents: 1936
diff changeset
   920
     string into the valueHolder (if any)."
b88111019826 added acceptOnPointerLeave - must be separate from acceptOnLeave
Claus Gittinger <cg@exept.de>
parents: 1936
diff changeset
   921
b88111019826 added acceptOnPointerLeave - must be separate from acceptOnLeave
Claus Gittinger <cg@exept.de>
parents: 1936
diff changeset
   922
     acceptOnPointerLeave := aBoolean
b88111019826 added acceptOnPointerLeave - must be separate from acceptOnLeave
Claus Gittinger <cg@exept.de>
parents: 1936
diff changeset
   923
b88111019826 added acceptOnPointerLeave - must be separate from acceptOnLeave
Claus Gittinger <cg@exept.de>
parents: 1936
diff changeset
   924
    "Modified: / 16.12.1995 / 16:26:45 / cg"
b88111019826 added acceptOnPointerLeave - must be separate from acceptOnLeave
Claus Gittinger <cg@exept.de>
parents: 1936
diff changeset
   925
    "Created: / 28.6.1999 / 18:07:38 / cg"
b88111019826 added acceptOnPointerLeave - must be separate from acceptOnLeave
Claus Gittinger <cg@exept.de>
parents: 1936
diff changeset
   926
!
b88111019826 added acceptOnPointerLeave - must be separate from acceptOnLeave
Claus Gittinger <cg@exept.de>
parents: 1936
diff changeset
   927
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   928
acceptOnReturn:aBoolean
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   929
    "set/clear the acceptOnReturn flag. The default is false.
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   930
     If true, leaving the box via return accepts my 
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   931
     string into the valueHolder (if any)."
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   932
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   933
     acceptOnReturn := aBoolean
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   934
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   935
    "Modified: 16.12.1995 / 16:25:34 / cg"
125
claus
parents: 122
diff changeset
   936
!
claus
parents: 122
diff changeset
   937
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   938
acceptOnTab:aBoolean
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   939
    "set/clear the acceptOnTab flag. The default is true.
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   940
     If true, a pressed Tab key accepts and leaves the box.
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   941
     If false, the Tab key is treated like any normal input character
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   942
     (i.e. inserted into the contents)."
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   943
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   944
     acceptOnTab := aBoolean
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   945
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   946
    "Created: 24.1.1996 / 13:13:37 / cg"
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   947
!
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
   948
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   949
autoScroll:aBoolean
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   950
    "turn on/off automatic scrolling upon keyboard entry
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   951
     to make the cursor visible."
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   952
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   953
    autoScrollHorizontally := aBoolean
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   954
!
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
   955
325
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
   956
clickAction:aBlock
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
   957
    "define an action to be evaluated when being clicked upon"
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
   958
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
   959
    clickAction := aBlock
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
   960
!
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
   961
2792
508ab005b021 category changes
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   962
converter
508ab005b021 category changes
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   963
    "return the converter (if any)."
508ab005b021 category changes
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   964
508ab005b021 category changes
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   965
    ^ converter
508ab005b021 category changes
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   966
!
508ab005b021 category changes
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   967
508ab005b021 category changes
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   968
converter:aConverter
508ab005b021 category changes
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   969
    "set the converter. If non-nil,
508ab005b021 category changes
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   970
     the converter is applied to the text to convert from the string
508ab005b021 category changes
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   971
     representation to the actual object value and vice versa.
508ab005b021 category changes
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   972
     The default converter is nil, meaning no-conversion
508ab005b021 category changes
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   973
     (i.e. the edited object is the string itself."
508ab005b021 category changes
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   974
508ab005b021 category changes
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   975
    converter := aConverter
508ab005b021 category changes
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   976
!
508ab005b021 category changes
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   977
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   978
crAction:aBlock
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   979
    "define an action to be evaluated when the return key is pressed."
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   980
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   981
    crAction := aBlock
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
   982
!
125
claus
parents: 122
diff changeset
   983
3216
8161c0b4b38e add double click action
ab
parents: 3082
diff changeset
   984
doubleClickAction:aBlock
8161c0b4b38e add double click action
ab
parents: 3082
diff changeset
   985
    "define an action to be evaluated when being double clicked upon"
8161c0b4b38e add double click action
ab
parents: 3082
diff changeset
   986
8161c0b4b38e add double click action
ab
parents: 3082
diff changeset
   987
    doubleClickAction := aBlock
8161c0b4b38e add double click action
ab
parents: 3082
diff changeset
   988
!
8161c0b4b38e add double click action
ab
parents: 3082
diff changeset
   989
1034
d6d5d222f166 added #enabled.
ca
parents: 995
diff changeset
   990
enabled
d6d5d222f166 added #enabled.
ca
parents: 995
diff changeset
   991
    "return true, if the field is enabled (i.e. accepts keyboard input)"
d6d5d222f166 added #enabled.
ca
parents: 995
diff changeset
   992
d6d5d222f166 added #enabled.
ca
parents: 995
diff changeset
   993
    ^ enabled ? true 
d6d5d222f166 added #enabled.
ca
parents: 995
diff changeset
   994
d6d5d222f166 added #enabled.
ca
parents: 995
diff changeset
   995
!
d6d5d222f166 added #enabled.
ca
parents: 995
diff changeset
   996
1829
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
   997
enabled:aBoolean
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
   998
    "enable/disable the field; show/hide the cursor and allow/disallow input"
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
   999
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
  1000
    enabled ~~ aBoolean ifTrue:[
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
  1001
        enabled := aBoolean.
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
  1002
        self updateBackground.
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
  1003
        super cursorShown:aBoolean
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
  1004
    ]
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
  1005
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
  1006
    "Modified: / 3.8.1998 / 17:52:18 / cg"
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
  1007
    "Created: / 30.3.1999 / 15:19:17 / stefan"
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
  1008
    "Modified: / 30.3.1999 / 16:00:43 / stefan"
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
  1009
!
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
  1010
2993
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1011
entryCompletionBlock
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1012
    "the action to be evaluated when Tab (EntryCompletionCharacter) is pressed.
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1013
     The block gets the current contents and the field itself as optional arguments
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1014
     (i.e. it can be a 0, 1 or 2-arg block)."
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1015
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1016
    "/ read comment in entryCompletionBlockHolder: on why the following kludge is present
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1017
    entryCompletionBlock isBlock ifTrue:[
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1018
        ^ entryCompletionBlock
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1019
    ].
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1020
    ^ entryCompletionBlock value
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1021
!
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1022
2995
45b695aa5065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  1023
entryCompletionBlock:aZeroOneOrTwoArgBlock
2993
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1024
    "define an action to be evaluated when Tab (EntryCompletionCharacter) is pressed.
2628
619483f17989 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2616
diff changeset
  1025
     The block gets the current contents and the field itself as optional arguments
619483f17989 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2616
diff changeset
  1026
     (i.e. it can be a 0, 1 or 2-arg block)."
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1027
2995
45b695aa5065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  1028
    entryCompletionBlock := aZeroOneOrTwoArgBlock
125
claus
parents: 122
diff changeset
  1029
!
claus
parents: 122
diff changeset
  1030
2995
45b695aa5065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  1031
entryCompletionBlockHolder:aZeroOneOrTwoArgBlock
2993
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1032
    "a holder for an action to be evaluated when Tab (EntryCompletionCharacter) is pressed.
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1033
     The block gets the current contents and the field itself as optional arguments
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1034
     (i.e. it can be a 0, 1 or 2-arg block)."
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1035
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1036
    "/ for now (to avoid incompatibilities), misuse the existing
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1037
    "/ entryCompletionBlock and check if its a holder.
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1038
2995
45b695aa5065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  1039
    entryCompletionBlock := aZeroOneOrTwoArgBlock
2993
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1040
!
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1041
3990
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1042
entryCompletionCharacter
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1043
    "return the value of the instance variable 'entryCompletionCharacter' (automatically generated)"
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1044
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1045
    ^ entryCompletionCharacter
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1046
!
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1047
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1048
immediateAccept:aBoolean
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1049
    "set/clear the immediateAccept flag. The default is false.
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1050
     If true, every pressed key immediately accepts my 
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1051
     string into the valueHolder (if any)."
155
claus
parents: 144
diff changeset
  1052
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1053
     immediateAccept := aBoolean
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1054
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1055
    "Modified: 16.12.1995 / 16:25:57 / cg"
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1056
!
155
claus
parents: 144
diff changeset
  1057
995
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1058
isAcceptOnLeave
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1059
    "return the acceptOnLeave flag. The default is false.
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1060
     If true, leaving the box (via return, cursor etc.) accepts my 
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1061
     string into the valueHolder (if any).
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1062
     (actually, the set of keys can be specified with #leaveKeys:)"
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1063
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1064
     ^ acceptOnLeave 
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1065
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1066
    "Modified: 11.12.1996 / 16:47:25 / cg"
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1067
!
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1068
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1069
isAcceptOnLostFocus
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1070
    "return the acceptOnLostFocus flag. The default is false.
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1071
     If true, a lost focus (via mouse-pointer motion etc.) accepts my 
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1072
     string into the valueHolder (if any)."
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1073
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1074
     ^ acceptOnLostFocus
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1075
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1076
    "Modified: 16.12.1995 / 16:26:45 / cg"
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1077
    "Created: 11.12.1996 / 16:48:00 / cg"
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1078
!
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1079
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1080
isAcceptOnReturn
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1081
    "return the acceptOnReturn flag. The default is false.
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1082
     If true, leaving the box via return accepts my 
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1083
     string into the valueHolder (if any)."
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1084
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1085
     ^ acceptOnReturn 
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1086
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1087
    "Modified: 16.12.1995 / 16:25:34 / cg"
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1088
!
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1089
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1090
isAcceptOnTab
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1091
    "return the acceptOnTab flag. The default is true.
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1092
     If true, a pressed Tab key accepts and leaves the box.
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1093
     If false, the Tab key is treated like any normal input character
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1094
     (i.e. inserted into the contents)."
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1095
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1096
     ^ acceptOnTab
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1097
!
493b62566907 more isXXX queries
ca
parents: 994
diff changeset
  1098
994
72ab84c42334 added #isImmediateAccept
ca
parents: 979
diff changeset
  1099
isImmediateAccept
72ab84c42334 added #isImmediateAccept
ca
parents: 979
diff changeset
  1100
    "return the immediateAccept flag. The default is false.
72ab84c42334 added #isImmediateAccept
ca
parents: 979
diff changeset
  1101
     If true, every pressed key immediately accepts my 
72ab84c42334 added #isImmediateAccept
ca
parents: 979
diff changeset
  1102
     string into the valueHolder (if any)."
72ab84c42334 added #isImmediateAccept
ca
parents: 979
diff changeset
  1103
72ab84c42334 added #isImmediateAccept
ca
parents: 979
diff changeset
  1104
     ^ immediateAccept
72ab84c42334 added #isImmediateAccept
ca
parents: 979
diff changeset
  1105
72ab84c42334 added #isImmediateAccept
ca
parents: 979
diff changeset
  1106
    "Modified: 16.12.1995 / 16:25:57 / cg"
72ab84c42334 added #isImmediateAccept
ca
parents: 979
diff changeset
  1107
!
72ab84c42334 added #isImmediateAccept
ca
parents: 979
diff changeset
  1108
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1109
leaveAction:aBlock
4720
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1110
    "define an action to be evaluated when field is left by a leave-key
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1111
     (by default: return or cursor keys.
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1112
     Actually, the set of keys can be specified with #leaveKeys:
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1113
     On leave, the precedence of actions is:
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1114
       1) explicit leaveAction per key
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1115
       2) this general leaveAction
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1116
       3) tab or return action
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1117
"
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1118
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1119
    leaveAction := aBlock
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1120
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1121
    "Modified: 16.12.1995 / 16:26:36 / cg"
155
claus
parents: 144
diff changeset
  1122
!
claus
parents: 144
diff changeset
  1123
3990
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1124
leaveKey
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1125
    "only valid after the editField has been left via a leaveCharacter.
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1126
     Allows for users of the EditField to advance the selection 
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1127
     (especially: DataSets to select next/prev if editor is left via CrsrUp/Down)"
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1128
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1129
    ^ leaveKey
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1130
!
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1131
1997
f509850c3240 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1993
diff changeset
  1132
leaveKeys
1998
634d18238938 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
  1133
    "return (a copy of) the collection of keys which are interpreted as leaveKeys.
634d18238938 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
  1134
     I.e. those that make the field inactive and pass the focus to the next field
634d18238938 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
  1135
     (and accept, if acceptOnLeave is true)"
1997
f509850c3240 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1993
diff changeset
  1136
f509850c3240 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1993
diff changeset
  1137
    ^ leaveKeys copy
f509850c3240 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1993
diff changeset
  1138
!
f509850c3240 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1993
diff changeset
  1139
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1140
leaveKeys:aCollectionOfKeySymbols 
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1141
    "define the set of keys which are interpreted as leaveKeys.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1142
     I.e. those that make the field inactive and accept (if acceptOnLeave is true).
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1143
     The default is a set of #CursorUp, #CursorDown, #Next, #Prior and #Return."
155
claus
parents: 144
diff changeset
  1144
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1145
    leaveKeys := aCollectionOfKeySymbols
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1146
!
155
claus
parents: 144
diff changeset
  1147
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1148
makeTabable
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1149
    "arrange for Tab to accept & leave the field
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1150
     If the field is part of a group, the next field gets the
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1151
     input focus"
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1152
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1153
    leaveKeys isNil ifTrue:[
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1154
        leaveKeys := self class defaultLeaveKeys
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1155
    ].
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1156
    leaveKeys := leaveKeys copyWith:#Tab
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1157
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1158
    "Created: 27.4.1996 / 17:09:48 / cg"
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1159
!
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1160
4720
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1161
onKey:aKey leaveWith:aBlock
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1162
    "arrange for aKey to leave the field and evalaute aBlock.
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1163
     On leave, the precedence of actions is:
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1164
       1) explicit leaveAction per key
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1165
       2) general leaveAction
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1166
       3) tab or return action
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1167
     Can be used to arrange for cursorDown to pass focus to another widget."
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1168
4724
10440165e22e class: EditField
Claus Gittinger <cg@exept.de>
parents: 4720
diff changeset
  1169
    leaveKeys := leaveKeys asOrderedCollection.
4720
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1170
    leaveKeys add:aKey.
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1171
    leaveKeyActions isNil ifTrue:[
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1172
        leaveKeyActions := Dictionary new.
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1173
    ].
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1174
    leaveKeyActions at:aKey put:aBlock.
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1175
!
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1176
1609
8a0c1ee30a0a readOnly fields change the backgroundColor to grey.
Claus Gittinger <cg@exept.de>
parents: 1547
diff changeset
  1177
readOnly:aBoolean
8a0c1ee30a0a readOnly fields change the backgroundColor to grey.
Claus Gittinger <cg@exept.de>
parents: 1547
diff changeset
  1178
    "make the text readonly or writable"
8a0c1ee30a0a readOnly fields change the backgroundColor to grey.
Claus Gittinger <cg@exept.de>
parents: 1547
diff changeset
  1179
8a0c1ee30a0a readOnly fields change the backgroundColor to grey.
Claus Gittinger <cg@exept.de>
parents: 1547
diff changeset
  1180
    super readOnly:aBoolean.
1631
f8fae6670540 change viewBackground, when either disabled or readOnly.
Claus Gittinger <cg@exept.de>
parents: 1616
diff changeset
  1181
    self updateBackground.
1609
8a0c1ee30a0a readOnly fields change the backgroundColor to grey.
Claus Gittinger <cg@exept.de>
parents: 1547
diff changeset
  1182
8a0c1ee30a0a readOnly fields change the backgroundColor to grey.
Claus Gittinger <cg@exept.de>
parents: 1547
diff changeset
  1183
    "Created: / 26.7.1998 / 21:23:17 / cg"
1631
f8fae6670540 change viewBackground, when either disabled or readOnly.
Claus Gittinger <cg@exept.de>
parents: 1616
diff changeset
  1184
    "Modified: / 3.8.1998 / 17:52:38 / cg"
1609
8a0c1ee30a0a readOnly fields change the backgroundColor to grey.
Claus Gittinger <cg@exept.de>
parents: 1547
diff changeset
  1185
!
8a0c1ee30a0a readOnly fields change the backgroundColor to grey.
Claus Gittinger <cg@exept.de>
parents: 1547
diff changeset
  1186
1842
b5069ac92167 added #returnKeyIsFocusNext
Claus Gittinger <cg@exept.de>
parents: 1836
diff changeset
  1187
returnKeyIsFocusNext
b5069ac92167 added #returnKeyIsFocusNext
Claus Gittinger <cg@exept.de>
parents: 1836
diff changeset
  1188
    "arrange for the return key to act as a focus-next key"
b5069ac92167 added #returnKeyIsFocusNext
Claus Gittinger <cg@exept.de>
parents: 1836
diff changeset
  1189
3975
73674d16fc63 copy asOrderedCollection -> copyAsOrderedCollection
Claus Gittinger <cg@exept.de>
parents: 3929
diff changeset
  1190
    leaveKeys := leaveKeys copyAsOrderedCollection. 
1842
b5069ac92167 added #returnKeyIsFocusNext
Claus Gittinger <cg@exept.de>
parents: 1836
diff changeset
  1191
    leaveKeys remove:#Return ifAbsent:nil
b5069ac92167 added #returnKeyIsFocusNext
Claus Gittinger <cg@exept.de>
parents: 1836
diff changeset
  1192
!
b5069ac92167 added #returnKeyIsFocusNext
Claus Gittinger <cg@exept.de>
parents: 1836
diff changeset
  1193
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1194
tabAction:aBlock
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1195
    "define an action to be evaluated when the tabulator key is pressed."
155
claus
parents: 144
diff changeset
  1196
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1197
    tabAction := aBlock
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1198
!
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1199
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1200
tabKey:aKeySymbol 
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1201
    "arrange for aKeySymbol to accept & leave the field
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1202
     If the field is part of a group, the next field gets the
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1203
     input focus"
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1204
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1205
    leaveKeys isNil ifTrue:[
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1206
        leaveKeys := self class defaultLeaveKeys
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1207
    ].
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1208
    leaveKeys := leaveKeys copyWith:#Tab
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1209
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1210
    "Created: 27.4.1996 / 17:08:54 / cg"
187
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1211
! !
125
claus
parents: 122
diff changeset
  1212
187
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1213
!EditField methodsFor:'accessing-contents'!
125
claus
parents: 122
diff changeset
  1214
187
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1215
contents
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1216
    "return contents as a string
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1217
     - redefined since EditFields hold only one line of text.
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1218
    In your application, please use #editValue; 
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1219
    it uses a converter (if any) and is compatible to ST-80."
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1220
3706
d25f10e7b49b #accept only, if the text field has been modified (DrawAdaptor compatibility)
Stefan Vogel <sv@exept.de>
parents: 3704
diff changeset
  1221
    (list isEmptyOrNil) ifTrue:[^ ''].
187
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1222
    ^ list at:1
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1223
!
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1224
125
claus
parents: 122
diff changeset
  1225
contents:someText
claus
parents: 122
diff changeset
  1226
    "set the contents from a string
claus
parents: 122
diff changeset
  1227
     - redefined to place the cursor to the end.
3709
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1228
    In your application, please use #editValue: - 
125
claus
parents: 122
diff changeset
  1229
    it uses a converter (if any) and is compatible to ST-80."
claus
parents: 122
diff changeset
  1230
1180
abe00ac05e27 oops - care for nil contents
Claus Gittinger <cg@exept.de>
parents: 1179
diff changeset
  1231
    |newCol txt|
187
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1232
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1233
    newCol := cursorCol.
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1234
3709
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1235
    someText isNil ifTrue:[
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1236
        txt := ''.
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1237
    ] ifFalse:[
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1238
        txt := someText asString.
1180
abe00ac05e27 oops - care for nil contents
Claus Gittinger <cg@exept.de>
parents: 1179
diff changeset
  1239
    ].
abe00ac05e27 oops - care for nil contents
Claus Gittinger <cg@exept.de>
parents: 1179
diff changeset
  1240
    super contents:txt.
125
claus
parents: 122
diff changeset
  1241
2130
40515380f762 moved control over how-to-move-the-cursor when updating text
Claus Gittinger <cg@exept.de>
parents: 2105
diff changeset
  1242
    (cursorMovementWhenUpdating == #endOfLine
40515380f762 moved control over how-to-move-the-cursor when updating text
Claus Gittinger <cg@exept.de>
parents: 2105
diff changeset
  1243
    or:[cursorMovementWhenUpdating == #endOfText
40515380f762 moved control over how-to-move-the-cursor when updating text
Claus Gittinger <cg@exept.de>
parents: 2105
diff changeset
  1244
    or:[cursorMovementWhenUpdating == #end]]) ifTrue:[
1180
abe00ac05e27 oops - care for nil contents
Claus Gittinger <cg@exept.de>
parents: 1179
diff changeset
  1245
         newCol := (txt size + 1).
187
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1246
    ] ifFalse:[
2130
40515380f762 moved control over how-to-move-the-cursor when updating text
Claus Gittinger <cg@exept.de>
parents: 2105
diff changeset
  1247
        (cursorMovementWhenUpdating == #beginOfLine
40515380f762 moved control over how-to-move-the-cursor when updating text
Claus Gittinger <cg@exept.de>
parents: 2105
diff changeset
  1248
        or:[cursorMovementWhenUpdating == #beginOfText
40515380f762 moved control over how-to-move-the-cursor when updating text
Claus Gittinger <cg@exept.de>
parents: 2105
diff changeset
  1249
        or:[cursorMovementWhenUpdating == #begin]]) ifTrue:[
1179
7ae3148ca2e4 convert to string.
Claus Gittinger <cg@exept.de>
parents: 1120
diff changeset
  1250
            newCol := 1
7ae3148ca2e4 convert to string.
Claus Gittinger <cg@exept.de>
parents: 1120
diff changeset
  1251
        ] ifFalse:[
7ae3148ca2e4 convert to string.
Claus Gittinger <cg@exept.de>
parents: 1120
diff changeset
  1252
            "/ default: stay where it was
7ae3148ca2e4 convert to string.
Claus Gittinger <cg@exept.de>
parents: 1120
diff changeset
  1253
        ]
187
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1254
    ].
125
claus
parents: 122
diff changeset
  1255
187
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1256
    self cursorCol:newCol.
1179
7ae3148ca2e4 convert to string.
Claus Gittinger <cg@exept.de>
parents: 1120
diff changeset
  1257
2042
7080474e7966 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2016
diff changeset
  1258
    "Modified: / 13.11.1999 / 13:50:30 / cg"
125
claus
parents: 122
diff changeset
  1259
!
claus
parents: 122
diff changeset
  1260
3709
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1261
convertEditValueToString:aStringOrObject
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1262
    "convert a aStringOrObject to a printed representation. 
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1263
     If there is a converter, use it to convert
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1264
     the object into a printed representation.
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1265
     Use asString to convert the object,
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1266
     and used directly."
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1267
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1268
    converter notNil ifTrue:[
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1269
        ^ converter printStringFor:aStringOrObject
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1270
    ].
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1271
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1272
    aStringOrObject isNil ifTrue:[
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1273
        ^ ''.
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1274
    ].
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1275
    ^ aStringOrObject asString.
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1276
!
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1277
125
claus
parents: 122
diff changeset
  1278
editValue
claus
parents: 122
diff changeset
  1279
    "if the field edits a string, this is a name alias for #contents.
claus
parents: 122
diff changeset
  1280
     Otherwise, if there is a converter, return the edited string
claus
parents: 122
diff changeset
  1281
     converted to an appropriate object."
claus
parents: 122
diff changeset
  1282
claus
parents: 122
diff changeset
  1283
    |string|
claus
parents: 122
diff changeset
  1284
claus
parents: 122
diff changeset
  1285
    string := self contents.
279
b9fa9180aca4 empty strings are not nil
ca
parents: 261
diff changeset
  1286
    string isNil ifTrue:[string := ''].
125
claus
parents: 122
diff changeset
  1287
    converter isNil ifTrue:[^ string].
claus
parents: 122
diff changeset
  1288
    ^ converter readValueFrom:string 
claus
parents: 122
diff changeset
  1289
!
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  1290
3709
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1291
editValue:anObject
125
claus
parents: 122
diff changeset
  1292
    "set the contents. If there is a converter, use it to convert
claus
parents: 122
diff changeset
  1293
     the object into a printed representation.
3709
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1294
     Otherwise, convert anObject to a string using #asString
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1295
     (this is equivalent to sending #contents:)."
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1296
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1297
    self editValue:anObject selected:false
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1298
!
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1299
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1300
editValue:anObject selected:isSelected
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1301
    "set the contents. If there is a converter, use it to convert
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1302
     anObject into a printed representation.
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1303
     Otherwise, use anObject asString
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1304
     (i.e. this is equivalent to sending #initialText:selected:)."
125
claus
parents: 122
diff changeset
  1305
claus
parents: 122
diff changeset
  1306
    |string|
claus
parents: 122
diff changeset
  1307
3709
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1308
    string := self convertEditValueToString:anObject.
125
claus
parents: 122
diff changeset
  1309
    self contents:string.
3709
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1310
    isSelected ifTrue:[
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1311
        self selectFromLine:1 col:1 toLine:1 col:string size.
125
claus
parents: 122
diff changeset
  1312
    ]
claus
parents: 122
diff changeset
  1313
!
claus
parents: 122
diff changeset
  1314
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1315
initialText:aString
3709
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1316
    "set the initialText and select it.
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1317
     Better use #editValue: - it uses the type converter."
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1318
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1319
    self initialText:aString selected:true
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1320
!
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1321
3709
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1322
initialText:aString selected:isSelected
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1323
    "set the initialText and select it if isSelected is true
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1324
     Better use #editValue:selected: - it uses the type converter."
187
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1325
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1326
    |len s|
125
claus
parents: 122
diff changeset
  1327
2429
eed79a96e43b eliminated accesses to leftOffset
Claus Gittinger <cg@exept.de>
parents: 2425
diff changeset
  1328
    viewOrigin := 0 @ viewOrigin y.
eed79a96e43b eliminated accesses to leftOffset
Claus Gittinger <cg@exept.de>
parents: 2425
diff changeset
  1329
3709
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1330
    self contents:aString.
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1331
    isSelected ifTrue:[
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1332
        s := self contents.
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1333
        len := s size.
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1334
        len ~~ 0 ifTrue:[
2429
eed79a96e43b eliminated accesses to leftOffset
Claus Gittinger <cg@exept.de>
parents: 2425
diff changeset
  1335
            self selectFromLine:1 col:1 toLine:1 col:len
eed79a96e43b eliminated accesses to leftOffset
Claus Gittinger <cg@exept.de>
parents: 2425
diff changeset
  1336
        ]
3709
a17acdae3e35 Modify previous change: only change the model, if the EditField's text
Stefan Vogel <sv@exept.de>
parents: 3706
diff changeset
  1337
    ].
187
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1338
!
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1339
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1340
list:someText
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1341
    "low level access to the underlying contents' list.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1342
     Redefined to force text to 1 line, and notify dependents
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1343
     of any changed extent-wishes (for automatic box resizing)."
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1344
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1345
    |l oldWidth|
187
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1346
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1347
    l := someText.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1348
    l size > 1 ifTrue:[
1103
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1349
        l := OrderedCollection with:(l at:1)
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1350
    ].
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1351
    oldWidth := self widthOfContents.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1352
    super list:l.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1353
    self widthOfContents ~~ oldWidth ifTrue:[
1103
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1354
        self changedPreferredBounds:nil
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1355
    ]
1103
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1356
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1357
    "Modified: 6.3.1997 / 16:13:36 / cg"
187
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1358
!
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1359
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1360
stringValue
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1361
    "alias for #contents - for compatibility with ST-80's InputField"
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1362
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1363
    ^ self contents
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1364
! !
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1365
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1366
!EditField methodsFor:'accessing-look'!
125
claus
parents: 122
diff changeset
  1367
3585
16dfdbd231c2 +bePassword
Claus Gittinger <cg@exept.de>
parents: 3535
diff changeset
  1368
bePassword
16dfdbd231c2 +bePassword
Claus Gittinger <cg@exept.de>
parents: 3535
diff changeset
  1369
    "make me a password entry field (i.e. show *'s for typed characters"
16dfdbd231c2 +bePassword
Claus Gittinger <cg@exept.de>
parents: 3535
diff changeset
  1370
16dfdbd231c2 +bePassword
Claus Gittinger <cg@exept.de>
parents: 3535
diff changeset
  1371
    self passwordCharacter:$*
16dfdbd231c2 +bePassword
Claus Gittinger <cg@exept.de>
parents: 3535
diff changeset
  1372
!
16dfdbd231c2 +bePassword
Claus Gittinger <cg@exept.de>
parents: 3535
diff changeset
  1373
3990
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1374
emptyFieldReplacementText
3991
9bf5fb90853f comments:
Claus Gittinger <cg@exept.de>
parents: 3990
diff changeset
  1375
    "the string to show in grey if nothing has been entered (and the field is passive)"
3990
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1376
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1377
    ^ emptyFieldReplacementText
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1378
!
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1379
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1380
emptyFieldReplacementText:something
3991
9bf5fb90853f comments:
Claus Gittinger <cg@exept.de>
parents: 3990
diff changeset
  1381
    "the string to show in grey if nothing has been entered (and the field is passive)"
3990
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1382
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1383
    emptyFieldReplacementText := something.
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1384
!
6a7e190c11cd category of:
Claus Gittinger <cg@exept.de>
parents: 3988
diff changeset
  1385
155
claus
parents: 144
diff changeset
  1386
maxChars
claus
parents: 144
diff changeset
  1387
    "return the maximum number of characters that are allowed in
claus
parents: 144
diff changeset
  1388
     the field. 
claus
parents: 144
diff changeset
  1389
     A limit of nil means: unlimited. This is the default."
claus
parents: 144
diff changeset
  1390
claus
parents: 144
diff changeset
  1391
    ^ lengthLimit
claus
parents: 144
diff changeset
  1392
claus
parents: 144
diff changeset
  1393
    "Modified: 6.9.1995 / 13:43:33 / claus"
claus
parents: 144
diff changeset
  1394
!
claus
parents: 144
diff changeset
  1395
125
claus
parents: 122
diff changeset
  1396
maxChars:aNumberOrNil
claus
parents: 122
diff changeset
  1397
    "set the maximum number of characters that are allowed in
claus
parents: 122
diff changeset
  1398
     the field. Additional input will be ignored by the field.
1034
d6d5d222f166 added #enabled.
ca
parents: 995
diff changeset
  1399
     A limit of nil or zero means: unlimited. This is the default.
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1400
     If set, a lengthLimit must be defined before any contents is placed
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1401
     into the field, because the contents is not cut when the max is
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1402
     changed later. I.e. it should be set early after creation of the field.
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1403
125
claus
parents: 122
diff changeset
  1404
     This method has been renamed from #lengthLimit: for ST-80
claus
parents: 122
diff changeset
  1405
     compatibility."
claus
parents: 122
diff changeset
  1406
1034
d6d5d222f166 added #enabled.
ca
parents: 995
diff changeset
  1407
    aNumberOrNil == 0 ifTrue:[
d6d5d222f166 added #enabled.
ca
parents: 995
diff changeset
  1408
        lengthLimit := nil
d6d5d222f166 added #enabled.
ca
parents: 995
diff changeset
  1409
    ] ifFalse:[
d6d5d222f166 added #enabled.
ca
parents: 995
diff changeset
  1410
        lengthLimit := aNumberOrNil.
d6d5d222f166 added #enabled.
ca
parents: 995
diff changeset
  1411
    ]
187
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1412
!
1a429506fad6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 174
diff changeset
  1413
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1414
passwordCharacter
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1415
    "return the passwordCharacter;
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1416
     If nonNil, that one is replacing typed input
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1417
     (for secret input)"
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1418
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1419
    ^ passwordCharacter
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  1420
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1421
    "Modified: 6.9.1995 / 12:25:39 / claus"
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1422
    "Modified: 16.12.1995 / 16:24:25 / cg"
125
claus
parents: 122
diff changeset
  1423
!
claus
parents: 122
diff changeset
  1424
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1425
passwordCharacter:aCharacter
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1426
    "set the passwordCharacter;
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1427
     If nonNil, that one is replacing typed input
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1428
     (for secret input)"
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1429
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1430
    passwordCharacter := aCharacter
97
cbf495fe3b64 *** empty log message ***
claus
parents: 77
diff changeset
  1431
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1432
    "Modified: 6.9.1995 / 12:25:33 / claus"
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1433
    "Modified: 16.12.1995 / 16:24:33 / cg"
38
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
  1434
! !
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 19
diff changeset
  1435
1829
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
  1436
!EditField methodsFor:'cursor drawing'!
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
  1437
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
  1438
cursorShown:aBoolean
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
  1439
    "make cursor visible if currently invisible - but only if this
1880
3ad00c12541e comment
Claus Gittinger <cg@exept.de>
parents: 1878
diff changeset
  1440
     EditField is enabled. 
3ad00c12541e comment
Claus Gittinger <cg@exept.de>
parents: 1878
diff changeset
  1441
     Return the previous cursor-shown-state"
1399
a3dd97770d99 release channels on destroy
Claus Gittinger <cg@exept.de>
parents: 1372
diff changeset
  1442
1836
97361bf30af6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1834
diff changeset
  1443
    ^ super cursorShown:(aBoolean and:[enabled and:[self isReadOnly not]])
1399
a3dd97770d99 release channels on destroy
Claus Gittinger <cg@exept.de>
parents: 1372
diff changeset
  1444
1829
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
  1445
    "Created: / 30.3.1999 / 16:00:25 / stefan"
1880
3ad00c12541e comment
Claus Gittinger <cg@exept.de>
parents: 1878
diff changeset
  1446
    "Modified: / 1.4.1999 / 11:18:38 / cg"
1829
30b8981385f4 Move common channels to View.
Stefan Vogel <sv@exept.de>
parents: 1826
diff changeset
  1447
!
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  1448
155
claus
parents: 144
diff changeset
  1449
drawFromVisibleLine:startVisLineNr to:endVisLineNr with:fg and:bg
claus
parents: 144
diff changeset
  1450
    startVisLineNr to:endVisLineNr do:[:visLine |
claus
parents: 144
diff changeset
  1451
	self drawVisibleLine:visLine with:fg and:bg
claus
parents: 144
diff changeset
  1452
    ]
claus
parents: 144
diff changeset
  1453
claus
parents: 144
diff changeset
  1454
    "Modified: 6.9.1995 / 12:24:29 / claus"
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  1455
! !
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  1456
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  1457
!EditField methodsFor:'cursor movement'!
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  1458
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  1459
cursorDown
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  1460
    "catch cursor movement"
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  1461
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  1462
    (cursorVisibleLine == nLinesShown) ifFalse:[
59
450ce95a72a4 *** empty log message ***
claus
parents: 47
diff changeset
  1463
	super cursorDown
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  1464
    ]
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1465
!
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1466
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1467
cursorLine:line col:col
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1468
    "catch cursor movement"
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1469
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1470
    super cursorLine:1 col:col
673
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1471
!
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1472
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1473
validateCursorCol:col inLine:line
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1474
    "check of col is a valid cursor position;
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1475
     return a fixed value if not."
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1476
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1477
    |sz|
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1478
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1479
    sz := self contents size.
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1480
    lengthLimit notNil ifTrue:[
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1481
        sz := sz min:lengthLimit.
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1482
    ].
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1483
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1484
    col <= sz ifTrue:[
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1485
        ^ col
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1486
    ].
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1487
    ^ sz + 1.  "/ to allow positioning right behind the string
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1488
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1489
    "Created: 22.5.1996 / 18:17:27 / cg"
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1490
    "Modified: 22.5.1996 / 18:19:04 / cg"
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1491
! !
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1492
3413
49d0f37f0616 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 3408
diff changeset
  1493
!EditField methodsFor:'drag & drop'!
49d0f37f0616 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 3408
diff changeset
  1494
49d0f37f0616 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 3408
diff changeset
  1495
dropFileObject:aDropObject
49d0f37f0616 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 3408
diff changeset
  1496
    "drop objects
49d0f37f0616 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 3408
diff changeset
  1497
     Redefined to always drop the name only"
49d0f37f0616 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 3408
diff changeset
  1498
3797
69edb2e7436c code formatting
Claus Gittinger <cg@exept.de>
parents: 3768
diff changeset
  1499
    self 
4115
d72bec20db99 changed: #dropFileObject:
Claus Gittinger <cg@exept.de>
parents: 4102
diff changeset
  1500
        undoablePasteReplacingAll:(aDropObject asFilename pathName) 
3797
69edb2e7436c code formatting
Claus Gittinger <cg@exept.de>
parents: 3768
diff changeset
  1501
        info:'Drop Filename'.
3413
49d0f37f0616 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 3408
diff changeset
  1502
49d0f37f0616 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 3408
diff changeset
  1503
    "Created: / 13-10-2006 / 17:42:22 / cg"
3494
34917a0f9072 changed #dropFileObject:
Claus Gittinger <cg@exept.de>
parents: 3462
diff changeset
  1504
    "Modified: / 28-07-2007 / 13:27:32 / cg"
3413
49d0f37f0616 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 3408
diff changeset
  1505
! !
49d0f37f0616 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 3408
diff changeset
  1506
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1507
!EditField methodsFor:'editing'!
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1508
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1509
paste:someText
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1510
    "redefined to force text to 1 line"
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1511
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1512
    super paste:someText.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1513
    list size > 1 ifTrue:[
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1514
	self deleteFromLine:2 toLine:(list size)
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1515
    ]
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  1516
! !
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  1517
70
14443a9ea4ec *** empty log message ***
claus
parents: 62
diff changeset
  1518
!EditField methodsFor:'event handling'!
19
a696fb528758 *** empty log message ***
claus
parents: 7
diff changeset
  1519
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1520
buttonPress:button x:x y:y
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1521
    "enable myself on mouse click"
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1522
673
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1523
    |prevFocus|
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1524
3703
5463ea3878b0 you can copy from the menu even if disabled.
Claus Gittinger <cg@exept.de>
parents: 3702
diff changeset
  1525
    enabled ifTrue:[
5463ea3878b0 you can copy from the menu even if disabled.
Claus Gittinger <cg@exept.de>
parents: 3702
diff changeset
  1526
        prevFocus := hasKeyboardFocus.
5463ea3878b0 you can copy from the menu even if disabled.
Claus Gittinger <cg@exept.de>
parents: 3702
diff changeset
  1527
        clickAction notNil ifTrue:[
5463ea3878b0 you can copy from the menu even if disabled.
Claus Gittinger <cg@exept.de>
parents: 3702
diff changeset
  1528
            clickAction value:self
5463ea3878b0 you can copy from the menu even if disabled.
Claus Gittinger <cg@exept.de>
parents: 3702
diff changeset
  1529
        ].
5463ea3878b0 you can copy from the menu even if disabled.
Claus Gittinger <cg@exept.de>
parents: 3702
diff changeset
  1530
        hasKeyboardFocus ~~ prevFocus ifTrue:[
5463ea3878b0 you can copy from the menu even if disabled.
Claus Gittinger <cg@exept.de>
parents: 3702
diff changeset
  1531
            ^ self
5463ea3878b0 you can copy from the menu even if disabled.
Claus Gittinger <cg@exept.de>
parents: 3702
diff changeset
  1532
        ].
673
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1533
    ].
316
1e27aa926710 fixed Tab handling in enterFieldGroups;
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
  1534
    super buttonPress:button x:x y:y
1e27aa926710 fixed Tab handling in enterFieldGroups;
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
  1535
1e27aa926710 fixed Tab handling in enterFieldGroups;
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
  1536
"/    enabled ifFalse:[
1e27aa926710 fixed Tab handling in enterFieldGroups;
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
  1537
"/        enabled := true.
1e27aa926710 fixed Tab handling in enterFieldGroups;
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
  1538
"/        super buttonPress:button x:x y:y.
1e27aa926710 fixed Tab handling in enterFieldGroups;
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
  1539
"/        enableAction notNil ifTrue:[
1e27aa926710 fixed Tab handling in enterFieldGroups;
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
  1540
"/            enableAction value
1e27aa926710 fixed Tab handling in enterFieldGroups;
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
  1541
"/        ]
1e27aa926710 fixed Tab handling in enterFieldGroups;
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
  1542
"/    ] ifTrue:[
1e27aa926710 fixed Tab handling in enterFieldGroups;
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
  1543
"/        super buttonPress:button x:x y:y
1e27aa926710 fixed Tab handling in enterFieldGroups;
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
  1544
"/    ]
333
f1c500f177d8 handle disabled state
Claus Gittinger <cg@exept.de>
parents: 325
diff changeset
  1545
673
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1546
    "Modified: 22.5.1996 / 15:02:45 / cg"
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1547
!
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1548
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1549
canHandle:aKey
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1550
    "return true, if the receiver would like to handle aKey
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1551
     (usually from another view, when the receiver is part of
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1552
      a more complex dialog box).
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1553
     We do return true here, since the editfield will handle
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1554
     all keys.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1555
     OBSOLETE: dont use this anymore - its a leftover for the tableWidget"
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1556
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1557
    ^ true
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1558
!
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1559
3216
8161c0b4b38e add double click action
ab
parents: 3082
diff changeset
  1560
doubleClickX:x y:y
8161c0b4b38e add double click action
ab
parents: 3082
diff changeset
  1561
    doubleClickAction notNil ifTrue: [
8161c0b4b38e add double click action
ab
parents: 3082
diff changeset
  1562
        doubleClickAction value.
8161c0b4b38e add double click action
ab
parents: 3082
diff changeset
  1563
    ].
8161c0b4b38e add double click action
ab
parents: 3082
diff changeset
  1564
8161c0b4b38e add double click action
ab
parents: 3082
diff changeset
  1565
    super doubleClickX:x y:y
8161c0b4b38e add double click action
ab
parents: 3082
diff changeset
  1566
!
8161c0b4b38e add double click action
ab
parents: 3082
diff changeset
  1567
4608
7c0f79a2d2d8 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4540
diff changeset
  1568
handleCompletionService
7c0f79a2d2d8 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4540
diff changeset
  1569
    "none here"
7c0f79a2d2d8 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4540
diff changeset
  1570
7c0f79a2d2d8 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4540
diff changeset
  1571
    ^ self
7c0f79a2d2d8 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4540
diff changeset
  1572
!
7c0f79a2d2d8 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4540
diff changeset
  1573
3460
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1574
handleFocusKey:key
3535
1c9f308b2eec comment
Claus Gittinger <cg@exept.de>
parents: 3494
diff changeset
  1575
    "handle a focus key, to assign the focus to another field in my group"
1c9f308b2eec comment
Claus Gittinger <cg@exept.de>
parents: 3494
diff changeset
  1576
3460
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1577
    <resource: #keyboard (#Tab #Return #CursorDown #CursorUp)>
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1578
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1579
    windowGroup isNil ifTrue:[^ self ].
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1580
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1581
    (key == #Tab) ifTrue:[
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1582
        (self tabRequiresControl not
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1583
        or:[ self sensor ctrlDown ]) ifTrue:[
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1584
            self sensor shiftDown ifTrue:[
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1585
                windowGroup focusPrevious
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1586
            ] ifFalse:[
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1587
                windowGroup focusNext
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1588
            ].
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1589
        ].
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1590
        ^ self
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1591
    ].
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1592
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1593
    (key == #Return) ifTrue:[
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1594
        windowGroup focusNext.
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1595
        ^ self
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1596
    ].
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1597
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1598
    key == #CursorDown ifTrue:[
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1599
        windowGroup focusNext.
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1600
        ^ self.
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1601
    ].
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1602
    key == #CursorUp ifTrue:[
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1603
        windowGroup focusPrevious.
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1604
        ^ self.
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1605
    ].
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1606
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1607
    "Created: / 06-03-2007 / 20:14:04 / cg"
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1608
!
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1609
125
claus
parents: 122
diff changeset
  1610
keyPress:key x:x y:y
claus
parents: 122
diff changeset
  1611
    "if keyHandler is defined, pass input; otherwise check for leave
claus
parents: 122
diff changeset
  1612
     keys"
claus
parents: 122
diff changeset
  1613
490
08e8adfb783c resources
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
  1614
    <resource: #keyboard (#Tab #Return #Find #FindNext #FindPrev
922
e6a5e1cf9565 resource spec updated
Claus Gittinger <cg@exept.de>
parents: 894
diff changeset
  1615
                          #DeleteLine #GotoLine #EndOfLine #EndOfText
e6a5e1cf9565 resource spec updated
Claus Gittinger <cg@exept.de>
parents: 894
diff changeset
  1616
                          #CursorDown #CursorUp)>
132
claus
parents: 131
diff changeset
  1617
3462
447eb65a523f check for numArgs == 0 before evaluating the keyAction
boris
parents: 3461
diff changeset
  1618
    |leave oldContents newContents doAccept keyAction didAccept numArgs|
125
claus
parents: 122
diff changeset
  1619
claus
parents: 122
diff changeset
  1620
    enabled ifFalse:[
325
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  1621
        ^ self
125
claus
parents: 122
diff changeset
  1622
    ].
claus
parents: 122
diff changeset
  1623
claus
parents: 122
diff changeset
  1624
    (key == #DeleteLine) ifTrue:[
325
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  1625
        Smalltalk at:#CopyBuffer put:(self contents).
3797
69edb2e7436c code formatting
Claus Gittinger <cg@exept.de>
parents: 3768
diff changeset
  1626
        self contents:''. 
69edb2e7436c code formatting
Claus Gittinger <cg@exept.de>
parents: 3768
diff changeset
  1627
        ^ self
125
claus
parents: 122
diff changeset
  1628
    ].
19
a696fb528758 *** empty log message ***
claus
parents: 7
diff changeset
  1629
3460
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1630
    (key == entryCompletionCharacter and:[self entryCompletionBlock notNil]) ifTrue:[
979
c71f75bb9ffc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 978
diff changeset
  1631
        oldContents := self contents.
c71f75bb9ffc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 978
diff changeset
  1632
        oldContents isNil ifTrue:[
c71f75bb9ffc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 978
diff changeset
  1633
            oldContents := ''
c71f75bb9ffc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 978
diff changeset
  1634
        ] ifFalse:[
978
6e678fdc6e5b allow non-Tab as entryCompleter; care for immediateAccept after completion
Claus Gittinger <cg@exept.de>
parents: 967
diff changeset
  1635
            oldContents := oldContents asString
6e678fdc6e5b allow non-Tab as entryCompleter; care for immediateAccept after completion
Claus Gittinger <cg@exept.de>
parents: 967
diff changeset
  1636
        ].
6e678fdc6e5b allow non-Tab as entryCompleter; care for immediateAccept after completion
Claus Gittinger <cg@exept.de>
parents: 967
diff changeset
  1637
2993
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  1638
        self entryCompletionBlock valueWithOptionalArgument:oldContents and:self.
978
6e678fdc6e5b allow non-Tab as entryCompleter; care for immediateAccept after completion
Claus Gittinger <cg@exept.de>
parents: 967
diff changeset
  1639
979
c71f75bb9ffc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 978
diff changeset
  1640
        newContents := self contents.
c71f75bb9ffc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 978
diff changeset
  1641
        newContents isNil ifTrue:[
c71f75bb9ffc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 978
diff changeset
  1642
            newContents := ''
c71f75bb9ffc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 978
diff changeset
  1643
        ] ifFalse:[
c71f75bb9ffc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 978
diff changeset
  1644
            newContents := newContents asString
c71f75bb9ffc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 978
diff changeset
  1645
        ].
c71f75bb9ffc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 978
diff changeset
  1646
        newContents ~= oldContents ifTrue:[
c71f75bb9ffc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 978
diff changeset
  1647
            self textChanged
c71f75bb9ffc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 978
diff changeset
  1648
        ].
c71f75bb9ffc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 978
diff changeset
  1649
        ^ self
978
6e678fdc6e5b allow non-Tab as entryCompleter; care for immediateAccept after completion
Claus Gittinger <cg@exept.de>
parents: 967
diff changeset
  1650
    ].
6e678fdc6e5b allow non-Tab as entryCompleter; care for immediateAccept after completion
Claus Gittinger <cg@exept.de>
parents: 967
diff changeset
  1651
125
claus
parents: 122
diff changeset
  1652
    (key == #Tab) ifTrue:[
3460
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1653
        doAccept := acceptOnTab.
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1654
        keyAction := tabAction.
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1655
    ].
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1656
    (key == #Return) ifTrue:[
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1657
        doAccept := acceptOnReturn.
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1658
        keyAction := crAction.
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1659
    ].
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1660
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1661
    leave := leaveKeys includes:key.
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1662
    leave ifTrue:[
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1663
        leaveKey := key.
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1664
        doAccept := doAccept ? acceptOnLeave.
4720
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1665
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1666
        "/ on leave, the precedence of actions is:
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1667
        "/  1) explicit leaveAction per key
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1668
        "/  2) general leaveAction
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1669
        "/  3) tab or return action
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1670
        leaveKeyActions notNil ifTrue:[
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1671
            keyAction := leaveKeyActions at:key ifAbsent:nil.
1a78fc5a39d7 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4608
diff changeset
  1672
        ].
3460
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1673
        keyAction := keyAction ? leaveAction.
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1674
    ].
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1675
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1676
    doAccept == true ifTrue:[
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1677
        self accept.
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1678
        didAccept := true.
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1679
    ].
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1680
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1681
    keyAction notNil ifTrue:[
3462
447eb65a523f check for numArgs == 0 before evaluating the keyAction
boris
parents: 3461
diff changeset
  1682
        numArgs := keyAction numArgs.
447eb65a523f check for numArgs == 0 before evaluating the keyAction
boris
parents: 3461
diff changeset
  1683
447eb65a523f check for numArgs == 0 before evaluating the keyAction
boris
parents: 3461
diff changeset
  1684
        numArgs == 2 ifTrue:[
3460
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1685
            ^ keyAction value:self value:key
964
73525cfd8fa2 dont forget to accept, when only (cr- and tab-) actions are defined
Claus Gittinger <cg@exept.de>
parents: 922
diff changeset
  1686
        ].
3462
447eb65a523f check for numArgs == 0 before evaluating the keyAction
boris
parents: 3461
diff changeset
  1687
        numArgs == 0 ifTrue:[
447eb65a523f check for numArgs == 0 before evaluating the keyAction
boris
parents: 3461
diff changeset
  1688
            ^ keyAction value
447eb65a523f check for numArgs == 0 before evaluating the keyAction
boris
parents: 3461
diff changeset
  1689
        ].
3460
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1690
        ^ keyAction value:key
125
claus
parents: 122
diff changeset
  1691
    ].
480
dd6263c5f9ee checkin from browser
Claus Gittinger <cg@exept.de>
parents: 468
diff changeset
  1692
125
claus
parents: 122
diff changeset
  1693
    leave ifTrue:[
611
87637cf3931b Handle keypress:key x:nil y:nil correctly (means recursion).
Stefan Vogel <sv@exept.de>
parents: 601
diff changeset
  1694
        (x notNil and:[x >= 0]) ifTrue:[
325
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  1695
            "
737
911a168ef967 handle leave from EditField without a group as a focus-stepping
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  1696
             we do not handle this key directly.
611
87637cf3931b Handle keypress:key x:nil y:nil correctly (means recursion).
Stefan Vogel <sv@exept.de>
parents: 601
diff changeset
  1697
             let superview know about the key that caused us to leave (maybe RETURN, DOWN, UP etc....
325
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  1698
            "
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  1699
            (superView notNil and:[superView canHandle:key from:self]) ifTrue:[
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  1700
                superView keyPress:key x:x y:y.
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  1701
            ].
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  1702
        ].
737
911a168ef967 handle leave from EditField without a group as a focus-stepping
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  1703
911a168ef967 handle leave from EditField without a group as a focus-stepping
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  1704
        "/ a leave, but no action defined
911a168ef967 handle leave from EditField without a group as a focus-stepping
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  1705
        "/ forward it as a Focus-step
911a168ef967 handle leave from EditField without a group as a focus-stepping
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  1706
        key == #CursorDown ifTrue:[
3460
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1707
            self handleFocusKey:key.
2708
dfdf8977e9ba care for nil windogroup (editor in dataSet)
Claus Gittinger <cg@exept.de>
parents: 2707
diff changeset
  1708
            ^ self.
737
911a168ef967 handle leave from EditField without a group as a focus-stepping
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  1709
        ].
911a168ef967 handle leave from EditField without a group as a focus-stepping
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  1710
        key == #CursorUp ifTrue:[
3460
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1711
            self handleFocusKey:key.
2708
dfdf8977e9ba care for nil windogroup (editor in dataSet)
Claus Gittinger <cg@exept.de>
parents: 2707
diff changeset
  1712
            ^ self.
737
911a168ef967 handle leave from EditField without a group as a focus-stepping
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  1713
        ].
325
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  1714
        ^ self
19
a696fb528758 *** empty log message ***
claus
parents: 7
diff changeset
  1715
    ].
121
claus
parents: 120
diff changeset
  1716
125
claus
parents: 122
diff changeset
  1717
    "
claus
parents: 122
diff changeset
  1718
     ignore some keys (if not a leaveKey) ...
claus
parents: 122
diff changeset
  1719
    "
claus
parents: 122
diff changeset
  1720
    (key == #Find) ifTrue:[^self].
claus
parents: 122
diff changeset
  1721
    (key == #FindNext) ifTrue:[^self].
claus
parents: 122
diff changeset
  1722
    (key == #FindPrev) ifTrue:[^self].
claus
parents: 122
diff changeset
  1723
    (key == #GotoLine) ifTrue:[^self].
claus
parents: 122
diff changeset
  1724
    "
claus
parents: 122
diff changeset
  1725
     a normal key - let superclass's method insert it
claus
parents: 122
diff changeset
  1726
    "
claus
parents: 122
diff changeset
  1727
    super keyPress:key x:x y:y.
claus
parents: 122
diff changeset
  1728
claus
parents: 122
diff changeset
  1729
    "
claus
parents: 122
diff changeset
  1730
     for end-of-text, also move to end-of-line
claus
parents: 122
diff changeset
  1731
    "
claus
parents: 122
diff changeset
  1732
    key == #EndOfText ifTrue:[
325
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  1733
        super keyPress:#EndOfLine x:x y:y.
125
claus
parents: 122
diff changeset
  1734
    ].
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1735
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1736
    self resizeOrScroll.
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1737
3460
98524ea0fea6 tab handling;
Claus Gittinger <cg@exept.de>
parents: 3413
diff changeset
  1738
    "Modified: / 02-05-1996 / 17:24:16 / stefan"
4212
8b3a3ef8278a changed: #editMenu
Claus Gittinger <cg@exept.de>
parents: 4194
diff changeset
  1739
    "Modified: / 17-01-2011 / 11:26:08 / cg"
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1740
!
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1741
1936
f8253741114d pointerLeave fixed
tm
parents: 1918
diff changeset
  1742
pointerLeave:state
1937
b88111019826 added acceptOnPointerLeave - must be separate from acceptOnLeave
Claus Gittinger <cg@exept.de>
parents: 1936
diff changeset
  1743
    (acceptOnPointerLeave and:[enabled and:[self modified]]) ifTrue:[
1936
f8253741114d pointerLeave fixed
tm
parents: 1918
diff changeset
  1744
        self accept
f8253741114d pointerLeave fixed
tm
parents: 1918
diff changeset
  1745
    ].
f8253741114d pointerLeave fixed
tm
parents: 1918
diff changeset
  1746
    super pointerLeave:state
1937
b88111019826 added acceptOnPointerLeave - must be separate from acceptOnLeave
Claus Gittinger <cg@exept.de>
parents: 1936
diff changeset
  1747
b88111019826 added acceptOnPointerLeave - must be separate from acceptOnLeave
Claus Gittinger <cg@exept.de>
parents: 1936
diff changeset
  1748
    "Modified: / 28.6.1999 / 18:08:29 / cg"
1936
f8253741114d pointerLeave fixed
tm
parents: 1918
diff changeset
  1749
!
f8253741114d pointerLeave fixed
tm
parents: 1918
diff changeset
  1750
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1751
resizeOrScroll
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1752
    "helper for keyPress.
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1753
     Extracted for easier subclass redefinition."
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1754
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1755
    |xCol newOffset newWidth|
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1756
125
claus
parents: 122
diff changeset
  1757
    newWidth := self widthOfContents.
claus
parents: 122
diff changeset
  1758
claus
parents: 122
diff changeset
  1759
    "
claus
parents: 122
diff changeset
  1760
     should (& can) we resize ?
claus
parents: 122
diff changeset
  1761
    "
2429
eed79a96e43b eliminated accesses to leftOffset
Claus Gittinger <cg@exept.de>
parents: 2425
diff changeset
  1762
    xCol := (self xOfCol:cursorCol inVisibleLine:cursorLine) - viewOrigin x.
125
claus
parents: 122
diff changeset
  1763
    (xCol > (width * (5/6))) ifTrue:[
1103
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1764
        self changedPreferredBounds:nil
125
claus
parents: 122
diff changeset
  1765
    ] ifFalse:[
1103
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1766
        newWidth < (width * (1/6)) ifTrue:[
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1767
            self changedPreferredBounds:nil
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1768
        ]
125
claus
parents: 122
diff changeset
  1769
    ].
claus
parents: 122
diff changeset
  1770
290
f539121393b1 innerWidth:/innerHeight support; much more docu in editField
Claus Gittinger <cg@exept.de>
parents: 279
diff changeset
  1771
    autoScrollHorizontally ifTrue:[
1103
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1772
        "
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1773
         did someone react (i.e. has my extent changed) ?
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1774
         (if not, we scroll horizontally)
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1775
        "
2016
7a4d89c99c98 dont scroll horizontally, if there is a lengthLimit,
Claus Gittinger <cg@exept.de>
parents: 1999
diff changeset
  1776
        lengthLimit notNil ifTrue:[
7a4d89c99c98 dont scroll horizontally, if there is a lengthLimit,
Claus Gittinger <cg@exept.de>
parents: 1999
diff changeset
  1777
            (self xOfCol:lengthLimit+1 inVisibleLine:cursorLine) <= self innerWidth
7a4d89c99c98 dont scroll horizontally, if there is a lengthLimit,
Claus Gittinger <cg@exept.de>
parents: 1999
diff changeset
  1778
            ifTrue:[
7a4d89c99c98 dont scroll horizontally, if there is a lengthLimit,
Claus Gittinger <cg@exept.de>
parents: 1999
diff changeset
  1779
                ^ self
7a4d89c99c98 dont scroll horizontally, if there is a lengthLimit,
Claus Gittinger <cg@exept.de>
parents: 1999
diff changeset
  1780
            ].
7a4d89c99c98 dont scroll horizontally, if there is a lengthLimit,
Claus Gittinger <cg@exept.de>
parents: 1999
diff changeset
  1781
        ].
7a4d89c99c98 dont scroll horizontally, if there is a lengthLimit,
Claus Gittinger <cg@exept.de>
parents: 1999
diff changeset
  1782
2429
eed79a96e43b eliminated accesses to leftOffset
Claus Gittinger <cg@exept.de>
parents: 2425
diff changeset
  1783
        xCol := (self xOfCol:cursorCol inVisibleLine:cursorLine) - viewOrigin x.
1103
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1784
        (xCol > (width * (5/6))) ifTrue:[
2429
eed79a96e43b eliminated accesses to leftOffset
Claus Gittinger <cg@exept.de>
parents: 2425
diff changeset
  1785
            newOffset := viewOrigin x + (width // 2).
1103
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1786
        ] ifFalse:[
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1787
            (xCol < (width * (1/6))) ifTrue:[
2429
eed79a96e43b eliminated accesses to leftOffset
Claus Gittinger <cg@exept.de>
parents: 2425
diff changeset
  1788
                newOffset := 0 max: viewOrigin x - (width // 2).
1103
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1789
            ] ifFalse:[
2429
eed79a96e43b eliminated accesses to leftOffset
Claus Gittinger <cg@exept.de>
parents: 2425
diff changeset
  1790
                newOffset := viewOrigin x
1103
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1791
            ]
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1792
        ].
2429
eed79a96e43b eliminated accesses to leftOffset
Claus Gittinger <cg@exept.de>
parents: 2425
diff changeset
  1793
        newOffset ~~ viewOrigin x ifTrue:[
1103
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1794
            self scrollHorizontalTo:newOffset.
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1795
        ]
125
claus
parents: 122
diff changeset
  1796
    ].
1103
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1797
0efbd1ac68f4 use new #changedPreferredBounds
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1798
    "Modified: 6.3.1997 / 16:13:59 / cg"
316
1e27aa926710 fixed Tab handling in enterFieldGroups;
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
  1799
!
1e27aa926710 fixed Tab handling in enterFieldGroups;
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
  1800
784
4161490a4b6d scroll to origin, if size changes and all text fits into the view.
Claus Gittinger <cg@exept.de>
parents: 737
diff changeset
  1801
sizeChanged:how
4161490a4b6d scroll to origin, if size changes and all text fits into the view.
Claus Gittinger <cg@exept.de>
parents: 737
diff changeset
  1802
    "scroll to origin, if all fits"
4161490a4b6d scroll to origin, if size changes and all text fits into the view.
Claus Gittinger <cg@exept.de>
parents: 737
diff changeset
  1803
1282
781c5d134e7a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  1804
    |xCol|
784
4161490a4b6d scroll to origin, if size changes and all text fits into the view.
Claus Gittinger <cg@exept.de>
parents: 737
diff changeset
  1805
2429
eed79a96e43b eliminated accesses to leftOffset
Claus Gittinger <cg@exept.de>
parents: 2425
diff changeset
  1806
    viewOrigin x ~~ 0 ifTrue:[
784
4161490a4b6d scroll to origin, if size changes and all text fits into the view.
Claus Gittinger <cg@exept.de>
parents: 737
diff changeset
  1807
        xCol := self xOfCol:cursorCol inVisibleLine:cursorLine.
4161490a4b6d scroll to origin, if size changes and all text fits into the view.
Claus Gittinger <cg@exept.de>
parents: 737
diff changeset
  1808
        (xCol < (width * (5/6))) ifTrue:[
4161490a4b6d scroll to origin, if size changes and all text fits into the view.
Claus Gittinger <cg@exept.de>
parents: 737
diff changeset
  1809
            self scrollHorizontalTo:0
4161490a4b6d scroll to origin, if size changes and all text fits into the view.
Claus Gittinger <cg@exept.de>
parents: 737
diff changeset
  1810
        ].
4161490a4b6d scroll to origin, if size changes and all text fits into the view.
Claus Gittinger <cg@exept.de>
parents: 737
diff changeset
  1811
    ].
4161490a4b6d scroll to origin, if size changes and all text fits into the view.
Claus Gittinger <cg@exept.de>
parents: 737
diff changeset
  1812
    self makeCursorVisible.
4161490a4b6d scroll to origin, if size changes and all text fits into the view.
Claus Gittinger <cg@exept.de>
parents: 737
diff changeset
  1813
    super sizeChanged:how
4161490a4b6d scroll to origin, if size changes and all text fits into the view.
Claus Gittinger <cg@exept.de>
parents: 737
diff changeset
  1814
4161490a4b6d scroll to origin, if size changes and all text fits into the view.
Claus Gittinger <cg@exept.de>
parents: 737
diff changeset
  1815
    "Modified: 10.7.1996 / 10:59:37 / cg"
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1816
! !
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1817
1806
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1818
!EditField methodsFor:'focus handling'!
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1819
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1820
hasKeyboardFocus:aBoolean
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1821
    "the view got/lost the keyboard focus"
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1822
2349
0f6c87cbbb9e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2296
diff changeset
  1823
    hasKeyboardFocus ~~ aBoolean ifTrue:[
0f6c87cbbb9e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2296
diff changeset
  1824
        aBoolean ifFalse:[
0f6c87cbbb9e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2296
diff changeset
  1825
            enabled ifTrue:[
0f6c87cbbb9e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2296
diff changeset
  1826
                acceptOnLostFocus ifTrue:[
0f6c87cbbb9e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2296
diff changeset
  1827
                    model notNil ifTrue:[
0f6c87cbbb9e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2296
diff changeset
  1828
                        model value = self argForChangeMessage ifTrue:[
0f6c87cbbb9e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2296
diff changeset
  1829
                            ^ self
0f6c87cbbb9e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2296
diff changeset
  1830
                        ]
0f6c87cbbb9e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2296
diff changeset
  1831
                    ].
0f6c87cbbb9e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2296
diff changeset
  1832
                    self accept.
1999
7042cec087eb hasKeyboardFocus -> do not validate if enabled is false
tm
parents: 1998
diff changeset
  1833
                ].
1806
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1834
            ].
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1835
        ].
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1836
    ].
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1837
    super hasKeyboardFocus:aBoolean
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1838
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1839
    "Created: / 11.12.1996 / 16:57:50 / cg"
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1840
    "Modified: / 6.12.1997 / 14:07:12 / cg"
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1841
!
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1842
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1843
showFocus:explicit
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1844
    "the view got the keyboard focus 
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1845
     (either explicit, via tabbing; or implicit, by pointer movement)
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1846
      - change any display attributes as req'd."
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1847
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1848
    "/ giving me the focus is like clicking on me
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1849
    "/ (tell my enterFieldGroup ...)
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1850
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1851
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1852
    (enabled or:[explicit]) ifTrue:[
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1853
        clickAction notNil ifTrue:[clickAction value:self].
3461
0b3cc6fc00ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3460
diff changeset
  1854
        "/ mhmh - should we ALWAYS do this ?
0b3cc6fc00ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3460
diff changeset
  1855
        explicit ifTrue:[ self makeCursorVisible ].
1806
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1856
        super showFocus:explicit
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1857
    ]
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1858
3461
0b3cc6fc00ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3460
diff changeset
  1859
    "Modified: / 06-03-2007 / 21:11:17 / cg"
1806
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1860
!
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1861
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1862
showNoFocus:explicit
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1863
    "the view lost the keyboard focus 
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1864
     (either explicit, via tabbing; or implicit, by pointer movement)
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1865
      - change any display attributes as req'd."
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1866
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1867
    self hideCursor.
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1868
    super showNoFocus:explicit
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1869
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1870
    "Modified: / 17.9.1998 / 15:10:04 / cg"
1918
3ac07b97b4f7 use extra query: #wantsFocusWithPointerEnter;
Claus Gittinger <cg@exept.de>
parents: 1912
diff changeset
  1871
!
3ac07b97b4f7 use extra query: #wantsFocusWithPointerEnter;
Claus Gittinger <cg@exept.de>
parents: 1912
diff changeset
  1872
3ac07b97b4f7 use extra query: #wantsFocusWithPointerEnter;
Claus Gittinger <cg@exept.de>
parents: 1912
diff changeset
  1873
wantsFocusWithPointerEnter
3ac07b97b4f7 use extra query: #wantsFocusWithPointerEnter;
Claus Gittinger <cg@exept.de>
parents: 1912
diff changeset
  1874
    "return true, if I want the focus when
3ac07b97b4f7 use extra query: #wantsFocusWithPointerEnter;
Claus Gittinger <cg@exept.de>
parents: 1912
diff changeset
  1875
     the mouse pointer enters"
3ac07b97b4f7 use extra query: #wantsFocusWithPointerEnter;
Claus Gittinger <cg@exept.de>
parents: 1912
diff changeset
  1876
3305
e19aa6b1e427 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3293
diff changeset
  1877
    (UserPreferences current focusFollowsMouse ~~ false
4098
a041c9cdb9a7 changed: #wantsFocusWithPointerEnter
Claus Gittinger <cg@exept.de>
parents: 4086
diff changeset
  1878
     and:[(styleSheet at:#'editField.requestFocusOnPointerEnter' default:true)
a041c9cdb9a7 changed: #wantsFocusWithPointerEnter
Claus Gittinger <cg@exept.de>
parents: 4086
diff changeset
  1879
     and:[self enabled 
a041c9cdb9a7 changed: #wantsFocusWithPointerEnter
Claus Gittinger <cg@exept.de>
parents: 4086
diff changeset
  1880
     and:[self isReadOnly not]]]
a041c9cdb9a7 changed: #wantsFocusWithPointerEnter
Claus Gittinger <cg@exept.de>
parents: 4086
diff changeset
  1881
    ) ifTrue:[
1918
3ac07b97b4f7 use extra query: #wantsFocusWithPointerEnter;
Claus Gittinger <cg@exept.de>
parents: 1912
diff changeset
  1882
        ^ true
3ac07b97b4f7 use extra query: #wantsFocusWithPointerEnter;
Claus Gittinger <cg@exept.de>
parents: 1912
diff changeset
  1883
    ].
3ac07b97b4f7 use extra query: #wantsFocusWithPointerEnter;
Claus Gittinger <cg@exept.de>
parents: 1912
diff changeset
  1884
3ac07b97b4f7 use extra query: #wantsFocusWithPointerEnter;
Claus Gittinger <cg@exept.de>
parents: 1912
diff changeset
  1885
    ^ false
1806
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1886
! !
fe6269361661 comment & category change
Claus Gittinger <cg@exept.de>
parents: 1797
diff changeset
  1887
2750
94531b6049a3 method category rename
Claus Gittinger <cg@exept.de>
parents: 2737
diff changeset
  1888
!EditField methodsFor:'initialization & release'!
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1889
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1890
initStyle
967
6739eb5496da commentary
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  1891
    "setup viewStyle specifics"
6739eb5496da commentary
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  1892
3265
33baaef82ef3 resource directive
Claus Gittinger <cg@exept.de>
parents: 3216
diff changeset
  1893
    <resource: #style (#'editField.cursorType'
33baaef82ef3 resource directive
Claus Gittinger <cg@exept.de>
parents: 3216
diff changeset
  1894
                       #'editField.cursorForegroundColor' 
4013
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
  1895
                       #'editField.cursorBackgroundColor'
3265
33baaef82ef3 resource directive
Claus Gittinger <cg@exept.de>
parents: 3216
diff changeset
  1896
                       )>
33baaef82ef3 resource directive
Claus Gittinger <cg@exept.de>
parents: 3216
diff changeset
  1897
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1898
    super initStyle.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1899
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1900
    DefaultBackgroundColor notNil ifTrue:[
1993
5ffe0b3943cd #on: -> #onDevice:
Claus Gittinger <cg@exept.de>
parents: 1982
diff changeset
  1901
        bgColor := DefaultBackgroundColor onDevice:device.
1482
19c10a4142bf checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1478
diff changeset
  1902
"/        bgColor ditherForm notNil ifTrue:[
19c10a4142bf checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1478
diff changeset
  1903
"/            bgColor := (bgColor copy) exactOrNearestOn:device
19c10a4142bf checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1478
diff changeset
  1904
"/        ].
967
6739eb5496da commentary
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  1905
        self viewBackground:bgColor.
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1906
    ].
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1907
    fgColor := DefaultForegroundColor.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1908
    selectionFgColor := DefaultSelectionForegroundColor.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1909
    selectionBgColor := DefaultSelectionBackgroundColor.
967
6739eb5496da commentary
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  1910
1544
bb7e168dd651 dont hide editFields non-focus cursor (for now - focusDetection must be fixed)
Claus Gittinger <cg@exept.de>
parents: 1542
diff changeset
  1911
    "/ enable this, when the focus detection works correctly (in dialogs)
1848
fee9c6718e70 new cursorType: Ibeam
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
  1912
    cursorTypeNoFocus := #none.
fee9c6718e70 new cursorType: Ibeam
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
  1913
fee9c6718e70 new cursorType: Ibeam
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
  1914
    cursorType := styleSheet at:#'editField.cursorType' default:cursorType.
fee9c6718e70 new cursorType: Ibeam
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
  1915
fee9c6718e70 new cursorType: Ibeam
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
  1916
    cursorFgColor := styleSheet at:#'editField.cursorForegroundColor' default:cursorFgColor.
fee9c6718e70 new cursorType: Ibeam
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
  1917
    cursorBgColor := styleSheet at:#'editField.cursorBackgroundColor' default:cursorBgColor.
1544
bb7e168dd651 dont hide editFields non-focus cursor (for now - focusDetection must be fixed)
Claus Gittinger <cg@exept.de>
parents: 1542
diff changeset
  1918
4013
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
  1919
    DefaultLevel notNil ifTrue:[
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
  1920
        self level:DefaultLevel.
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
  1921
    ].
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
  1922
    DefaultBorderWidth notNil ifTrue:[
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
  1923
        self borderWidth:DefaultBorderWidth.
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
  1924
        DefaultBorderColor notNil ifTrue:[
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
  1925
            self borderColor:DefaultBorderColor.
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
  1926
        ].
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
  1927
    ].
3ed9d93e8ff6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3991
diff changeset
  1928
4320
088ca53d23ad comment/format in: #initStyle
az
parents: 4214
diff changeset
  1929
    "Modified: / 21-05-1998 / 15:38:14 / cg"
088ca53d23ad comment/format in: #initStyle
az
parents: 4214
diff changeset
  1930
    "Modified (comment): / 05-10-2011 / 15:51:15 / az"
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1931
!
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  1932
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1933
initialize
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1934
    super initialize.
832
4c4b0e34e964 use new #initialHeight:
dq
parents: 800
diff changeset
  1935
    self initialHeight:(font height + font descent + (topMargin * 2)).
673
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1936
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1937
    nFullLinesShown := 1.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1938
    nLinesShown := 1.
1225
6220d3bd3033 initialize acceptOnLostFocus
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  1939
    trimBlankLines := immediateAccept := acceptOnLostFocus := false.
1937
b88111019826 added acceptOnPointerLeave - must be separate from acceptOnLeave
Claus Gittinger <cg@exept.de>
parents: 1936
diff changeset
  1940
    acceptOnPointerLeave := false.
1225
6220d3bd3033 initialize acceptOnLostFocus
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  1941
    enabled := fixedSize := autoScrollHorizontally := true.
298
932fa5ca44f8 added more control over tab-key behavior (acceptOnTab:); added more examples & docu
ah
parents: 290
diff changeset
  1942
    acceptOnLeave := acceptOnReturn := acceptOnTab := true.
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1943
    cursorShown := true.
978
6e678fdc6e5b allow non-Tab as entryCompleter; care for immediateAccept after completion
Claus Gittinger <cg@exept.de>
parents: 967
diff changeset
  1944
    entryCompletionCharacter := #Tab.
2105
364c74512645 neu: acceptIfUnchanged
ca
parents: 2042
diff changeset
  1945
    acceptIfUnchanged := false.
673
e5a4bcfc960e use new cursorValidation (now positions at end-of-input when clicked)
Claus Gittinger <cg@exept.de>
parents: 667
diff changeset
  1946
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1947
    leaveKeys isNil ifTrue:[
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1948
        leaveKeys := self class defaultLeaveKeys.
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1949
    ].
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1950
    cursorMovementWhenUpdating := #endOfLine
594
b9c5a5e5f905 examples
Claus Gittinger <cg@exept.de>
parents: 586
diff changeset
  1951
1937
b88111019826 added acceptOnPointerLeave - must be separate from acceptOnLeave
Claus Gittinger <cg@exept.de>
parents: 1936
diff changeset
  1952
    "Modified: / 28.6.1999 / 18:08:17 / cg"
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1953
! !
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  1954
3702
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1955
!EditField methodsFor:'menu actions'!
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1956
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1957
editMenu
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1958
    "return a popUpMenu for the receiver"
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1959
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1960
    <resource: #keyboard ( #Accept #Copy #Cut #Paste ) >
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1961
    <resource: #programMenu>
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1962
4212
8b3a3ef8278a changed: #editMenu
Claus Gittinger <cg@exept.de>
parents: 4194
diff changeset
  1963
    |items m isReadOnly|
8b3a3ef8278a changed: #editMenu
Claus Gittinger <cg@exept.de>
parents: 4194
diff changeset
  1964
8b3a3ef8278a changed: #editMenu
Claus Gittinger <cg@exept.de>
parents: 4194
diff changeset
  1965
    isReadOnly := (self isReadOnly == true or:[enabled == false]).
8b3a3ef8278a changed: #editMenu
Claus Gittinger <cg@exept.de>
parents: 4194
diff changeset
  1966
    isReadOnly ifTrue:[
3702
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1967
        items := #(
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1968
                ('Copy'   copySelection  Copy  )
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1969
                )
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1970
    ] ifFalse:[
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1971
        items := #(
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1972
                    ('Cut'    cut            Cut   )
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1973
                    ('Copy'   copySelection  Copy  )
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1974
                    ('Paste'  pasteOrReplace Paste )
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1975
                   ).
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1976
        (acceptAction notNil 
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1977
        or:[model notNil and:[changeMsg notNil]]) ifTrue:[
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1978
            immediateAccept ifFalse:[
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1979
                items := items , #(
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1980
                                        ('-'                     )
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1981
                                        ('Accept'  accept  Accept)
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1982
                                    ).
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1983
            ].
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1984
        ].
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1985
    ].
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1986
4212
8b3a3ef8278a changed: #editMenu
Claus Gittinger <cg@exept.de>
parents: 4194
diff changeset
  1987
    (isReadOnly not and:[CharacterSetView notNil]) ifTrue:[
4194
87d816906093 changed: #editMenu
Claus Gittinger <cg@exept.de>
parents: 4157
diff changeset
  1988
        items := items ,
87d816906093 changed: #editMenu
Claus Gittinger <cg@exept.de>
parents: 4157
diff changeset
  1989
                    #(
87d816906093 changed: #editMenu
Claus Gittinger <cg@exept.de>
parents: 4157
diff changeset
  1990
                        ('-'                     )
87d816906093 changed: #editMenu
Claus Gittinger <cg@exept.de>
parents: 4157
diff changeset
  1991
                        ('Special Characters...'    specialCharacters  OpenSpecialCharacterWindow )
87d816906093 changed: #editMenu
Claus Gittinger <cg@exept.de>
parents: 4157
diff changeset
  1992
                    ).
87d816906093 changed: #editMenu
Claus Gittinger <cg@exept.de>
parents: 4157
diff changeset
  1993
    ].
87d816906093 changed: #editMenu
Claus Gittinger <cg@exept.de>
parents: 4157
diff changeset
  1994
3702
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1995
    m := PopUpMenu itemList:items resources:resources.
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1996
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1997
    passwordCharacter notNil ifTrue:[
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1998
        m disable:#copySelection
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  1999
    ].
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  2000
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  2001
    self hasSelectionForCopy ifFalse:[
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  2002
        m disable:#copySelection
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  2003
    ].
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  2004
    self hasSelection ifFalse:[
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  2005
        m disable:#cut
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  2006
    ].
4212
8b3a3ef8278a changed: #editMenu
Claus Gittinger <cg@exept.de>
parents: 4194
diff changeset
  2007
    isReadOnly ifTrue:[
3702
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  2008
        m disableAll:#(cut pasteOrReplace accept)
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  2009
    ].
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  2010
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  2011
    ^ m
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  2012
4212
8b3a3ef8278a changed: #editMenu
Claus Gittinger <cg@exept.de>
parents: 4194
diff changeset
  2013
    "Modified: / 17-01-2011 / 11:24:22 / cg"
3702
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  2014
! !
30f5a2efe531 changed #editMenu
Claus Gittinger <cg@exept.de>
parents: 3648
diff changeset
  2015
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2016
!EditField methodsFor:'private'!
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2017
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2018
argForChangeMessage
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2019
    "redefined to send use converted value (if I have one)"
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2020
2538
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
  2021
    |str|
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
  2022
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
  2023
    str := self editValue.
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
  2024
    (acceptIfUnchanged
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
  2025
    and:[model notNil
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
  2026
    and:[model value == self editValue]]) ifTrue:[
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
  2027
        "/ copy to force valueHolder to trigger
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
  2028
        str := str copy.
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
  2029
    ].
ce313a0572e7 care for accept with unchangedValue;
Claus Gittinger <cg@exept.de>
parents: 2518
diff changeset
  2030
    ^ str
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2031
!
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2032
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2033
getListFromModel
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2034
    "redefined to aquire the text via the aspectMsg - not the listMsg,
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2035
     and to ignore updates resulting from my own change."
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2036
1464
079d8a07b19c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  2037
    |val|
079d8a07b19c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  2038
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2039
    (model notNil and:[aspectMsg notNil]) ifTrue:[
1464
079d8a07b19c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  2040
        aspectMsg == #value ifTrue:[
079d8a07b19c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  2041
            val := model value
079d8a07b19c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  2042
        ] ifFalse:[
079d8a07b19c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  2043
            val := model perform:aspectMsg
079d8a07b19c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  2044
        ].
1503
ae953a367422 care for models ignoring a change (i.e. if doing range checks in
Claus Gittinger <cg@exept.de>
parents: 1482
diff changeset
  2045
ae953a367422 care for models ignoring a change (i.e. if doing range checks in
Claus Gittinger <cg@exept.de>
parents: 1482
diff changeset
  2046
        "
ae953a367422 care for models ignoring a change (i.e. if doing range checks in
Claus Gittinger <cg@exept.de>
parents: 1482
diff changeset
  2047
         ignore updates from my own change
ae953a367422 care for models ignoring a change (i.e. if doing range checks in
Claus Gittinger <cg@exept.de>
parents: 1482
diff changeset
  2048
        "
ae953a367422 care for models ignoring a change (i.e. if doing range checks in
Claus Gittinger <cg@exept.de>
parents: 1482
diff changeset
  2049
        lockUpdates ifTrue:[
ae953a367422 care for models ignoring a change (i.e. if doing range checks in
Claus Gittinger <cg@exept.de>
parents: 1482
diff changeset
  2050
            lockUpdates := false.
ae953a367422 care for models ignoring a change (i.e. if doing range checks in
Claus Gittinger <cg@exept.de>
parents: 1482
diff changeset
  2051
            val = self editValue ifTrue:[
ae953a367422 care for models ignoring a change (i.e. if doing range checks in
Claus Gittinger <cg@exept.de>
parents: 1482
diff changeset
  2052
                ^ self
ae953a367422 care for models ignoring a change (i.e. if doing range checks in
Claus Gittinger <cg@exept.de>
parents: 1482
diff changeset
  2053
            ]
ae953a367422 care for models ignoring a change (i.e. if doing range checks in
Claus Gittinger <cg@exept.de>
parents: 1482
diff changeset
  2054
        ].
ae953a367422 care for models ignoring a change (i.e. if doing range checks in
Claus Gittinger <cg@exept.de>
parents: 1482
diff changeset
  2055
1464
079d8a07b19c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  2056
        self editValue:val.
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  2057
    ]
1464
079d8a07b19c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  2058
1503
ae953a367422 care for models ignoring a change (i.e. if doing range checks in
Claus Gittinger <cg@exept.de>
parents: 1482
diff changeset
  2059
    "Modified: / 23.4.1998 / 10:10:37 / cg"
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  2060
!
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  2061
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2062
startAutoScrollDown:y
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2063
    "no vertical scrolling in editfields"
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2064
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2065
    ^ self
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2066
!
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2067
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2068
startAutoScrollUp:y
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2069
    "no vertical scrolling in editfields"
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2070
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2071
    ^ self
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2072
!
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  2073
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2074
textChanged
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2075
    "this is sent by mySelf (somewhere in a superclass) whenever
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2076
     my contents has changed. 
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2077
     A good place to add immediateAccept functionality and check for the
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2078
     lengthLimit."
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2079
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2080
    |string c|
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2081
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2082
    super textChanged.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2083
    string := self contents.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2084
    lengthLimit notNil ifTrue:[
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2085
	string size > lengthLimit ifTrue:[
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2086
	    c := cursorCol.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2087
	    self contents:(string copyTo:lengthLimit).
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2088
	    self flash.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2089
	    self cursorCol:c.
125
claus
parents: 122
diff changeset
  2090
	]
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  2091
    ].
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2092
    immediateAccept ifTrue:[
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2093
	self accept
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2094
    ]
105
3d064ba4a0cc *** empty log message ***
claus
parents: 97
diff changeset
  2095
!
3d064ba4a0cc *** empty log message ***
claus
parents: 97
diff changeset
  2096
2616
dc97ec169256 type on method name
Claus Gittinger <cg@exept.de>
parents: 2538
diff changeset
  2097
textChangedButNoSizeChange
2296
b924cc94580c immediate update did not work for Backspace key (and some others)
Claus Gittinger <cg@exept.de>
parents: 2193
diff changeset
  2098
    "this is sent by mySelf (somewhere in a superclass) whenever
b924cc94580c immediate update did not work for Backspace key (and some others)
Claus Gittinger <cg@exept.de>
parents: 2193
diff changeset
  2099
     my contents has changed. 
b924cc94580c immediate update did not work for Backspace key (and some others)
Claus Gittinger <cg@exept.de>
parents: 2193
diff changeset
  2100
     A good place to add immediateAccept functionality."
b924cc94580c immediate update did not work for Backspace key (and some others)
Claus Gittinger <cg@exept.de>
parents: 2193
diff changeset
  2101
2616
dc97ec169256 type on method name
Claus Gittinger <cg@exept.de>
parents: 2538
diff changeset
  2102
    super textChangedButNoSizeChange.
2296
b924cc94580c immediate update did not work for Backspace key (and some others)
Claus Gittinger <cg@exept.de>
parents: 2193
diff changeset
  2103
    immediateAccept ifTrue:[
b924cc94580c immediate update did not work for Backspace key (and some others)
Claus Gittinger <cg@exept.de>
parents: 2193
diff changeset
  2104
        self accept
b924cc94580c immediate update did not work for Backspace key (and some others)
Claus Gittinger <cg@exept.de>
parents: 2193
diff changeset
  2105
    ]
b924cc94580c immediate update did not work for Backspace key (and some others)
Claus Gittinger <cg@exept.de>
parents: 2193
diff changeset
  2106
!
b924cc94580c immediate update did not work for Backspace key (and some others)
Claus Gittinger <cg@exept.de>
parents: 2193
diff changeset
  2107
1631
f8fae6670540 change viewBackground, when either disabled or readOnly.
Claus Gittinger <cg@exept.de>
parents: 1616
diff changeset
  2108
updateBackground
f8fae6670540 change viewBackground, when either disabled or readOnly.
Claus Gittinger <cg@exept.de>
parents: 1616
diff changeset
  2109
    "make my background grey, whenever either readOnly or disable"
f8fae6670540 change viewBackground, when either disabled or readOnly.
Claus Gittinger <cg@exept.de>
parents: 1616
diff changeset
  2110
1974
c513cc45de3a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1939
diff changeset
  2111
    |fg|
c513cc45de3a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1939
diff changeset
  2112
3648
7a959d9db34f dont (re)set the background, if I have a bg-channel.
Claus Gittinger <cg@exept.de>
parents: 3585
diff changeset
  2113
    backgroundChannel notNil ifTrue:[^ self].
7a959d9db34f dont (re)set the background, if I have a bg-channel.
Claus Gittinger <cg@exept.de>
parents: 3585
diff changeset
  2114
1733
c5139b7402f0 use self isReadonly; readOnly may now be a valueHolder.
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  2115
    (self isReadOnly or:[enabled not]) ifTrue:[
1632
01a7b330622a change foregroundColor when disabled.
Claus Gittinger <cg@exept.de>
parents: 1631
diff changeset
  2116
        self backgroundColor:(View defaultViewBackgroundColor).
01a7b330622a change foregroundColor when disabled.
Claus Gittinger <cg@exept.de>
parents: 1631
diff changeset
  2117
        enabled ifFalse:[
1974
c513cc45de3a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1939
diff changeset
  2118
            fg := StyleSheet colorAt:'editField.disabledForegroundColor' default:nil.
c513cc45de3a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1939
diff changeset
  2119
            fg isNil ifTrue:[
c513cc45de3a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1939
diff changeset
  2120
                fg := StyleSheet colorAt:'button.disabledForegroundColor' default:Color gray.
c513cc45de3a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1939
diff changeset
  2121
            ].
c513cc45de3a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1939
diff changeset
  2122
            self foregroundColor:fg.
3408
df7db0818a22 #updateBackground bug fixed
sr
parents: 3367
diff changeset
  2123
        ] ifTrue:[
df7db0818a22 #updateBackground bug fixed
sr
parents: 3367
diff changeset
  2124
            self foregroundColor:DefaultForegroundColor.
df7db0818a22 #updateBackground bug fixed
sr
parents: 3367
diff changeset
  2125
        ].
1631
f8fae6670540 change viewBackground, when either disabled or readOnly.
Claus Gittinger <cg@exept.de>
parents: 1616
diff changeset
  2126
    ] ifFalse:[
1632
01a7b330622a change foregroundColor when disabled.
Claus Gittinger <cg@exept.de>
parents: 1631
diff changeset
  2127
        self backgroundColor:DefaultBackgroundColor.
01a7b330622a change foregroundColor when disabled.
Claus Gittinger <cg@exept.de>
parents: 1631
diff changeset
  2128
        self foregroundColor:DefaultForegroundColor.
1631
f8fae6670540 change viewBackground, when either disabled or readOnly.
Claus Gittinger <cg@exept.de>
parents: 1616
diff changeset
  2129
    ]
f8fae6670540 change viewBackground, when either disabled or readOnly.
Claus Gittinger <cg@exept.de>
parents: 1616
diff changeset
  2130
1632
01a7b330622a change foregroundColor when disabled.
Claus Gittinger <cg@exept.de>
parents: 1631
diff changeset
  2131
    "Modified: / 3.8.1998 / 18:40:11 / cg"
1631
f8fae6670540 change viewBackground, when either disabled or readOnly.
Claus Gittinger <cg@exept.de>
parents: 1616
diff changeset
  2132
!
f8fae6670540 change viewBackground, when either disabled or readOnly.
Claus Gittinger <cg@exept.de>
parents: 1616
diff changeset
  2133
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2134
visibleAt:visLineNr
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2135
    "return the string at lineNr for display.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2136
     If there is a password character, return a string consisting of those only."
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2137
3988
7b496d3c7d12 changed: #visibleAt:
Claus Gittinger <cg@exept.de>
parents: 3987
diff changeset
  2138
    |s emptyText|
105
3d064ba4a0cc *** empty log message ***
claus
parents: 97
diff changeset
  2139
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2140
    s := super visibleAt:visLineNr.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2141
    passwordCharacter notNil ifTrue:[
3985
31fa420f210a +emptyFieldReplacementText
Claus Gittinger <cg@exept.de>
parents: 3975
diff changeset
  2142
        ^ String new:(s size) withAll:passwordCharacter
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2143
    ].
3985
31fa420f210a +emptyFieldReplacementText
Claus Gittinger <cg@exept.de>
parents: 3975
diff changeset
  2144
    (s isEmptyOrNil  
3988
7b496d3c7d12 changed: #visibleAt:
Claus Gittinger <cg@exept.de>
parents: 3987
diff changeset
  2145
    and:[ (emptyText := self emptyFieldReplacementText) notNil  
3985
31fa420f210a +emptyFieldReplacementText
Claus Gittinger <cg@exept.de>
parents: 3975
diff changeset
  2146
    and:[ self hasFocus not 
31fa420f210a +emptyFieldReplacementText
Claus Gittinger <cg@exept.de>
parents: 3975
diff changeset
  2147
    and:[ visLineNr == 1 ]]])
31fa420f210a +emptyFieldReplacementText
Claus Gittinger <cg@exept.de>
parents: 3975
diff changeset
  2148
    ifTrue:[
3988
7b496d3c7d12 changed: #visibleAt:
Claus Gittinger <cg@exept.de>
parents: 3987
diff changeset
  2149
        ^ emptyText allItalic colorizeAllWith:Color lightGrey.
3985
31fa420f210a +emptyFieldReplacementText
Claus Gittinger <cg@exept.de>
parents: 3975
diff changeset
  2150
    ].
31fa420f210a +emptyFieldReplacementText
Claus Gittinger <cg@exept.de>
parents: 3975
diff changeset
  2151
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2152
    ^ s
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2153
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2154
    "Modified: 6.9.1995 / 12:25:06 / claus"
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
  2155
! !
125
claus
parents: 122
diff changeset
  2156
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2157
!EditField methodsFor:'queries'!
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2158
2350
c09d3dd534e3 do not allow copy of password-characters out of an editfield.
Claus Gittinger <cg@exept.de>
parents: 2349
diff changeset
  2159
hasSelectionForCopy
c09d3dd534e3 do not allow copy of password-characters out of an editfield.
Claus Gittinger <cg@exept.de>
parents: 2349
diff changeset
  2160
    "return true, if there is a selection which can be copied."
c09d3dd534e3 do not allow copy of password-characters out of an editfield.
Claus Gittinger <cg@exept.de>
parents: 2349
diff changeset
  2161
c09d3dd534e3 do not allow copy of password-characters out of an editfield.
Claus Gittinger <cg@exept.de>
parents: 2349
diff changeset
  2162
    passwordCharacter notNil ifTrue:[ ^ false ].
c09d3dd534e3 do not allow copy of password-characters out of an editfield.
Claus Gittinger <cg@exept.de>
parents: 2349
diff changeset
  2163
    ^ self hasSelection
c09d3dd534e3 do not allow copy of password-characters out of an editfield.
Claus Gittinger <cg@exept.de>
parents: 2349
diff changeset
  2164
!
c09d3dd534e3 do not allow copy of password-characters out of an editfield.
Claus Gittinger <cg@exept.de>
parents: 2349
diff changeset
  2165
561
ef45086071c6 oops - isInputView renamed to isInputField
ca
parents: 506
diff changeset
  2166
isInputField
ef45086071c6 oops - isInputView renamed to isInputField
ca
parents: 506
diff changeset
  2167
    "return true, if the receiver is some kind of input view,
ef45086071c6 oops - isInputView renamed to isInputField
ca
parents: 506
diff changeset
  2168
     i.e. it should (can) be part of an enterGroup.
ef45086071c6 oops - isInputView renamed to isInputField
ca
parents: 506
diff changeset
  2169
     Return true here"
ef45086071c6 oops - isInputView renamed to isInputField
ca
parents: 506
diff changeset
  2170
ef45086071c6 oops - isInputView renamed to isInputField
ca
parents: 506
diff changeset
  2171
    ^ true
ef45086071c6 oops - isInputView renamed to isInputField
ca
parents: 506
diff changeset
  2172
ef45086071c6 oops - isInputView renamed to isInputField
ca
parents: 506
diff changeset
  2173
    "Created: 4.3.1996 / 11:32:34 / cg"
ef45086071c6 oops - isInputView renamed to isInputField
ca
parents: 506
diff changeset
  2174
!
ef45086071c6 oops - isInputView renamed to isInputField
ca
parents: 506
diff changeset
  2175
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2176
preferredExtent
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2177
    "return the preferred extent of this view.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2178
     That is the width of the string plus some extra, 
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2179
     but not wider than half of the screen"
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2180
1120
3faa7fc84bad checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2181
    |string w h f|
125
claus
parents: 122
diff changeset
  2182
3768
d759c921cb45 changed #preferredExtent - use explicitExtent instvar
Stefan Vogel <sv@exept.de>
parents: 3709
diff changeset
  2183
    "/ If I have an explicit preferredExtent..
d759c921cb45 changed #preferredExtent - use explicitExtent instvar
Stefan Vogel <sv@exept.de>
parents: 3709
diff changeset
  2184
    explicitExtent notNil ifTrue:[
d759c921cb45 changed #preferredExtent - use explicitExtent instvar
Stefan Vogel <sv@exept.de>
parents: 3709
diff changeset
  2185
        ^ explicitExtent
d759c921cb45 changed #preferredExtent - use explicitExtent instvar
Stefan Vogel <sv@exept.de>
parents: 3709
diff changeset
  2186
    ].
d759c921cb45 changed #preferredExtent - use explicitExtent instvar
Stefan Vogel <sv@exept.de>
parents: 3709
diff changeset
  2187
d759c921cb45 changed #preferredExtent - use explicitExtent instvar
Stefan Vogel <sv@exept.de>
parents: 3709
diff changeset
  2188
    "/ If I have a cached preferredExtent value..
714
5ff02d2d9fa7 care for preSet preferredExtent
Claus Gittinger <cg@exept.de>
parents: 677
diff changeset
  2189
    preferredExtent notNil ifTrue:[
5ff02d2d9fa7 care for preSet preferredExtent
Claus Gittinger <cg@exept.de>
parents: 677
diff changeset
  2190
        ^ preferredExtent
5ff02d2d9fa7 care for preSet preferredExtent
Claus Gittinger <cg@exept.de>
parents: 677
diff changeset
  2191
    ].
5ff02d2d9fa7 care for preSet preferredExtent
Claus Gittinger <cg@exept.de>
parents: 677
diff changeset
  2192
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2193
    string := self contents.
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2194
    (string isNil or:[string isBlank]) ifTrue:[
4086
677dab361ea7 changed: #preferredExtent
Stefan Vogel <sv@exept.de>
parents: 4028
diff changeset
  2195
        w := fontWidth * 20.  "space for 20 characters"
677dab361ea7 changed: #preferredExtent
Stefan Vogel <sv@exept.de>
parents: 4028
diff changeset
  2196
    ] ifFalse:[
677dab361ea7 changed: #preferredExtent
Stefan Vogel <sv@exept.de>
parents: 4028
diff changeset
  2197
        "length of current contents +  50% space to type more characters"
677dab361ea7 changed: #preferredExtent
Stefan Vogel <sv@exept.de>
parents: 4028
diff changeset
  2198
        f := font onDevice:device.
677dab361ea7 changed: #preferredExtent
Stefan Vogel <sv@exept.de>
parents: 4028
diff changeset
  2199
        w := ((f widthOf:string) * 1.5) rounded. 
677dab361ea7 changed: #preferredExtent
Stefan Vogel <sv@exept.de>
parents: 4028
diff changeset
  2200
        w := w + margin + margin.
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2201
    ].
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2202
    w := w min:(device width // 2).
667
d02f6bba8fc5 use fonts maxHeight in prefExtent (A-Umlaut)
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  2203
3929
3c88a4e7a7ac preferredExtent fontHeight
fm
parents: 3797
diff changeset
  2204
    "/ h := f maxHeight + (f maxDescent * 2) + (margin * 2).
4086
677dab361ea7 changed: #preferredExtent
Stefan Vogel <sv@exept.de>
parents: 4028
diff changeset
  2205
    h := fontHeight + topMargin + (margin * 2).
1120
3faa7fc84bad checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2206
3faa7fc84bad checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2207
    ^ w rounded @ h rounded
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2208
1542
5778dd813273 default height a bit larger (for caret cursors);
Claus Gittinger <cg@exept.de>
parents: 1537
diff changeset
  2209
    "Modified: / 6.9.1995 / 19:24:06 / claus"
5778dd813273 default height a bit larger (for caret cursors);
Claus Gittinger <cg@exept.de>
parents: 1537
diff changeset
  2210
    "Modified: / 21.5.1998 / 02:13:35 / cg"
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2211
!
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2212
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2213
specClass
1372
c32cb309da8d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1363
diff changeset
  2214
    "redefined, since the name of my specClass is nonStandard (i.e. not EditFieldSpec)"
c32cb309da8d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1363
diff changeset
  2215
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2216
    self class == EditField ifTrue:[^ InputFieldSpec].
1047
4d7bc9784f94 specClass query
ca
parents: 1034
diff changeset
  2217
    ^ super specClass
125
claus
parents: 122
diff changeset
  2218
1372
c32cb309da8d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1363
diff changeset
  2219
    "Modified: / 5.9.1995 / 17:28:27 / claus"
c32cb309da8d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1363
diff changeset
  2220
    "Modified: / 31.10.1997 / 19:48:59 / cg"
325
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  2221
!
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  2222
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  2223
tabMeansNextField
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  2224
    "return true, if Tab character should shift focus to the next field"
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  2225
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  2226
    "if I have a completionBlock, I want my Tabs ..."
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  2227
2993
5a610fe081ed entryCompletionBlockHolder
Claus Gittinger <cg@exept.de>
parents: 2792
diff changeset
  2228
    ^ self entryCompletionBlock isNil or:[entryCompletionCharacter ~~ #Tab]
325
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  2229
87e24beaf835 better Tab key handling
Claus Gittinger <cg@exept.de>
parents: 317
diff changeset
  2230
    "Created: 7.2.1996 / 19:16:38 / cg"
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2231
! !
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2232
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2233
!EditField methodsFor:'realization'!
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2234
1274
a861b526e2c0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1268
diff changeset
  2235
realize
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2236
    "scroll back to beginning when realized"
1268
da86fb7a9f12 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1261
diff changeset
  2237
2429
eed79a96e43b eliminated accesses to leftOffset
Claus Gittinger <cg@exept.de>
parents: 2425
diff changeset
  2238
    viewOrigin := 0 @ viewOrigin y.
1274
a861b526e2c0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1268
diff changeset
  2239
    super realize
1268
da86fb7a9f12 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1261
diff changeset
  2240
1274
a861b526e2c0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1268
diff changeset
  2241
    "Created: 24.7.1997 / 18:23:15 / cg"
125
claus
parents: 122
diff changeset
  2242
! !
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2243
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2244
!EditField methodsFor:'scrolling'!
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2245
1751
f29c3312beaf adjust h-scroll offset if only part is visible,
Claus Gittinger <cg@exept.de>
parents: 1733
diff changeset
  2246
makeColVisible:col inLine:lineNr
4157
7f2928f99268 comment/format in: #makeColVisible:inLine:
Claus Gittinger <cg@exept.de>
parents: 4118
diff changeset
  2247
    "don't scroll for the cursor, if its beyond the text and a lengthLimit
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2248
     is present."
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2249
2759
c7cdd64a930f makeCursorVisible-fix
Claus Gittinger <cg@exept.de>
parents: 2750
diff changeset
  2250
    |wText innerWidth colToMakeVisible|
2424
aa7b253717b1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2350
diff changeset
  2251
aa7b253717b1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2350
diff changeset
  2252
    innerWidth := self innerWidth.
2759
c7cdd64a930f makeCursorVisible-fix
Claus Gittinger <cg@exept.de>
parents: 2750
diff changeset
  2253
    colToMakeVisible := col.
2016
7a4d89c99c98 dont scroll horizontally, if there is a lengthLimit,
Claus Gittinger <cg@exept.de>
parents: 1999
diff changeset
  2254
7a4d89c99c98 dont scroll horizontally, if there is a lengthLimit,
Claus Gittinger <cg@exept.de>
parents: 1999
diff changeset
  2255
    lengthLimit notNil ifTrue:[
2424
aa7b253717b1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2350
diff changeset
  2256
        (self xOfCol:col inVisibleLine:1) <= innerWidth
2016
7a4d89c99c98 dont scroll horizontally, if there is a lengthLimit,
Claus Gittinger <cg@exept.de>
parents: 1999
diff changeset
  2257
        ifTrue:[
7a4d89c99c98 dont scroll horizontally, if there is a lengthLimit,
Claus Gittinger <cg@exept.de>
parents: 1999
diff changeset
  2258
            ^ self
7a4d89c99c98 dont scroll horizontally, if there is a lengthLimit,
Claus Gittinger <cg@exept.de>
parents: 1999
diff changeset
  2259
        ].
2424
aa7b253717b1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2350
diff changeset
  2260
        (self xOfCol:lengthLimit inVisibleLine:1) <= innerWidth
2016
7a4d89c99c98 dont scroll horizontally, if there is a lengthLimit,
Claus Gittinger <cg@exept.de>
parents: 1999
diff changeset
  2261
        ifTrue:[
7a4d89c99c98 dont scroll horizontally, if there is a lengthLimit,
Claus Gittinger <cg@exept.de>
parents: 1999
diff changeset
  2262
            ^ self
7a4d89c99c98 dont scroll horizontally, if there is a lengthLimit,
Claus Gittinger <cg@exept.de>
parents: 1999
diff changeset
  2263
        ].
2759
c7cdd64a930f makeCursorVisible-fix
Claus Gittinger <cg@exept.de>
parents: 2750
diff changeset
  2264
        (col == cursorCol and:[col > lengthLimit]) ifTrue:[
c7cdd64a930f makeCursorVisible-fix
Claus Gittinger <cg@exept.de>
parents: 2750
diff changeset
  2265
            colToMakeVisible := lengthLimit
2016
7a4d89c99c98 dont scroll horizontally, if there is a lengthLimit,
Claus Gittinger <cg@exept.de>
parents: 1999
diff changeset
  2266
        ].
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2267
    ].
1751
f29c3312beaf adjust h-scroll offset if only part is visible,
Claus Gittinger <cg@exept.de>
parents: 1733
diff changeset
  2268
2759
c7cdd64a930f makeCursorVisible-fix
Claus Gittinger <cg@exept.de>
parents: 2750
diff changeset
  2269
    super makeColVisible:colToMakeVisible inLine:lineNr.
c7cdd64a930f makeCursorVisible-fix
Claus Gittinger <cg@exept.de>
parents: 2750
diff changeset
  2270
1751
f29c3312beaf adjust h-scroll offset if only part is visible,
Claus Gittinger <cg@exept.de>
parents: 1733
diff changeset
  2271
    "/ new:
f29c3312beaf adjust h-scroll offset if only part is visible,
Claus Gittinger <cg@exept.de>
parents: 1733
diff changeset
  2272
    "/ care to make the most possible visible
2429
eed79a96e43b eliminated accesses to leftOffset
Claus Gittinger <cg@exept.de>
parents: 2425
diff changeset
  2273
    viewOrigin x > 0 ifTrue:[
1751
f29c3312beaf adjust h-scroll offset if only part is visible,
Claus Gittinger <cg@exept.de>
parents: 1733
diff changeset
  2274
        wText := self widthOfLine:lineNr.
2424
aa7b253717b1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2350
diff changeset
  2275
        wText <= innerWidth ifTrue:[
1751
f29c3312beaf adjust h-scroll offset if only part is visible,
Claus Gittinger <cg@exept.de>
parents: 1733
diff changeset
  2276
            self scrollHorizontalTo:0
f29c3312beaf adjust h-scroll offset if only part is visible,
Claus Gittinger <cg@exept.de>
parents: 1733
diff changeset
  2277
        ]
f29c3312beaf adjust h-scroll offset if only part is visible,
Claus Gittinger <cg@exept.de>
parents: 1733
diff changeset
  2278
    ]
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2279
4157
7f2928f99268 comment/format in: #makeColVisible:inLine:
Claus Gittinger <cg@exept.de>
parents: 4118
diff changeset
  2280
    "Modified: / 06-09-1995 / 13:57:53 / claus"
7f2928f99268 comment/format in: #makeColVisible:inLine:
Claus Gittinger <cg@exept.de>
parents: 4118
diff changeset
  2281
    "Modified: / 04-08-2010 / 17:30:17 / cg"
192
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2282
! !
fc2fc4347d5d checkin from Browser
Claus Gittinger <cg@exept.de>
parents: 187
diff changeset
  2283
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  2284
!EditField methodsFor:'selections'!
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  2285
3366
0df1eb5da5aa refuse to copy passwords to the clipboard.
Claus Gittinger <cg@exept.de>
parents: 3305
diff changeset
  2286
copySelection
0df1eb5da5aa refuse to copy passwords to the clipboard.
Claus Gittinger <cg@exept.de>
parents: 3305
diff changeset
  2287
    "refuse to copy a password to the clipboard"
0df1eb5da5aa refuse to copy passwords to the clipboard.
Claus Gittinger <cg@exept.de>
parents: 3305
diff changeset
  2288
0df1eb5da5aa refuse to copy passwords to the clipboard.
Claus Gittinger <cg@exept.de>
parents: 3305
diff changeset
  2289
    passwordCharacter notNil ifTrue:[
3367
5e0416ea2518 ...and beep on an attempt.
Claus Gittinger <cg@exept.de>
parents: 3366
diff changeset
  2290
        self beep.
3366
0df1eb5da5aa refuse to copy passwords to the clipboard.
Claus Gittinger <cg@exept.de>
parents: 3305
diff changeset
  2291
        ^ self
0df1eb5da5aa refuse to copy passwords to the clipboard.
Claus Gittinger <cg@exept.de>
parents: 3305
diff changeset
  2292
    ].
0df1eb5da5aa refuse to copy passwords to the clipboard.
Claus Gittinger <cg@exept.de>
parents: 3305
diff changeset
  2293
    ^ super copySelection
0df1eb5da5aa refuse to copy passwords to the clipboard.
Claus Gittinger <cg@exept.de>
parents: 3305
diff changeset
  2294
!
0df1eb5da5aa refuse to copy passwords to the clipboard.
Claus Gittinger <cg@exept.de>
parents: 3305
diff changeset
  2295
1080
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2296
selectAll
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2297
    "select the whole text.
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2298
     redefined to send super selectFrom... since we dont want the
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2299
     cursor to be moved in this case."
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2300
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2301
    |len|
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2302
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2303
    list isNil ifTrue:[
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2304
        self unselect
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2305
    ] ifFalse:[
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2306
        len := (self listAt:1) size.
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2307
        len ~~ 0 ifTrue:[
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2308
            super selectFromLine:1 col:1 toLine:1 col:len.
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2309
        ].
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2310
        typeOfSelection := nil
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2311
    ]
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2312
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2313
    "Modified: 28.2.1997 / 19:16:21 / cg"
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2314
!
73877901fa7d redefined #selectAll to select nothing if there is nothing
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  2315
4540
ca28a8145610 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4507
diff changeset
  2316
selectFrom:firstColToSelect
ca28a8145610 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4507
diff changeset
  2317
    "select the right part of the text"
ca28a8145610 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4507
diff changeset
  2318
ca28a8145610 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4507
diff changeset
  2319
    |len|
ca28a8145610 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4507
diff changeset
  2320
ca28a8145610 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4507
diff changeset
  2321
    list isNil ifTrue:[
ca28a8145610 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4507
diff changeset
  2322
        self unselect
ca28a8145610 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4507
diff changeset
  2323
    ] ifFalse:[
ca28a8145610 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4507
diff changeset
  2324
        len := (self listAt:1) size.
ca28a8145610 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4507
diff changeset
  2325
        firstColToSelect <= len ifTrue:[
ca28a8145610 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4507
diff changeset
  2326
            self selectFromLine:1 col:firstColToSelect toLine:1 col:len.
ca28a8145610 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4507
diff changeset
  2327
        ].
ca28a8145610 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4507
diff changeset
  2328
        typeOfSelection := nil
ca28a8145610 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4507
diff changeset
  2329
    ]
ca28a8145610 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4507
diff changeset
  2330
!
ca28a8145610 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4507
diff changeset
  2331
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  2332
validateNewSelection
1654
2569ec675d8a bug fix:
ca
parents: 1632
diff changeset
  2333
    "make certain that only one line is ever selected"
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  2334
1654
2569ec675d8a bug fix:
ca
parents: 1632
diff changeset
  2335
    selectionEndLine notNil ifTrue:[
2569ec675d8a bug fix:
ca
parents: 1632
diff changeset
  2336
        selectionEndLine > 1 ifTrue:[
2569ec675d8a bug fix:
ca
parents: 1632
diff changeset
  2337
            selectionEndLine := 2. selectionEndCol := 0
2569ec675d8a bug fix:
ca
parents: 1632
diff changeset
  2338
        ]
2569ec675d8a bug fix:
ca
parents: 1632
diff changeset
  2339
    ].
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  2340
! !
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  2341
892
043b0ab4b786 allow acceptOnLostFocus.
Claus Gittinger <cg@exept.de>
parents: 842
diff changeset
  2342
!EditField class methodsFor:'documentation'!
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  2343
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  2344
version
4724
10440165e22e class: EditField
Claus Gittinger <cg@exept.de>
parents: 4720
diff changeset
  2345
    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.224 2013-09-02 21:05:54 cg Exp $'
3975
73674d16fc63 copy asOrderedCollection -> copyAsOrderedCollection
Claus Gittinger <cg@exept.de>
parents: 3929
diff changeset
  2346
!
73674d16fc63 copy asOrderedCollection -> copyAsOrderedCollection
Claus Gittinger <cg@exept.de>
parents: 3929
diff changeset
  2347
73674d16fc63 copy asOrderedCollection -> copyAsOrderedCollection
Claus Gittinger <cg@exept.de>
parents: 3929
diff changeset
  2348
version_CVS
4724
10440165e22e class: EditField
Claus Gittinger <cg@exept.de>
parents: 4720
diff changeset
  2349
    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.224 2013-09-02 21:05:54 cg Exp $'
261
afcea54bd74e added channel-enable (needs overall cleanup)
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  2350
! !
4507
5d052c1b7f02 class: EditField
Claus Gittinger <cg@exept.de>
parents: 4320
diff changeset
  2351