print -> infoPrint
authorClaus Gittinger <cg@exept.de>
Tue, 02 Mar 2004 00:06:27 +0100
changeset 1939 f72ff9a773e5
parent 1938 b5a898007301
child 1940 355fcfec99c8
print -> infoPrint
DragAndDropManager.st
EventListener.st
--- a/DragAndDropManager.st	Sun Feb 29 15:51:33 2004 +0100
+++ b/DragAndDropManager.st	Tue Mar 02 00:06:27 2004 +0100
@@ -1397,7 +1397,7 @@
         "/ self error:'oops - two dnd managers active' mayProceed:true.
 
         lastActive forceGiveUp.
-        'oops - two dnd managers active' printCR.
+        'DragAndDropManager [info]: oops - two dnd managers active' infoPrintCR.
     ].
     ActiveDragAndDropManagers at:device put:self.
 
@@ -1494,7 +1494,7 @@
 !DragAndDropManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.55 2003-10-31 06:57:05 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.56 2004-03-01 23:05:50 cg Exp $'
 ! !
 
 DragAndDropManager initialize!
--- a/EventListener.st	Sun Feb 29 15:51:33 2004 +0100
+++ b/EventListener.st	Tue Mar 02 00:06:27 2004 +0100
@@ -186,7 +186,7 @@
      Here, the event is dispatched into one of the button*/key* etc. methods"
 
     Error handle:[:ex |
-        ('Listener [info]: error while processing event: ' , ex description) printCR.
+        ('Listener [info]: error while processing event: ' , ex description) infoPrintCR.
         ^ false
     ] do:[
         ^ ev dispatchWithViewArgumentTo:self
@@ -202,5 +202,5 @@
 !EventListener class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/EventListener.st,v 1.21 2003-05-07 15:03:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/EventListener.st,v 1.22 2004-03-01 23:06:27 cg Exp $'
 ! !