method1 :: Member
        -> [VarIn]
        -> ArgOut a1
        -> IDispatch i
        -> IO a1
method1 member args argout obj = do
   dispid <- obj # getMemberID member
   catchMethError member (methodID1 dispid args argout obj)
method1 :: Member
        -> [VarIn]
        -> ArgOut a1
        -> IDispatch i
        -> IO a1
method1 member args argout obj = do
   dispid <- obj # getMemberID member
   catchMethError member (methodID1 dispid args argout obj)
method1 member args argout obj = do
   dispid <- obj # getMemberID member
   catchMethError member (methodID1 dispid args argout obj)