--- a/Depth48Image.st	Sun Mar 02 14:59:54 2014 +0100
+++ b/Depth48Image.st	Sun Mar 02 14:59:57 2014 +0100
@@ -74,6 +74,8 @@
 
     |pixelIndex "{ Class: SmallInteger }"|
 
+    pixelFunction notNil ifTrue:[^ pixelFunction value:x value:y].
+
     pixelIndex := (width * 6 * y) + 1 + (x * 6).
 
     ^ ((bytes wordAt:pixelIndex MSB:true) bitShift:32)
@@ -128,5 +130,6 @@
 !Depth48Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth48Image.st,v 1.1 2009-08-03 09:45:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth48Image.st,v 1.2 2014-03-02 13:59:57 cg Exp $'
 ! !
+