--- a/Depth24Image.st	Sun Mar 02 14:59:40 2014 +0100
+++ b/Depth24Image.st	Sun Mar 02 14:59:49 2014 +0100
@@ -117,6 +117,8 @@
      gVal  "{ Class: SmallInteger }"
      bVal  "{ Class: SmallInteger }"|
 
+    pixelFunction notNil ifTrue:[^ pixelFunction value:x value:y].
+
     index := 1 + (((width * y) + x) * 3).
     rVal := bytes at:(index).
     gVal := bytes at:(index + 1).
@@ -3112,10 +3114,10 @@
 !Depth24Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.96 2013-05-21 20:50:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.97 2014-03-02 13:59:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.96 2013-05-21 20:50:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.97 2014-03-02 13:59:49 cg Exp $'
 ! !