experiments/SampleHandler.st
author vranyj1
Mon, 03 Dec 2012 19:28:28 +0000
branchdevelopment
changeset 1856 f2e8307a717f
parent 1818 2e5ed72e7dfd
child 1880 27b932afa4a7
permissions -rw-r--r--
Fix for JavaLookupTests>>testTypeOverloading
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1206
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
     1
"
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
     2
 Copyright (c) 2010-2011 Jan Vrany, Jan Kurs & Marcel Hlopko,
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
     3
                         SWING Research Group, Czech Technical University 
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
     4
                         in Prague
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
     5
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
     6
 Permission is hereby granted, free of charge, to any person
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
     7
 obtaining a copy of this software and associated documentation
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
     8
 files (the 'Software'), to deal in the Software without
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
     9
 restriction, including without limitation the rights to use,
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    10
 copy, modify, merge, publish, distribute, sublicense, and/or sell
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    11
 copies of the Software, and to permit persons to whom the
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    12
 Software is furnished to do so, subject to the following
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    13
 conditions:
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    14
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    15
 The above copyright notice and this permission notice shall be
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    16
 included in all copies or substantial portions of the Software.
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    17
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    18
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    19
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    20
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    21
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    22
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    23
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    24
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    25
 OTHER DEALINGS IN THE SOFTWARE.
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    26
"
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    27
"{ Package: 'stx:libjava/experiments' }"
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    28
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    29
Object subclass:#SampleHandler
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    30
	instanceVariableNames:'events'
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    31
	classVariableNames:''
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    32
	poolDictionaries:''
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    33
	category:'Languages-Java-Experiments-Tests'
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    34
!
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    35
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    36
!SampleHandler class methodsFor:'documentation'!
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    37
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    38
copyright
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    39
"
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    40
 Copyright (c) 2010-2011 Jan Vrany, Jan Kurs & Marcel Hlopko,
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    41
                         SWING Research Group, Czech Technical University 
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    42
                         in Prague
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    43
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    44
 Permission is hereby granted, free of charge, to any person
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    45
 obtaining a copy of this software and associated documentation
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    46
 files (the 'Software'), to deal in the Software without
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    47
 restriction, including without limitation the rights to use,
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    48
 copy, modify, merge, publish, distribute, sublicense, and/or sell
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    49
 copies of the Software, and to permit persons to whom the
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    50
 Software is furnished to do so, subject to the following
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    51
 conditions:
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    52
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    53
 The above copyright notice and this permission notice shall be
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    54
 included in all copies or substantial portions of the Software.
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    55
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    56
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    57
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    58
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    59
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    60
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    61
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    62
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    63
 OTHER DEALINGS IN THE SOFTWARE.
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    64
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    65
"
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    66
! !
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    67
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    68
!SampleHandler class methodsFor:'instance creation'!
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    69
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    70
new
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    71
    ^ self basicNew initialize
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    72
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    73
    "Created: / 29-08-2011 / 22:51:35 / Jan Kurs <kursjan@fit.cvut.cz>"
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    74
! !
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    75
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    76
!SampleHandler methodsFor:'* As yet uncategorized *'!
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    77
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    78
addArgumentOfType: type
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    79
    events add: (Array with: #addArgumentOfType with: type).
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    80
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    81
    "Created: / 29-08-2011 / 22:56:11 / Jan Kurs <kursjan@fit.cvut.cz>"
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    82
! !
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    83
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    84
!SampleHandler methodsFor:'accessing'!
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    85
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    86
events
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    87
    ^ events
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    88
! !
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    89
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    90
!SampleHandler methodsFor:'handling'!
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    91
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    92
name:aString
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    93
    events add: (Array with: #name with: aString).
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    94
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    95
    "Created: / 29-08-2011 / 22:46:38 / Jan Kurs <kursjan@fit.cvut.cz>"
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    96
!
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    97
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    98
returnType:aString
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
    99
    events add: (Array with: #returnType with: aString).
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
   100
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
   101
    "Created: / 29-08-2011 / 22:52:04 / Jan Kurs <kursjan@fit.cvut.cz>"
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
   102
! !
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
   103
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
   104
!SampleHandler methodsFor:'initialization'!
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
   105
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
   106
initialize
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
   107
    events := OrderedCollection new.
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
   108
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
   109
    "Created: / 29-08-2011 / 22:42:08 / Jan Kurs <kursjan@fit.cvut.cz>"
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
   110
! !
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
   111
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
   112
!SampleHandler class methodsFor:'documentation'!
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
   113
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
   114
version_SVN
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
   115
    ^ '$Id$'
227911d49c24 interop-related classes moved to experiments - still experimental code
vranyj1
parents:
diff changeset
   116
! !