# HG changeset patch # User Gerald Klix (speedy) # Date 1719404560 -7200 # Wed Jun 26 14:22:40 2024 +0200 # Branch Cuis7.0based # Node ID e17867f16ca6f7c98576622bc4989addfc458cdc # Parent a37d95c818129fb03a205809349614150a848c5b SUM: Added a missing method implementation. diff --git a/klg-packages/Investing.pck.st b/klg-packages/Investing.pck.st --- a/klg-packages/Investing.pck.st +++ b/klg-packages/Investing.pck.st @@ -1,6 +1,6 @@ -'From Cuis6.0 [latest update: #6122] on 16 December 2023 at 3:54:29 pm'! +'From Haver7.0 [latest update: #6454] on 26 June 2024 at 2:00:46 pm'! 'Description In contain a simple application to manage exchanged based investment.'! -!provides: 'Investing' 1 4! +!provides: 'Investing' 1 5! !requires: 'OfficeRoots' 1 27 nil! SystemOrganization addCategory: #Investing! @@ -11,7 +11,7 @@ !interfacesOf: Investing! Modules environment: #Investing :: - interface: #UTI exporting: #(#Portfolio #PutWarrantPosition ) :: + interface: #UTI exporting: #(#Portfolio #PutWarrantPosition) :: interface: #SPI aliasFor: #API! @@ -288,6 +288,12 @@ aTypeSymbol = #AbstractInvestmentItem ] :: or: [ super is: aTypeSymbol ]! ! +!(Modules>>#Investing>>#AbstractInvestmentItem) class methodsFor: 'printing' stamp: 'KLG 6/26/2024 13:56:42'! +printName + "Answer my print name." + + ^ self name asString! ! + !(Modules>>#Investing>>#AbstractTransaction) methodsFor: 'persistence' stamp: 'KLG 12/14/2023 14:11:57'! recordDescriptionForPlanF: aStore "Answer a record description for my instances."