--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/VComponent.st Thu May 09 00:02:28 1996 +0200
@@ -0,0 +1,134 @@
+"
+ COPYRIGHT (c) 1996 by Claus Gittinger
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+
+Object subclass:#VisualComponent
+ instanceVariableNames:'bounds fgColor bgColor'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Graphics-Display Objects'
+!
+
+!VisualComponent class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1996 by Claus Gittinger
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+!
+
+documentation
+"
+ abstract superclass for all kinds of visual components
+
+ [author:]
+ Claus Gittinger
+"
+
+! !
+
+!VisualComponent class methodsFor:'instance creation'!
+
+new
+ ^ self basicNew initialize
+! !
+
+!VisualComponent methodsFor:'accessing'!
+
+bounds
+ ^ bounds
+
+ "Created: 8.5.1996 / 23:35:19 / cg"
+ "Modified: 8.5.1996 / 23:35:43 / cg"
+!
+
+bounds:newBounds
+ bounds := newBounds
+
+ "Created: 8.5.1996 / 23:36:07 / cg"
+!
+
+preferredBounds
+ ^ 100@100
+
+ "Created: 8.5.1996 / 23:36:29 / cg"
+ "Modified: 8.5.1996 / 23:37:05 / cg"
+! !
+
+!VisualComponent methodsFor:'accessing - look'!
+
+backgroundColor:aColor
+ bgColor := aColor
+
+ "Created: 8.5.1996 / 23:47:11 / cg"
+!
+
+foregroundColor:aColor
+ fgColor := aColor
+
+ "Created: 8.5.1996 / 23:47:05 / cg"
+! !
+
+!VisualComponent methodsFor:'event handling'!
+
+buttonPress:button x:x y:y
+ "/ ignored here
+
+ "Modified: 8.5.1996 / 23:43:51 / cg"
+!
+
+buttonRelease:button x:x y:y
+ "/ ignored here
+
+ "Created: 8.5.1996 / 23:38:30 / cg"
+ "Modified: 8.5.1996 / 23:43:53 / cg"
+!
+
+keyPress:key x:x y:y
+ "/ ignored here
+
+ "Modified: 8.5.1996 / 23:43:51 / cg"
+ "Created: 8.5.1996 / 23:46:03 / cg"
+!
+
+keyRelease:key x:x y:y
+ "/ ignored here
+
+ "Modified: 8.5.1996 / 23:43:51 / cg"
+ "Created: 8.5.1996 / 23:46:07 / cg"
+! !
+
+!VisualComponent methodsFor:'initialization'!
+
+initialize
+ fgColor := Color black.
+ bgColor := Color white.
+
+ "Created: 8.5.1996 / 23:49:54 / cg"
+! !
+
+!VisualComponent class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libview2/Attic/VComponent.st,v 1.1 1996-05-08 22:00:45 cg Exp $'
+! !