8 lines
137 B
Text
8 lines
137 B
Text
|
(class +Singleton)
|
||
|
|
|
||
|
|
(dm message1> ()
|
||
|
|
(prinl "This is method 1 on " This) )
|
||
|
|
|
||
|
|
(dm message2> ()
|
||
|
|
(prinl "This is method 2 on " This) )
|