Image.st
branchjv
changeset 7553 6cb9ac901e3b
parent 7542 9e125aa140f9
parent 7552 6d862b1829d9
child 7575 151c445c946c
--- a/Image.st	Wed Sep 07 06:48:09 2016 +0200
+++ b/Image.st	Thu Sep 08 06:46:34 2016 +0200
@@ -12598,7 +12598,7 @@
 
 copyFrom:anImage x:srcX y:srcY toX:dstX y:dstY width:w height:h
     "replace a rectangular area by pixels from another image.
-     The sources colors must be present in the destinations
+     The source's colors must be present in the destination's
      colorMap - otherwise, an error will be reported.
      Any mask is copied from the source.
 
@@ -12658,9 +12658,9 @@
     "
      |i1 i8 i4|
 
-     i8 := Image fromFile:'goodies/bitmaps/gifImages/garfield.gif'.
+     i8 := Image fromFile:'../../goodies/bitmaps/gifImages/garfield.gif'.
      i8 inspect.
-     i1 := Image fromFile:'libtool/bitmaps/SBrowser.xbm'.
+     i1 := Image fromFile:'../../libtool/bitmaps/SBrowser.xbm'.
      i1 inspect.
 
      i4 := Depth4Image fromImage:i8.
@@ -12764,6 +12764,13 @@
      i inspect.
      (i subImageIn:(300@160 corner:340@200)) inspect
     "
+    "
+     |i|
+
+     i := Image fromFile:'/Volumes/tmp/fillimage.ok.png'.
+     i inspect.
+     (i subImageIn:(0@0 corner:i width@i height)) inspect
+    "
 
     "Created: 20.9.1995 / 01:24:20 / claus"
 ! !