24 lines
322 B
Smalltalk
24 lines
322 B
Smalltalk
![]() |
GRNotification subclass: GRNotificationStub [
|
||
|
| foo |
|
||
|
|
||
|
<comment: nil>
|
||
|
<category: 'Grease-Tests-Core'>
|
||
|
|
||
|
defaultAction [
|
||
|
<category: 'accessing'>
|
||
|
^#returnValue
|
||
|
]
|
||
|
|
||
|
foo [
|
||
|
<category: 'accessing'>
|
||
|
^foo
|
||
|
]
|
||
|
|
||
|
initialize [
|
||
|
<category: 'initialization'>
|
||
|
super initialize.
|
||
|
foo := true
|
||
|
]
|
||
|
]
|
||
|
|