equal
deleted
inserted
replaced
385 ifTrue: |
385 ifTrue: |
386 [ |
386 [ |
387 (specClass class implements:#helpSpec) ifFalse:[ |
387 (specClass class implements:#helpSpec) ifFalse:[ |
388 dictionaries at: specClass name put: dictionary |
388 dictionaries at: specClass name put: dictionary |
389 ]. |
389 ]. |
390 self listOfHelpSpecClasses contents: (specClass withAllSuperclasses reverse collect: [:cls| cls name]). |
390 self listOfHelpSpecClasses contents: (specClass withAllSuperclasses reverse collect: [:cls| cls name]). |
391 self listOfHelpSpecClasses removeAll: (ApplicationModel withAllSuperclasses collect: [:cls| cls name]). |
391 (self listOfHelpSpecClasses includes: #ApplicationModel) |
|
392 ifTrue: [self listOfHelpSpecClasses removeAll: (ApplicationModel withAllSuperclasses collect: [:cls| cls name])]. |
392 self selectionOfHelpSpecClass value: specClass name. |
393 self selectionOfHelpSpecClass value: specClass name. |
393 (builder componentAt: #listOfHelpSpecClassesView) selection: |
394 (builder componentAt: #listOfHelpSpecClassesView) selection: |
394 (self listOfHelpSpecClasses value indexOf: specClass name). |
395 (self listOfHelpSpecClasses value indexOf: specClass name). |
395 self helpSpecClassSelected. |
396 self helpSpecClassSelected. |
396 ]. |
397 ]. |