Mercurial Mercurial > hg > stx-libview / 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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 07 May 1997 20:49:34 +0200
changeset 1722 4ceaeda95cc3
parent 1721 8ef049b47ea5
child 1723 dd0862bde826
*** empty log message ***
DevGC.st file | annotate | diff | comparison | revisions
DevWorkst.st file | annotate | diff | comparison | revisions
DeviceGraphicsContext.st file | annotate | diff | comparison | revisions
DeviceWorkstation.st file | annotate | diff | comparison | revisions
ShadowV.st file | annotate | diff | comparison | revisions
ShadowView.st file | annotate | diff | comparison | revisions 
--- a/DevGC.st	Wed May 07 20:27:20 1997 +0200
+++ b/DevGC.st	Wed May 07 20:49:34 1997 +0200
@@ -260,6 +260,7 @@
 clipByChildren
     "drawing shall be done into my view only (default)"
 
+    self obsoleteMethodWarning:'use #clippedByChildren:true'.
     ^ self clippedByChildren:true
 
     "Created: 17.7.1996 / 13:25:55 / cg"
@@ -295,7 +296,8 @@
     ].
     device noClipIn:drawableId gc:gcId.
     device setClipByChildren:aBoolean in:drawableId gc:gcId.
-    device noClipIn:drawableId gc:gcId.
+"/    device noClipIn:drawableId gc:gcId.
+
 "/
 "/    device setClipX:0 y:0 width:(self width) height:(self height) in:drawableId gc:gcId.
 "/
@@ -531,6 +533,7 @@
 noClipByChildren
     "drawing shall also be done into subviews"
 
+    self obsoleteMethodWarning:'use #clippedByChildren:false'.
     ^ self clippedByChildren:false
 
     "Created: 17.7.1996 / 14:15:54 / cg"
@@ -3691,6 +3694,6 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevGC.st,v 1.43 1997-05-06 14:34:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevGC.st,v 1.44 1997-05-07 18:48:20 cg Exp $'
 ! !
 DeviceGraphicsContext initialize!
--- a/DevWorkst.st	Wed May 07 20:27:20 1997 +0200
+++ b/DevWorkst.st	Wed May 07 20:49:34 1997 +0200
@@ -875,7 +875,7 @@
      |v|
      v := Display rootView.
      v paint:Color red.
-     v noClipByChildren.
+     v clippedByChildren:false.
      v fillRectangleX:10 y:10 width:100 height:100.  
     "
 !
@@ -4128,7 +4128,7 @@
     "
     origin := self pointerPosition.
 
-    root noClipByChildren.
+    root clippedByChildren:false.
     root foreground:blackColor background:whiteColor.
 
     root xoring:[
@@ -4174,7 +4174,7 @@
 
     "flush all events pending on my display"
 
-    root clipByChildren.
+    root clippedByChildren:true.
 
     self flush.
     self disposeButtonEventsFor:nil.
@@ -4280,7 +4280,7 @@
     "
     origin := initialRectangle origin.
 
-    root noClipByChildren.
+    root clippedByChildren:false.
     root foreground:blackColor background:whiteColor.
 
     root xoring:[
@@ -4358,7 +4358,7 @@
 
     "flush all events pending on my display"
 
-    root clipByChildren.
+    root clippedByChildren:true.
 
     self flush.
     self disposeButtonEventsFor:nil.
@@ -5568,6 +5568,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.223 1997-05-07 16:46:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.224 1997-05-07 18:49:03 cg Exp $'
 ! !
 DeviceWorkstation initialize!
--- a/DeviceGraphicsContext.st	Wed May 07 20:27:20 1997 +0200
+++ b/DeviceGraphicsContext.st	Wed May 07 20:49:34 1997 +0200
@@ -260,6 +260,7 @@
 clipByChildren
     "drawing shall be done into my view only (default)"
 
+    self obsoleteMethodWarning:'use #clippedByChildren:true'.
     ^ self clippedByChildren:true
 
     "Created: 17.7.1996 / 13:25:55 / cg"
@@ -295,7 +296,8 @@
     ].
     device noClipIn:drawableId gc:gcId.
     device setClipByChildren:aBoolean in:drawableId gc:gcId.
-    device noClipIn:drawableId gc:gcId.
+"/    device noClipIn:drawableId gc:gcId.
+
 "/
 "/    device setClipX:0 y:0 width:(self width) height:(self height) in:drawableId gc:gcId.
 "/
@@ -531,6 +533,7 @@
 noClipByChildren
     "drawing shall also be done into subviews"
 
+    self obsoleteMethodWarning:'use #clippedByChildren:false'.
     ^ self clippedByChildren:false
 
     "Created: 17.7.1996 / 14:15:54 / cg"
@@ -3691,6 +3694,6 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.43 1997-05-06 14:34:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.44 1997-05-07 18:48:20 cg Exp $'
 ! !
 DeviceGraphicsContext initialize!
--- a/DeviceWorkstation.st	Wed May 07 20:27:20 1997 +0200
+++ b/DeviceWorkstation.st	Wed May 07 20:49:34 1997 +0200
@@ -875,7 +875,7 @@
      |v|
      v := Display rootView.
      v paint:Color red.
-     v noClipByChildren.
+     v clippedByChildren:false.
      v fillRectangleX:10 y:10 width:100 height:100.  
     "
 !
@@ -4128,7 +4128,7 @@
     "
     origin := self pointerPosition.
 
-    root noClipByChildren.
+    root clippedByChildren:false.
     root foreground:blackColor background:whiteColor.
 
     root xoring:[
@@ -4174,7 +4174,7 @@
 
     "flush all events pending on my display"
 
-    root clipByChildren.
+    root clippedByChildren:true.
 
     self flush.
     self disposeButtonEventsFor:nil.
@@ -4280,7 +4280,7 @@
     "
     origin := initialRectangle origin.
 
-    root noClipByChildren.
+    root clippedByChildren:false.
     root foreground:blackColor background:whiteColor.
 
     root xoring:[
@@ -4358,7 +4358,7 @@
 
     "flush all events pending on my display"
 
-    root clipByChildren.
+    root clippedByChildren:true.
 
     self flush.
     self disposeButtonEventsFor:nil.
@@ -5568,6 +5568,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.223 1997-05-07 16:46:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.224 1997-05-07 18:49:03 cg Exp $'
 ! !
 DeviceWorkstation initialize!
--- a/ShadowV.st	Wed May 07 20:27:20 1997 +0200
+++ b/ShadowV.st	Wed May 07 20:49:34 1997 +0200
@@ -142,7 +142,6 @@
              (copy from root-view into the 'imageUnderShadow'-form)
             "
             imageUnderShadow := Form width:width height:height depth:device depth on:device.
-            "/ imageUnderShadow clippedByChildren:false.
 
             shW := shadowLength x.
             shH := shadowLength y.
@@ -226,5 +225,5 @@
 !ShadowView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/ShadowV.st,v 1.23 1997-05-07 18:27:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/ShadowV.st,v 1.24 1997-05-07 18:49:34 cg Exp $'
 ! !
--- a/ShadowView.st	Wed May 07 20:27:20 1997 +0200
+++ b/ShadowView.st	Wed May 07 20:49:34 1997 +0200
@@ -142,7 +142,6 @@
              (copy from root-view into the 'imageUnderShadow'-form)
             "
             imageUnderShadow := Form width:width height:height depth:device depth on:device.
-            "/ imageUnderShadow clippedByChildren:false.
 
             shW := shadowLength x.
             shH := shadowLength y.
@@ -226,5 +225,5 @@
 !ShadowView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.23 1997-05-07 18:27:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.24 1997-05-07 18:49:34 cg Exp $'
 ! !
hg/stx-libview