propertyGet4 :: Member -> [VarIn] -> ArgOut a1 -> ArgOut a2 -> ArgOut a3 -> ArgOut a4 -> IDispatch d -> IO (a1,a2,a3,a4)
propertyGet4 member argsin argout1 argout2 argout3 argout4 obj
      = do dispid <- obj # getMemberID member
           propertyGet4ID dispid argsin argout1 argout2 argout3 argout4 obj
propertyGet4 :: Member -> [VarIn] -> ArgOut a1 -> ArgOut a2 -> ArgOut a3 -> ArgOut a4 -> IDispatch d -> IO (a1,a2,a3,a4)
propertyGet4 member argsin argout1 argout2 argout3 argout4 obj
      = do dispid <- obj # getMemberID member
           propertyGet4ID dispid argsin argout1 argout2 argout3 argout4 obj
propertyGet4 member argsin argout1 argout2 argout3 argout4 obj
      = do dispid <- obj # getMemberID member
           propertyGet4ID dispid argsin argout1 argout2 argout3 argout4 obj