Adds VISA-specific validation to WAStoreCreditCard.
ProtoObjectObjectWAStoreCreditCardWAStoreVisaCard
| instance | class |
|---|---|
| as yet unclassified | as yet unclassified |
| as yet unclassified |
|---|
| validate |
super validate. number first = $4 ifFalse: [self error: 'Visa card numbers must start with "4"']. |
| as yet unclassified |
|---|
| abbreviation |
^ 'VISA' |