equal
deleted
inserted
replaced
339 s := aStream. |
339 s := aStream. |
340 |
340 |
341 s nextPutLine:'<pre>'. |
341 s nextPutLine:'<pre>'. |
342 refLines do:[:l | |
342 refLines do:[:l | |
343 |nm href| |
343 |nm href| |
344 |
|
345 |
344 |
346 l isString ifTrue:[ |
345 l isString ifTrue:[ |
347 s nextPutAll:' '. |
346 s nextPutAll:' '. |
348 nm := (l copyFrom:2 to:(l indexOf:$:)-1) withoutSpaces. |
347 nm := (l copyFrom:2 to:(l indexOf:$:)-1) withoutSpaces. |
349 href := (l copyFrom:(l indexOf:$:)+1 to:(l size - 1)) withoutSpaces. |
348 href := (l copyFrom:(l indexOf:$:)+1 to:(l size - 1)) withoutSpaces. |
370 ( 'Show documentation of ' , ref ) |
369 ( 'Show documentation of ' , ref ) |
371 text: |
370 text: |
372 ref). |
371 ref). |
373 ] ifFalse:[ |
372 ] ifFalse:[ |
374 realRef := ref. |
373 realRef := ref. |
375 (ns := aClass nameSpace) notNil ifTrue:[ |
374 ((ns := aClass nameSpace) notNil and:[ns ~~ Smalltalk]) ifTrue:[ |
376 ns isNameSpace ifTrue:[ |
375 ns isNameSpace ifTrue:[ |
377 (ns at:realRef asSymbol) notNil ifTrue:[ |
376 (ns at:realRef asSymbol) notNil ifTrue:[ |
378 realRef := ns name , '::' , realRef |
377 realRef := ns name , '::' , realRef |
379 ] |
378 ] |
380 ] ifFalse:[ |
379 ] ifFalse:[ |
2387 ! ! |
2386 ! ! |
2388 |
2387 |
2389 !HTMLDocGenerator class methodsFor:'documentation'! |
2388 !HTMLDocGenerator class methodsFor:'documentation'! |
2390 |
2389 |
2391 version |
2390 version |
2392 ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.61 2003-09-30 08:26:44 penk Exp $' |
2391 ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.62 2003-10-10 13:46:32 cg Exp $' |
2393 ! ! |
2392 ! ! |