note description: "Summary description for {COMMON_SETUP}." author: "" date: "$Date$" revision: "$Revision$" class COMMON_SETUP2 inherit ANY redefine default_create end create default_create feature -- Constructor default_create -- Process instances of classes with no creation clause. -- (Default: do nothing.) do common_setup end feature -- Attributes p1: PATIENT p2: PATIENT p3: PATIENT p4: PATIENT system: HEALTH_SYSTEM m1: MEDICATION m2: MEDICATION m3: MEDICATION m4: MEDICATION common_setup do create p1.make ("p1") create p2.make ("p2") create p3.make ("p3") create p4.make ("p4") create system.make create m1.make ("m1") create m2.make ("m2") create m3.make ("m3") create m4.make ("m4") end end -- class COMMON_SETUP2
Generated by ISE EiffelStudio