*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 07 Sep 2009 20:45:59 +0200
changeset 2736 4798b0251087
parent 2735 f98f6f348949
child 2737 0c83579be3d3
*** empty log message ***
MenuItem.st
--- a/MenuItem.st	Thu Sep 03 17:57:53 2009 +0200
+++ b/MenuItem.st	Mon Sep 07 20:45:59 2009 +0200
@@ -793,10 +793,20 @@
     "Modified: / 4.2.2000 / 12:50:28 / cg"
 ! !
 
+!MenuItem ignoredMethodsFor:'printing & storing'!
+
+displayString
+    <resource: #obsolete>
+    ^ self classNameWithArticle , '(' , label storeString , ')'
+! !
+
 !MenuItem methodsFor:'printing & storing'!
 
-displayString
-    ^ self classNameWithArticle , '(' , label storeString , ')'
+printOn:aStream
+    aStream nextPutAll:self classNameWithArticle.
+    aStream nextPutAll:'('.
+    aStream nextPutAll:label storeString.
+    aStream nextPutAll:')'
 ! !
 
 !MenuItem methodsFor:'private-accessing'!
@@ -923,5 +933,5 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.86 2008-10-16 12:08:17 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.87 2009-09-07 18:45:59 cg Exp $'
 ! !