!contents -R2 -g -p -f -h

!|using naked objects viewer for set up|
|on object|alias as|perform|using member|with arguments|
|borisFrederiksonCustomer|borisFrederiksonAccountPaymentMethod|invoke action|new payment method|accountPaymentMethodType|
|borisFrederiksonAccountPaymentMethod||set property|name|Account|
||||limit|1000|
||||balance|0|
|||save||


!|using naked objects viewer for set up|
|on object|alias as|perform|using member|with arguments|
|borisFrederiksonCustomer|borisFrederiksonAmexPaymentMethod|invoke action|new payment method|creditCardPaymentMethodType|
|borisFrederiksonAmexPaymentMethod||set property|name|Amex|
||||card number|4444-1234-8765-3456|
||||expiry date|03/2013|
|||save||

