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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 29 Jan 1997 13:18:57 +0100
changeset 1292 130328a7fc1b
parent 1291 1480f8aae3bb
child 1293 530a47b8dc4c
checkin from browser
ShadowV.st file | annotate | diff | comparison | revisions
ShadowView.st file | annotate | diff | comparison | revisions 
--- a/ShadowV.st	Wed Jan 29 13:18:05 1997 +0100
+++ b/ShadowV.st	Wed Jan 29 13:18:57 1997 +0100
@@ -17,7 +17,7 @@
 	category:'Views-Special'
 !
 
-!ShadowView  class methodsFor:'documentation'!
+!ShadowView class methodsFor:'documentation'!
 
 copyright
 "
@@ -142,8 +142,6 @@
              (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 clippedByChildren:false.
 
             shW := shadowLength x.
@@ -199,7 +197,7 @@
         self raise
     ]
 
-    "Modified: 17.7.1996 / 13:23:37 / cg"
+    "Modified: 29.1.1997 / 13:10:32 / cg"
 !
 
 recreate
@@ -225,8 +223,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.21 1996-07-17 12:18:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/ShadowV.st,v 1.22 1997-01-29 12:18:57 cg Exp $'
 ! !
--- a/ShadowView.st	Wed Jan 29 13:18:05 1997 +0100
+++ b/ShadowView.st	Wed Jan 29 13:18:57 1997 +0100
@@ -17,7 +17,7 @@
 	category:'Views-Special'
 !
 
-!ShadowView  class methodsFor:'documentation'!
+!ShadowView class methodsFor:'documentation'!
 
 copyright
 "
@@ -142,8 +142,6 @@
              (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 clippedByChildren:false.
 
             shW := shadowLength x.
@@ -199,7 +197,7 @@
         self raise
     ]
 
-    "Modified: 17.7.1996 / 13:23:37 / cg"
+    "Modified: 29.1.1997 / 13:10:32 / cg"
 !
 
 recreate
@@ -225,8 +223,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.21 1996-07-17 12:18:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.22 1997-01-29 12:18:57 cg Exp $'
 ! !
hg/stx-libview