--- a/SubCanvas.st	Mon Mar 09 22:26:40 1998 +0100
+++ b/SubCanvas.st	Tue Mar 10 18:12:02 1998 +0100
@@ -69,6 +69,15 @@
 
     spec := something.
     self rebuild.
+!
+
+widget
+    "ST80 compatibility. 
+     I am my own widget"
+
+    ^ self
+
+    "Created: / 10.3.1998 / 16:20:52 / stefan"
 ! !
 
 !SubCanvas methodsFor:'accessing channels'!
@@ -215,5 +224,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.6 1997-11-08 14:42:57 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.7 1998-03-10 17:12:02 stefan Exp $'
 ! !