propertySetGetID :: DISPID -> [VarIn] -> ArgOut a -> IDispatch d -> IO a
propertySetGetID dispid argsin (varin,argres) obj
      = do p <- obj # invokePropertySet dispid argsin [varin]
           unmarshallVariants1 argres p

{-
Methods and functions are defined using @method@/@funtion@. The digit
appended to the name gives the number of results.
For example: @confirm msg  = function1 "Confirm" [inString msg] outBool@.
-}
propertySetGetID :: DISPID -> [VarIn] -> ArgOut a -> IDispatch d -> IO a
propertySetGetID dispid argsin (varin,argres) obj
      = do p <- obj # invokePropertySet dispid argsin [varin]
           unmarshallVariants1 argres p

{-
Methods and functions are defined using @method@/@funtion@. The digit
appended to the name gives the number of results.
For example: @confirm msg  = function1 "Confirm" [inString msg] outBool@.
-}
propertySetGetID dispid argsin (varin,argres) obj
      = do p <- obj # invokePropertySet dispid argsin [varin]
           unmarshallVariants1 argres p

{-
Methods and functions are defined using @method@/@funtion@. The digit
appended to the name gives the number of results.
For example: @confirm msg  = function1 "Confirm" [inString msg] outBool@.
-}