use new documentView
authorClaus Gittinger <cg@exept.de>
Tue, 21 May 1996 14:37:46 +0200
changeset 557 821b5c5a0cc6
parent 556 1549bab879c7
child 558 e5afcf45eda7
use new documentView
BrowserView.st
BrwsrView.st
--- a/BrowserView.st	Tue May 21 14:36:21 1996 +0200
+++ b/BrowserView.st	Tue May 21 14:37:46 1996 +0200
@@ -1287,13 +1287,13 @@
     "show classes documentation (i.e. open doc-View on it)"
 
     self doClassMenu:[:currentClass |
-        XtHTML
+        HTMLDocumentView
             openFullOnText:(HTMLDocGenerator htmlDocOf:currentClass) 
             inDirectory:(Smalltalk getSystemFileName:'doc/online/english')
     ]
 
-    "Modified: 8.2.1996 / 13:34:03 / cg"
     "Created: 18.5.1996 / 12:12:20 / cg"
+    "Modified: 20.5.1996 / 20:30:52 / cg"
 !
 
 classFileOut
@@ -7067,6 +7067,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.134 1996-05-18 15:44:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.135 1996-05-21 12:37:46 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Tue May 21 14:36:21 1996 +0200
+++ b/BrwsrView.st	Tue May 21 14:37:46 1996 +0200
@@ -1287,13 +1287,13 @@
     "show classes documentation (i.e. open doc-View on it)"
 
     self doClassMenu:[:currentClass |
-        XtHTML
+        HTMLDocumentView
             openFullOnText:(HTMLDocGenerator htmlDocOf:currentClass) 
             inDirectory:(Smalltalk getSystemFileName:'doc/online/english')
     ]
 
-    "Modified: 8.2.1996 / 13:34:03 / cg"
     "Created: 18.5.1996 / 12:12:20 / cg"
+    "Modified: 20.5.1996 / 20:30:52 / cg"
 !
 
 classFileOut
@@ -7067,6 +7067,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.134 1996-05-18 15:44:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.135 1996-05-21 12:37:46 cg Exp $'
 ! !
 BrowserView initialize!