Paste: new cocoa subclassing syntax

Author: slava
Mode: factor
Date: Tue, 6 Jul 2010 22:21:01
Plain Text |
CLASS: FactorWorkspaceApplicationDelegate < FactorApplicationDelegate
[
    METHOD: void application: id app openFiles: id files [ files finder-run-files ]

    METHOD: int applicationShouldHandleReopen: id app hasVisibleWindows: int flag [ flag 0 = [ show-listener ] when 1 ]

    METHOD: id factorListener: id app [ show-listener f ]

    METHOD: id factorBrowser: id app [ show-browser f ]

    METHOD: id newFactorListener: id app [ listener-window f ]

    METHOD: id newFactorBrowser: id app [ browser-window f ]

    METHOD: id runFactorFile: id app [ menu-run-files f ]

    METHOD: id saveFactorImage: id app [ save f ]

    METHOD: id saveFactorImageAs: id app [ menu-save-image f ]

    METHOD: id refreshAll: id app [ [ refresh-all ] \ refresh-all call-listener f ]
]

Annotation: old syntax

Author: slava
Mode: factor
Date: Tue, 6 Jul 2010 22:21:57
Plain Text |
CLASS: {
    { +superclass+ "FactorApplicationDelegate" }
    { +name+ "FactorWorkspaceApplicationDelegate" }
}

{ "application:openFiles:" void { id SEL id id }
    [ [ 3drop ] dip finder-run-files ]
}

{ "applicationShouldHandleReopen:hasVisibleWindows:" int { id SEL id int }
    [ [ 3drop ] dip 0 = [ show-listener ] when 1 ]
}

{ "factorListener:" id { id SEL id }
    [ 3drop show-listener f ]
}

{ "factorBrowser:" id { id SEL id }
    [ 3drop show-browser f ]
}

{ "newFactorListener:" id { id SEL id }
    [ 3drop listener-window f ]
}

{ "newFactorBrowser:" id { id SEL id }
    [ 3drop browser-window f ]
}

{ "runFactorFile:" id { id SEL id }
    [ 3drop menu-run-files f ]
}

{ "saveFactorImage:" id { id SEL id }
    [ 3drop save f ]
}

{ "saveFactorImageAs:" id { id SEL id }
    [ 3drop menu-save-image f ]
}

{ "refreshAll:" id { id SEL id }
    [ 3drop [ refresh-all ] \ refresh-all call-listener f ]
} ;

New Annotation

Summary:
Author:
Mode:
Body: