--- a/HalfFloatArray.st	Mon Aug 22 11:27:22 2016 +0200
+++ b/HalfFloatArray.st	Wed Aug 24 17:06:12 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2014 by Claus Gittinger
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libbasic2' }"
 
+"{ NameSpace: Smalltalk }"
+
 AbstractNumberVector variableWordSubclass:#HalfFloatArray
 	instanceVariableNames:''
 	classVariableNames:''
@@ -243,6 +247,12 @@
     ^ ShortFloat zero
 !
 
+isValidElement:anObject
+    "return true, if I can hold this kind of object"
+
+    ^ anObject isNumber
+!
+
 numFloats
     ^ self size
 ! !
@@ -250,10 +260,10 @@
 !HalfFloatArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/HalfFloatArray.st,v 1.7 2014-09-23 20:15:34 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/HalfFloatArray.st,v 1.7 2014-09-23 20:15:34 cg Exp $'
+    ^ '$Header$'
 ! !