EditFieldWithCompletionSpec.st
author Jan Vrany <jan.vrany@labware.com>
Wed, 05 Oct 2022 11:57:26 +0100
branchjv
changeset 19637 28f5bfaa093d
parent 18532 cccb41254edf
permissions -rw-r--r--
`NewSystemBrowser`: avoid updating package info when changed class is not selected This speeds up loading of packages when browser is open as it does not (needlessly) update package info which may involve scm round-trip.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
18532
cccb41254edf Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present
Patrik Svestka <patrik.svestka@gmail.com>
parents: 12431
diff changeset
     1
"{ Encoding: utf8 }"
cccb41254edf Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present
Patrik Svestka <patrik.svestka@gmail.com>
parents: 12431
diff changeset
     2
9998
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
"
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
 COPYRIGHT (c) 2006 by eXept Software AG
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	      All Rights Reserved
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 This software is furnished under a license and may be used
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 only in accordance with the terms of that license and with the
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 inclusion of the above copyright notice.   This software may not
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 be provided or otherwise made available to, or used by, any
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
 other person.  No title to or ownership of the software is
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
 hereby transferred.
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
"
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"{ Package: 'stx:libtool' }"
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
InputFieldSpec subclass:#EditFieldWithCompletionSpec
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	instanceVariableNames:'showOptions'
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	classVariableNames:''
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	poolDictionaries:''
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	category:'Interface-Support-UI-Specs'
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!EditFieldWithCompletionSpec class methodsFor:'documentation'!
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
copyright
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
"
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
 COPYRIGHT (c) 2006 by eXept Software AG
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
	      All Rights Reserved
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
 This software is furnished under a license and may be used
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
 only in accordance with the terms of that license and with the
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
 be provided or otherwise made available to, or used by, any
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
 other person.  No title to or ownership of the software is
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
 hereby transferred.
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
"
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
! !
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
!EditFieldWithCompletionSpec methodsFor:'accessing'!
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
showOptions
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
    ^ showOptions
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
!
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
showOptions:something
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
    showOptions := something.
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
! !
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
!EditFieldWithCompletionSpec methodsFor:'building'!
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
setAttributesIn:aView with:aBuilder
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
    super setAttributesIn:aView with:aBuilder.
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
    aView showOptions: showOptions ? true
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
    "Created: / 09-08-2009 / 09:11:08 / Jan Vrany <vranyj1@fel.cvut.cz>"
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
! !
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
!EditFieldWithCompletionSpec methodsFor:'parsing a view'!
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
fromView:aView callBack:aBlock
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
    showOptions := aView showOptions.
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
    super fromView:aView callBack:aBlock
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
    "Created: / 09-08-2009 / 09:10:17 / Jan Vrany <vranyj1@fel.cvut.cz>"
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
! !
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
!EditFieldWithCompletionSpec class methodsFor:'documentation'!
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
version_CVS
18532
cccb41254edf Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present
Patrik Svestka <patrik.svestka@gmail.com>
parents: 12431
diff changeset
    73
    ^ '§Header: /cvs/stx/stx/libtool/EditFieldWithCompletionSpec.st,v 1.1 2011/07/01 13:30:32 cg Exp §'
9998
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
!
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
12431
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
    76
version_HG
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
    77
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
    78
    ^ '$Changeset: <not expanded> $'
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
    79
!
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
    80
9998
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
version_SVN
12128
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    82
    ^ '$Id: EditFieldWithCompletionSpec.st 7854 2012-01-30 17:49:41Z vranyj1 $'
12431
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
    83
! !
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
    84