--- a/UIPainter.st	Mon Sep 23 14:38:56 2002 +0200
+++ b/UIPainter.st	Tue Sep 24 15:24:39 2002 +0200
@@ -2811,6 +2811,10 @@
     "answers whether I am running in test mode"
 
     ^ self painter enabled
+!
+
+isUIPainter
+    ^ true
 ! !
 
 !UIPainter methodsFor:'selection'!