Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
moved fgColor/bgColor down the hierarchy
authorClaus Gittinger <cg@exept.de>
Mon, 10 Feb 1997 14:48:18 +0100
changeset 404 502b2dc1b0ba
parent 403 cdcee4daddef
child 405 4acab6da7d82
moved fgColor/bgColor down the hierarchy
GeomWrpr.st file | annotate | diff | comparison | revisions
GeometricWrapper.st file | annotate | diff | comparison | revisions 
--- a/GeomWrpr.st	Mon Feb 03 10:12:22 1997 +0100
+++ b/GeomWrpr.st	Mon Feb 10 14:48:18 1997 +0100
@@ -15,7 +15,7 @@
 
 
 Wrapper subclass:#GeometricWrapper
-	instanceVariableNames:''
+	instanceVariableNames:'foregroundColor backgroundColor'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Graphics-Display Objects'
@@ -72,6 +72,22 @@
 
 !GeometricWrapper methodsFor:'accessing'!
 
+backgroundColor
+    "return the value of the instance variable 'backgroundColor' (automatically generated)"
+
+    ^ backgroundColor
+
+    "Created: 10.2.1997 / 14:22:14 / cg"
+!
+
+backgroundColor:something
+    "set the value of the instance variable 'backgroundColor' (automatically generated)"
+
+    backgroundColor := something.
+
+    "Created: 10.2.1997 / 14:22:14 / cg"
+!
+
 component:someComponent
     "set the wrappers component. 
      Redefined to not set the components container - we know, those
@@ -81,6 +97,22 @@
 
     "Created: 28.5.1996 / 23:02:36 / cg"
     "Modified: 28.5.1996 / 23:02:52 / cg"
+!
+
+foregroundColor
+    "return the value of the instance variable 'foregroundColor' (automatically generated)"
+
+    ^ foregroundColor
+
+    "Created: 10.2.1997 / 14:22:10 / cg"
+!
+
+foregroundColor:something
+    "set the value of the instance variable 'foregroundColor' (automatically generated)"
+
+    foregroundColor := something.
+
+    "Created: 10.2.1997 / 14:22:10 / cg"
 ! !
 
 !GeometricWrapper methodsFor:'accessing - bounds'!
@@ -123,5 +155,5 @@
 !GeometricWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/GeomWrpr.st,v 1.7 1997-01-14 17:00:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/GeomWrpr.st,v 1.8 1997-02-10 13:48:18 cg Exp $'
 ! !
--- a/GeometricWrapper.st	Mon Feb 03 10:12:22 1997 +0100
+++ b/GeometricWrapper.st	Mon Feb 10 14:48:18 1997 +0100
@@ -15,7 +15,7 @@
 
 
 Wrapper subclass:#GeometricWrapper
-	instanceVariableNames:''
+	instanceVariableNames:'foregroundColor backgroundColor'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Graphics-Display Objects'
@@ -72,6 +72,22 @@
 
 !GeometricWrapper methodsFor:'accessing'!
 
+backgroundColor
+    "return the value of the instance variable 'backgroundColor' (automatically generated)"
+
+    ^ backgroundColor
+
+    "Created: 10.2.1997 / 14:22:14 / cg"
+!
+
+backgroundColor:something
+    "set the value of the instance variable 'backgroundColor' (automatically generated)"
+
+    backgroundColor := something.
+
+    "Created: 10.2.1997 / 14:22:14 / cg"
+!
+
 component:someComponent
     "set the wrappers component. 
      Redefined to not set the components container - we know, those
@@ -81,6 +97,22 @@
 
     "Created: 28.5.1996 / 23:02:36 / cg"
     "Modified: 28.5.1996 / 23:02:52 / cg"
+!
+
+foregroundColor
+    "return the value of the instance variable 'foregroundColor' (automatically generated)"
+
+    ^ foregroundColor
+
+    "Created: 10.2.1997 / 14:22:10 / cg"
+!
+
+foregroundColor:something
+    "set the value of the instance variable 'foregroundColor' (automatically generated)"
+
+    foregroundColor := something.
+
+    "Created: 10.2.1997 / 14:22:10 / cg"
 ! !
 
 !GeometricWrapper methodsFor:'accessing - bounds'!
@@ -123,5 +155,5 @@
 !GeometricWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GeometricWrapper.st,v 1.7 1997-01-14 17:00:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GeometricWrapper.st,v 1.8 1997-02-10 13:48:18 cg Exp $'
 ! !
hg/stx-libview2