ActiveHelp.st
changeset 3507 039fedc083d3
parent 3447 5ca2fac37ecd
child 3664 dcd522133e4f
child 3685 f0724224515c
--- a/ActiveHelp.st	Fri Oct 02 04:03:29 2015 +0000
+++ b/ActiveHelp.st	Tue Oct 06 13:05:07 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -435,7 +437,8 @@
 
 processEvent:ev
     Debugging ifTrue:[
-        'event: ' infoPrint. ev infoPrintCR.
+        'event: ' infoPrint. ev class nameWithoutPrefix infoPrint.
+        ' view:' infoPrint. ev view infoPrintCR.
     ].
     (ev isPointerEnterLeaveEvent
     or:[ ev isButtonEvent
@@ -817,7 +820,7 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.83 2015-02-24 15:58:51 cg Exp $'
+    ^ '$Header$'
 ! !