Tools__Browslet.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 14 Jun 2018 22:19:39 +0100
branchjv
changeset 18227 d25a407ba86d
parent 16213 f667b5b42a11
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:
9963
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
10044
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
     2
 Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
     3
 Copyright (c) 2009-2010 eXept Software AG
9963
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
10044
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
     5
 Permission is hereby granted, free of charge, to any person
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
     6
 obtaining a copy of this software and associated documentation
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
     7
 files (the 'Software'), to deal in the Software without
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
     8
 restriction, including without limitation the rights to use,
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
     9
 copy, modify, merge, publish, distribute, sublicense, and/or sell
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    10
 copies of the Software, and to permit persons to whom the
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    11
 Software is furnished to do so, subject to the following
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    12
 conditions:
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    13
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    14
 The above copyright notice and this permission notice shall be
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    15
 included in all copies or substantial portions of the Software.
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    16
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    17
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    18
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    19
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    20
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    21
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    22
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    23
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    24
 OTHER DEALINGS IN THE SOFTWARE.
9963
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
"
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
"{ Package: 'stx:libtool' }"
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
"{ NameSpace: Tools }"
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
ApplicationModel subclass:#Browslet
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
	instanceVariableNames:''
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
	classVariableNames:''
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
	poolDictionaries:''
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
	category:'Interface-Browsers-Browslets'
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
!
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
!Browslet class methodsFor:'documentation'!
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
copyright
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
"
10044
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    41
 Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    42
 Copyright (c) 2009-2010 eXept Software AG
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    43
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    44
 Permission is hereby granted, free of charge, to any person
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    45
 obtaining a copy of this software and associated documentation
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    46
 files (the 'Software'), to deal in the Software without
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    47
 restriction, including without limitation the rights to use,
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    48
 copy, modify, merge, publish, distribute, sublicense, and/or sell
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    49
 copies of the Software, and to permit persons to whom the
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    50
 Software is furnished to do so, subject to the following
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    51
 conditions:
9963
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
10044
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    53
 The above copyright notice and this permission notice shall be
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    54
 included in all copies or substantial portions of the Software.
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    55
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    56
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    57
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    58
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    59
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    60
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    61
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    62
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
9767e0453314 copyright
Claus Gittinger <cg@exept.de>
parents: 9963
diff changeset
    63
 OTHER DEALINGS IN THE SOFTWARE.
9963
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
"
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
! !
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
!Browslet class methodsFor:'accessing'!
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
all
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
    ^self allSubclasses reject:[:cls|cls isAbstract]
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
    "
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
        Browslet all
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
    "
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
    "Created: / 04-10-2010 / 22:58:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
!
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
description
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
    "Returns a description of given browslet"
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
    self subclassResponsibility
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
    "Created: / 04-10-2010 / 21:05:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
!
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
label
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
    "Answers a human readable label of an browslet such as
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
     'Test runner' or 'Senders'"
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
    self subclassResponsibility
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
    "Created: / 04-10-2010 / 21:03:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
! !
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
!Browslet class methodsFor:'interface specs'!
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
windowSpec
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
    "This resource specification was automatically generated
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
     by the UIPainter of ST/X."
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
    "Do not manually edit this!! If it is corrupted,
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
     the UIPainter may not be able to read the specification."
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
    "
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
     UIPainter new openOnClass:Browslet andSelector:#windowSpec
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
     Browslet new openInterface:#windowSpec
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
     Browslet open
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
    "
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
    <resource: #canvas>
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
    ^ 
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
     #(FullSpec
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
        name: windowSpec
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
        window: 
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
       (WindowSpec
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
          label: 'Browslet'
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
          name: 'Browslet'
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
          min: (Point 10 10)
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
          bounds: (Rectangle 0 0 300 300)
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
        )
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
        component: 
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
       (SpecCollection
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
          collection: (
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
           (LabelSpec
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
              label: 'No content specified...'
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
              name: 'Label'
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
              layout: (LayoutFrame 0 0 -25 0.5 0 1 0 0.5)
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
              translateLabel: true
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
            )
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
           )
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
         
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
        )
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
      )
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
! !
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
16193
6ea11aebcf84 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 10044
diff changeset
   141
!Browslet class methodsFor:'queries'!
9963
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
isAbstract
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
    ^self == Browslet
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   146
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
    "Created: / 04-10-2010 / 22:22:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   148
! !
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   149
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
!Browslet class methodsFor:'documentation'!
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   151
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
version_CVS
16213
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12431 16193
diff changeset
   153
    ^ 'Header: /cvs/stx/stx/libtool/Tools__Browslet.st,v 1.2 2011/07/03 13:40:42 cg Exp '
9963
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
!
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
12431
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
   156
version_HG
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
   157
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
   158
    ^ '$Changeset: <not expanded> $'
9963
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
!
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   160
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
version_SVN
12128
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   162
    ^ '$Id: Tools__Browslet.st 7854 2012-01-30 17:49:41Z vranyj1 $'
9963
c28bc21f4bbe initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
! !
16193
6ea11aebcf84 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 10044
diff changeset
   164