diff options
Diffstat (limited to 'bank-eiffel/account.e')
| -rw-r--r-- | bank-eiffel/account.e | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/bank-eiffel/account.e b/bank-eiffel/account.e index d0a3fc4..1fc62fb 100644 --- a/bank-eiffel/account.e +++ b/bank-eiffel/account.e | |||
| @@ -1,9 +1,3 @@ | |||
| 1 | note | ||
| 2 | description: "Summary description for {ACCOUNT}." | ||
| 3 | author: "" | ||
| 4 | date: "$Date$" | ||
| 5 | revision: "$Revision$" | ||
| 6 | |||
| 7 | class | 1 | class |
| 8 | ACCOUNT | 2 | ACCOUNT |
| 9 | 3 | ||
| @@ -57,14 +51,15 @@ feature {NONE} -- Initialization | |||
| 57 | do | 51 | do |
| 58 | create authorized_signers.make(1) | 52 | create authorized_signers.make(1) |
| 59 | add_authorized_signer (an_authorized_signer) | 53 | add_authorized_signer (an_authorized_signer) |
| 60 | transfer_minamount := 2.0 | ||
| 61 | balance := 0.0 | ||
| 62 | creditline := a_credit_line | 54 | creditline := a_credit_line |
| 63 | interest_debit := an_interest_debit | 55 | interest_debit := an_interest_debit |
| 64 | interest_deposit := an_interest_deposit | 56 | interest_deposit := an_interest_deposit |
| 65 | interest_deposit_range := an_interest_deposit_range | 57 | interest_deposit_range := an_interest_deposit_range |
| 66 | interest_debit_range := an_interest_debit_range | 58 | interest_debit_range := an_interest_debit_range |
| 67 | creditline_range := a_credit_line_range | 59 | creditline_range := a_credit_line_range |
| 60 | |||
| 61 | set_default_transfer_minamount | ||
| 62 | balance := 0.0 | ||
| 68 | end | 63 | end |
| 69 | 64 | ||
| 70 | feature -- Basic operations | 65 | feature -- Basic operations |
| @@ -146,6 +141,11 @@ feature {NONE} -- Implementation | |||
| 146 | transfer_minamount_assigned: transfer_minamount = a_transfer_minamount | 141 | transfer_minamount_assigned: transfer_minamount = a_transfer_minamount |
| 147 | end | 142 | end |
| 148 | 143 | ||
| 144 | set_default_transfer_minamount | ||
| 145 | do | ||
| 146 | set_transfer_minamount (2.0) | ||
| 147 | end | ||
| 148 | |||
| 149 | set_creditline (a_creditline: like creditline) | 149 | set_creditline (a_creditline: like creditline) |
| 150 | require | 150 | require |
| 151 | a_creditline_within_bounds: a_creditline >= creditline_range.min | 151 | a_creditline_within_bounds: a_creditline >= creditline_range.min |
