Tried on Window 2000 Pro, AS Tcl 8.4.6, TWAPI 0.8. Put image on clipboard via Alt-PrntScrn. The image pastes into MSpaint fine. When I push paste on this test program the process just disappears with no message or error display of any kind. :*(  RT, 26March2006.  To install the patched Img I simply copied the zip files over top of existing
Img install. Was that correct? (I did this because the zip did not contain a full compliment of files)
'''Update by [RT], 30June06''' - finally tried with 8.4.9 (ActiveState) and the new Img is indeed working to load the .bmp file created by the Clipboard2Img proc below. Thanks!!

[PO] 2006/03/26
The Zip file should contain everything you need. 
But, I've compiled the Img extension against Tcl 8.4.9. This may be your problem; Stubs are only upwards compatible.

[APN] Both copy and paste worked fine for me on XP SP2 in 16 and 32 bit display modes.
Tcl 8.4.12, [TWAPI] 0.8. Unlike the above user, I removed by original Img directory
and just used the above version instead.

[MG] I used a simplified version of this code on XP SP2 for pasting PNG images for different Excel objects (charts, equations) from the clipboard directly to Tk canvas. Tcl 8.4.11, TWAPI 0.8 and a standard Img1.3. My code follows after the main example.

[DC] Paul, did you ever post a patch file or the source code to this modification?

[MR] Did not work for me on WinXP, Tcl 8.4.9, TWAPI 0.8. Getting this error: couldn't load library "Img1.3/tkimgwindow13.dll": this library or a dependent library could not be found in library path while executing.

[PO] 2006/09/19
The Img package available from my homepage is dependent on msvcrtd.dll. It was intended as a test/debug version.

The patched sources of the BMP parser are in the SF repository since 2006/06/06.
It could therefore be part of an actual AS distribution. 

'''[potrzebie] - 2011-11-15 07:46:28'''
The test code works directly with latest ActiveTCL, so I guess they included your extended BMP parser.

----

***Just copy image to clipboard***

(extract from below)
   *   requires [twapi] and [Img] (at least tkimg files pkgIndex.tcl, tkimg14.dll, tkimgbmp14.dll)
   *   Image is named Img (image create photo Img)

======tcl
set a {return button pack set menu}
package require twapi_clipboard
package require img::bmp
twapi::open_clipboard
twapi::empty_clipboard
# First 14 bytes are bitmapfileheader - get rid of this
twapi::write_clipboard 8 [string range\
        [binary decode base64 [Img data -format bmp]] 14 end]
twapi::close_clipboard
======

+&
| [7-segment ASCII graphics]
| [notFound]
+&
| [A Dilbert reformatter]
| [WikiDbImage dil030720.jpg]
+&
| [A graph generator]
| [notFound]
+&
| [a little code page browser]
| [WikiDbImage codepages.jpg]
+&
| [A little concordance]
| [notFound]
+&
| [A little database API]
| [notFound]
+&
| [A little demon]
| [notFound]
+&
| [A little file searcher (iPaq)]
| [WikiDbImage tgrep_ce.jpg]
+&
| [A little file searcher]
| [WikiDbImage tgrep.jpg]
+&
| [A little fortune teller]
| [WikiDbImage tkfortune.jpg]
+&
| [A little login dialog]
| [WikiDbImage login.jpg]
+&
| [A little multiplication toy]
| [WikiDbImage multiply.jpg]
+&
| [A little proving engine]
| [notFound]
+&
| [A little value dialog]
| [WikiDbImage valuedialog.jpg]
+&
| [A little XML browser]
| [WikiDbImage xmltree.jpg]
+&
| [A matrix gadget]
| [notFound]
+&
| [A Mini Database Manager]
| [notFound]
+&
| [A minimal console]
| [notFound]
+&
| [A minimal debugger]
| [notFound]
+&
| [A minimal editor explained]
| [notFound]
+&
| [A minimally extended minimal editor]
| [notFound]
+&
| [A parser's monolog]
| [notFound]
+&
| [A partial APL parser]
| [notFound]
+&
| [A simple Arabic renderer]
| [notFound]
+&
| [A simple database]
| [notFound]
+&
| [A symmetric doodler]
| [WikiDbImage symdoodle.jpg]
+&
| [A tiny state machine]
| [notFound]
+&
| [A toy piano]
| [WikiDbImage piano.jpg]
+&
| [An anomaly in case conversion]
| [notFound]
+&
| [An APL playstation]
| [WikiDbImage aplkbd.gif]
+&
| [An entry with a history]
| [notFound]
+&
| [Arrays of function pointers]
| [notFound]
+&
| [Arts and Crafts of Tcl-Tk Programming]
| [notFound]
+&
| [Based numbers]
| [notFound]
+&
| [Binary representation of numbers]
| [notFound]
+&
| [Block-local variables]
| [notFound]
+&
| [C code generators]
| [notFound]
+&
| [Cantor's plait]
| [notFound]
+&
| [Canvas presentation graphics]
| [WikiDbImage present.jpg]
+&
| [Canvas rectangle marking]
| [Canvas rectangle marking screenshot png]
+&
| [Chaining things]
| [notFound]
+&
| [Check digits]
| [notFound]
+&
| [Chess in Tcl]
| [WikiDbImage chess.jpg]
+&
| [Code 39 generation]
| [WikiDbImage test8252v.gif]
+&
| [Command completion]
| [notFound]
+&
| [Comparing relations]
| [notFound]
+&
| [Complex math made simple]
| [notFound]
+&
| [Composite fields megawidgets]
| [notFound]
+&
| [Constraining variables]
| [notFound]
+&
| [Cryptography: transposition]
| [notFound]
+&
| [Dangers of creative writing]
| [notFound]
+&
| [Data structures: from the bit to the Web]
| [notFound]
+&
| [Decision trees as expressions]
| [notFound]
+&
| [Deferred evaluation]
| [notFound]
+&
| [Degree histograms]
| [notFound]
+&
| [Describing and rendering flags in Tcl]
| [notFound]
+&
| [Design patterns in Tcl]
| [notFound]
+&
| [Doing things in namespaces]
| [notFound]
+&
| [Doing things]
| [notFound]
+&
| [Drawing and editing polygons]
| [notFound]
+&
| [Dumping interpreter state]
| [notFound]
+&
| [Dynamic variable scoping]
| [notFound]
+&
| [Einfach Tcl]
| [notFound]
+&
| [English number reader]
| [notFound]
+&
| [English plurals]
| [notFound]
+&
| [Entities]
| [notFound]
+&
| [Euro converter]
| [notFound]
+&
| [expr problems with int]
| [notFound]
+&
| [Frequency calculation]
| [notFound]
+&
| [Fun with functions]
| [WikiDbImage funplot.jpg]
+&
| [Fuzzy string search]
| [notFound]
+&
| [Generating random strings]
| [notFound]
+&
| [Goto in Tcl]
| [notFound]
+&
| [Graph theory in Tcl]
| [notFound]
+&
| [Graylevel subsampling]
| [notFound]
+&
| [Guarded proc]
| [notFound]
+&
| [Hebrew numbers]
| [notFound]
+&
| [Horseracing in Tcl]
| [WikiDbImage horses.jpg]
+&
| [Hot curry]
| [notFound]
+&
| [How to change a running system]
| [notFound]
+&
| [htext3]
| [notFound]
+&
| [i18n - Tcl for the world]
| [notFound]
+&
| [i18n - Writing for the world]
| [notFound]
+&
| [iDict: a multilingual dictionary]
| [WikiDbImage idict.jpg]
+&
| [If we had no if]
| [notFound]
+&
| [iFile: a little file system browser]
| [WikiDbImage ifile01.jpg]
+&
| [iFly]
| [WikiDbImage iFly.jpg]
+&
| [iMap: an indexed map viewer]
| [WikiDbImage imap.jpg]
+&
| [Importing expr functions]
| [notFound]
+&
| [inspect]
| [notFound]
+&
| [iPAQ as signal lamp]
| [notFound]
+&
| [Is Tcl Different!]
| [notFound]
+&
| [iShow]
| [WikiDbImage ishow.jpg]
+&
| [Language/Country name servers]
| [notFound]
+&
| [Let unknown know]
| [notFound]
+&
| [Local procedures]
| [notFound]
+&
| [Matrix multiplication and encryption]
| [notFound]
+&
| [Model railroading with Tcl]
| [Model-railroading_loco]
+&
| [Modeling COND with expr]
| [notFound]
+&
| [More graph theory]
| [notFound]
+&
| [Moving dots]
| [notFound]
+&
| [Multilingual menu]
| [notFound]
+&
| [Notes on a canvas]
| [notesOnCanvas_ProgrammersDrinkingSong_wiki1248_507x332.jpg]
+&
| [Numbered arrays]
| [notFound]
+&
| [One Liners]
| [notFound]
+&
| [owh - a fileless tclsh]
| [notFound]
+&
| [Parsing Polish notation]
| [notFound]
+&
| [Partcl physics as retold by a layman]
| [notFound]
+&
| [paths and cycles]
| [notFound]
+&
| [Persistent arrays]
| [notFound]
+&
| [Photo image rotation]
| [WikiDbImage imgrot.jpg]
+&
| [Playing APL]
| [notFound]
+&
| [Playing Bourne shell]
| [notFound]
+&
| [Playing COBOL]
| [notFound]
+&
| [Playing Haskell]
| [notFound]
+&
| [Playing LISP]
| [notFound]
+&
| [Playing Python]
| [notFound]
+&
| [PocketPC]
| [WikiDbImage ChessOnJornada.jpg]
+&
| [Procs as data structures]
| [notFound]
+&
| [Procs as objects]
| [notFound]
+&
| [puts workaround]
| [notFound]
+&
| [Qualified geographic names]
| [notFound]
+&
| [Recursive list searching]
| [notFound]
+&
| [Result caching]
| [notFound]
+&
| [Right-to-left entry widget]
| [notFound]
+&
| [Splitting strings with embedded strings]
| [notFound]
+&
| [Stacks and queues]
| [notFound]
+&
| [Steppin' out]
| [notFound]
+&
| [Stress testing]
| [notFound]
+&
| [strimj - string image routines]
| [WikiDbImage strimj.jpg]
+&
| [strimj animation]
| [notFound]
+&
| [strimj segmentation]
| [notFound]
+&
| [Symbolic links in Windows/CE]
| [notFound]
+&
| [Syntax parsing in Tcl]
| [notFound]
+&
| [Tables]
| [notFound]
+&
| [taiku goes multilingual]
| [WikiDbImage taiku.jpg]
+&
| [taiku: a little Chinese editor]
| [notFound]
+&
| [tally: a string counter gadget]
| [notFound]
+&
| [Tcl and LISP]
| [notFound]
+&
| [Tcl Heritage]
| [notFound]
+&
| [TclWorld Gazetteer]
| [notFound]
+&
| [Tclworld]
| [notFound]
+&
| [The filter idiom]
| [notFound]
+&
| [The i18n package: data]
| [notFound]
+&
| [The i18n package]
| [notFound]
+&
| [The Lish family]
| [notFound]
+&
| [The Q function]
| [WikiDbImage q.jpg]
+&
| [The world of ToolCommand]
| [notFound]
+&
| [Things British]
| [notFound]
+&
| [Time-dependent greetings]
| [notFound]
+&
| [Titoo: a thought experiment]
| [notFound]
+&
| [Tk image Dos and Don'ts]
| [notFound]
+&
| [TkSnake]
| [WikiDbImage TkSnake.jpg]
+&
| [Toasters and things]
| [notFound]
+&
| [Transliteration]
| [notFound]
+&
| [Transposing a matrix]
| [notFound]
+&
| [Trees as nested lists]
| [notFound]
+&
| [UIC vehicle number validator]
| [notFound]
+&
| [Unicode and UTF-8]
| [notFound]
+&
| [upvar sugar]
| [notFound]
+&
| [UTF-8 bit by bit]
| [notFound]
+&
| [Widget tags]
| [notFound]
+&
| [Wiki format to HTML]
| [notFound]
+&
| [Word Reaper]
| [notFound]
+&
| [Writing PPM files]
| [notFound]
+&
| [XML Graph to canvas]
| [WikiDbImage doteddemo.jpg]
+&
| [XPM to photo image]
| [notFound]
+&
| [Yet another object system]
| [notFound]
+&
| [A triangle toy]
+&
| [Alphabet Wheel]

[stevel] testing mail protection - mailto:person@mail.com