ResourceSelectionBrowser.st
changeset 635 47ffd4e4f387
parent 632 930b778d5e28
child 636 b06bea6cbe1b
equal deleted inserted replaced
634:ebc0beb615c5 635:47ffd4e4f387
   450                     withAllSuperclasses reverse collect: [:cls| cls name asString]);
   450                     withAllSuperclasses reverse collect: [:cls| cls name asString]);
   451                 selectedNodeExpand: true
   451                 selectedNodeExpand: true
   452         ].
   452         ].
   453         self valueOfClassName value: clsPattern
   453         self valueOfClassName value: clsPattern
   454     ].
   454     ].
   455 
   455     self valueOfClassName value: classSelection.  
   456     self valueOfClassName value: classSelection.
       
   457     self selectionOfResource value: (self listOfResources detect: [:m| m selector == resourceMethod] ifNone: nil).
       
   458     self classNameInputField entryCompletionBlock:
   456     self classNameInputField entryCompletionBlock:
   459     [:value|
   457     [:value|
   460         |what|
   458         |what|
   461         what := Smalltalk classnameCompletion: value withoutSpaces.
   459         what := Smalltalk classnameCompletion: value withoutSpaces.
   462         self classNameInputField contents:what first.
   460         self classNameInputField contents:what first.
   464         classSelectionBlock value: self classNameInputField contents
   462         classSelectionBlock value: self classNameInputField contents
   465     ].
   463     ].
   466     self listOfClassesView validateDoubleClickBlock: [:aTreeItem | aTreeItem contents ~~ self treeViewContents].
   464     self listOfClassesView validateDoubleClickBlock: [:aTreeItem | aTreeItem contents ~~ self treeViewContents].
   467     self listOfClassesView selectedNodeExpand: true.
   465     self listOfClassesView selectedNodeExpand: true.
   468 
   466 
   469     [classSelectionBlock value: classSelection] forkAt: 4.
   467     [[classSelectionBlock value: classSelection] value.
       
   468     self selectionOfResource value: (self listOfResources detect: [:m| m selector == resourceMethod] ifNone: nil)]
       
   469     forkAt: 4.
   470 
   470 
   471     ^super postBuildWith:aBuilder
   471     ^super postBuildWith:aBuilder
   472 
   472 
   473 ! !
   473 ! !
   474 
   474