# HG changeset patch # User Claus Gittinger # Date 1252349159 -7200 # Node ID 4798b0251087fc1c8d35398d60719ab99af4be3f # Parent f98f6f34894998c8b37d86ca6decf463a1ea988f *** empty log message *** diff -r f98f6f348949 -r 4798b0251087 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 + + ^ 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 $' ! !