--- a/DSurface.st Wed Jul 17 12:43:03 1996 +0200
+++ b/DSurface.st Wed Jul 17 14:18:28 1996 +0200
@@ -436,25 +436,6 @@
]
!
-clipByChildren
- "drawing shall be done into my view only (default)"
-
- ^ self clippedByChildren:true
-!
-
-clippedByChildren:aBoolean
- "turn on/off drawing over children.
- If on, a superview may draw 'over' its children.
- If off (the default), drawing is 'under' its children.
- Only useful for the rootView, to draw over any visible views.
- (for example, when dragging a rubber-line)"
-
- gcId isNil ifTrue:[
- self initGC
- ].
- device setClipByChildren:aBoolean in:gcId
-!
-
eventMask
"return a (numeric) mask of allowed events -
this is X-specific and will be removed / replaced by symbolic values)"
@@ -493,13 +474,6 @@
"Created: 1.6.1996 / 13:21:51 / cg"
!
-noClipByChildren
- "drawing shall also be done into subviews"
-
- ^ self clippedByChildren:false
-
-!
-
preferredDepth
"return a non nil integer, if a specific depth is wanted in this view.
Return nil if we do not care (i.e. the displays default is wanted).
@@ -1709,5 +1683,5 @@
!DisplaySurface class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Attic/DSurface.st,v 1.5 1996-07-16 09:25:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Attic/DSurface.st,v 1.6 1996-07-17 12:18:02 cg Exp $'
! !
--- a/DevGC.st Wed Jul 17 12:43:03 1996 +0200
+++ b/DevGC.st Wed Jul 17 14:18:28 1996 +0200
@@ -243,6 +243,14 @@
"Modified: 12.5.1996 / 22:23:03 / cg"
!
+clipByChildren
+ "drawing shall be done into my view only (default)"
+
+ ^ self clippedByChildren:true
+
+ "Created: 17.7.1996 / 13:25:55 / cg"
+!
+
clipRect
"return the clipping rectangle for drawing. If there is currently no clipRect,
a dummy is created."
@@ -261,6 +269,21 @@
"Modified: 10.4.1996 / 14:32:22 / cg"
!
+clippedByChildren:aBoolean
+ "turn on/off drawing over children.
+ If on, a superview may draw 'over' its children.
+ If off (the default), drawing is 'under' its children.
+ Only useful for the rootView, to draw over any visible views.
+ (for example, when dragging a rubber-line)"
+
+ gcId isNil ifTrue:[
+ self initGC
+ ].
+ device setClipByChildren:aBoolean in:gcId
+
+ "Created: 17.7.1996 / 13:25:16 / cg"
+!
+
clippingRectangle:aRectangleOrNil
"set the clipping rectangle for drawing (in logical coordinates);
a nil argument turn off clipping (i.e. whole view is drawable)"
@@ -485,6 +508,14 @@
]
!
+noClipByChildren
+ "drawing shall also be done into subviews"
+
+ ^ self clippedByChildren:false
+
+ "Created: 17.7.1996 / 14:15:54 / cg"
+!
+
paint:aColor
"set the drawing color, which may be a real color, a dithered one
or even an image."
@@ -3183,14 +3214,16 @@
"make certain Workstation is initialized - just a check - will vanish soon"
Display isNil ifTrue:[
- 'DEVDRAW: Display not initialized when first DeviceGraphicsContext created' errorPrintNL.
- Workstation initialize
+ 'DEVDRAW: Display not initialized when first DeviceGraphicsContext created' errorPrintNL.
+ Workstation initialize
].
super initialize.
- foreground := Black.
- background := White.
+ foreground isNil ifTrue:[foreground := Black].
+ background isNil ifTrue:[background := White].
+
+ "Modified: 17.7.1996 / 12:59:47 / cg"
!
prepareForReinit
@@ -3389,6 +3422,6 @@
!DeviceGraphicsContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Attic/DevGC.st,v 1.12 1996-07-05 16:09:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Attic/DevGC.st,v 1.13 1996-07-17 12:17:17 cg Exp $'
! !
DeviceGraphicsContext initialize!
--- a/DeviceGraphicsContext.st Wed Jul 17 12:43:03 1996 +0200
+++ b/DeviceGraphicsContext.st Wed Jul 17 14:18:28 1996 +0200
@@ -243,6 +243,14 @@
"Modified: 12.5.1996 / 22:23:03 / cg"
!
+clipByChildren
+ "drawing shall be done into my view only (default)"
+
+ ^ self clippedByChildren:true
+
+ "Created: 17.7.1996 / 13:25:55 / cg"
+!
+
clipRect
"return the clipping rectangle for drawing. If there is currently no clipRect,
a dummy is created."
@@ -261,6 +269,21 @@
"Modified: 10.4.1996 / 14:32:22 / cg"
!
+clippedByChildren:aBoolean
+ "turn on/off drawing over children.
+ If on, a superview may draw 'over' its children.
+ If off (the default), drawing is 'under' its children.
+ Only useful for the rootView, to draw over any visible views.
+ (for example, when dragging a rubber-line)"
+
+ gcId isNil ifTrue:[
+ self initGC
+ ].
+ device setClipByChildren:aBoolean in:gcId
+
+ "Created: 17.7.1996 / 13:25:16 / cg"
+!
+
clippingRectangle:aRectangleOrNil
"set the clipping rectangle for drawing (in logical coordinates);
a nil argument turn off clipping (i.e. whole view is drawable)"
@@ -485,6 +508,14 @@
]
!
+noClipByChildren
+ "drawing shall also be done into subviews"
+
+ ^ self clippedByChildren:false
+
+ "Created: 17.7.1996 / 14:15:54 / cg"
+!
+
paint:aColor
"set the drawing color, which may be a real color, a dithered one
or even an image."
@@ -3183,14 +3214,16 @@
"make certain Workstation is initialized - just a check - will vanish soon"
Display isNil ifTrue:[
- 'DEVDRAW: Display not initialized when first DeviceGraphicsContext created' errorPrintNL.
- Workstation initialize
+ 'DEVDRAW: Display not initialized when first DeviceGraphicsContext created' errorPrintNL.
+ Workstation initialize
].
super initialize.
- foreground := Black.
- background := White.
+ foreground isNil ifTrue:[foreground := Black].
+ background isNil ifTrue:[background := White].
+
+ "Modified: 17.7.1996 / 12:59:47 / cg"
!
prepareForReinit
@@ -3389,6 +3422,6 @@
!DeviceGraphicsContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.12 1996-07-05 16:09:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.13 1996-07-17 12:17:17 cg Exp $'
! !
DeviceGraphicsContext initialize!
--- a/DisplaySurface.st Wed Jul 17 12:43:03 1996 +0200
+++ b/DisplaySurface.st Wed Jul 17 14:18:28 1996 +0200
@@ -436,25 +436,6 @@
]
!
-clipByChildren
- "drawing shall be done into my view only (default)"
-
- ^ self clippedByChildren:true
-!
-
-clippedByChildren:aBoolean
- "turn on/off drawing over children.
- If on, a superview may draw 'over' its children.
- If off (the default), drawing is 'under' its children.
- Only useful for the rootView, to draw over any visible views.
- (for example, when dragging a rubber-line)"
-
- gcId isNil ifTrue:[
- self initGC
- ].
- device setClipByChildren:aBoolean in:gcId
-!
-
eventMask
"return a (numeric) mask of allowed events -
this is X-specific and will be removed / replaced by symbolic values)"
@@ -493,13 +474,6 @@
"Created: 1.6.1996 / 13:21:51 / cg"
!
-noClipByChildren
- "drawing shall also be done into subviews"
-
- ^ self clippedByChildren:false
-
-!
-
preferredDepth
"return a non nil integer, if a specific depth is wanted in this view.
Return nil if we do not care (i.e. the displays default is wanted).
@@ -1709,5 +1683,5 @@
!DisplaySurface class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.5 1996-07-16 09:25:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.6 1996-07-17 12:18:02 cg Exp $'
! !
--- a/ShadowV.st Wed Jul 17 12:43:03 1996 +0200
+++ b/ShadowV.st Wed Jul 17 14:18:28 1996 +0200
@@ -17,7 +17,7 @@
category:'Views-Special'
!
-!ShadowView class methodsFor:'documentation'!
+!ShadowView class methodsFor:'documentation'!
copyright
"
@@ -142,8 +142,9 @@
(copy from root-view into the 'imageUnderShadow'-form)
"
imageUnderShadow := Form width:width height:height depth:device depth on:device.
- imageUnderShadow initGC.
- device setClipByChildren:false in:imageUnderShadow gcId.
+"/ imageUnderShadow initGC.
+"/ device setClipByChildren:false in:imageUnderShadow gcId.
+ imageUnderShadow clippedByChildren:false.
shW := shadowLength x.
shH := shadowLength y.
@@ -198,7 +199,7 @@
self raise
]
- "Modified: 28.5.1996 / 20:24:34 / cg"
+ "Modified: 17.7.1996 / 13:23:37 / cg"
!
recreate
@@ -224,8 +225,8 @@
"Modified: 12.5.1996 / 22:01:17 / cg"
! !
-!ShadowView class methodsFor:'documentation'!
+!ShadowView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Attic/ShadowV.st,v 1.20 1996-05-28 18:31:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Attic/ShadowV.st,v 1.21 1996-07-17 12:18:28 cg Exp $'
! !
--- a/ShadowView.st Wed Jul 17 12:43:03 1996 +0200
+++ b/ShadowView.st Wed Jul 17 14:18:28 1996 +0200
@@ -17,7 +17,7 @@
category:'Views-Special'
!
-!ShadowView class methodsFor:'documentation'!
+!ShadowView class methodsFor:'documentation'!
copyright
"
@@ -142,8 +142,9 @@
(copy from root-view into the 'imageUnderShadow'-form)
"
imageUnderShadow := Form width:width height:height depth:device depth on:device.
- imageUnderShadow initGC.
- device setClipByChildren:false in:imageUnderShadow gcId.
+"/ imageUnderShadow initGC.
+"/ device setClipByChildren:false in:imageUnderShadow gcId.
+ imageUnderShadow clippedByChildren:false.
shW := shadowLength x.
shH := shadowLength y.
@@ -198,7 +199,7 @@
self raise
]
- "Modified: 28.5.1996 / 20:24:34 / cg"
+ "Modified: 17.7.1996 / 13:23:37 / cg"
!
recreate
@@ -224,8 +225,8 @@
"Modified: 12.5.1996 / 22:01:17 / cg"
! !
-!ShadowView class methodsFor:'documentation'!
+!ShadowView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.20 1996-05-28 18:31:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.21 1996-07-17 12:18:28 cg Exp $'
! !