Inheritance/Multiple: Difference between revisions

Content added Content deleted

Inline

@@ Line 834: / Line 834: @@
 mobilephone = {}
 cameraphone = setemetatables({},{camera,mobilephone})</lang>
+=={{header|M2000 Interpreter}}==
+<lang M2000 Interpreter>
+Module CheckIt {
+      Class Camera {
+            IamCamera
+      }
+      Class MobilePhone {
+            IamMobilePhone
+      }
+      Class CameraPhone {
+            Module CameraPhone {
+            \\ we can use : This=Camera() : This=MobilePhone()
+            \\ but we have to use Final for Functions/Modules in This
+            \\ So using M, a new local variable, we can accumulate Inheritance
+                  M=Camera()
+                  M=MobilePhone()
+                  M=This
+                  This=M
+            }
+      }
+      CP1=CameraPhone()
+      Print Valid(CP1.IamCamera)=True, Valid(CP1.IamMobilePhone)=true
+}
+CheckIt
+</lang>
 =={{header|Nemerle}}==