Commits

Gilad Bracha committed 54b8e8b

RESTART IDE. Make senders/implementors lists use exemplar presenters for Newspeak methods. Crude but effective.

  • Participants
  • Parent commits 37b0e8e

Comments (0)

Files changed (3)

 	systemScope = ide systemScope.
 	IDEWindow = ide tools IDEWindow.
 	DefinitionListPresenter = ide tools DefinitionListPresenter.
-	ProgrammingPresenter = ide tools ProgrammingPresenter.	
+	ProgrammingPresenter = ide tools ProgrammingPresenter.
+	ExemplarMethodPresenter = ide tools ExemplarMethodPresenter.	
 	PackageSubject = ide browsingMisc PackageSubject.
 	NSClassSubject = ide browsingNS3 ClassSubject.
 	NSMethodSubject = ide browsingNS3 MethodSubject.
 	^groupedMethods
 )
 newExpandableMethodPresenter: aModel = (
-
-	^(ExpandableMethodPresenter onSubject: aModel) 
+	| presenterClass |
+	
+	presenterClass:: 
+	  (aModel implementingClass language isNewspeakLanguage3 and:[aModel  isSynthetic not])
+	    	ifTrue:[ExemplarMethodPresenter] 		ifFalse:[ExpandableMethodPresenter].
+	
+	^(presenterClass onSubject: aModel)
 		showClassName: true;
 		showClassLink: true
 )'requests'
 exemplar = (
 	subclassResponsibility
 )
+isSynthetic = (
+	^false
+)
 methodReference = (
 	^MethodReference class: implementingClass selector: selector
 )
 deleteMethodIfSuccess: successBlock ifFailure: failureBlock = (
    failureBlock value
 )
-foob = (
-	
-)
 implementingClass = (
 	^model actualClass
 )
 	private SystemscapeSubject = ide browsingMisc SystemscapeSubject.
 	private ClassCategorySubject = ide browsingMisc ClassCategorySubject.
 	private NSClassSubject = ide browsingNS3 ClassSubject.
+	ExemplarMethodPresenter = ide browsingNS3 ExemplarMethodPresenter.
 	private PackageWithClassesSubject = ide browsingMisc PackageWithClassesSubject.
 	private ClassCategoryDocsPresenter = ide browsingMisc ClassCategoryDocsPresenter.
 	private SelectorSubject = ide browsing SelectorSubject.

SmalltalkBrowsing.ns3

 	^packages
 )'as yet unclassified'
 newExpandableMethodPresenter: aModel = (
-
 	^(ExpandableMethodPresenter onSubject: (MethodSubject on: aModel)) 
 		showClassName: true;
 		showClassLink: true