ＭＶＣ (Model-View-Controller)

導入
準備
問題

1. 導入

MVC を利用して、次のようなツールを作成してみましょう。

MVC による表示
MVC による時計 (アナログ時計とデジタル時計)
MVC による手描き

2. 準備

サンプルプログラムのソースをファイルインします。

| aPoint |
aPoint := -100 @ -50.
((OrderedCollection new)
    add: 'Exercise-Display.st' -> #('Foo-Display' #{FooDisplayModel});
    add: 'Exercise-Clock.st' -> #('Foo-Clock' #{FooClockModel});
    add: 'Exercise-Freehand.st' -> #('Foo-Freehand' #{FooFreehandModel});
    yourself) do: 
            [:each |
            | aString aURL aFilename aBrowser aWindow aRectangle aPackage aNavigator aClass aProtocol aSelector |
            aString := 'http://www.cc.kyoto-su.ac.jp/~atsushi/Programs/VisualWorks/Exercises/Exercise_MVC/' , each key.
            aURL := JunURL named: aString.
            aURL exists ifFalse: [^nil].
            aFilename := Filename defaultDirectory construct: aURL asURI tail.
            aURL downloadTo: aFilename.
            aFilename exists ifFalse: [^nil].
            aFilename fileIn.
            aBrowser := #{Refactory.Browser.RefactoringBrowser} value open.
            aWindow := aBrowser builder ifNil: [^nil] ifNotNil: [:aBuilder | aBuilder window].
            aRectangle := JunGeometry alignedBoxWithScreenCenter: 800 @ 600.
            aWindow displayBox: (aRectangle translatedBy: aPoint).
            aPackage := Store.Registry packageNamed: each value first.
            aPackage ifNil: [^nil].
            aNavigator := aBrowser navigator.
            aClass := each value last value class.
            aProtocol := #examples.
            aSelector := #example1.
            (aNavigator state)
                pundles: (Array with: aPackage);
                classesAndNameSpaces: (Array with: aClass);
                protocols: (Array with: aProtocol);
                selectors: (Array with: aSelector).
            aNavigator
                setState: aNavigator state;
                changed.
            aPoint := aPoint translatedBy: 100 @ 50]