equal
deleted
inserted
replaced
24516 defClass isNil ifTrue:[ |
24516 defClass isNil ifTrue:[ |
24517 mthd := nil. |
24517 mthd := nil. |
24518 ] ifFalse:[ |
24518 ] ifFalse:[ |
24519 mthd := defClass theMetaclass compiledMethodAt:#documentation. |
24519 mthd := defClass theMetaclass compiledMethodAt:#documentation. |
24520 ]. |
24520 ]. |
24521 mthd isNil ifTrue:[ |
24521 (mthd isNil or:[mthd comment isNil]) ifTrue:[ |
24522 s cr; nextPutLine:' Sorry, the package does not seem to provide documentation' |
24522 s cr; nextPutLine:' Sorry, the package does not seem to provide documentation' |
24523 ] ifFalse:[ |
24523 ] ifFalse:[ |
24524 s nextPutAll:(mthd comment). |
24524 s nextPutAll:(mthd comment). |
24525 ]. |
24525 ]. |
24526 ]. |
24526 ]. |
24586 self updateProtocolSelectionForChangedMethodSelection. |
24586 self updateProtocolSelectionForChangedMethodSelection. |
24587 |
24587 |
24588 "Created: / 29-08-2006 / 13:59:06 / cg" |
24588 "Created: / 29-08-2006 / 13:59:06 / cg" |
24589 "Modified: / 23-07-2014 / 12:03:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
24589 "Modified: / 23-07-2014 / 12:03:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
24590 "Modified: / 25-11-2017 / 13:11:26 / cg" |
24590 "Modified: / 25-11-2017 / 13:11:26 / cg" |
|
24591 "Modified: / 19-12-2017 / 16:54:00 / stefan" |
24591 ! |
24592 ! |
24592 |
24593 |
24593 delayedVariableSelectionChanged |
24594 delayedVariableSelectionChanged |
24594 |var val mclass cls codeView| |
24595 |var val mclass cls codeView| |
24595 |
24596 |