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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 09 May 1996 00:14:40 +0200
changeset 246 9f80dbcbcd34
parent 245 8d7f9a8d2c78
child 247 7b29d5a02e68
checkin from browser
FillWrpr.st file | annotate | diff | comparison | revisions
FillingWrapper.st file | annotate | diff | comparison | revisions
StrokeWrpr.st file | annotate | diff | comparison | revisions
StrokingWrapper.st file | annotate | diff | comparison | revisions
VComponent.st file | annotate | diff | comparison | revisions
VisualComponent.st file | annotate | diff | comparison | revisions
Wrapper.st file | annotate | diff | comparison | revisions 
--- a/FillWrpr.st	Thu May 09 00:02:28 1996 +0200
+++ b/FillWrpr.st	Thu May 09 00:14:40 1996 +0200
@@ -96,9 +96,21 @@
 
 ! !
 
+!FillingWrapper methodsFor:'accessing - bounds'!
+
+preferredBounds
+    "return the components bounds as preferredBounds"
+
+    ^ component bounds
+
+    "Created: 9.5.1996 / 00:10:03 / cg"
+! !
+
 !FillingWrapper methodsFor:'displaying'!
 
 displayOn:aGC
+    "display myself - here, display the geometric object asFilled"
+
     |prevFg|
 
     prevFg := aGC paint.
@@ -109,12 +121,12 @@
 
     aGC paint:prevFg.
 
-    "Modified: 8.5.1996 / 23:48:49 / cg"
     "Created: 8.5.1996 / 23:54:06 / cg"
+    "Modified: 9.5.1996 / 00:11:27 / cg"
 ! !
 
 !FillingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/FillWrpr.st,v 1.1 1996-05-08 22:02:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/FillWrpr.st,v 1.2 1996-05-08 22:14:29 cg Exp $'
 ! !
--- a/FillingWrapper.st	Thu May 09 00:02:28 1996 +0200
+++ b/FillingWrapper.st	Thu May 09 00:14:40 1996 +0200
@@ -96,9 +96,21 @@
 
 ! !
 
+!FillingWrapper methodsFor:'accessing - bounds'!
+
+preferredBounds
+    "return the components bounds as preferredBounds"
+
+    ^ component bounds
+
+    "Created: 9.5.1996 / 00:10:03 / cg"
+! !
+
 !FillingWrapper methodsFor:'displaying'!
 
 displayOn:aGC
+    "display myself - here, display the geometric object asFilled"
+
     |prevFg|
 
     prevFg := aGC paint.
@@ -109,12 +121,12 @@
 
     aGC paint:prevFg.
 
-    "Modified: 8.5.1996 / 23:48:49 / cg"
     "Created: 8.5.1996 / 23:54:06 / cg"
+    "Modified: 9.5.1996 / 00:11:27 / cg"
 ! !
 
 !FillingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.1 1996-05-08 22:02:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.2 1996-05-08 22:14:29 cg Exp $'
 ! !
--- a/StrokeWrpr.st	Thu May 09 00:02:28 1996 +0200
+++ b/StrokeWrpr.st	Thu May 09 00:14:40 1996 +0200
@@ -90,32 +90,46 @@
 !StrokingWrapper methodsFor:'accessing'!
 
 bounds
+    "return the boundary rectangle - here, must take care of the lineWidth"
+
     ^ component bounds + (lineWidth - 1)
 
     "Created: 8.5.1996 / 23:22:43 / cg"
+    "Modified: 9.5.1996 / 00:09:06 / cg"
 !
 
 lineWidth
+    "return the lineWidth"
+
     ^ lineWidth
 
     "Created: 8.5.1996 / 23:22:04 / cg"
+    "Modified: 9.5.1996 / 00:09:12 / cg"
 !
 
 lineWidth:aNumber
+    "set the lineWidth"
+
     lineWidth := aNumber
 
     "Created: 8.5.1996 / 23:22:13 / cg"
+    "Modified: 9.5.1996 / 00:09:17 / cg"
 !
 
 preferredBounds
+    "return the components bounds as preferredBounds"
+
     ^ self bounds
 
     "Created: 8.5.1996 / 23:23:00 / cg"
+    "Modified: 9.5.1996 / 00:09:31 / cg"
 ! !
 
 !StrokingWrapper methodsFor:'displaying'!
 
 displayOn:aGC
+    "display myself - here, display the geometric object asStroked"
+
     |prevLineWidth prevFg|
 
     prevLineWidth := aGC lineWidth.
@@ -130,20 +144,23 @@
     aGC paint:prevFg.
 
     "Created: 8.5.1996 / 23:24:04 / cg"
-    "Modified: 8.5.1996 / 23:54:22 / cg"
+    "Modified: 9.5.1996 / 00:11:17 / cg"
 ! !
 
 !StrokingWrapper methodsFor:'initialization'!
 
 initialize
+    "default my lineWidth to one pixel"
+
     super initialize.
     lineWidth := 1.
 
     "Created: 8.5.1996 / 23:49:27 / cg"
+    "Modified: 9.5.1996 / 00:11:51 / cg"
 ! !
 
 !StrokingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/StrokeWrpr.st,v 1.1 1996-05-08 22:02:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/StrokeWrpr.st,v 1.2 1996-05-08 22:14:33 cg Exp $'
 ! !
--- a/StrokingWrapper.st	Thu May 09 00:02:28 1996 +0200
+++ b/StrokingWrapper.st	Thu May 09 00:14:40 1996 +0200
@@ -90,32 +90,46 @@
 !StrokingWrapper methodsFor:'accessing'!
 
 bounds
+    "return the boundary rectangle - here, must take care of the lineWidth"
+
     ^ component bounds + (lineWidth - 1)
 
     "Created: 8.5.1996 / 23:22:43 / cg"
+    "Modified: 9.5.1996 / 00:09:06 / cg"
 !
 
 lineWidth
+    "return the lineWidth"
+
     ^ lineWidth
 
     "Created: 8.5.1996 / 23:22:04 / cg"
+    "Modified: 9.5.1996 / 00:09:12 / cg"
 !
 
 lineWidth:aNumber
+    "set the lineWidth"
+
     lineWidth := aNumber
 
     "Created: 8.5.1996 / 23:22:13 / cg"
+    "Modified: 9.5.1996 / 00:09:17 / cg"
 !
 
 preferredBounds
+    "return the components bounds as preferredBounds"
+
     ^ self bounds
 
     "Created: 8.5.1996 / 23:23:00 / cg"
+    "Modified: 9.5.1996 / 00:09:31 / cg"
 ! !
 
 !StrokingWrapper methodsFor:'displaying'!
 
 displayOn:aGC
+    "display myself - here, display the geometric object asStroked"
+
     |prevLineWidth prevFg|
 
     prevLineWidth := aGC lineWidth.
@@ -130,20 +144,23 @@
     aGC paint:prevFg.
 
     "Created: 8.5.1996 / 23:24:04 / cg"
-    "Modified: 8.5.1996 / 23:54:22 / cg"
+    "Modified: 9.5.1996 / 00:11:17 / cg"
 ! !
 
 !StrokingWrapper methodsFor:'initialization'!
 
 initialize
+    "default my lineWidth to one pixel"
+
     super initialize.
     lineWidth := 1.
 
     "Created: 8.5.1996 / 23:49:27 / cg"
+    "Modified: 9.5.1996 / 00:11:51 / cg"
 ! !
 
 !StrokingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/StrokingWrapper.st,v 1.1 1996-05-08 22:02:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/StrokingWrapper.st,v 1.2 1996-05-08 22:14:33 cg Exp $'
 ! !
--- a/VComponent.st	Thu May 09 00:02:28 1996 +0200
+++ b/VComponent.st	Thu May 09 00:14:40 1996 +0200
@@ -39,7 +39,8 @@
 
 documentation
 "
-    abstract superclass for all kinds of visual components
+    abstract superclass for all kinds of visual components.
+    This is still being constructed - not yet finished.
 
     [author:]
         Claus Gittinger
@@ -56,66 +57,79 @@
 !VisualComponent methodsFor:'accessing'!
 
 bounds
+    "return my bounds"
+
     ^ bounds
 
     "Created: 8.5.1996 / 23:35:19 / cg"
-    "Modified: 8.5.1996 / 23:35:43 / cg"
+    "Modified: 9.5.1996 / 00:12:00 / cg"
 !
 
-bounds:newBounds
-    bounds := newBounds
+bounds:aRectangle
+    "set my bounds"
+
+    bounds := aRectangle
 
     "Created: 8.5.1996 / 23:36:07 / cg"
+    "Modified: 9.5.1996 / 00:13:12 / cg"
 !
 
 preferredBounds
+    "return my preferredBounds"
+
     ^ 100@100
 
     "Created: 8.5.1996 / 23:36:29 / cg"
-    "Modified: 8.5.1996 / 23:37:05 / cg"
+    "Modified: 9.5.1996 / 00:13:22 / cg"
 ! !
 
 !VisualComponent methodsFor:'accessing - look'!
 
 backgroundColor:aColor
+    "set my backgroundColor"
+
     bgColor := aColor
 
     "Created: 8.5.1996 / 23:47:11 / cg"
+    "Modified: 9.5.1996 / 00:13:33 / cg"
 !
 
 foregroundColor:aColor
+    "set my foregroundColor"
+
     fgColor := aColor
 
     "Created: 8.5.1996 / 23:47:05 / cg"
+    "Modified: 9.5.1996 / 00:13:39 / cg"
 ! !
 
 !VisualComponent methodsFor:'event handling'!
 
 buttonPress:button x:x y:y
-    "/ ignored here
+    "button was pressed over me - ignored here"
 
-    "Modified: 8.5.1996 / 23:43:51 / cg"
+    "Modified: 9.5.1996 / 00:14:08 / cg"
 !
 
 buttonRelease:button x:x y:y
-    "/ ignored here
+    "button was released over me - ignored here"
 
     "Created: 8.5.1996 / 23:38:30 / cg"
-    "Modified: 8.5.1996 / 23:43:53 / cg"
+    "Modified: 9.5.1996 / 00:14:04 / cg"
 !
 
 keyPress:key x:x y:y
-    "/ ignored here
+    "key was pressed over me - ignored here"
 
-    "Modified: 8.5.1996 / 23:43:51 / cg"
     "Created: 8.5.1996 / 23:46:03 / cg"
+    "Modified: 9.5.1996 / 00:14:14 / cg"
 !
 
 keyRelease:key x:x y:y
-    "/ ignored here
+    "key was released over me - ignored here"
 
-    "Modified: 8.5.1996 / 23:43:51 / cg"
     "Created: 8.5.1996 / 23:46:07 / cg"
+    "Modified: 9.5.1996 / 00:14:19 / cg"
 ! !
 
 !VisualComponent methodsFor:'initialization'!
@@ -130,5 +144,5 @@
 !VisualComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/VComponent.st,v 1.1 1996-05-08 22:00:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/VComponent.st,v 1.2 1996-05-08 22:14:40 cg Exp $'
 ! !
--- a/VisualComponent.st	Thu May 09 00:02:28 1996 +0200
+++ b/VisualComponent.st	Thu May 09 00:14:40 1996 +0200
@@ -39,7 +39,8 @@
 
 documentation
 "
-    abstract superclass for all kinds of visual components
+    abstract superclass for all kinds of visual components.
+    This is still being constructed - not yet finished.
 
     [author:]
         Claus Gittinger
@@ -56,66 +57,79 @@
 !VisualComponent methodsFor:'accessing'!
 
 bounds
+    "return my bounds"
+
     ^ bounds
 
     "Created: 8.5.1996 / 23:35:19 / cg"
-    "Modified: 8.5.1996 / 23:35:43 / cg"
+    "Modified: 9.5.1996 / 00:12:00 / cg"
 !
 
-bounds:newBounds
-    bounds := newBounds
+bounds:aRectangle
+    "set my bounds"
+
+    bounds := aRectangle
 
     "Created: 8.5.1996 / 23:36:07 / cg"
+    "Modified: 9.5.1996 / 00:13:12 / cg"
 !
 
 preferredBounds
+    "return my preferredBounds"
+
     ^ 100@100
 
     "Created: 8.5.1996 / 23:36:29 / cg"
-    "Modified: 8.5.1996 / 23:37:05 / cg"
+    "Modified: 9.5.1996 / 00:13:22 / cg"
 ! !
 
 !VisualComponent methodsFor:'accessing - look'!
 
 backgroundColor:aColor
+    "set my backgroundColor"
+
     bgColor := aColor
 
     "Created: 8.5.1996 / 23:47:11 / cg"
+    "Modified: 9.5.1996 / 00:13:33 / cg"
 !
 
 foregroundColor:aColor
+    "set my foregroundColor"
+
     fgColor := aColor
 
     "Created: 8.5.1996 / 23:47:05 / cg"
+    "Modified: 9.5.1996 / 00:13:39 / cg"
 ! !
 
 !VisualComponent methodsFor:'event handling'!
 
 buttonPress:button x:x y:y
-    "/ ignored here
+    "button was pressed over me - ignored here"
 
-    "Modified: 8.5.1996 / 23:43:51 / cg"
+    "Modified: 9.5.1996 / 00:14:08 / cg"
 !
 
 buttonRelease:button x:x y:y
-    "/ ignored here
+    "button was released over me - ignored here"
 
     "Created: 8.5.1996 / 23:38:30 / cg"
-    "Modified: 8.5.1996 / 23:43:53 / cg"
+    "Modified: 9.5.1996 / 00:14:04 / cg"
 !
 
 keyPress:key x:x y:y
-    "/ ignored here
+    "key was pressed over me - ignored here"
 
-    "Modified: 8.5.1996 / 23:43:51 / cg"
     "Created: 8.5.1996 / 23:46:03 / cg"
+    "Modified: 9.5.1996 / 00:14:14 / cg"
 !
 
 keyRelease:key x:x y:y
-    "/ ignored here
+    "key was released over me - ignored here"
 
-    "Modified: 8.5.1996 / 23:43:51 / cg"
     "Created: 8.5.1996 / 23:46:07 / cg"
+    "Modified: 9.5.1996 / 00:14:19 / cg"
 ! !
 
 !VisualComponent methodsFor:'initialization'!
@@ -130,5 +144,5 @@
 !VisualComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.1 1996-05-08 22:00:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.2 1996-05-08 22:14:40 cg Exp $'
 ! !
--- a/Wrapper.st	Thu May 09 00:02:28 1996 +0200
+++ b/Wrapper.st	Thu May 09 00:14:40 1996 +0200
@@ -77,30 +77,41 @@
 !Wrapper methodsFor:'accessing - bounds'!
 
 bounds
+    "return my bounds as the components bounds"
+
     ^ component bounds
 
     "Created: 8.5.1996 / 23:18:03 / cg"
+    "Modified: 9.5.1996 / 00:10:25 / cg"
 !
 
 bounds:newBounds
+    "set my bounds - forwarded to the wrapped object"
+
     component bounds:newBounds
 
     "Created: 8.5.1996 / 23:18:12 / cg"
-    "Modified: 8.5.1996 / 23:19:30 / cg"
+    "Modified: 9.5.1996 / 00:10:49 / cg"
 !
 
 preferredBounds
+    "return my preferredBounds as the components preferredBounds"
+
     ^ component preferredBounds
 
     "Created: 8.5.1996 / 23:18:53 / cg"
+    "Modified: 9.5.1996 / 00:10:32 / cg"
 ! !
 
 !Wrapper methodsFor:'displaying'!
 
 displayOn:aGC
+    "display myself - forwarded to the wrapped object"
+
     component displayOn:aGC
 
     "Created: 8.5.1996 / 23:19:24 / cg"
+    "Modified: 9.5.1996 / 00:10:59 / cg"
 ! !
 
 !Wrapper methodsFor:'testing'!
@@ -126,5 +137,5 @@
 !Wrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Wrapper.st,v 1.1 1996-05-08 22:01:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Wrapper.st,v 1.2 1996-05-08 22:14:37 cg Exp $'
 ! !
hg/stx-libview2