MenuEditor.st
changeset 1853 bd6900fa7f50
parent 1848 61d531486cf1
child 1867 08860770cd69
equal deleted inserted replaced
1852:c40abf408dc4 1853:bd6900fa7f50
  4724               type: symbolOrNil
  4724               type: symbolOrNil
  4725               immediateAccept: true
  4725               immediateAccept: true
  4726               acceptOnReturn: false
  4726               acceptOnReturn: false
  4727               acceptOnTab: false
  4727               acceptOnTab: false
  4728               acceptOnPointerLeave: false
  4728               acceptOnPointerLeave: false
       
  4729               entryCompletionBlock: entryCompletionForRetriever
  4729               comboList: retrieverList
  4730               comboList: retrieverList
  4730               isFilenameBox: false
  4731               isFilenameBox: false
  4731             )
  4732             )
  4732            (LabelSpec
  4733            (LabelSpec
  4733               label: 'Selector:'
  4734               label: 'Selector:'
  4908     ].
  4909     ].
  4909 ! !
  4910 ! !
  4910 
  4911 
  4911 !MenuEditor::ResourceEditor methodsFor:'aspects'!
  4912 !MenuEditor::ResourceEditor methodsFor:'aspects'!
  4912 
  4913 
       
  4914 entryCompletionForRetriever
       
  4915     ^ [ :s :field | 
       
  4916         |info|
       
  4917 
       
  4918         info := Smalltalk classnameCompletion:s.
       
  4919         field contents:info first.
       
  4920       ].
       
  4921 !
       
  4922 
  4913 iconAndLabelHolder
  4923 iconAndLabelHolder
  4914     ^ iconAndLabelHolder
  4924     ^ iconAndLabelHolder
  4915 !
  4925 !
  4916 
  4926 
  4917 imageHolder
  4927 imageHolder