EditFieldWithCompletionSpec.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 14 Jun 2018 22:19:39 +0100
branchjv
changeset 18227 d25a407ba86d
parent 12431 9f0c59c742d5
child 18532 cccb41254edf
permissions -rw-r--r--
Mini testrunner: show "green" if there's at least one pass and rest is pass or skip This is more meaningfull result then showing "gray" if there's at least one skip.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9998
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 COPYRIGHT (c) 2006 by eXept Software AG
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
	      All Rights Reserved
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 hereby transferred.
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libtool' }"
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
InputFieldSpec subclass:#EditFieldWithCompletionSpec
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
	instanceVariableNames:'showOptions'
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
	classVariableNames:''
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	poolDictionaries:''
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	category:'Interface-Support-UI-Specs'
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
!
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!EditFieldWithCompletionSpec class methodsFor:'documentation'!
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
copyright
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 (c) 2006 by eXept Software AG
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
	      All Rights Reserved
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
 This software is furnished under a license and may be used
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
 only in accordance with the terms of that license and with the
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
 inclusion of the above copyright notice.   This software may not
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
 be provided or otherwise made available to, or used by, any
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
 other person.  No title to or ownership of the software is
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
 hereby transferred.
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
"
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
! !
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
!EditFieldWithCompletionSpec methodsFor:'accessing'!
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
showOptions
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
    ^ showOptions
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
!
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
showOptions:something
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
    showOptions := something.
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
! !
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
!EditFieldWithCompletionSpec methodsFor:'building'!
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
setAttributesIn:aView with:aBuilder
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
    super setAttributesIn:aView with:aBuilder.
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
    aView showOptions: showOptions ? true
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
    "Created: / 09-08-2009 / 09:11:08 / Jan Vrany <vranyj1@fel.cvut.cz>"
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
! !
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
!EditFieldWithCompletionSpec methodsFor:'parsing a view'!
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
fromView:aView callBack:aBlock
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
    showOptions := aView showOptions.
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
    super fromView:aView callBack:aBlock
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
    "Created: / 09-08-2009 / 09:10:17 / Jan Vrany <vranyj1@fel.cvut.cz>"
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
! !
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
!EditFieldWithCompletionSpec class methodsFor:'documentation'!
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
version_CVS
12123
4bde08cebd48 trunk branched into /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9998
diff changeset
    71
    ^ '§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
    72
!
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
12431
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
    74
version_HG
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
    75
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
    76
    ^ '$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
    77
!
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
    78
9998
dc88261b0fc2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
version_SVN
12128
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    80
    ^ '$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
    81
! !
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
    82