class PP_BUTTON_OPTION

(source code)

description

Paypal button option

note
	description: "Paypal button option"

	author: "Finnian Reilly"
	copyright: "Copyright (c) 2001-2022 Finnian Reilly"
	contact: "finnian at eiffel hyphen loop dot com"

	license: "MIT license (See: en.wikipedia.org/wiki/MIT_License)"
	date: "2024-02-18 16:26:46 GMT (Sunday 18th February 2024)"
	revision: "8"

class
	PP_BUTTON_OPTION

inherit
	PP_SETTABLE_FROM_UPPER_CAMEL_CASE
		undefine
			new_representations
		end

	EL_CURRENCY_PROPERTY

create
	make, make_default

feature {NONE} -- Initialization

	make (a_name: ZSTRING; a_price_x100: INTEGER; a_currency: NATURAL_8)
		do
			l_option_0_select := a_name; currency_code := a_currency
			l_option_0_price := (a_price_x100 / 100).truncated_to_real
		end

feature -- Paypal

	l_option_0_price: REAL

	l_option_0_select: ZSTRING

feature -- Access

	name: ZSTRING
		do
			Result := l_option_0_select
		end

	price_x100: INTEGER
		do
			Result := (l_option_0_price * 100).rounded
		end

end