# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 831597112 -7200
# Node ID 38827944ca9c084f42f7c7e8c7bd04c226617aec
# Parent  266a7ec53d9fef74f3d565f1d6f01c079f8e65e4
intitial checkin

diff -r 266a7ec53d9f -r 38827944ca9c VisualPart.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/VisualPart.st	Thu May 09 01:11:52 1996 +0200
@@ -0,0 +1,39 @@
+VisualComponent subclass:#VisualPart
+	instanceVariableNames:'container'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Graphics-Display Objects'
+!
+
+
+!VisualPart methodsFor:'accessing'!
+
+container
+    "return container"
+
+    ^ container
+
+    "Created: 9.5.1996 / 00:31:41 / cg"
+!
+
+container:something
+    "set container"
+
+    container := something.
+
+    "Created: 9.5.1996 / 00:31:41 / cg"
+!
+
+graphicsContext
+    "return the graphicsContext"
+
+    ^ container gc
+
+    "Created: 9.5.1996 / 00:32:12 / cg"
+! !
+
+!VisualPart class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.1 1996-05-08 23:11:52 cg Exp $'
+! !