##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: September, 2016 # Modified: 2016-10-03/22:40-0400 ##+ # # Clone.icn, demonstrate window cloning, canvas coupling # procedure main() window := open("Clone one", "g", "size=110,60", "canvas=hidden") write(window, "Cloning") write(window) other := Clone(window, "fg=vivid orange", "font=sans") write(other, "From the clone") WSync(window) WriteImage(window, "../images/Clone.png") close(other) close(window) end