Sonntag MVC without strings or name

[fukuta]

Do you mean we should not use strings as key things?
Putting all strings into one place as in your example might be a good practice, and as you know Sonntag doesn't restrict that way.

Unfortunately 'define-screen-command' doesn't take string name (but identifier).
Instead, you can write as following to use string:

Code:

{define-class FooScreen {inherits {Screen-of FooGraphic}}
  {constructor {default}
    {self.add-command
        {SimpleCommand
            "my-command", || string name
            execute-proc = {fn => |# do your command #|}
        }
    }
  }
}

This is not proposed way of Sonntag but another way that will work.


As to event bus messages, send-message takes 'any' value (not just only string) so
it is recommended you to use specific object as a message.
String messages in Umemura's example are probably for the sake of simple to describe how to use it.

Code:

|| declare message object
{define-class public ApplicationTerminatingMessage}

|| send message
{screen.send-message {ApplicationTerminatingMessage}}

|| handle message
  {method protected {handle-message
                        sender:#BroadcastEventTarget,
                        message:any
                    }:void
    {type-switch
     case msg:ApplicationTerminatingMessage do
        || handle here
    }
  }

Anyway, Sonntag's screen command stuff has much room for improvement so any suggestions are welcome.