equal
deleted
inserted
replaced
102 ]. |
102 ]. |
103 ^ super basicNew:size. |
103 ^ super basicNew:size. |
104 ! |
104 ! |
105 |
105 |
106 decodeFromLiteralArray:anArray |
106 decodeFromLiteralArray:anArray |
107 ^ self readFrom:(anArray at:2) |
107 anArray size == 2 ifTrue:[ |
108 |
108 "/ UUID 'uuid-string' |
109 " |
109 ^ self readFrom:(anArray at:2). |
110 UUID |
110 ]. |
111 decodeFromLiteralArray:#(UUID '5b023ce0-41f1-11dd-b99f-001558137da0') |
111 "/ UUID bytes... |
|
112 ^ super decodeFromLiteralArray:anArray "/ self readFrom:(anArray at:2) |
|
113 |
|
114 " |
|
115 (UUID decodeFromLiteralArray:#(UUID '5b023ce0-41f1-11dd-b99f-001558137da0')) |
|
116 literalArrayEncoding |
112 " |
117 " |
113 ! |
118 ! |
114 |
119 |
115 fromBytes:aByteArray |
120 fromBytes:aByteArray |
116 "set uuid from aByteArray. |
121 "set uuid from aByteArray. |
608 ! ! |
613 ! ! |
609 |
614 |
610 !UUID class methodsFor:'documentation'! |
615 !UUID class methodsFor:'documentation'! |
611 |
616 |
612 version |
617 version |
613 ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.25 2008-06-24 13:27:41 fm Exp $' |
618 ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.26 2008-06-24 13:32:55 fm Exp $' |
614 ! ! |
619 ! ! |
615 |
620 |
616 UUID initialize! |
621 UUID initialize! |