UUID.st
changeset 2069 e84a7576e3ee
parent 2021 21f1faba832a
child 2132 c580316610e1
equal deleted inserted replaced
2068:486ce2d49df0 2069:e84a7576e3ee
   614     ].
   614     ].
   615 
   615 
   616     aStream nextPutAll:(tmpStream contents asLowercase).
   616     aStream nextPutAll:(tmpStream contents asLowercase).
   617 
   617 
   618     "Modified: / 10-10-2007 / 23:19:03 / cg"
   618     "Modified: / 10-10-2007 / 23:19:03 / cg"
       
   619 !
       
   620 
       
   621 storeOn:aStream
       
   622     aStream 
       
   623         nextPutAll:'('; 
       
   624         nextPutAll:self class name; 
       
   625         nextPutAll:' fromString:''';
       
   626         nextPutAll:self printString;
       
   627         nextPutAll:''')'.
       
   628 
       
   629     "
       
   630      Object readFrom:(UUID genUUID storeString) 
       
   631     "
   619 ! !
   632 ! !
   620 
   633 
   621 !UUID class methodsFor:'documentation'!
   634 !UUID class methodsFor:'documentation'!
   622 
   635 
   623 version
   636 version
   624     ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.27 2008-07-09 12:51:55 fm Exp $'
   637     ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.28 2008-12-08 12:13:05 sr Exp $'
   625 ! !
   638 ! !
   626 
   639 
   627 UUID initialize!
   640 UUID initialize!