equal
deleted
inserted
replaced
1920 |
1920 |
1921 text := currentClass htmlDocumentation. |
1921 text := currentClass htmlDocumentation. |
1922 text notNil ifTrue:[ |
1922 text notNil ifTrue:[ |
1923 v := HTMLDocumentView |
1923 v := HTMLDocumentView |
1924 openFullOnText:text |
1924 openFullOnText:text |
1925 inDirectory:(Smalltalk getSystemFileName:'doc/online/english'). |
1925 inDirectory:(Smalltalk getSystemFileName:'doc/online/english/classDoc'). |
1926 v nameSpaceForExecution:(currentClass nameSpace). |
1926 v nameSpaceForExecution:(currentClass nameSpace). |
1927 ] |
1927 ] |
1928 ] |
1928 ] |
1929 ] |
1929 ] |
1930 |
1930 |
1931 "Created: 18.5.1996 / 12:12:20 / cg" |
1931 "Created: 18.5.1996 / 12:12:20 / cg" |
1932 "Modified: 22.3.1997 / 14:20:53 / cg" |
1932 "Modified: 17.6.1997 / 13:32:40 / cg" |
1933 ! |
1933 ! |
1934 |
1934 |
1935 classFileOut |
1935 classFileOut |
1936 "fileOut the current class. |
1936 "fileOut the current class. |
1937 Catch errors (sure, you like to know if it failed) and |
1937 Catch errors (sure, you like to know if it failed) and |
10105 ! ! |
10105 ! ! |
10106 |
10106 |
10107 !BrowserView class methodsFor:'documentation'! |
10107 !BrowserView class methodsFor:'documentation'! |
10108 |
10108 |
10109 version |
10109 version |
10110 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.301 1997-06-16 18:30:12 cg Exp $' |
10110 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.302 1997-06-17 11:34:13 cg Exp $' |
10111 ! ! |
10111 ! ! |
10112 BrowserView initialize! |
10112 BrowserView initialize! |