3013 href := self |
3013 href := self |
3014 anchorForHTMLAction:action |
3014 anchorForHTMLAction:action |
3015 info:('Show documentation of ' , className ) |
3015 info:('Show documentation of ' , className ) |
3016 text:text. |
3016 text:text. |
3017 ] ifFalse:[ |
3017 ] ifFalse:[ |
3018 "/ page is generated for a real http service; |
3018 "/ page is generated for a real http service or to be stored as HTML page; |
3019 "/ generate a link to the services classDocOf page, |
3019 "/ generate a link to the service's classDocOf page, |
3020 "/ Assumes that the server has a classDoc service running. |
3020 "/ Assumes that the server has a classDoc service running. |
3021 httpRequestOrNil notNil ifTrue:[ |
3021 httpRequestOrNil notNil ifTrue:[ |
3022 serviceLinkName := httpRequestOrNil serviceLinkName. |
3022 serviceLinkName := httpRequestOrNil serviceLinkName. |
3023 ]. |
3023 href := self |
3024 href := self |
3024 anchorFor:(serviceLinkName, '/classDocOf,', (HTMLUtilities escape:className) ) |
3025 anchorFor:(serviceLinkName, '/classDocOf,', (HTMLUtilities escape:className) ) |
3025 info:('Show documentation of ' , className ) |
3026 info:('Show documentation of ' , className ) |
3026 text:text |
3027 text:text |
3027 name:nil |
3028 name:nil |
3028 ] ifFalse:[ |
|
3029 href := self |
|
3030 anchorFor:((HTMLUtilities escape:className),'.html' ) |
|
3031 info:('Goto documentation of ' , className ) |
|
3032 text:text |
|
3033 name:nil |
|
3034 ]. |
3029 ]. |
3035 ]. |
3030 |
3036 |
3031 outStream nextPutAll:href. |
3037 outStream nextPutAll:href. |
3032 |
3038 |
3033 "Modified: / 28-06-2019 / 09:01:15 / Claus Gittinger" |
3039 "Modified: / 28-06-2019 / 09:01:15 / Claus Gittinger" |