Skip to content
GitLab
Select Git revision
Find file BlameHistoryPermalink
DataTransfR.st 4.08 KiB
1 
<?xml version="1.0"?>
2
3 
<st-source>
4 
<time-stamp>From VisualWorks® NonCommercial, 7.6 of lundi 3 mars 2008 on mardi 15 octobre 2019 at 6:46:00</time-stamp>
5
6
7 
<class>
8 
<name>DataTransfR</name>
9 
<environment>CormasNS.Kernel</environment>
10 
<super>Core.Object</super>
11 
<private>false</private>
12 
<indexed-type>none</indexed-type>
13 
<inst-vars>myCormas entityType attribute ids values </inst-vars>
14 
<class-inst-vars></class-inst-vars>
15 
<imports></imports>
16 
<category></category>
17 
<attributes>
18 
<package>Cormas</package>
19 
</attributes>
20 
</class>
21
22 
<!-- -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   -->
23
24
25 
<methods>
26 
<class-id>CormasNS.Kernel.DataTransfR class</class-id> <category>instance creation</category>
27
28 
<body package="Cormas" selector="new">new
29 
	"Answer a newly created and initialized instance."
30
31 
	^super new initialize</body>
32
33 
<body package="Cormas" selector="newData:cormas:">newData: classAttIdsValues cormas: aCormasInstance
34 
	"Answer a newly created and initialized instance."
35 
| newBe idsValues data|
36 
	newBe:= self new.
37 
	newBe myCormas: aCormasInstance.
38 
	data := classAttIdsValues asArrayOfSubstringsSeparatedBy: $;.
39 
	newBe entityType: data first.
40 
	newBe attribute: (data at: 2).
41 
	idsValues:= (data at: 3)  asArrayOfSubstringsSeparatedBy: $,.
42 
	idsValues size &gt; 0 ifTrue: [
43 
		newBe ids: (idsValues asOrderedCollection collect: [: string | string  asInteger]).
44 
		newBe values: (	( (data at: 4)  asArrayOfSubstringsSeparatedBy: $,) asOrderedCollection collect: [: string | string asNumber asFloat]).
45 
	].
46 
 ^newBe</body>
47 
</methods>
48
49 
<!-- -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   -->
50
51
52 
<methods>
53 
<class-id>CormasNS.Kernel.DataTransfR</class-id> <category>initialize-release</category>
54
55 
<body package="Cormas" selector="initialize">initialize
56 
	"Initialize a newly created instance. This method must answer the receiver."
57
58 
	" *** Replace this comment with the appropriate initialization code *** "
59 
	^self</body>
60 
</methods>
61
62 
<methods>
63 
<class-id>CormasNS.Kernel.DataTransfR</class-id> <category>accessing</category>
64
65 
<body package="Cormas" selector="attribute">attribute
66 
	^attribute</body>
67
68 
<body package="Cormas" selector="attribute:">attribute: anObject
69 
	attribute := anObject</body>
70