InterestConverterWithParameters.st
author Claus Gittinger <cg@exept.de>
Thu, 06 Sep 2007 17:31:09 +0200
changeset 1894 8bf137acc445
parent 1614 3beb63c77ddd
child 2898 beaeff8d99df
permissions -rw-r--r--
if no unit is given in the readString, assume seconds.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1032
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 COPYRIGHT (c) 2002 by eXept Software AG
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
              All Rights Reserved
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 hereby transferred.
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
"{ Package: 'stx:libbasic2' }"
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
InterestConverter subclass:#InterestConverterWithParameters
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
	instanceVariableNames:''
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	classVariableNames:''
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	poolDictionaries:''
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	category:'Interface-Support-Models'
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
!
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
!InterestConverterWithParameters class methodsFor:'documentation'!
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
copyright
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
"
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
 COPYRIGHT (c) 2002 by eXept Software AG
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
              All Rights Reserved
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
 This software is furnished under a license and may be used
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
 only in accordance with the terms of that license and with the
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
 inclusion of the above copyright notice.   This software may not
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
 be provided or otherwise made available to, or used by, any
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
 other person.  No title to or ownership of the software is
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
 hereby transferred.
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
"
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
!
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
documentation
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
"
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
    like a normal interestconverter, but passes the change parameter(s).
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
    Especially useful to simulate the dolphin event trigger mechanism.
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
    [author:]
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
        Claus Gittinger
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
"
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
! !
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
!InterestConverterWithParameters methodsFor:'change & update'!
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
update:something with:parameters from:someObject
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
    (aspect isNil or:[aspect == something]) ifTrue:[
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
        destination perform:selector withArguments:parameters
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
    ]
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
! !
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
!InterestConverterWithParameters class methodsFor:'documentation'!
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
version
1614
3beb63c77ddd interest stuff
Claus Gittinger <cg@exept.de>
parents: 1032
diff changeset
    59
    ^ '$Header: /cvs/stx/stx/libbasic2/InterestConverterWithParameters.st,v 1.2 2006-03-15 10:24:50 cg Exp $'
1032
a70571746782 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
! !