'From Squeak3.1alpha of 28 February 2001 [latest update: #4284] on 23 August 2001 at 9:30:32 pm'! "Change Set: RenameOnCR-ar Date: 23 August 2001 Author: Andreas Raab Allow users to accept the name of a project on hitting enter."! !EToyProjectRenamerMorph methodsFor: 'as yet unclassified' stamp: 'ar 8/23/2001 21:29'! fieldForProjectName | tm | tm _ self genericTextFieldNamed: 'projectname'. tm setBalloonText: 'Pick a name 24 characters or less and avoid the following characters: tm crAction: (MessageSend receiver: self selector: #doOK); : < > | / \ ? * " .'. ^tm ! !