--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/BorderedWrapper.st Wed May 29 00:43:39 1996 +0200
@@ -0,0 +1,101 @@
+BoundedWrapper subclass:#BorderedWrapper
+ instanceVariableNames:'border inset insideColor'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Graphics-Display Objects'
+!
+
+!BorderedWrapper class methodsFor:'documentation'!
+
+examples
+"
+ [exBegin]
+ |t s v e component|
+
+ t := StandardSystemView extent:250@200.
+ s := HVScrollableView for:View miniScroller:true in:t.
+ s origin:0.0@0.0 corner:1.0@1.0.
+ v := s scrolledView.
+
+ e := Rectangle origin:0@0 corner:80@80.
+ component := FillingWrapper on:e.
+ component foregroundColor:Color red.
+ v addComponent:(BorderedWrapper on:component at:10@10).
+
+ e := EllipticalArc boundingBox:(0@0 corner:80@80)
+ startAngle:0 sweepAngle:360.
+ component := StrokingWrapper on:e.
+ component lineWidth:5.
+ v addComponent:(BorderedWrapper on:component at:10@10).
+
+ e := Arrow from:0@0 to:50@150.
+ component := StrokingWrapper on:e.
+ component lineWidth:2.
+ v addComponent:(BorderedWrapper on:component at:100@100).
+
+ t open
+ [exEnd]
+"
+! !
+
+!BorderedWrapper class methodsFor:'instance creation'!
+
+on:aComponent in:aLayout border:aBorder
+ ^ (super on:aComponent in:aLayout) border:aBorder
+
+ "Created: 28.5.1996 / 23:15:00 / cg"
+! !
+
+!BorderedWrapper methodsFor:'accessing'!
+
+border
+ "return border"
+
+ ^ border
+
+ "Created: 28.5.1996 / 23:15:15 / cg"
+!
+
+border:something
+ "set border"
+
+ border := something.
+
+ "Created: 28.5.1996 / 23:15:15 / cg"
+! !
+
+!BorderedWrapper methodsFor:'displaying'!
+
+displayOn:aGC
+ |bounds x y w h tX tY|
+
+ super displayOn:aGC.
+
+ bounds := self bounds.
+ x := bounds left rounded.
+ y := bounds top rounded.
+ w := bounds width rounded.
+ h := bounds height rounded.
+
+ tX := aGC translation x.
+ tY := aGC translation y.
+
+ aGC drawEdgesForX:x+tX
+ y:y+tY
+ width:w
+ height:h
+ level:1
+ shadow:Color black
+ light:Color white
+ halfShadow:Color grey
+ halfLight:Color grey
+ style:#iris
+
+ "Modified: 29.5.1996 / 00:36:00 / cg"
+! !
+
+!BorderedWrapper class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libview2/BorderedWrapper.st,v 1.1 1996-05-28 22:43:05 cg Exp $'
+! !
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/BoundedWrapper.st Wed May 29 00:43:39 1996 +0200
@@ -0,0 +1,13 @@
+LayoutWrapper subclass:#BoundedWrapper
+ instanceVariableNames:'extent'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Graphics-Display Objects'
+!
+
+
+!BoundedWrapper class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libview2/BoundedWrapper.st,v 1.1 1996-05-28 22:43:21 cg Exp $'
+! !
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/DepPart.st Wed May 29 00:43:39 1996 +0200
@@ -0,0 +1,41 @@
+VisualPart subclass:#DependentPart
+ instanceVariableNames:'model'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Graphics-Display Objects'
+!
+
+
+!DependentPart class methodsFor:'instance creation'!
+
+model:aModel
+ "return a new instance and initialize its model"
+
+ ^ self new model:aModel
+
+ "Created: 24.5.1996 / 19:17:37 / cg"
+! !
+
+!DependentPart methodsFor:'accessing'!
+
+model
+ "return model"
+
+ ^ model
+
+ "Created: 24.5.1996 / 19:16:51 / cg"
+!
+
+model:something
+ "set model"
+
+ model := something.
+
+ "Created: 24.5.1996 / 19:16:51 / cg"
+! !
+
+!DependentPart class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libview2/Attic/DepPart.st,v 1.1 1996-05-28 22:42:18 cg Exp $'
+! !
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/DependentPart.st Wed May 29 00:43:39 1996 +0200
@@ -0,0 +1,41 @@
+VisualPart subclass:#DependentPart
+ instanceVariableNames:'model'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Graphics-Display Objects'
+!
+
+
+!DependentPart class methodsFor:'instance creation'!
+
+model:aModel
+ "return a new instance and initialize its model"
+
+ ^ self new model:aModel
+
+ "Created: 24.5.1996 / 19:17:37 / cg"
+! !
+
+!DependentPart methodsFor:'accessing'!
+
+model
+ "return model"
+
+ ^ model
+
+ "Created: 24.5.1996 / 19:16:51 / cg"
+!
+
+model:something
+ "set model"
+
+ model := something.
+
+ "Created: 24.5.1996 / 19:16:51 / cg"
+! !
+
+!DependentPart class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libview2/DependentPart.st,v 1.1 1996-05-28 22:42:18 cg Exp $'
+! !
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/LayoutWrapper.st Wed May 29 00:43:39 1996 +0200
@@ -0,0 +1,48 @@
+TranslatingWrapper subclass:#LayoutWrapper
+ instanceVariableNames:'layout'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Graphics-Display Objects'
+!
+
+
+!LayoutWrapper class methodsFor:'instance creation'!
+
+on:aComponent in:aLayout
+ "create and return a layoutWrapper, which controls
+ aComponent bounds using aLayout.
+ The layout argument may be:
+ nil - no constraint
+ Point - origin shift
+ Rectangle - origin shift & extent
+ Layout - full control"
+
+ ^ (self on:aComponent) layout:aLayout
+
+ "Created: 26.5.1996 / 16:18:44 / cg"
+ "Modified: 26.5.1996 / 16:34:04 / cg"
+! !
+
+!LayoutWrapper methodsFor:'accessing'!
+
+layout
+ "return layout"
+
+ ^ layout
+
+ "Created: 26.5.1996 / 16:18:11 / cg"
+!
+
+layout:something
+ "set layout"
+
+ layout := something.
+
+ "Created: 26.5.1996 / 16:18:11 / cg"
+! !
+
+!LayoutWrapper class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libview2/LayoutWrapper.st,v 1.1 1996-05-28 22:43:39 cg Exp $'
+! !