UUID.st
changeset 3542 b00b42c1378d
parent 3122 9d0a142eee9f
child 3549 ae696bf10bf5
--- a/UUID.st	Fri Apr 24 14:17:37 2015 +0200
+++ b/UUID.st	Fri Apr 24 14:18:00 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libbasic2' }"
 
+"{ NameSpace: Smalltalk }"
+
 ByteArray variableByteSubclass:#UUID
 	instanceVariableNames:''
 	classVariableNames:'CachedMACAddress Lock SequenceNumber LastTime Increment
@@ -198,7 +202,7 @@
     |uuid|
 
     uuid := self fromBytes:aByteArray.
-    self isBigEndian ifFalse:[
+    IsBigEndian ifFalse:[
         self adjustByteOrder:uuid.
     ].
     ^ uuid.
@@ -535,7 +539,7 @@
     |bytes|
 
     bytes := self asBytes.
-    self class isBigEndian ifFalse:[
+    IsBigEndian ifFalse:[
         self class adjustByteOrder:bytes.
     ].
     ^ bytes.
@@ -901,11 +905,11 @@
 !UUID class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.47 2013-10-09 08:01:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.48 2015-04-24 12:18:00 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.47 2013-10-09 08:01:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.48 2015-04-24 12:18:00 stefan Exp $'
 ! !