@@ 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 @@ Modules newEnvironment: #Investing!
!interfacesOf: Investing!
Modules environment: #Investing ::
- interface: #UTI exporting: #(#Portfolio #PutWarrantPosition ) ::
+ interface: #UTI exporting: #(#Portfolio #PutWarrantPosition) ::
interface: #SPI aliasFor: #API!
@@ 288,6 288,12 @@ is: aTypeSymbol
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."