A tip - Calling overridden base class members.
I've got a 'Vehicle! object deriving from a 'Hull! object like this:
Vehicle!: make Hull! [
; Other members here.
Hull!HTML: :HTML ; Saving the base class function
HTML: Getter [ ; 'Getter is an object getting function with no
parameters.
rejoin [
TR [] [ ; Caution: Bleeding edge %HTML.r "Dialect" follows...
TH [Left] [Name] TH [Right] [Cost]
]
Hull!HTML ; calling the base class function
]
]
]
'Getter is here for those who want it:
Getter: func [
"Defines a object getter function with a given body." [catch]
Body [block!] "The Body block of the object Getter function."
][
throw-on-error [make function! make block! 0 body]
]
'Setter is identical to 'func.
Andrew Martin
What! No bug report? :-)
[EMAIL PROTECTED]
http://members.xoom.com/AndrewMartin/
Online @ 33,600 Baud!
-><-
