#!/opt/local/bin/gst

Object subclass: #Greeter
    instanceVariableNames: 'greeting greeted'
    classVariableNames: ''
    poolDictionaries: ''
    category: ''!

Greeter class extend [
    new [
        |r|
        <category: 'instance creation'>
        r:=super new.
        ^r ]]!

Greeter extend [

    greeting:aGreeting [
       greeting:=aGreeting.
       ^self
    ]

    greeted:aGreeted [
       greeted:=aGreeted.
       ^self
    ]


    greet [
      |  |
      greeting display.
      ', ' display.
      greeted display.
      '!' displayNl.
      ^self
    ]

]!

((Greeter new greeting:'Hello') greeted:'World') greet.

!