Another update from ingydotnet^djgoku
This commit is contained in:
parent
91df62d461
commit
948b86eafa
7604 changed files with 108452 additions and 22726 deletions
14
Task/Inheritance-Multiple/Forth/inheritance-multiple.fth
Normal file
14
Task/Inheritance-Multiple/Forth/inheritance-multiple.fth
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
include FMS-MIBuildGen.f
|
||||
include FMS-MIHarnGen.f
|
||||
include FMS-MI.f
|
||||
|
||||
:class Camera
|
||||
;class
|
||||
|
||||
:class MobilePhone
|
||||
;class
|
||||
|
||||
:class CameraPhone super{ Camera MobilePhone } \ any number of superclasses may be used
|
||||
;class
|
||||
|
||||
CameraPhone cf \ instantiate a CameraPhone object named cf
|
||||
|
|
@ -0,0 +1 @@
|
|||
camera = ()
|
||||
|
|
@ -0,0 +1 @@
|
|||
mobilePhone = ()
|
||||
|
|
@ -0,0 +1 @@
|
|||
cameraPhone = (| cameraParent* = camera. mobilePhoneParent* = mobilePhone |)
|
||||
Loading…
Add table
Add a link
Reference in a new issue