intitial checkin
authorClaus Gittinger <cg@exept.de>
Thu, 09 May 1996 01:11:52 +0200
changeset 249 38827944ca9c
parent 248 266a7ec53d9f
child 250 40acd5bd28ef
intitial checkin
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 $'
+! !