Smalltalk, but not quite

A dozen years ago, smalltalk was considered the number one graphical interface language, pretty much defining what is nowadays known as turtle graphics.

Unfortunately, smalltalk has a very old object system, one that is considered ancient today; So I decided to whip out a design for a less verbose object system, one that may be easier to learn.

What do you think?


import System.
import Extra/Qt [QtGui].

class Example uses (QtGui/QWidget) [
    new := [
        super: new.
        self initUI.
    ]

    initUI := [
        self setGeometry: [300, 300, 250, 150].
        self setWindowTitle: "Icon".
        self setWindowIcon: (QtGui/QIcon new: "web.png").
        self show.
    ]
].


define [app, ex]
app := QtGui/QApplication new: System/ARGV.
ex := Example new.
System/Exit: (app: exec).