Tools__NamespaceFilter.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:
10017
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
10041
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
     2
 Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
     3
 Copyright (c) 2009-2010 eXept Software AG
10017
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
10041
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
     5
 Permission is hereby granted, free of charge, to any person
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
     6
 obtaining a copy of this software and associated documentation
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
     7
 files (the 'Software'), to deal in the Software without
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
     8
 restriction, including without limitation the rights to use,
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
     9
 copy, modify, merge, publish, distribute, sublicense, and/or sell
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    10
 copies of the Software, and to permit persons to whom the
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    11
 Software is furnished to do so, subject to the following
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    12
 conditions:
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    13
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    14
 The above copyright notice and this permission notice shall be
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    15
 included in all copies or substantial portions of the Software.
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    16
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    17
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    18
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    19
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    20
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    21
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    22
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    23
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    24
 OTHER DEALINGS IN THE SOFTWARE.
10017
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
"
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
"{ Package: 'stx:libtool' }"
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
"{ NameSpace: Tools }"
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
NamespaceList subclass:#NamespaceFilter
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
	instanceVariableNames:'selectedNamespacesHolder'
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
	classVariableNames:''
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
	poolDictionaries:''
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
	category:'Interface-Browsers-New'
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
!
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
!NamespaceFilter class methodsFor:'documentation'!
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
copyright
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
"
10041
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    41
 Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    42
 Copyright (c) 2009-2010 eXept Software AG
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    43
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    44
 Permission is hereby granted, free of charge, to any person
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    45
 obtaining a copy of this software and associated documentation
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    46
 files (the 'Software'), to deal in the Software without
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    47
 restriction, including without limitation the rights to use,
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    48
 copy, modify, merge, publish, distribute, sublicense, and/or sell
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    49
 copies of the Software, and to permit persons to whom the
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    50
 Software is furnished to do so, subject to the following
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    51
 conditions:
10017
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
10041
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    53
 The above copyright notice and this permission notice shall be
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    54
 included in all copies or substantial portions of the Software.
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    55
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    56
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    57
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    58
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    59
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    60
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    61
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    62
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
0d9927f414d1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 10017
diff changeset
    63
 OTHER DEALINGS IN THE SOFTWARE.
10017
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
"
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
! !
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
!NamespaceFilter methodsFor:'aspects'!
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
selectedNamespaces
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
    "return/create the 'selectedNamespacesHolder' value holder (automatically generated)"
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
    selectedNamespacesHolder isNil ifTrue:[
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
        selectedNamespacesHolder := ValueHolder new.
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
        selectedNamespacesHolder addDependent:self.
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
    ].
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
    ^ selectedNamespacesHolder
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
    "Created: / 04-05-2011 / 20:17:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
! !
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
!NamespaceFilter methodsFor:'change & update'!
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
update:something with:aParameter from:changedObject
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
    changedObject == selectedNamespacesHolder ifTrue:
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
        [
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
        self selectionHolder value:
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
            ((selectedNamespacesHolder value ? #()) collect:[:e|e string]).
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
        ^self
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
        ].
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
    ^super update:something with:aParameter from:changedObject
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
    "Created: / 04-05-2011 / 20:14:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
! !
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
!NamespaceFilter methodsFor:'private'!
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
listEntryFor: namespaceName
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
    ^LabelAndIcon label: namespaceName icon: self class uncheckedIcon
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
    "Created: / 04-05-2011 / 20:01:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
! !
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
!NamespaceFilter class methodsFor:'documentation'!
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
version_CVS
12123
4bde08cebd48 trunk branched into /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10041
diff changeset
   108
    ^ '§Header: /cvs/stx/stx/libtool/Tools__NamespaceFilter.st,v 1.2 2011/07/03 13:37:47 cg Exp §'
10017
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
!
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
12431
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   111
version_HG
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   112
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   113
    ^ '$Changeset: <not expanded> $'
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   114
!
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   115
10017
1d115539c9d7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
version_SVN
12170
6c9c4b7981ee branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
   117
    ^ '$Id: Tools__NamespaceFilter.st 7911 2012-02-22 09:55:48Z vranyj1 $'
6c9c4b7981ee branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
   118
! !
6c9c4b7981ee branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
   119