note description: "Summary description for {STRIPE_PAYMENT_ONETIME_ITEM}." author: "" date: "$Date$" revision: "$Revision$" class STRIPE_PAYMENT_ONETIME_ITEM inherit STRIPE_PAYMENT_ITEM create make feature {NONE} -- Initialization make (a_identifier: READABLE_STRING_GENERAL; a_price_in_cents: NATURAL_32; a_currency: READABLE_STRING_8) do create identifier.make_from_string_general (a_identifier) set_price (a_price_in_cents, a_currency) quantity := 1 end feature -- Access price_in_cents: NATURAL_32 identifier: IMMUTABLE_STRING_32 currency: IMMUTABLE_STRING_8 title: detachable IMMUTABLE_STRING_32 feature -- Element change set_price (a_price_in_cents: NATURAL_32; a_currency: READABLE_STRING_8) do price_in_cents := a_price_in_cents create currency.make_from_string (a_currency) end set_title (a_title: READABLE_STRING_GENERAL) do create title.make_from_string_general (a_title) end end