UIPainter.st
changeset 3106 148a01b7abc0
parent 3098 f806d15778cd
child 3108 325b4bd1ee46
equal deleted inserted replaced
3105:b33e0b8e6038 3106:148a01b7abc0
  5077     Smalltalk browseInClass: (self resolveName: className inClass: specClass)
  5077     Smalltalk browseInClass: (self resolveName: className inClass: specClass)
  5078 
  5078 
  5079     "Created: / 24-02-2014 / 17:20:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  5079     "Created: / 24-02-2014 / 17:20:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  5080 !
  5080 !
  5081 
  5081 
       
  5082 doBrowseAspectClassAndSelector:classAspectAndSelectorAspect
       
  5083     | classAspect selector selectorAspect spec className class |
       
  5084 
       
  5085     classAspect := classAspectAndSelectorAspect first. "/ #(#majorKey #minorKey)
       
  5086     selectorAspect := classAspectAndSelectorAspect second. "/ #(#majorKey #minorKey)
       
  5087 
       
  5088     spec := painter specForSelection.
       
  5089     spec isNil ifTrue:[ self error: 'No spec!!'.].      
       
  5090     className := spec perform: classAspect.
       
  5091     class := self resolveName: className inClass: specClass.
       
  5092     class isNil ifTrue:[ 
       
  5093         Dialog warn: (resources string: 'No such class (%1)' with: className). 
       
  5094         ^ self.
       
  5095     ].
       
  5096     selector := spec perform: selectorAspect.
       
  5097     Smalltalk 
       
  5098         browseInClass: (self resolveName: className inClass: specClass) theMetaclass
       
  5099         selector:selector
       
  5100 !
       
  5101 
  5082 doBrowseAspectMethod:aspectSelector
  5102 doBrowseAspectMethod:aspectSelector
  5083     "browse or create the aspect method as entered in the field (button beside input fieled pressed)"
  5103     "browse or create the aspect method as entered in the field (button beside input fieled pressed)"
  5084 
  5104 
  5085     self isModified ifTrue:[ self accept ].
  5105     self isModified ifTrue:[ self accept ].
  5086     "/ self acceptOrIgnoreSectionModification.
  5106     "/ self acceptOrIgnoreSectionModification.