equal
deleted
inserted
replaced
4995 ! ! |
4995 ! ! |
4996 |
4996 |
4997 !MenuEditor::ResourceEditor methodsFor:'aspects'! |
4997 !MenuEditor::ResourceEditor methodsFor:'aspects'! |
4998 |
4998 |
4999 entryCompletionForRetriever |
4999 entryCompletionForRetriever |
5000 ^ [ :s :field | |
5000 ^ DoWhatIMeanSupport classNameEntryCompletionBlock. |
5001 |info| |
5001 |
5002 |
5002 "Modified: / 10-08-2006 / 12:55:22 / cg" |
5003 info := Smalltalk classnameCompletion:s. |
|
5004 field contents:info first. |
|
5005 ]. |
|
5006 ! |
5003 ! |
5007 |
5004 |
5008 iconAndLabelHolder |
5005 iconAndLabelHolder |
5009 ^ iconAndLabelHolder |
5006 ^ iconAndLabelHolder |
5010 ! |
5007 ! |