--- 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'!